Milton Bradley MBX ROM (mbx_MM52664MBX-N_ROM.bin) disassembly without definitions. Uses the 6809dasm.pl perl script, which has issues with negative index offsets in the byte range. 4 offsets need to be changed if your assembler does not automatically wrap forced-byte offsets to negative: <$e9 to <-$17, and <$ee to <-$12 . (Work in progress, assume some errors.)

形式
Asm
投稿日時
2022-04-02 22:32
公開期間
無期限
  1. org $e000
  2. L_02D5 equ $02d5
  3. L_03DE equ $03de
  4. L_0405 equ $0405
  5. L_0AA4 equ $0aa4
  6. L_3E40 equ $3e40
  7. lda #$38
  8. tfr a,dp
  9. lds #$4800
  10. lda #$38
  11. sta >$a601
  12. ldx #$3800
  13. clra
  14. sta ,x+
  15. deca
  16. L_E014 sta ,x+
  17. cmpx #$4800
  18. bne L_E014
  19. ldx #$3800
  20. lda ,x
  21. sta <$79
  22. beq L_E028
  23. lda #$02
  24. sta <$79
  25. L_E028 clra
  26. ldx #$e000
  27. L_E02C adda ,x+
  28. cmpx #$0000
  29. bne L_E02C
  30. cmpa #$00
  31. beq L_E03D
  32. lda #$01
  33. ora <$79
  34. sta <$79
  35. L_E03D lda #$3e
  36. sta >$a601
  37. ldb >$a601
  38. andb #$7f
  39. cmpb #$3e
  40. bne L_E059
  41. sta >$a603
  42. ldb >$a603
  43. andb #$7f
  44. cmpb #$3e
  45. bne L_E059
  46. beq L_E05F
  47. L_E059 lda #$10
  48. ora <$79
  49. sta <$79
  50. L_E05F jsr >$e6ea
  51. jsr >$e6c5
  52. jsr >$f436
  53. jsr >$e087
  54. tst <$79
  55. bne L_E074
  56. andcc #$bf
  57. jsr >$fb1b
  58. L_E074 andcc #$af
  59. jmp >$e669
  60. L_E079 orcc #$50
  61. lds #$4800
  62. jsr >$e087
  63. andcc #$af
  64. jmp >$e669
  65. clra
  66. sta >$a601
  67. sta >$a603
  68. sta >$a600
  69. coma
  70. sta >$a602
  71. lda #$34
  72. sta >$a603
  73. lda #$3e
  74. sta >$a601
  75. lda #$ff
  76. sta >$a602
  77. clr <$06
  78. ldx #$f430
  79. stx <$00
  80. ldx #$380b
  81. stx <$09
  82. ldx #$e079
  83. stx <$04
  84. jsr >$e0e1
  85. jsr >$e998
  86. jsr >$f43b
  87. ldx #$3834
  88. ldb #$08
  89. clra
  90. L_E0C4 sta ,x+
  91. decb
  92. bne L_E0C4
  93. ldb #$10
  94. coma
  95. L_E0CC sta ,x+
  96. decb
  97. bne L_E0CC
  98. clra
  99. sta <$33
  100. sta <$4d
  101. sta <$4e
  102. sta <$51
  103. sta <$73
  104. lda #$04
  105. sta <$74
  106. rts
  107. ldx #$e121
  108. stx <$02
  109. rts
  110. jmp [$3800]
  111. rti
  112. jmp [$3802]
  113. jmp [$3804]
  114. lda #$36
  115. sta >$a601
  116. L_E0F9 lda >$a600
  117. anda #$c0
  118. bne L_E105
  119. jsr >$e32b
  120. bra L_E0F9
  121. L_E105 cmpa #$80
  122. bne L_E14E
  123. jsr >$e374
  124. ldx #$e15e
  125. ldy #$e16f
  126. jsr >$fbcf
  127. cmpy #$e1ff
  128. bne L_E14E
  129. jsr >$e1ff
  130. bra L_E139
  131. lda #$36
  132. sta >$a601
  133. L_E126 lda >$a600
  134. anda #$c0
  135. bne L_E132
  136. jsr >$e32b
  137. bra L_E126
  138. L_E132 cmpa #$80
  139. bne L_E14E
  140. jsr >$e374
  141. L_E139 jsr >$e15e
  142. jsr >$fd3e
  143. jsr >$e1c8
  144. tst <$06
  145. lbne L_E079
  146. jsr >$e394
  147. jsr >$e4ba
  148. L_E14E ldb #$ff
  149. stb >$a602
  150. lda #$3e
  151. sta >$a601
  152. jsr >$f065
  153. rti
  154. sbcb 12,s
  155. L_E15E ldx #$e15e
  156. ldy #$e16f
  157. jsr >$fbcf
  158. jsr ,y
  159. bra L_E15E
  160. leas 2,s
  161. rts
  162. com <$e1
  163. inc 3,x
  164. ldb >$148f
  165. lda #$00
  166. eorb -15,y
  167. ldb >$6f03
  168. ldb >$5900
  169. ldb >$7de7
  170. ldd <$03
  171. fcb $e8,$00 ; eorb 0,x
  172. lda #$00
  173. fcb $e7,$a7 ; stb
  174. eorb 12,y
  175. com <$e8
  176. fcb $15 ; hcf
  177. lda #$00
  178. stb -1,u
  179. bitb >$faa4
  180. eora <$8c
  181. lda #$00
  182. stb -8,y
  183. stb >L_E288,pcr
  184. andcc #$e7
  185. adca #$86
  186. neg <$e7
  187. cmpa <$e7
  188. fcb $a1,$00 ; cmpa 0,x
  189. stb ,u++
  190. fcb $e7,$9a ; stb []
  191. lda #$00
  192. fcb $e1,$ec,$e2 ; cmpb <$e196,pcr
  193. lsrb
  194. neg <$e9
  195. eora <$e1
  196. stu >$8600
  197. sbcb -8,x
  198. sbcb -7,y
  199. com <$e2
  200. dec <$00
  201. fcb $e6,$cc,$e0 ; ldb <$e1a7,pcr
  202. subb >$8600
  203. jsr >$e1df
  204. ldy #$380b
  205. L_E1D1 jsr >$e299
  206. cmpy <$09
  207. blt L_E1D1
  208. ldx #$380b
  209. stx <$09
  210. rts
  211. ldx <$09
  212. pshs cc
  213. orcc #$10
  214. sta ,x+
  215. stx <$09
  216. puls cc
  217. rts
  218. jsr >$e28b
  219. tsta
  220. bpl L_E1F8
  221. ldb #$01
  222. stb <$33
  223. anda #$7f
  224. L_E1F8 sta <$4d
  225. sta <$4e
  226. clr <$51
  227. rts
  228. lda #$1e
  229. sta <$06
  230. jsr >$e1df
  231. jsr >$e0e1
  232. rts
  233. jsr >$e28b
  234. sta <$76
  235. jsr >$e28b
  236. sta <$77
  237. jmp [$3876]
  238. jsr >$e28b
  239. sta <$76
  240. jsr >$e28b
  241. sta <$77
  242. jsr >$e27f
  243. sta <$78
  244. ldy <$76
  245. lda #$0d
  246. jsr >$e1df
  247. L_E22F lda ,y+
  248. jsr >$e1df
  249. dec <$78
  250. bne L_E22F
  251. rts
  252. jsr >$e28b
  253. sta <$76
  254. jsr >$e28b
  255. sta <$77
  256. ldx <$76
  257. jsr >$e27f
  258. sta <$78
  259. L_E24A jsr >$e28b
  260. sta ,x+
  261. dec <$78
  262. bne L_E24A
  263. rts
  264. jsr >$e28b
  265. sta <$72
  266. jsr >$e28b
  267. tfr a,b
  268. andb #$f0
  269. stb <$75
  270. anda #$0f
  271. sta <$73
  272. lda #$04
  273. sta <$74
  274. rts
  275. rts
  276. clr <$08
  277. jsr >$e33e
  278. rora
  279. rts
  280. ldb #$02
  281. bra L_E28D
  282. ldb #$03
  283. bra L_E28D
  284. ldb #$04
  285. bra L_E28D
  286. ldb #$05
  287. bra L_E28D
  288. ldb #$06
  289. bra L_E28D
  290. L_E287 ldb #$07
  291. L_E288 equ L_E287+1
  292. bra L_E28D
  293. ldb #$08
  294. L_E28D clr <$08
  295. stb <$07
  296. L_E291 jsr >$e33e
  297. dec <$07
  298. bne L_E291
  299. rts
  300. leax >L_E327,pcr
  301. clra
  302. lsr ,y
  303. rola
  304. lsr ,y
  305. rola
  306. lda a,x
  307. L_E2A6 ldb >$a600
  308. andb #$c0
  309. bne L_E2B1
  310. bsr L_E32B
  311. bra L_E2A6
  312. L_E2B1 cmpb #$40
  313. bne L_E2A6
  314. sta >$a602
  315. clra
  316. lsr ,y
  317. rola
  318. lsr ,y
  319. rola
  320. lda a,x
  321. coma
  322. L_E2C2 ldb >$a600
  323. andb #$c0
  324. bne L_E2CD
  325. bsr L_E32B
  326. bra L_E2C2
  327. L_E2CD cmpb #$80
  328. bne L_E2C2
  329. sta >$a602
  330. clra
  331. lsr ,y
  332. rola
  333. lsr ,y
  334. rola
  335. lda a,x
  336. L_E2DD ldb >$a600
  337. andb #$c0
  338. bne L_E2E8
  339. bsr L_E32B
  340. bra L_E2DD
  341. L_E2E8 cmpb #$40
  342. bne L_E2DD
  343. sta >$a602
  344. clra
  345. lsr ,y
  346. rola
  347. lsr ,y
  348. rola
  349. lda a,x
  350. coma
  351. L_E2F9 ldb >$a600
  352. andb #$c0
  353. bne L_E304
  354. bsr L_E32B
  355. bra L_E2F9
  356. L_E304 cmpb #$80
  357. bne L_E2F9
  358. sta >$a602
  359. L_E30B ldb >$a600
  360. andb #$c0
  361. bne L_E316
  362. bsr L_E32B
  363. bra L_E30B
  364. L_E316 cmpb #$40
  365. bne L_E30B
  366. ldb #$ff
  367. stb >$a602
  368. lda #$11
  369. L_E321 deca
  370. bpl L_E321
  371. leay 1,y
  372. rts
  373. L_E327 ldu >$fbfd
  374. L_E32A stb >$3402
  375. L_E32B equ L_E32A+1
  376. lda #$0f
  377. L_E32F deca
  378. bgt L_E32F
  379. lda >$a600
  380. anda #$c0
  381. bne L_E33C
  382. jmp >L_E079
  383. L_E33C puls a,pc
  384. L_E33E lda >$a600
  385. anda #$c0
  386. bne L_E349
  387. bsr L_E32B
  388. bra L_E33E
  389. L_E349 cmpa #$c0
  390. beq L_E33E
  391. clr >$a602
  392. lsl <$08
  393. L_E352 lda >$a600
  394. anda #$c0
  395. bne L_E35D
  396. bsr L_E32B
  397. bra L_E352
  398. L_E35D cmpa #$40
  399. beq L_E367
  400. lda #$01
  401. ora <$08
  402. sta <$08
  403. L_E367 lda <$08
  404. ldb #$ff
  405. stb >$a602
  406. ldb #$0b
  407. L_E370 decb
  408. bpl L_E370
  409. rts
  410. clr >$a602
  411. ldb #$04
  412. L_E379 lda >$a600
  413. anda #$c0
  414. cmpa #$40
  415. beq L_E389
  416. nop
  417. decb
  418. bpl L_E379
  419. jmp >L_E079
  420. L_E389 ldb #$ff
  421. stb >$a602
  422. ldb #$0d
  423. L_E390 decb
  424. bpl L_E390
  425. rts
  426. lda #$3e
  427. sta >$a601
  428. lda <$4e
  429. bne L_E39E
  430. rts
  431. L_E39E dec <$4e
  432. bne L_E3CC
  433. lda <$4d
  434. sta <$4e
  435. lda <$51
  436. beq L_E3B9
  437. clr <$51
  438. ldb #$3c
  439. stb >$a603
  440. L_E3B1 decb
  441. bne L_E3B1
  442. ldb #$34
  443. stb >$a603
  444. L_E3B9 lda #$01
  445. jsr >$e1df
  446. lda <$4f
  447. jsr >$e1df
  448. tst <$33
  449. beq L_E3CC
  450. lda <$50
  451. jsr >$e1df
  452. L_E3CC ldx #$3834
  453. lda #$fe
  454. L_E3D1 ldb $10,x
  455. eorb 8,x
  456. andb 8,x
  457. stb <$4c
  458. ldb 8,x
  459. stb $10,x
  460. sta >$a602
  461. ldb >$a600
  462. stb 8,x
  463. ldb <$4c
  464. andb 8,x
  465. orb ,x
  466. stb ,x
  467. leax 1,x
  468. orcc #$01
  469. rola
  470. bcs L_E3D1
  471. lda #$40
  472. sta <$4c
  473. tst <$33
  474. bne L_E40A
  475. bsr L_E42C
  476. cmpa <$4f
  477. beq L_E44F
  478. sta <$4f
  479. sta <$51
  480. bra L_E44F
  481. L_E40A lda #$20
  482. sta <$4c
  483. bsr L_E42C
  484. cmpa <$4f
  485. beq L_E41A
  486. sta <$4f
  487. ora <$51
  488. sta <$51
  489. L_E41A clrb
  490. ldx #$3838
  491. bsr L_E430
  492. cmpa <$50
  493. beq L_E44F
  494. sta <$50
  495. ora <$51
  496. sta <$51
  497. bra L_E44F
  498. L_E42C clrb
  499. ldx #$3834
  500. L_E430 lda $10,x
  501. cmpa #$ff
  502. bne L_E441
  503. leax 1,x
  504. addb #$08
  505. cmpb <$4c
  506. bne L_E430
  507. clra
  508. rts
  509. L_E441 rora
  510. bcc L_E447
  511. incb
  512. bra L_E441
  513. L_E447 ldx #$e47a
  514. lda b,x
  515. ora #$80
  516. rts
  517. L_E44F lda <$34
  518. rora
  519. bcc L_E45D
  520. lda <$34
  521. anda #$fe
  522. sta <$34
  523. jsr >$e6cc
  524. L_E45D lda <$35
  525. rora
  526. bcc L_E46B
  527. lda <$35
  528. anda #$fe
  529. sta <$35
  530. jsr >$fda2
  531. L_E46B lda <$36
  532. rora
  533. bcc L_E479
  534. lda <$36
  535. anda #$fe
  536. sta <$36
  537. jsr >$fd93
  538. L_E479 rts
  539. com <$0b
  540. sync
  541. fcb $1b ; nop
  542. bls L_E4AB
  543. leau -5,y
  544. fcb $02,$0a ; negcom <$0a
  545. nop
  546. orcc #$22
  547. bpl L_E4BB
  548. abx
  549. fcb $01,$09 ; neg <$09
  550. fcb $11,$19
  551. brn L_E4B9
  552. leay -7,y
  553. neg <$08
  554. fcb $10,$18
  555. bra L_E4C0
  556. leax -8,y
  557. lsr <$0c
  558. fcb $14 ; hcf
  559. andcc #$24
  560. bge L_E4D5
  561. cwai #$05
  562. tst <$15
  563. sex
  564. bcs L_E4D5
  565. puls cc,b,dp,x,y
  566. L_E4AA ror <$0e
  567. L_E4AB equ L_E4AA+1
  568. lbra L_02D5
  569. bgt L_E4E7
  570. fcb $3e ; reset
  571. asr <$0f
  572. lbsr L_03DE
  573. ble L_E4F0
  574. L_E4B9 swi
  575. L_E4BA lda <$73
  576. L_E4BB equ L_E4BA+1
  577. beq L_E479
  578. sta ,-s
  579. L_E4C0 lda <$72
  580. beq L_E53B
  581. bita #$10
  582. beq L_E4D9
  583. ldx #$0007
  584. jsr >$e561
  585. ldx #$386f
  586. jsr >$e53e
  587. L_E4D4 sta >$3859
  588. L_E4D5 equ L_E4D4+1
  589. lda <$72
  590. L_E4D9 bita #$01
  591. beq L_E4EC
  592. ldx #$0003
  593. jsr >$e561
  594. ldx #$3863
  595. L_E4E6 jsr >$e53e
  596. L_E4E7 equ L_E4E6+1
  597. sta >$3855
  598. L_E4EC lda #$02
  599. L_E4EE jsr >$e1df
  600. L_E4F0 equ L_E4EE+2
  601. L_E4F1 clra
  602. ldb <$74
  603. tfr d,x
  604. lda $e57c,x
  605. anda <$72
  606. bne L_E507
  607. ldb <$74
  608. incb
  609. andb #$07
  610. stb <$74
  611. bra L_E4F1
  612. L_E507 anda #$11
  613. beq L_E511
  614. lda $3852,x
  615. bra L_E52D
  616. L_E511 bsr L_E561
  617. tst <$75
  618. beq L_E529
  619. pshs a,x
  620. tfr x,d
  621. lda #$03
  622. mul
  623. ldx #$385a
  624. leax b,x
  625. puls a
  626. bsr L_E59E
  627. puls x
  628. L_E529 sta $3852,x
  629. L_E52D jsr >$e1df
  630. ldb <$74
  631. incb
  632. andb #$07
  633. stb <$74
  634. dec ,s
  635. bne L_E4F1
  636. L_E53B leas 1,s
  637. rts
  638. leay >L_E584,pcr
  639. L_E542 cmpa ,y++
  640. bcs L_E542
  641. lda -1,y
  642. cmpa ,x
  643. bne L_E55A
  644. ldb 1,x
  645. incb
  646. cmpb #$02
  647. beq L_E557
  648. stb 1,x
  649. bra L_E55E
  650. L_E557 sta 2,x
  651. rts
  652. L_E55A sta ,x
  653. clr 1,x
  654. L_E55E lda 2,x
  655. rts
  656. L_E561 lda >$a600
  657. sta $8000,x
  658. ldb #$0f
  659. L_E56A lda >$a601
  660. bmi L_E578
  661. decb
  662. bne L_E56A
  663. lda $3852,x
  664. bra L_E57B
  665. L_E578 lda >$6000
  666. L_E57B rts
  667. lsl <$04
  668. fcb $02,$01 ; negcom <$01
  669. suba #$40
  670. bra L_E594
  671. L_E584 fcb $eb,$00 ; addb 0,x
  672. adcb <$01
  673. andb #$04
  674. sbca >$05a4
  675. fcb $02,$98 ; negcom <$98
  676. com <$8d
  677. ror <$84
  678. L_E593 asr <$7c
  679. L_E594 equ L_E593+1
  680. lsl <$75
  681. rol <$6f
  682. inc <$68
  683. tst <$00
  684. L_E59D neg <$d6
  685. L_E59E equ L_E59D+1
  686. fcb $75,$bd,$e5 ; lsr >$bde5
  687. eorb #$30
  688. fcb $02,$c6 ; negcom <$c6
  689. fcb $02,$bd ; negcom <$bd
  690. bitb d,y
  691. rts
  692. pshs b
  693. adda ,s
  694. bcs L_E5B5
  695. cmpa ,x
  696. bcs L_E5C3
  697. L_E5B5 suba ,s
  698. suba ,s
  699. bcs L_E5BF
  700. cmpa ,x
  701. bhi L_E5C3
  702. L_E5BF lda ,x
  703. bra L_E5C5
  704. L_E5C3 sta ,x
  705. L_E5C5 leas 1,s
  706. rts
  707. suba ,x
  708. bls L_E5D1
  709. jsr >$e5d6
  710. bra L_E5D5
  711. L_E5D1 nega
  712. jsr >$e5dc
  713. L_E5D5 rts
  714. mul
  715. addd ,x
  716. std ,x
  717. rts
  718. mul
  719. coma
  720. comb
  721. addd #$0001
  722. addd ,x
  723. std ,x
  724. rts
  725. L_E5E7 jsr >$e64c
  726. bcs L_E5F1
  727. lsla
  728. ldx a,y
  729. andcc #$fe
  730. L_E5F1 rts
  731. bsr L_E5E7
  732. bcs L_E5FF
  733. lda -1,y
  734. inca
  735. anda -3,y
  736. sta -1,y
  737. andcc #$fe
  738. L_E5FF rts
  739. lda -2,y
  740. tfr a,b
  741. inca
  742. anda -3,y
  743. cmpa -1,y
  744. beq L_E613
  745. sta -2,y
  746. lslb
  747. stx b,y
  748. andcc #$fe
  749. rts
  750. L_E613 orcc #$01
  751. rts
  752. L_E616 bsr L_E64C
  753. bcs L_E624
  754. ldb -4,y
  755. mul
  756. leau d,y
  757. jsr >$e65f
  758. andcc #$fe
  759. L_E624 rts
  760. bsr L_E616
  761. bcs L_E632
  762. lda -1,y
  763. inca
  764. anda -3,y
  765. sta -1,y
  766. andcc #$fe
  767. L_E632 rts
  768. lda -2,y
  769. tfr a,b
  770. inca
  771. anda -3,y
  772. cmpa -1,y
  773. beq L_E655
  774. sta -2,y
  775. lda -4,y
  776. mul
  777. tfr x,u
  778. leax d,y
  779. jsr >$e65f
  780. bra L_E652
  781. L_E64C lda -1,y
  782. cmpa -2,y
  783. beq L_E655
  784. L_E652 andcc #$fe
  785. rts
  786. L_E655 orcc #$01
  787. rts
  788. std -4,y
  789. clr -2,y
  790. clr -1,y
  791. rts
  792. ldb -4,y
  793. L_E661 lda ,u+
  794. sta ,x+
  795. decb
  796. bne L_E661
  797. rts
  798. ldy #$394c
  799. L_E66D jsr >L_E5E7
  800. bcs L_E66D
  801. jsr ,x
  802. ldy #$394c
  803. jsr >$e5f2
  804. bra L_E66D
  805. ldy #$394c
  806. jsr >$e600
  807. rts
  808. ldy #$3940
  809. jsr >L_E64C
  810. bcs L_E693
  811. jsr >$e600
  812. bra L_E69C
  813. L_E693 jsr >$e600
  814. bcs L_E69C
  815. jsr ,x
  816. andcc #$fe
  817. L_E69C rts
  818. L_E69D ldy #$3940
  819. jsr >$e5f2
  820. jsr >L_E5E7
  821. bcc L_E6B0
  822. ldd #$f430
  823. std <$00
  824. bra L_E6B2
  825. L_E6B0 jsr ,x
  826. L_E6B2 rts
  827. ldy #$394c
  828. ldd #$0203
  829. jsr >$e658
  830. ldy #$3940
  831. jsr >$e658
  832. rts
  833. jsr >$e97b
  834. jsr >$e98e
  835. rts
  836. com >$3938
  837. lda #$0c
  838. tst >$3938
  839. bne L_E6E4
  840. tst >$3930
  841. bne L_E6E6
  842. pshs a
  843. jsr >$e815
  844. puls a
  845. bra L_E6E6
  846. L_E6E4 ora #$10
  847. L_E6E6 jsr >$e1df
  848. rts
  849. jsr >$f423
  850. ldb #$0a
  851. L_E6EF jsr >$f412
  852. stb >$c001
  853. stb >$c002
  854. jsr >$f412
  855. stb >$c001
  856. lda >$c003
  857. jsr >$f412
  858. lda >$c002
  859. pshs a
  860. cmpb ,s+
  861. bne L_E712
  862. decb
  863. bne L_E6EF
  864. bra L_E718
  865. L_E712 lda <$79
  866. ora #$08
  867. sta <$79
  868. L_E718 jsr >$f418
  869. rts
  870. jsr >$e86f
  871. sta <$7e
  872. jsr >$e8c6
  873. jsr >$e88d
  874. pshs cc
  875. orcc #$10
  876. lda #$03
  877. jsr >$e1df
  878. jsr >$ea63
  879. jsr >$e1df
  880. puls cc,pc
  881. jsr >$e86f
  882. pshs a
  883. jsr >$e8c6
  884. L_E740 jsr >$ea5b
  885. cmpa ,s
  886. bcc L_E755
  887. jsr >$e8b1
  888. bcs L_E751
  889. jsr >$e8f4
  890. bra L_E740
  891. L_E751 lda #$15
  892. bra L_E757
  893. L_E755 lda #$05
  894. L_E757 jsr >$e1df
  895. jsr >$e88d
  896. puls a,pc
  897. jsr >$e86f
  898. sta <$7c
  899. ldx #$e774
  900. jsr >$e67d
  901. bcc L_E773
  902. lda #$04
  903. ora #$10
  904. jsr >$e1df
  905. L_E773 rts
  906. jsr >$ea6b
  907. pshs cc
  908. orcc #$10
  909. pshs a
  910. lda #$04
  911. jsr >$e1df
  912. puls a
  913. jsr >$e1df
  914. puls cc,pc
  915. jsr >$ea0e
  916. rts
  917. jsr >$ea16
  918. rts
  919. jsr >$e86f
  920. sta <$7b
  921. jsr >$ea1e
  922. rts
  923. jsr >$e87b
  924. sta >$3937
  925. rts
  926. jsr >$e873
  927. sta <$80
  928. rts
  929. jsr >$e877
  930. jsr >$e964
  931. jsr >$e87f
  932. sta ,y+
  933. tfr a,b
  934. L_E7B4 pshs b
  935. jsr >$e86f
  936. puls b
  937. sta ,y+
  938. decb
  939. bne L_E7B4
  940. rts
  941. jsr >$e86f
  942. sta <$7b
  943. ldx #$e7cf
  944. jsr >$e67d
  945. bcs L_E7D2
  946. rts
  947. jsr >$eba2
  948. L_E7D2 lda #$08
  949. bcc L_E7D8
  950. ora #$10
  951. L_E7D8 jsr >$e1df
  952. rts
  953. pshs cc
  954. orcc #$10
  955. lda #$0f
  956. jsr >$e1df
  957. lda <$8c
  958. jsr >$e1df
  959. lda <$8f
  960. jsr >$e1df
  961. ldd <$87
  962. jsr >$e883
  963. ldd <$89
  964. jsr >$e883
  965. ldd <$8d
  966. jsr >$e883
  967. puls cc,pc
  968. tst >$3930
  969. bne L_E80F
  970. ldx #$f3ba
  971. jsr >$e685
  972. bcs L_E80F
  973. bra L_E814
  974. L_E80F lda #$16
  975. jsr >$e1df
  976. L_E814 rts
  977. lda #$07
  978. tst >$3930
  979. bne L_E823
  980. ora #$10
  981. jsr >$e1df
  982. bra L_E82B
  983. L_E823 jsr >$e1df
  984. lda #$01
  985. sta >$3931
  986. L_E82B rts
  987. clr >$3936
  988. bra L_E836
  989. lda #$01
  990. sta >$3936
  991. L_E836 jsr >$e277
  992. sta <$81
  993. ldx #$e849
  994. jsr >$e67d
  995. bcc L_E848
  996. L_E843 lda #$19
  997. jsr >$e1df
  998. L_E848 rts
  999. lda <$81
  1000. jsr >$e964
  1001. tst ,y
  1002. beq L_E843
  1003. sty <$94
  1004. jsr >$e902
  1005. pshs cc
  1006. orcc #$10
  1007. lda #$09
  1008. jsr >$e1df
  1009. lda <$8b
  1010. jsr >$e1df
  1011. ldd <$89
  1012. subd <$87
  1013. jsr >$e883
  1014. puls cc,pc
  1015. jsr >$e287
  1016. rts
  1017. jsr >$e27b
  1018. rts
  1019. jsr >$e277
  1020. rts
  1021. jsr >$e273
  1022. rts
  1023. jsr >$e27f
  1024. rts
  1025. lsra
  1026. rorb
  1027. lsra
  1028. rorb
  1029. tfr b,a
  1030. jsr >$e1df
  1031. rts
  1032. tst <$7e
  1033. beq L_E8B0
  1034. ldb #$03
  1035. ldx #$3932
  1036. lda ,x+
  1037. pshs a
  1038. tstb
  1039. beq L_E8A4
  1040. L_E89D lda ,x+
  1041. sta -2,x
  1042. decb
  1043. bne L_E89D
  1044. L_E8A4 ldb <$7e
  1045. stb ,-x
  1046. puls a
  1047. tsta
  1048. beq L_E8B0
  1049. jsr >$e8f4
  1050. L_E8B0 rts
  1051. ldx #$3932
  1052. ldb #$04
  1053. L_E8B6 lda ,x+
  1054. bne L_E8C1
  1055. decb
  1056. bne L_E8B6
  1057. orcc #$01
  1058. bra L_E8C5
  1059. L_E8C1 clr ,-x
  1060. andcc #$fe
  1061. L_E8C5 rts
  1062. ldb <$7e
  1063. tstb
  1064. beq L_E8E6
  1065. ldx #$3936
  1066. lda #$04
  1067. L_E8D0 cmpb ,-x
  1068. beq L_E8D9
  1069. deca
  1070. bne L_E8D0
  1071. bra L_E8E6
  1072. L_E8D9 ldb ,-x
  1073. stb 1,x
  1074. deca
  1075. bne L_E8D9
  1076. clr 1,x
  1077. andcc #$fe
  1078. bra L_E8E8
  1079. L_E8E6 orcc #$01
  1080. L_E8E8 rts
  1081. ldx #$3932
  1082. ldb #$04
  1083. L_E8EE clr ,x+
  1084. decb
  1085. bne L_E8EE
  1086. rts
  1087. ldb <$7e
  1088. pshs b
  1089. sta <$7e
  1090. jsr >$ea0e
  1091. puls b
  1092. stb <$7e
  1093. rts
  1094. ldx #$eccd
  1095. stx >$3929
  1096. tst >$3937
  1097. beq L_E913
  1098. ldx #$ed40
  1099. stx >$3929
  1100. L_E913 ldy <$94
  1101. jsr >$ea85
  1102. lda >$3937
  1103. cmpa #$01
  1104. bne L_E93B
  1105. lda <$8b
  1106. ldb <$8c
  1107. pshs a,b
  1108. lda <$8f
  1109. pshs a
  1110. lda #$03
  1111. pshs a
  1112. tfr s,y
  1113. ldx #$eccd
  1114. stx >$3929
  1115. jsr >$ea85
  1116. leas 4,s
  1117. L_E93B rts
  1118. rti
  1119. adda >$3c27
  1120. cwai #$93
  1121. cwai #$ff
  1122. mul
  1123. fcb $6b,$3d ; dec -3,y
  1124. stb <$3e
  1125. coma
  1126. fcb $3e ; reset
  1127. stx -1,y
  1128. fcb $1b ; nop
  1129. swi
  1130. fcb $87,$3f ; discarda #$3f
  1131. addd >$405f
  1132. nega
  1133. addb #$41
  1134. pulu cc,s
  1135. subd 2,u
  1136. clr <$42
  1137. fcb $7b,$42,$e7 ; dec >$42e7
  1138. coma
  1139. comb
  1140. coma
  1141. stx >$1f89
  1142. clra
  1143. tstb
  1144. bne L_E970
  1145. ldy #$e98c
  1146. bra L_E97A
  1147. L_E970 decb
  1148. lslb
  1149. lslb
  1150. lslb
  1151. ldy #$3b7c
  1152. leay d,y
  1153. L_E97A rts
  1154. lda #$07
  1155. pshs a
  1156. L_E97F lda ,s
  1157. jsr >$e964
  1158. clr ,y
  1159. dec ,s
  1160. bne L_E97F
  1161. puls a,pc
  1162. fcb $01,$fe ; neg <$fe
  1163. jsr >$ea06
  1164. clr <$7c
  1165. clr <$7e
  1166. jsr >$e8e9
  1167. lda #$ff
  1168. sta >$3938
  1169. lda #$01
  1170. sta <$80
  1171. clr >$3930
  1172. clr >$3931
  1173. clr >$393a
  1174. clr >$393b
  1175. ldd #$f430
  1176. std <$00
  1177. jsr >$e6b3
  1178. ldd #$0903
  1179. ldy #$3958
  1180. jsr >$e658
  1181. jsr >$f3e8
  1182. rts
  1183. ldb <$7e
  1184. pshs b
  1185. ldb #$fe
  1186. stb <$7e
  1187. jsr >$e9d3
  1188. puls b
  1189. stb <$7e
  1190. rts
  1191. ldb <$7c
  1192. pshs b
  1193. ldb #$fe
  1194. stb <$7c
  1195. jsr >$e9f3
  1196. puls b
  1197. stb <$7c
  1198. rts
  1199. ldb <$7e
  1200. pshs b
  1201. ldb #$ff
  1202. stb <$7e
  1203. jsr >$e9d3
  1204. puls b
  1205. stb <$7e
  1206. rts
  1207. ldb <$7b
  1208. pshs b
  1209. ldb #$fe
  1210. stb <$7b
  1211. jsr >$ea03
  1212. puls b
  1213. stb <$7b
  1214. rts
  1215. jsr ,y
  1216. rts
  1217. ldy #$ea1e
  1218. jsr >$e9c3
  1219. rts
  1220. ldy #$ea1e
  1221. jsr >$e9d3
  1222. rts
  1223. ldy #$ea1e
  1224. jsr >$e9f3
  1225. rts
  1226. lda #$ff
  1227. sta <$7a
  1228. L_EA22 jsr >$eae3
  1229. bcs L_EA2D
  1230. lda #$ff
  1231. sta 3,x
  1232. bra L_EA22
  1233. L_EA2D rts
  1234. lda #$ff
  1235. sta <$7a
  1236. bsr L_EA47
  1237. bcs L_EA46
  1238. lda <$7b
  1239. sta ,x
  1240. ldb <$7c
  1241. stb 1,x
  1242. lda <$7e
  1243. sta 3,x
  1244. clr 2,x
  1245. andcc #$fe
  1246. L_EA46 rts
  1247. L_EA47 lda <$7e
  1248. pshs a
  1249. lda #$ff
  1250. sta <$7e
  1251. ldy #$eae3
  1252. jsr >$e9d3
  1253. puls a
  1254. sta <$7e
  1255. rts
  1256. ldy #$ea73
  1257. jsr >$e9e3
  1258. rts
  1259. ldy #$ea73
  1260. jsr >$e9d3
  1261. rts
  1262. ldy #$ea73
  1263. jsr >$e9f3
  1264. rts
  1265. lda #$ff
  1266. sta <$7a
  1267. clra
  1268. pshs a
  1269. L_EA7A jsr >$eae3
  1270. bcs L_EA83
  1271. inc ,s
  1272. bra L_EA7A
  1273. L_EA83 puls a,pc
  1274. lda #$ff
  1275. sta <$7f
  1276. lda ,y+
  1277. beq L_EAC9
  1278. sta <$82
  1279. sty <$83
  1280. ldx #$3b2c
  1281. tst >$3936
  1282. beq L_EAAB
  1283. ldd #$7fff
  1284. std <$87
  1285. std <$89
  1286. std <$8d
  1287. lda #$ff
  1288. sta <$8b
  1289. sta <$8c
  1290. sta <$8f
  1291. L_EAAB lda #$ff
  1292. sta <$7a
  1293. L_EAAF ldy <$83
  1294. lda ,y
  1295. sta <$7b
  1296. L_EAB6 jsr >$eae3
  1297. bcs L_EAC0
  1298. jsr >$eb15
  1299. bra L_EAB6
  1300. L_EAC0 lda #$ff
  1301. sta <$7a
  1302. jsr >$ead0
  1303. bcc L_EAAF
  1304. L_EAC9 ldd <$89
  1305. subd <$87
  1306. std <$90
  1307. rts
  1308. ldy <$83
  1309. leay 1,y
  1310. sty <$83
  1311. dec <$82
  1312. bne L_EAE0
  1313. orcc #$01
  1314. bra L_EAE2
  1315. L_EAE0 andcc #$fe
  1316. L_EAE2 rts
  1317. L_EAE3 inc <$7a
  1318. lda <$7a
  1319. cmpa #$13
  1320. bhi L_EB0E
  1321. jsr >$eb84
  1322. lda <$7e
  1323. cmpa #$fe
  1324. beq L_EAF8
  1325. cmpa 3,x
  1326. bne L_EB0C
  1327. L_EAF8 lda <$7b
  1328. cmpa #$fe
  1329. beq L_EB02
  1330. cmpa ,x
  1331. bne L_EB0C
  1332. L_EB02 lda <$7c
  1333. cmpa #$fe
  1334. beq L_EB12
  1335. cmpa 1,x
  1336. beq L_EB12
  1337. L_EB0C bra L_EAE3
  1338. L_EB0E orcc #$01
  1339. bra L_EB14
  1340. L_EB12 andcc #$fe
  1341. L_EB14 rts
  1342. lda <$7f
  1343. jsr >$eb6f
  1344. pshs y
  1345. lda <$7a
  1346. jsr >$eb6f
  1347. puls x
  1348. jsr [$3929]
  1349. lda <$7a
  1350. jsr >$eb84
  1351. ldb ,x
  1352. cmpy <$87
  1353. bcs L_EB44
  1354. cmpy <$89
  1355. bcs L_EB5A
  1356. cmpy <$8d
  1357. bcc L_EB62
  1358. stb <$8f
  1359. sty <$8d
  1360. bra L_EB62
  1361. L_EB44 cmpb <$8b
  1362. beq L_EB53
  1363. jsr >$eb63
  1364. lda <$8b
  1365. sta <$8c
  1366. ldx <$87
  1367. stx <$89
  1368. L_EB53 stb <$8b
  1369. sty <$87
  1370. bra L_EB62
  1371. L_EB5A jsr >$eb63
  1372. stb <$8c
  1373. sty <$89
  1374. L_EB62 rts
  1375. pshs a,b,y
  1376. lda <$8c
  1377. sta <$8f
  1378. ldx <$89
  1379. stx <$8d
  1380. puls a,b,y,pc
  1381. tsta
  1382. bmi L_EB7F
  1383. ldb #$02
  1384. mul
  1385. addd #$e93c
  1386. tfr d,y
  1387. ldy ,y
  1388. bra L_EB83
  1389. L_EB7F ldy #$397c
  1390. L_EB83 rts
  1391. pshs a,b
  1392. tsta
  1393. bmi L_EB93
  1394. ldb #$04
  1395. mul
  1396. addd #$3b2c
  1397. tfr d,x
  1398. bra L_EB96
  1399. L_EB93 ldx #$387b
  1400. L_EB96 puls a,b,pc
  1401. neg <$80
  1402. adda ,u+
  1403. fcb $cd ; hcf
  1404. bitb <$db
  1405. subb ,s
  1406. ldb -16,x
  1407. bcs L_EBA5
  1408. L_EBA5 fcb $65,$8e ; lsr
  1409. fcb $38,$7b ; andcc #$7b
  1410. lda #$01
  1411. sta 2,x
  1412. lda #$ff
  1413. sta <$7a
  1414. clra
  1415. pshs a
  1416. L_EBB4 jsr >L_EAE3
  1417. bcs L_EBBD
  1418. inc ,s
  1419. bra L_EBB4
  1420. L_EBBD puls a
  1421. cmpa <$80
  1422. bcc L_EBD1
  1423. jsr >$ea2e
  1424. bcs L_EC0B
  1425. lda #$ff
  1426. sta <$7f
  1427. lda #$01
  1428. clrb
  1429. bra L_EBE6
  1430. L_EBD1 jsr >$ec0c
  1431. lda <$7f
  1432. jsr >$eb84
  1433. lda 2,x
  1434. pshs a
  1435. lda <$7a
  1436. jsr >$eb84
  1437. ldb 2,x
  1438. puls a
  1439. L_EBE6 pshs a
  1440. jsr >$ec53
  1441. jsr >$ec88
  1442. puls a
  1443. adda 2,x
  1444. sta 2,x
  1445. lda <$7f
  1446. sta <$7a
  1447. lda #$ff
  1448. sta <$7f
  1449. clrb
  1450. jsr >$ec88
  1451. lda <$7a
  1452. jsr >$eb84
  1453. lda #$01
  1454. sta 2,x
  1455. andcc #$fe
  1456. L_EC0B rts
  1457. ldx #$eccd
  1458. stx >$3929
  1459. leas -5,s
  1460. ldd #$7fff
  1461. std 2,s
  1462. lda #$ff
  1463. sta 4,s
  1464. sta ,s
  1465. sta 1,s
  1466. L_EC21 lda 4,s
  1467. sta <$7f
  1468. sta <$7a
  1469. jsr >L_EAE3
  1470. bcs L_EC4A
  1471. lda <$7a
  1472. sta 4,s
  1473. L_EC30 jsr >$eb15
  1474. cmpy 2,s
  1475. bcc L_EC43
  1476. sty 2,s
  1477. lda <$7f
  1478. sta ,s
  1479. lda <$7a
  1480. sta 1,s
  1481. L_EC43 jsr >L_EAE3
  1482. bcc L_EC30
  1483. bra L_EC21
  1484. L_EC4A puls a,b
  1485. sta <$7f
  1486. stb <$7a
  1487. leas 3,s
  1488. rts
  1489. pshs b,x
  1490. clrb
  1491. tfr d,x
  1492. adda ,s+
  1493. jsr >$ec5f
  1494. puls x,pc
  1495. pshs a
  1496. ldd #$0800
  1497. pshs a,b
  1498. tfr x,d
  1499. pshs b
  1500. tfr a,b
  1501. clra
  1502. L_EC6D lsl ,s
  1503. rolb
  1504. rola
  1505. cmpd 2,s
  1506. bcs L_EC7A
  1507. subd 2,s
  1508. inc ,s
  1509. L_EC7A dec 1,s
  1510. bne L_EC6D
  1511. cmpd 2,s
  1512. tfr b,a
  1513. puls b
  1514. leas 3,s
  1515. rts
  1516. pshs x
  1517. stb <$97
  1518. negb
  1519. stb <$96
  1520. lda <$7a
  1521. jsr >$eb6f
  1522. pshs y
  1523. lda <$7f
  1524. jsr >$eb6f
  1525. puls x
  1526. ldb #$6c
  1527. stb <$98
  1528. L_ECA1 lda ,x
  1529. ldb <$96
  1530. beq L_ECAC
  1531. jsr >$ecc2
  1532. sta ,x
  1533. L_ECAC lda ,y+
  1534. ldb <$97
  1535. beq L_ECB7
  1536. jsr >$ecc2
  1537. adda ,x
  1538. L_ECB7 sta ,x+
  1539. dec <$98
  1540. bne L_ECA1
  1541. puls x,pc
  1542. sta ,x
  1543. rts
  1544. tsta
  1545. bpl L_ECC8
  1546. nega
  1547. orcc #$08
  1548. L_ECC8 mul
  1549. bpl L_ECCC
  1550. nega
  1551. L_ECCC rts
  1552. pshs u
  1553. stx <$c8
  1554. sty <$ca
  1555. jsr >$ecdc
  1556. jsr >$ed13
  1557. puls u,pc
  1558. ldy #$7fff
  1559. lda #$26
  1560. ldx #$389a
  1561. L_ECE5 sty a,x
  1562. suba #$02
  1563. bge L_ECE5
  1564. ldx #$38a8
  1565. ldd #$0000
  1566. std ,x
  1567. ldx #$38b8
  1568. stx <$c2
  1569. lda #$01
  1570. sta <$d6
  1571. lda #$00
  1572. sta <$d7
  1573. lda #$01
  1574. sta <$d1
  1575. deca
  1576. sta <$cc
  1577. sta <$ce
  1578. lda #$ff
  1579. sta <$d9
  1580. lda #$01
  1581. sta <$d8
  1582. rts
  1583. lda #$17
  1584. sta <$d4
  1585. L_ED17 jsr >$ed66
  1586. lda <$d4
  1587. cmpa #$0d
  1588. bge L_ED24
  1589. lda #$01
  1590. sta <$d9
  1591. L_ED24 jsr >$ee4b
  1592. dec <$d4
  1593. bgt L_ED17
  1594. ldd <$c2
  1595. subd #$38a4
  1596. bpl L_ED35
  1597. addd #$0028
  1598. L_ED35 addd #$389a
  1599. tfr d,x
  1600. leax 4,x
  1601. ldy ,x
  1602. rts
  1603. pshs u
  1604. stx <$c8
  1605. sty <$ca
  1606. lda #$0b
  1607. sta <$cf
  1608. sta <$d0
  1609. clr <$9a
  1610. clr <$9b
  1611. L_ED51 jsr >$ee75
  1612. ldd <$9a
  1613. leay d,y
  1614. sty <$9a
  1615. dec <$cf
  1616. dec <$d0
  1617. bpl L_ED51
  1618. ldy <$9a
  1619. puls u,pc
  1620. jsr >$ede7
  1621. lda <$cc
  1622. sta <$cf
  1623. lda <$ce
  1624. sta <$d0
  1625. lda <$d1
  1626. nega
  1627. adda #$04
  1628. asra
  1629. inca
  1630. lsla
  1631. sta <$d2
  1632. sta <$d3
  1633. ldy #$7fff
  1634. ldx <$c2
  1635. bra L_ED88
  1636. L_ED85 sty a,x
  1637. L_ED88 suba #$02
  1638. bge L_ED85
  1639. lda <$d1
  1640. lbeq L_EDC1
  1641. lsla
  1642. suba #$02
  1643. adda <$d2
  1644. sta <$d5
  1645. L_ED99 lbsr L_EE75
  1646. ldx <$c2
  1647. lda <$d3
  1648. sty a,x
  1649. jsr >$ee06
  1650. ldx <$c2
  1651. leax a,x
  1652. ldd ,x
  1653. leay d,y
  1654. sty ,x
  1655. inc <$cf
  1656. dec <$d0
  1657. lda <$d3
  1658. adda #$02
  1659. sta <$d3
  1660. lda <$d5
  1661. suba <$d3
  1662. bge L_ED99
  1663. L_EDC1 ldy #$7fff
  1664. lda <$d3
  1665. ldx <$c2
  1666. bra L_EDD0
  1667. L_EDCB sty a,x
  1668. adda #$02
  1669. L_EDD0 cmpa #$08
  1670. ble L_EDCB
  1671. ldd <$c2
  1672. subd #$389a
  1673. subb #$1e
  1674. bpl L_EDDF
  1675. addb #$28
  1676. L_EDDF addd #$389a
  1677. std <$c2
  1678. neg <$d8
  1679. rts
  1680. ldd <$c2
  1681. subd #$389a
  1682. subb #$14
  1683. bpl L_EDF2
  1684. addb #$28
  1685. L_EDF2 addd #$389a
  1686. std <$c4
  1687. subd #$389a
  1688. subb #$0a
  1689. bpl L_EE00
  1690. addb #$28
  1691. L_EE00 addd #$389a
  1692. std <$c6
  1693. rts
  1694. tst <$d8
  1695. ble L_EE21
  1696. ldx <$c6
  1697. ldx a,x
  1698. ldy <$c2
  1699. ldd a,y
  1700. leay d,x
  1701. lda <$d3
  1702. adda #$02
  1703. ldx <$c6
  1704. leax a,x
  1705. suba #$02
  1706. bra L_EE36
  1707. L_EE21 ldx <$c6
  1708. suba #$02
  1709. ldx a,x
  1710. ldy <$c2
  1711. adda #$02
  1712. ldd a,y
  1713. leay d,x
  1714. lda <$d3
  1715. ldx <$c6
  1716. leax a,x
  1717. L_EE36 cmpy ,x
  1718. bcs L_EE3E
  1719. ldy ,x
  1720. L_EE3E ldx <$c4
  1721. leax a,x
  1722. cmpy ,x
  1723. bcs L_EE4A
  1724. ldy ,x
  1725. L_EE4A rts
  1726. ldb <$d9
  1727. lda <$d6
  1728. bgt L_EE52
  1729. negb
  1730. L_EE52 ldx #$38cd
  1731. inc b,x
  1732. jsr >$ee6d
  1733. sta <$d6
  1734. ldb <$d9
  1735. lda <$d7
  1736. beq L_EE63
  1737. negb
  1738. L_EE63 addb <$d1
  1739. stb <$d1
  1740. jsr >$ee6d
  1741. sta <$d7
  1742. rts
  1743. inca
  1744. cmpa #$02
  1745. bne L_EE74
  1746. lda #$ff
  1747. L_EE74 rts
  1748. L_EE75 ldx <$c8
  1749. lda <$cf
  1750. ldb #$09
  1751. mul
  1752. leax d,x
  1753. ldu <$ca
  1754. lda <$d0
  1755. ldb #$09
  1756. mul
  1757. leau d,u
  1758. lda #$08
  1759. ldy #$0000
  1760. L_EE8D ldb a,x
  1761. subb a,u
  1762. bpl L_EE94
  1763. negb
  1764. L_EE94 leay b,y
  1765. deca
  1766. bpl L_EE8D
  1767. rts
  1768. pshs a,b,x,y,u
  1769. tst >$3938
  1770. beq L_EEDF
  1771. leas -9,s
  1772. tfr s,x
  1773. lda #$08
  1774. L_EEA7 beq L_EEC2
  1775. sta ,-s
  1776. ldb #$08
  1777. subb ,s+
  1778. stb >$c001
  1779. ldb >$c003
  1780. L_EEB5 ldb >$c000
  1781. blt L_EEB5
  1782. ldb >$c002
  1783. stb ,x+
  1784. deca
  1785. bra L_EEA7
  1786. L_EEC2 ldb #$08
  1787. stb >$c001
  1788. ldb >$c003
  1789. L_EECA ldb >$c000
  1790. blt L_EECA
  1791. ldb >$c002
  1792. stb ,x+
  1793. tfr s,x
  1794. ldy #$3958
  1795. jsr >$e633
  1796. leas 9,s
  1797. L_EEDF lda >$c000
  1798. puls a,b,x,y,u,pc
  1799. stu >$8055
  1800. nega
  1801. leau 11,y
  1802. bcs L_EF0C
  1803. andcc #$1a
  1804. lbsr L_0405
  1805. nop
  1806. fcb $11,$10
  1807. clr <$0e
  1808. tst <$0d
  1809. inc <$0c
  1810. fcb $0b,$0b ; dec <$0b
  1811. dec <$0a
  1812. rol <$09
  1813. rol <$09
  1814. lsl <$08
  1815. lsl <$08
  1816. asr <$07
  1817. L_EF08 tfr s,u
  1818. L_EF0A leas <$e9,s
  1819. L_EF0C equ L_EF0A+2
  1820. jsr >$ef5c
  1821. ldd 6,u
  1822. addd #$0001
  1823. std 6,u
  1824. ldx 3,u
  1825. leax 1,x
  1826. leay <$e9,u
  1827. lda 2,u
  1828. sta -3,u
  1829. lda 5,u
  1830. sta -2,u
  1831. sta -1,u
  1832. L_EF28 lda -3,u
  1833. suba -2,u
  1834. bmi L_EF3C
  1835. beq L_EF49
  1836. sta -3,u
  1837. lda -2,u
  1838. jsr >$ef6a
  1839. jsr >$ef8f
  1840. bra L_EF54
  1841. L_EF3C nega
  1842. sta -2,u
  1843. lda -3,u
  1844. jsr >$ef6a
  1845. jsr >$ef96
  1846. bra L_EF54
  1847. L_EF49 lda -2,u
  1848. jsr >$ef6a
  1849. jsr >$ef8f
  1850. jsr >$ef96
  1851. L_EF54 tst -1,u
  1852. bne L_EF28
  1853. leas $17,s
  1854. rts
  1855. pshs y
  1856. lda #$12
  1857. leay <$e9,u
  1858. L_EF63 clr ,y+
  1859. deca
  1860. bne L_EF63
  1861. puls y,pc
  1862. pshs a
  1863. ldb #$09
  1864. stb -4,u
  1865. L_EF70 ldb ,s
  1866. lda ,x+
  1867. bpl L_EF7F
  1868. nega
  1869. mul
  1870. coma
  1871. comb
  1872. addd #$0001
  1873. bra L_EF80
  1874. L_EF7F mul
  1875. L_EF80 addd ,y
  1876. std ,y++
  1877. dec -4,u
  1878. bne L_EF70
  1879. leax -9,x
  1880. leay <$ee,y
  1881. puls a,pc
  1882. lda 5,u
  1883. sta -2,u
  1884. leax 9,x
  1885. rts
  1886. lda 2,u
  1887. sta -3,u
  1888. lda #$09
  1889. sta -4,u
  1890. pshs x
  1891. ldx #$eee3
  1892. lda 2,u
  1893. lda a,x
  1894. ldx 6,u
  1895. pshs y
  1896. L_EFAB jsr >$efbe
  1897. dec -4,u
  1898. bne L_EFAB
  1899. stx 6,u
  1900. puls y
  1901. puls x
  1902. jsr >$ef5c
  1903. dec -1,u
  1904. rts
  1905. pshs a
  1906. clr -5,u
  1907. ldd ,y
  1908. bpl L_EFD8
  1909. inc -5,u
  1910. cmpd #$8000
  1911. bne L_EFD1
  1912. addd #$0001
  1913. L_EFD1 coma
  1914. comb
  1915. addd #$0001
  1916. std ,y
  1917. L_EFD8 lda ,s
  1918. ldb ,y+
  1919. mul
  1920. pshs b
  1921. lda 1,s
  1922. ldb ,y+
  1923. mul
  1924. adca #$00
  1925. adda ,s+
  1926. bge L_EFEC
  1927. lda #$7f
  1928. L_EFEC tst -5,u
  1929. beq L_EFF1
  1930. nega
  1931. L_EFF1 sta ,x+
  1932. puls a,pc
  1933. L_EFF5 pshs a,b,x,y,u
  1934. leas -2,s
  1935. tfr s,u
  1936. ldx #$0000
  1937. ldy 13,u
  1938. leay 1,y
  1939. lda 12,u
  1940. L_F005 beq L_F00D
  1941. ldb ,y+
  1942. abx
  1943. deca
  1944. bra L_F005
  1945. L_F00D stx ,u
  1946. lda 12,u
  1947. asra
  1948. L_F012 beq L_F01B
  1949. asr ,u
  1950. ror 1,u
  1951. asra
  1952. bra L_F012
  1953. L_F01B ldd ,u
  1954. stb [<15,u]
  1955. leas 2,s
  1956. puls a,b,x,y,u,pc
  1957. L_F024 pshs a,b,x,y,u
  1958. leas -2,s
  1959. tfr s,u
  1960. ldx #$39e8
  1961. tfr x,y
  1962. lda #$12
  1963. sta ,u
  1964. L_F033 beq L_F047
  1965. lda #$09
  1966. L_F037 ldb 9,y
  1967. addb ,y+
  1968. asrb
  1969. stb ,x+
  1970. deca
  1971. bne L_F037
  1972. leay 9,y
  1973. dec ,u
  1974. bra L_F033
  1975. L_F047 leas 2,s
  1976. puls a,b,x,y,u,pc
  1977. tst >$3931
  1978. beq L_F05F
  1979. pshs a,b,x,y,u
  1980. clr >$3930
  1981. clr >$3931
  1982. jsr >$e69d
  1983. puls a,b,x,y,u
  1984. bra L_F062
  1985. L_F05F jsr >$ee9a
  1986. L_F062 jmp >$e0eb
  1987. pshs a,b,x,y,u
  1988. L_F067 ldy #$3958
  1989. tst >$3930
  1990. bne L_F075
  1991. jsr >$f0c0
  1992. bra L_F0A3
  1993. L_F075 jsr >L_E64C
  1994. bcs L_F0A3
  1995. lda >$393a
  1996. anda #$7f
  1997. bne L_F0A3
  1998. lda #$80
  1999. ora >$393a
  2000. sta >$393a
  2001. jsr >$f0ce
  2002. bcc L_F067
  2003. lda #$01
  2004. sta >$3931
  2005. inc >$3939
  2006. ldx #$f0a5
  2007. jsr >$e67d
  2008. bcs L_F0A3
  2009. lda #$01
  2010. sta >$393b
  2011. L_F0A3 puls a,b,x,y,u,pc
  2012. jsr >$f188
  2013. lda #$00
  2014. sta >$393b
  2015. jsr >$f0c0
  2016. bcs L_F0B9
  2017. lda #$06
  2018. jsr >$e1df
  2019. bra L_F0BF
  2020. L_F0B9 ldx #$f3ba
  2021. jsr >$e685
  2022. L_F0BF rts
  2023. tst >$393b
  2024. bne L_F0CD
  2025. lda >$393a
  2026. anda #$7f
  2027. sta >$393a
  2028. L_F0CD rts
  2029. ldx #$38f8
  2030. ldy #$3958
  2031. jsr >$e625
  2032. lbcs L_F17B
  2033. tst >$3939
  2034. lbne L_F17B
  2035. lda >$3900
  2036. sta <$e0
  2037. lda <$e8
  2038. cmpa #$01
  2039. ble L_F143
  2040. inc <$dc
  2041. lda <$dc
  2042. cmpa #$04
  2043. bgt L_F111
  2044. deca
  2045. ldb #$09
  2046. mul
  2047. ldx #$3905
  2048. leax d,x
  2049. ldy #$38f8
  2050. lda #$09
  2051. jsr >$f39d
  2052. ldx #$3900
  2053. lda <$dc
  2054. ldb <$e0
  2055. stb a,x
  2056. L_F111 cmpa <$e8
  2057. bne L_F141
  2058. clr <$dc
  2059. lda <$e8
  2060. jsr >$f181
  2061. ldx #$3904
  2062. ldb #$01
  2063. ldy #$38ee
  2064. pshs b,y
  2065. pshs a,x
  2066. lbsr L_EF08
  2067. leas 6,s
  2068. lda <$e8
  2069. jsr >$f181
  2070. ldx #$3900
  2071. ldy #$38e1
  2072. pshs a,x,y
  2073. lbsr L_EFF5
  2074. leas 5,s
  2075. L_F141 bra L_F153
  2076. L_F143 ldb <$e0
  2077. stb <$e1
  2078. ldy #$38f8
  2079. ldx #$38ef
  2080. lda #$09
  2081. jsr >$f39d
  2082. L_F153 lda <$dc
  2083. bne L_F17B
  2084. lda <$e1
  2085. suba <$e3
  2086. sta <$e2
  2087. jsr >$f28e
  2088. pshs cc
  2089. tst <$da
  2090. beq L_F16B
  2091. jsr >$f38a
  2092. bra L_F16E
  2093. L_F16B jsr >$f36a
  2094. L_F16E puls cc
  2095. bcc L_F17B
  2096. lda <$e7
  2097. cmpa #$10
  2098. bgt L_F17E
  2099. jsr >$f3a5
  2100. L_F17B andcc #$fe
  2101. rts
  2102. L_F17E orcc #$01
  2103. rts
  2104. cmpa #$04
  2105. ble L_F187
  2106. lda #$04
  2107. L_F187 rts
  2108. jsr >$f1c5
  2109. lbcs L_F1C4
  2110. lda <$de
  2111. ldx #$39e7
  2112. ldb #$0c
  2113. ldy #$397b
  2114. pshs b,y
  2115. pshs a,x
  2116. lbsr L_EF08
  2117. leas 6,s
  2118. lda #$14
  2119. suba <$e7
  2120. pshs a
  2121. ldx #$3984
  2122. ldb #$0c
  2123. L_F1AE lda ,x
  2124. adda ,s
  2125. bpl L_F1B5
  2126. clra
  2127. L_F1B5 suba #$0a
  2128. lsla
  2129. lsla
  2130. sta ,x
  2131. leax 9,x
  2132. decb
  2133. bne L_F1AE
  2134. leas 1,s
  2135. andcc #$fe
  2136. L_F1C4 rts
  2137. ldb <$de
  2138. jsr >$f25c
  2139. clr ,x
  2140. lda <$de
  2141. inca
  2142. clrb
  2143. jsr >$f25c
  2144. pshs a,b,x
  2145. lda <$e8
  2146. jsr >$f3a5
  2147. sta <$e8
  2148. clr <$e5
  2149. lda <$e4
  2150. sta <$e3
  2151. L_F1E2 ldx 2,s
  2152. lda ,x
  2153. sta <$e1
  2154. suba <$e3
  2155. bpl L_F1ED
  2156. clra
  2157. L_F1ED ldb 1,s
  2158. stb <$df
  2159. sta <$e2
  2160. jsr >$f28e
  2161. ldb 1,s
  2162. subb <$df
  2163. ble L_F221
  2164. lda <$df
  2165. cmpa <$de
  2166. bne L_F206
  2167. ldb 1,s
  2168. subb <$de
  2169. L_F206 incb
  2170. stb <$e5
  2171. dec ,s
  2172. inc 1,s
  2173. ldb 1,s
  2174. lda ,s
  2175. jsr >$f268
  2176. subb <$e5
  2177. jsr >$f25c
  2178. stx 2,s
  2179. clr <$e5
  2180. tst ,s
  2181. bra L_F249
  2182. L_F221 tst <$da
  2183. bne L_F229
  2184. inc <$e5
  2185. bra L_F23F
  2186. L_F229 tst <$e5
  2187. beq L_F23F
  2188. lda ,s
  2189. ldb 1,s
  2190. jsr >$f268
  2191. subb <$e5
  2192. stb 1,s
  2193. jsr >$f25c
  2194. stx 2,s
  2195. clr <$e5
  2196. L_F23F ldx 2,s
  2197. leax 9,x
  2198. stx 2,s
  2199. inc 1,s
  2200. dec ,s
  2201. L_F249 lbne L_F1E2
  2202. puls a,b,x
  2203. ldb <$de
  2204. bne L_F259
  2205. jsr >$f3a5
  2206. orcc #$01
  2207. rts
  2208. L_F259 andcc #$fe
  2209. rts
  2210. pshs a,b
  2211. lda #$09
  2212. mul
  2213. ldx #$39f0
  2214. leax d,x
  2215. puls a,b,pc
  2216. pshs b
  2217. sta ,-s
  2218. ble L_F28C
  2219. ldy #$39e8
  2220. lda #$09
  2221. mul
  2222. leay d,y
  2223. ldx #$39e8
  2224. ldb 1,s
  2225. subb <$e5
  2226. lda #$09
  2227. mul
  2228. leax d,x
  2229. L_F283 lda #$09
  2230. jsr >$f39d
  2231. dec ,s
  2232. bne L_F283
  2233. L_F28C puls a,b,pc
  2234. lda <$e2
  2235. ldb <$da
  2236. beq L_F29C
  2237. decb
  2238. beq L_F2A4
  2239. decb
  2240. beq L_F2BC
  2241. bra L_F2C8
  2242. L_F29C cmpa #$04
  2243. ble L_F2A2
  2244. inc <$da
  2245. L_F2A2 bra L_F2ED
  2246. L_F2A4 cmpa #$04
  2247. bge L_F2B2
  2248. ldb <$de
  2249. stb <$df
  2250. clr <$da
  2251. clr <$e6
  2252. bra L_F2BA
  2253. L_F2B2 cmpa #$08
  2254. ble L_F2BA
  2255. ldb #$02
  2256. stb <$da
  2257. L_F2BA bra L_F2ED
  2258. L_F2BC cmpa #$08
  2259. bge L_F2C8
  2260. ldb #$03
  2261. stb <$da
  2262. ldb <$df
  2263. stb <$e9
  2264. L_F2C8 cmpa #$08
  2265. ble L_F2D2
  2266. ldb #$02
  2267. stb <$da
  2268. bra L_F2ED
  2269. L_F2D2 cmpa #$06
  2270. bge L_F2EB
  2271. inc <$db
  2272. clr <$da
  2273. ldb <$df
  2274. subb <$e9
  2275. lda <$e8
  2276. mul
  2277. cmpd #$0004
  2278. ble L_F2EB
  2279. ldb <$e9
  2280. stb <$df
  2281. L_F2EB bra L_F2F5
  2282. L_F2ED lda <$da
  2283. bne L_F2F5
  2284. inc <$ea
  2285. bra L_F301
  2286. L_F2F5 clr <$ea
  2287. inc <$df
  2288. lda <$e2
  2289. cmpa <$e6
  2290. ble L_F301
  2291. sta <$e6
  2292. L_F301 lda <$db
  2293. beq L_F338
  2294. clr <$db
  2295. lda <$e6
  2296. cmpa #$0a
  2297. blt L_F332
  2298. ldb <$df
  2299. subb <$de
  2300. lda <$e8
  2301. mul
  2302. cmpd #$0004
  2303. blt L_F332
  2304. ldb <$df
  2305. decb
  2306. stb <$de
  2307. lda <$e6
  2308. adda <$e3
  2309. cmpa <$e7
  2310. bls L_F336
  2311. sta <$e7
  2312. suba #$1c
  2313. bpl L_F32E
  2314. clra
  2315. L_F32E sta <$e4
  2316. bra L_F336
  2317. L_F332 ldb <$de
  2318. stb <$df
  2319. L_F336 clr <$e6
  2320. L_F338 lda <$df
  2321. cmpa #$23
  2322. bne L_F34E
  2323. lbsr L_F024
  2324. asr <$de
  2325. asr <$df
  2326. lda <$e8
  2327. lsla
  2328. cmpa #$10
  2329. bge L_F361
  2330. sta <$e8
  2331. L_F34E ldb <$ea
  2332. lda <$e8
  2333. mul
  2334. cmpd #$000a
  2335. lblt L_F367
  2336. lda <$de
  2337. ble L_F367
  2338. bra L_F364
  2339. L_F361 jsr >$f3a5
  2340. L_F364 orcc #$01
  2341. rts
  2342. L_F367 andcc #$fe
  2343. rts
  2344. lda <$dd
  2345. ldx #$38ea
  2346. ldb <$e1
  2347. stb a,x
  2348. inca
  2349. cmpa #$04
  2350. ble L_F37A
  2351. lda #$01
  2352. L_F37A sta <$dd
  2353. lda #$04
  2354. ldy #$38e3
  2355. pshs a,x,y
  2356. lbsr L_EFF5
  2357. leas 5,s
  2358. rts
  2359. ldy #$38ef
  2360. ldx #$39e8
  2361. lda <$df
  2362. deca
  2363. ldb #$09
  2364. mul
  2365. leax d,x
  2366. lda #$09
  2367. bra L_F39D
  2368. L_F39D ldb ,y+
  2369. stb ,x+
  2370. deca
  2371. bne L_F39D
  2372. rts
  2373. clr <$dc
  2374. clr <$de
  2375. clr <$df
  2376. clr <$ea
  2377. clr <$e7
  2378. clr <$da
  2379. clr <$e6
  2380. clr <$db
  2381. ldb #$01
  2382. stb <$e8
  2383. rts
  2384. pshs a,b,dp,x
  2385. jsr >$f3a5
  2386. clr >$3939
  2387. ldb #$7f
  2388. ldx #$38eb
  2389. lda #$04
  2390. L_F3C9 stb ,x+
  2391. deca
  2392. bne L_F3C9
  2393. stb <$e3
  2394. ldb #$01
  2395. stb <$dd
  2396. clr <$e4
  2397. lda #$01
  2398. sta >$3930
  2399. ldd #$f04b
  2400. std <$00
  2401. bsr L_F3E8
  2402. andcc #$fe
  2403. bra L_F3E6
  2404. L_F3E6 puls a,b,dp,x,pc
  2405. L_F3E8 bsr L_F418
  2406. ldb #$09
  2407. stb >$c001
  2408. ldb #$7b
  2409. stb >$c002
  2410. bsr L_F412
  2411. ldb #$0a
  2412. stb >$c001
  2413. ldb #$3d
  2414. stb >$c002
  2415. bsr L_F412
  2416. ldb #$2b
  2417. stb >$c001
  2418. ldb #$ad
  2419. stb >$c002
  2420. ldb #$20
  2421. stb >$c000
  2422. rts
  2423. L_F412 lda >$c000
  2424. blt L_F412
  2425. rts
  2426. L_F418 clr >$c000
  2427. L_F41B lda >$c000
  2428. anda #$40
  2429. bne L_F41B
  2430. rts
  2431. lda #$40
  2432. sta >$c000
  2433. L_F428 lda >$c000
  2434. anda #$40
  2435. beq L_F428
  2436. rts
  2437. tst >$c000
  2438. jmp >$e0eb
  2439. clra
  2440. sta >$4653
  2441. rts
  2442. pshs cc
  2443. orcc #$40
  2444. ldx #$4438
  2445. stx >$4656
  2446. ldx #$fc45
  2447. stx >$4659
  2448. clra
  2449. sta >$4653
  2450. sta >$4661
  2451. ldx #$f760
  2452. stx >$4654
  2453. lda #$00
  2454. ldb #$3f
  2455. ldx #$4438
  2456. jsr >$f4b0
  2457. lda #$01
  2458. ldb #$3f
  2459. ldx #$4481
  2460. jsr >$f4b0
  2461. ldx #$44c1
  2462. L_F46F clr ,x+
  2463. cmpx #$4561
  2464. bcs L_F46F
  2465. lbsr L_F48D
  2466. lda #$10
  2467. clrb
  2468. ldx #$4581
  2469. ldy #$45a3
  2470. L_F483 sty ,x++
  2471. stb ,y+
  2472. deca
  2473. bge L_F483
  2474. puls cc,pc
  2475. L_F48D ldd #$39e8
  2476. std >$4662
  2477. std >$4664
  2478. ldx #$39e8
  2479. L_F499 clr ,x+
  2480. cmpx #$3b2c
  2481. bcs L_F499
  2482. ldx #$44c9
  2483. ldd >$4662
  2484. L_F4A6 std ,x
  2485. leax 10,x
  2486. cmpx #$4561
  2487. bcs L_F4A6
  2488. rts
  2489. pshs cc,a,b,y
  2490. orcc #$10
  2491. lsla
  2492. ldy #$442b
  2493. stx a,y
  2494. tstb
  2495. beq L_F4DE
  2496. stb -6,x
  2497. lda #$a9
  2498. sta ,x
  2499. sta -5,x
  2500. clra
  2501. sta -8,x
  2502. inca
  2503. sta -9,x
  2504. lda #$08
  2505. sta -7,x
  2506. ldy #$f535
  2507. sty -2,x
  2508. ldy #$f4e0
  2509. sty -4,x
  2510. L_F4DE puls cc,a,b,y,pc
  2511. pshs y,u
  2512. clra
  2513. cmpb #$08
  2514. bgt L_F4FC
  2515. ldu #$f519
  2516. leau b,u
  2517. L_F4EC dec -7,x
  2518. bge L_F4F4
  2519. bsr L_F53C
  2520. bra L_F4F6
  2521. L_F4F4 lsl -5,x
  2522. L_F4F6 rola
  2523. decb
  2524. bne L_F4EC
  2525. jmp ,u
  2526. L_F4FC tfr d,y
  2527. subb #$08
  2528. lslb
  2529. ldu #$f523
  2530. leau b,u
  2531. clrb
  2532. L_F507 dec -7,x
  2533. bge L_F50F
  2534. bsr L_F53C
  2535. bra L_F511
  2536. L_F50F lsl -5,x
  2537. L_F511 rolb
  2538. rola
  2539. leay -1,y
  2540. bne L_F507
  2541. jmp ,u
  2542. nop
  2543. lsla
  2544. lsla
  2545. lsla
  2546. lsla
  2547. lsla
  2548. lsla
  2549. lsla
  2550. puls y,u,pc
  2551. nop
  2552. nop
  2553. lslb
  2554. rola
  2555. lslb
  2556. rola
  2557. lslb
  2558. rola
  2559. lslb
  2560. rola
  2561. lslb
  2562. rola
  2563. lslb
  2564. rola
  2565. lslb
  2566. rola
  2567. puls y,u,pc
  2568. dec -7,x
  2569. blt L_F53C
  2570. lsl -5,x
  2571. rts
  2572. L_F53C pshs b
  2573. ldb -8,x
  2574. incb
  2575. andb -6,x
  2576. L_F543 cmpb -9,x
  2577. beq L_F543
  2578. stb -8,x
  2579. ldb b,x
  2580. lslb
  2581. stb -5,x
  2582. ldb #$07
  2583. stb -7,x
  2584. puls b,pc
  2585. pshs y,u
  2586. dec >3,x
  2587. beq L_F5C2
  2588. dec >0,x
  2589. bpl L_F566
  2590. bsr L_F5DB
  2591. bra L_F56A
  2592. L_F566 lsl >4,x
  2593. L_F56A bcc L_F5B7
  2594. clra
  2595. cmpb #$08
  2596. bgt L_F590
  2597. ldu #$f519
  2598. leau b,u
  2599. L_F576 dec >3,x
  2600. beq L_F5C2
  2601. dec >0,x
  2602. bpl L_F586
  2603. bsr L_F5DB
  2604. bra L_F58A
  2605. L_F586 lsl >4,x
  2606. L_F58A rola
  2607. decb
  2608. bne L_F576
  2609. jmp ,u
  2610. L_F590 tfr d,y
  2611. subb #$08
  2612. lslb
  2613. ldu #$f523
  2614. leau b,u
  2615. clrb
  2616. L_F59B dec >3,x
  2617. beq L_F5C2
  2618. dec >0,x
  2619. bpl L_F5AB
  2620. bsr L_F5DB
  2621. bra L_F5AF
  2622. L_F5AB lsl >4,x
  2623. L_F5AF rolb
  2624. rola
  2625. leay -1,y
  2626. bne L_F59B
  2627. jmp ,u
  2628. L_F5B7 pshs x
  2629. ldx >5,x
  2630. jsr [<-4,x]
  2631. puls x,y,u,pc
  2632. L_F5C2 inc >3,x
  2633. puls y,u
  2634. bra L_F5F6
  2635. dec >3,x
  2636. beq L_F5F6
  2637. dec >0,x
  2638. bmi L_F5DB
  2639. lsl >4,x
  2640. rts
  2641. L_F5DB pshs b,y
  2642. ldy >1,x
  2643. ldb ,y+
  2644. sty >1,x
  2645. lslb
  2646. stb >4,x
  2647. ldb #$07
  2648. stb >0,x
  2649. puls b,y,pc
  2650. L_F5F6 leas ,u
  2651. puls x,u,pc
  2652. jsr >$e28b
  2653. sta >$4659
  2654. jsr >$e28b
  2655. sta >$465a
  2656. ldx #$fb1b
  2657. jsr >$e67d
  2658. bcc L_F613
  2659. lda #$6a
  2660. jsr >$e1df
  2661. L_F613 rts
  2662. pshs y
  2663. ldy >$4656
  2664. lda >$4658
  2665. pshs a
  2666. ldb -8,y
  2667. subb -9,y
  2668. decb
  2669. andb -6,y
  2670. cmpb >$4658
  2671. bcs L_F643
  2672. L_F62B jsr >$e28b
  2673. pshs a,b
  2674. ldb -9,y
  2675. sta b,y
  2676. lda -9,y
  2677. inca
  2678. anda -6,y
  2679. sta -9,y
  2680. puls a,b
  2681. dec ,s
  2682. bgt L_F62B
  2683. puls a,y,pc
  2684. L_F643 lda #$80
  2685. ora >$4653
  2686. sta >$4653
  2687. lda #$1b
  2688. jsr >$e1df
  2689. L_F650 jsr >$e28b
  2690. dec ,s
  2691. bgt L_F650
  2692. puls a,y,pc
  2693. jsr >$e28b
  2694. clrb
  2695. lsla
  2696. lsla
  2697. rolb
  2698. lslb
  2699. ldx #$442b
  2700. ldx b,x
  2701. stx >$4656
  2702. lsra
  2703. lsra
  2704. sta >$4658
  2705. rts
  2706. ldx #$fb62
  2707. jsr >$e67d
  2708. bcc L_F67C
  2709. lda #$6a
  2710. jsr >$e1df
  2711. L_F67C rts
  2712. ldx #$fdb1
  2713. jsr >$e685
  2714. bcc L_F68A
  2715. lda #$5a
  2716. jsr >$e1df
  2717. L_F68A rts
  2718. L_F68B jsr [<-2,x]
  2719. bcc L_F68B
  2720. rts
  2721. pshs x
  2722. ldb #$04
  2723. jsr [<-4,x]
  2724. lsra
  2725. lsra
  2726. lsra
  2727. ldx #$4581
  2728. leax a,x
  2729. ldy ,x
  2730. lda ,y
  2731. clrb
  2732. lsra
  2733. rorb
  2734. lsra
  2735. rorb
  2736. lsra
  2737. rorb
  2738. beq L_F6AF
  2739. inca
  2740. L_F6AF inca
  2741. leay a,y
  2742. nega
  2743. deca
  2744. L_F6B4 ldb ,y+
  2745. stb a,y
  2746. cmpy >$45a1
  2747. bcs L_F6B4
  2748. inca
  2749. leay a,y
  2750. pshs x,y
  2751. ldy ,x
  2752. pshs y
  2753. ldx #$4581
  2754. ldb #$10
  2755. L_F6CD ldy ,x
  2756. cmpy ,s
  2757. bls L_F6DA
  2758. leay a,y
  2759. sty ,x
  2760. L_F6DA leax 2,x
  2761. decb
  2762. bne L_F6CD
  2763. puls y
  2764. puls x,y
  2765. sty ,x
  2766. puls x
  2767. ldb #$08
  2768. jsr [<-4,x]
  2769. sta ,y+
  2770. beq L_F706
  2771. tfr a,b
  2772. L_F6F3 pshs b
  2773. cmpb #$08
  2774. bls L_F6FB
  2775. ldb #$08
  2776. L_F6FB jsr [<-4,x]
  2777. sta ,y+
  2778. puls b
  2779. subb #$08
  2780. bhi L_F6F3
  2781. L_F706 sty >$45a1
  2782. rts
  2783. ldb #$04
  2784. jsr [<-4,x]
  2785. lsra
  2786. lsra
  2787. lsra
  2788. ldy #$4581
  2789. ldy a,y
  2790. lda ,y+
  2791. inca
  2792. ldb ,y+
  2793. pshs a,b,x
  2794. ldb #$08
  2795. pshs b,y
  2796. ldy #$f5ca
  2797. ldx #$f554
  2798. pshs x,y
  2799. leax 4,s
  2800. jsr >$fbbf
  2801. leas 11,s
  2802. rts
  2803. ldb #$04
  2804. jsr [<-4,x]
  2805. lsra
  2806. lsra
  2807. lsra
  2808. ldy #$4561
  2809. leay a,y
  2810. ldb #$10
  2811. jsr [<-4,x]
  2812. std ,y
  2813. rts
  2814. ldx #$44c1
  2815. L_F74F ldd ,x
  2816. std 2,x
  2817. ldd #$0000
  2818. std 5,x
  2819. leax 10,x
  2820. cmpx #$4561
  2821. bcs L_F74F
  2822. rts
  2823. leas ,u
  2824. puls x,u,pc
  2825. ldx >$4662
  2826. ldy #$f792
  2827. ldb #$12
  2828. L_F76D lda ,y+
  2829. sta ,x+
  2830. decb
  2831. bne L_F76D
  2832. cmpx #$3b2c
  2833. bcs L_F77C
  2834. ldx #$39e8
  2835. L_F77C ldy #$44c9
  2836. ldb #$10
  2837. L_F782 stx ,y
  2838. leay 10,y
  2839. decb
  2840. bne L_F782
  2841. L_F789 cmpx >$4664
  2842. beq L_F789
  2843. stx >$4662
  2844. rts
  2845. andb #$00
  2846. neg <$00
  2847. neg <$00
  2848. neg <$00
  2849. neg <$00
  2850. neg <$00
  2851. neg <$ff
  2852. neg <$00
  2853. neg <$00
  2854. ldb #$04
  2855. jsr [<-4,x]
  2856. lsra
  2857. lsra
  2858. lsra
  2859. lsra
  2860. inca
  2861. ldy >$465b
  2862. pshs y
  2863. ldy #$44c1
  2864. L_F7B8 lsl 1,s
  2865. rol ,s
  2866. bcc L_F7C0
  2867. bsr L_F7CE
  2868. L_F7C0 leay 10,y
  2869. cmpy #$4561
  2870. bcs L_F7B8
  2871. jsr >$f8e5
  2872. leas 2,s
  2873. rts
  2874. L_F7CE pshs a,b,x
  2875. clra
  2876. pshs a
  2877. ldd 5,y
  2878. subd 2,y
  2879. bpl L_F7E0
  2880. com ,s
  2881. comb
  2882. coma
  2883. addd #$0001
  2884. L_F7E0 std 5,y
  2885. lda 1,s
  2886. deca
  2887. beq L_F809
  2888. deca
  2889. lsla
  2890. leax >L_F816,pcr
  2891. leax a,x
  2892. lda 5,y
  2893. ldb ,x
  2894. mul
  2895. pshs a,b
  2896. lda 5,y
  2897. ldb 1,x
  2898. mul
  2899. pshs a,b
  2900. lda 6,y
  2901. ldb ,x
  2902. mul
  2903. addd ,s++
  2904. tfr a,b
  2905. clra
  2906. addd ,s++
  2907. L_F809 tst ,s+
  2908. bpl L_F812
  2909. coma
  2910. comb
  2911. addd #$0001
  2912. L_F812 std 5,y
  2913. puls a,b,x,pc
  2914. L_F816 suba #$00
  2915. fcb $55 ; lsrb
  2916. fcb $55 ; lsrb
  2917. nega
  2918. neg <$33
  2919. leau 10,y
  2920. adda 4,y
  2921. sbca <$20
  2922. neg <$1c
  2923. fcb $72,$19,$9a ; negcom >$199a
  2924. lbsr L_3E40
  2925. fcb $55 ; lsrb
  2926. sync
  2927. cmpa >$1249
  2928. fcb $11,$11
  2929. fcb $10,$00
  2930. rts
  2931. ldb #$02
  2932. jsr [<-4,x]
  2933. lsla
  2934. rola
  2935. rola
  2936. cmpa #$02
  2937. bcc L_F84B
  2938. lsla
  2939. ldx #$442b
  2940. ldx a,x
  2941. stx >0,u
  2942. L_F84B rts
  2943. ldb #$04
  2944. jsr [<-4,x]
  2945. lsra
  2946. lsra
  2947. lsra
  2948. ldx #$4561
  2949. ldx a,x
  2950. stx >$465d
  2951. rts
  2952. ldb #$04
  2953. jsr [<-4,x]
  2954. lsra
  2955. lsra
  2956. lsra
  2957. ldx #$4561
  2958. ldx a,x
  2959. stx >$465b
  2960. rts
  2961. pshs u
  2962. lda #$04
  2963. ldb #$00
  2964. bra L_F884
  2965. pshs u
  2966. lda #$04
  2967. ldb #$02
  2968. bra L_F884
  2969. pshs u
  2970. lda #$07
  2971. ldb #$05
  2972. L_F884 ldy #$0000
  2973. bra L_F899
  2974. pshs u
  2975. lda #$04
  2976. bra L_F894
  2977. pshs u
  2978. lda #$07
  2979. L_F894 ldy #$ffff
  2980. clrb
  2981. L_F899 pshs y
  2982. pshs a,b
  2983. lda #$10
  2984. pshs a
  2985. ldd >$465b
  2986. pshs a,b
  2987. ldy #$44c1
  2988. L_F8AA lsl 1,s
  2989. rol ,s
  2990. bcc L_F8D0
  2991. tst 5,s
  2992. bne L_F8C3
  2993. ldb 3,s
  2994. ldb b,y
  2995. jsr [<-4,x]
  2996. tfr d,u
  2997. ldb 4,s
  2998. stu b,y
  2999. bra L_F8D0
  3000. L_F8C3 ldb #$04
  3001. jsr [<-4,x]
  3002. lsra
  3003. lsra
  3004. lsra
  3005. lsra
  3006. ldb 3,s
  3007. sta b,y
  3008. L_F8D0 leay 10,y
  3009. dec 2,s
  3010. bne L_F8AA
  3011. leas 7,s
  3012. puls u
  3013. rts
  3014. ldb #$04
  3015. jsr [<-4,x]
  3016. lsra
  3017. lsra
  3018. lsra
  3019. lsra
  3020. inca
  3021. pshs a,u
  3022. L_F8E7 ldu >$465b
  3023. ldb #$02
  3024. lbsr L_FA61
  3025. deca
  3026. bne L_F8E7
  3027. ldx >$4662
  3028. L_F8F5 ldd $10,x
  3029. anda >$465d
  3030. andb >$465e
  3031. cmpd >$465d
  3032. bne L_F95F
  3033. ldd $10,x
  3034. coma
  3035. comb
  3036. tfr d,u
  3037. ldb #$00
  3038. lbsr L_FA61
  3039. lda 11,x
  3040. tfr a,b
  3041. anda #$70
  3042. andb #$07
  3043. addb >$4661
  3044. bge L_F920
  3045. clrb
  3046. bra L_F926
  3047. L_F920 cmpb #$05
  3048. ble L_F926
  3049. ldb #$05
  3050. L_F926 pshs b
  3051. ora ,s+
  3052. sta 11,x
  3053. leay >L_F961,pcr
  3054. clra
  3055. ldb 13,x
  3056. lda d,y
  3057. adda 12,x
  3058. bge L_F93C
  3059. clra
  3060. bra L_F940
  3061. L_F93C bvc L_F940
  3062. lda #$7f
  3063. L_F940 sta 12,x
  3064. ldd #$0000
  3065. std $10,x
  3066. leax $12,x
  3067. cmpx #$3b2c
  3068. bcs L_F953
  3069. ldx #$39e8
  3070. L_F953 cmpx >$4664
  3071. beq L_F953
  3072. stx >$4662
  3073. dec ,s
  3074. bne L_F8F5
  3075. L_F95F puls a,u,pc
  3076. L_F961 neg <$00
  3077. neg <$00
  3078. neg <$00
  3079. neg <$00
  3080. neg <$00
  3081. neg <$00
  3082. neg <$00
  3083. neg <$00
  3084. neg <$00
  3085. neg <$00
  3086. neg <$00
  3087. neg <$00
  3088. neg <$00
  3089. neg <$00
  3090. neg <$00
  3091. neg <$00
  3092. neg <$00
  3093. neg <$00
  3094. neg <$00
  3095. neg <$00
  3096. neg <$00
  3097. neg <$00
  3098. neg <$00
  3099. neg <$00
  3100. neg <$00
  3101. neg <$00
  3102. neg <$00
  3103. neg <$00
  3104. neg <$00
  3105. neg <$00
  3106. neg <$00
  3107. neg <$00
  3108. neg <$00
  3109. neg <$00
  3110. neg <$00
  3111. neg <$00
  3112. neg <$00
  3113. neg <$00
  3114. neg <$00
  3115. neg <$00
  3116. neg <$00
  3117. neg <$00
  3118. neg <$00
  3119. neg <$00
  3120. neg <$00
  3121. neg <$00
  3122. neg <$00
  3123. neg <$00
  3124. neg <$00
  3125. neg <$00
  3126. neg <$00
  3127. neg <$00
  3128. neg <$00
  3129. neg <$00
  3130. neg <$00
  3131. neg <$00
  3132. neg <$00
  3133. neg <$00
  3134. neg <$00
  3135. neg <$00
  3136. neg <$00
  3137. neg <$00
  3138. neg <$00
  3139. neg <$00
  3140. neg <$00
  3141. neg <$00
  3142. neg <$00
  3143. neg <$00
  3144. neg <$00
  3145. neg <$00
  3146. neg <$00
  3147. neg <$00
  3148. neg <$00
  3149. neg <$00
  3150. neg <$00
  3151. neg <$00
  3152. neg <$00
  3153. neg <$00
  3154. neg <$00
  3155. neg <$00
  3156. neg <$00
  3157. neg <$00
  3158. neg <$00
  3159. neg <$00
  3160. neg <$00
  3161. neg <$00
  3162. neg <$00
  3163. neg <$00
  3164. neg <$00
  3165. neg <$00
  3166. neg <$00
  3167. neg <$00
  3168. neg <$00
  3169. neg <$00
  3170. neg <$00
  3171. neg <$00
  3172. neg <$00
  3173. neg <$00
  3174. neg <$00
  3175. neg <$00
  3176. neg <$00
  3177. neg <$00
  3178. neg <$00
  3179. neg <$00
  3180. neg <$00
  3181. neg <$00
  3182. neg <$00
  3183. neg <$00
  3184. neg <$00
  3185. neg <$00
  3186. neg <$00
  3187. neg <$00
  3188. neg <$00
  3189. neg <$00
  3190. neg <$00
  3191. neg <$00
  3192. neg <$00
  3193. neg <$00
  3194. neg <$00
  3195. neg <$00
  3196. neg <$00
  3197. neg <$00
  3198. neg <$00
  3199. neg <$00
  3200. neg <$00
  3201. neg <$00
  3202. neg <$00
  3203. neg <$00
  3204. L_FA61 pshs a,b,x,y,u
  3205. clra
  3206. ldx #$8000
  3207. pshs a,x
  3208. ldy #$44c1
  3209. L_FA6D lsl 10,s
  3210. rol 9,s
  3211. bcc L_FABE
  3212. ldx 8,y
  3213. ldb 4,s
  3214. ldb b,y
  3215. lda ,s
  3216. bne L_FA83
  3217. lsrb
  3218. lsr a,x
  3219. rolb
  3220. bra L_FA94
  3221. L_FA83 cmpa #$0a
  3222. bne L_FA94
  3223. ldb 4,s
  3224. ldd b,y
  3225. lsr ,x
  3226. lslb
  3227. rol ,x
  3228. tfr a,b
  3229. lda ,s
  3230. L_FA94 stb a,x
  3231. ldb 4,s
  3232. cmpb #$00
  3233. beq L_FAAC
  3234. ldd 2,y
  3235. addd 5,y
  3236. std 2,y
  3237. ldd $10,x
  3238. ora 1,s
  3239. orb 2,s
  3240. std $10,x
  3241. L_FAAC leax $12,x
  3242. cmpx #$3b2c
  3243. bcs L_FAB7
  3244. ldx #$39e8
  3245. L_FAB7 cmpx >$4664
  3246. beq L_FAB7
  3247. stx 8,y
  3248. L_FABE leay 10,y
  3249. inc ,s
  3250. lsr 1,s
  3251. ror 2,s
  3252. lbcc L_FA6D
  3253. leas 3,s
  3254. puls a,b,x,y,u,pc
  3255. L_FACE ldx #$fdb1
  3256. jsr >$e685
  3257. bcc L_FAD8
  3258. bra L_FACE
  3259. L_FAD8 rts
  3260. lda >$03f7
  3261. anda ,y
  3262. cmpx #$03f8
  3263. inca
  3264. com <$f7
  3265. fcb $60,$00 ; neg 0,x
  3266. eorb >$35fb
  3267. lbsr L_FEE2
  3268. adda #$03
  3269. eorb >$9003
  3270. orb >$ce03
  3271. eorb >$3403
  3272. ldb >$9103
  3273. stb >$3600
  3274. addb >$17f8
  3275. jmp 3,x
  3276. eorb >$5d03
  3277. eorb >$7603
  3278. eorb >$8a00
  3279. stb >$64f7
  3280. inca
  3281. com <$f7
  3282. fcb $0b,$00 ; dec <$00
  3283. eorb >$dbf8
  3284. jmp >$6e9f
  3285. rora
  3286. lsrb
  3287. pshs cc
  3288. orcc #$10
  3289. lda #$02
  3290. ora >$393a
  3291. sta >$393a
  3292. lda #$80
  3293. anda >$393a
  3294. beq L_FB3C
  3295. lda #$fd
  3296. anda >$393a
  3297. sta >$393a
  3298. puls cc
  3299. jsr >$f606
  3300. rts
  3301. L_FB3C puls cc
  3302. lda #$04
  3303. anda >$393a
  3304. beq L_FB47
  3305. bra L_FB5A
  3306. L_FB47 lda #$04
  3307. ora >$393a
  3308. sta >$393a
  3309. ldx >$4662
  3310. cmpx >$4664
  3311. bne L_FB5A
  3312. jsr >$f496
  3313. L_FB5A ldx >$4659
  3314. jsr >$fbf0
  3315. bra L_FBA6
  3316. pshs cc
  3317. orcc #$10
  3318. lda #$02
  3319. ora >$393a
  3320. sta >$393a
  3321. lda #$80
  3322. anda >$393a
  3323. beq L_FB83
  3324. lda #$fd
  3325. anda >$393a
  3326. sta >$393a
  3327. puls cc
  3328. jsr >$f66f
  3329. rts
  3330. L_FB83 puls cc
  3331. lda #$04
  3332. anda >$393a
  3333. beq L_FB8E
  3334. bra L_FBA1
  3335. L_FB8E lda #$04
  3336. ora >$393a
  3337. sta >$393a
  3338. ldx >$4662
  3339. cmpx >$4664
  3340. bne L_FBA1
  3341. jsr >$f496
  3342. L_FBA1 ldx #$4438
  3343. bsr L_FBBF
  3344. L_FBA6 lda #$fd
  3345. anda >$393a
  3346. sta >$393a
  3347. ldx >$4662
  3348. cmpx >$4664
  3349. bne L_FBBE
  3350. lda #$fb
  3351. anda >$393a
  3352. sta >$393a
  3353. L_FBBE rts
  3354. L_FBBF pshs x,u
  3355. leau ,s
  3356. L_FBC3 ldx ,u
  3357. ldy #$fad9
  3358. bsr L_FBCF
  3359. jsr ,y
  3360. bra L_FBC3
  3361. L_FBCF pshs a,b
  3362. L_FBD1 jsr [<-2,x]
  3363. ldb ,y
  3364. bcc L_FBE3
  3365. bpl L_FBDE
  3366. leay 1,y
  3367. bra L_FBD1
  3368. L_FBDE ldy 1,y
  3369. puls a,b,pc
  3370. L_FBE3 andb #$7f
  3371. beq L_FBEB
  3372. leay b,y
  3373. bra L_FBD1
  3374. L_FBEB ldy 3,y
  3375. puls a,b,pc
  3376. clra
  3377. ldb ,x+
  3378. pshs a,b
  3379. ldb #$08
  3380. pshs b,x
  3381. ldy #$f5d0
  3382. ldx #$fc0a
  3383. pshs x,y
  3384. leax 4,s
  3385. jsr >L_FBBF
  3386. leas 9,s
  3387. rts
  3388. pshs y,u
  3389. clra
  3390. cmpb #$08
  3391. bgt L_FC27
  3392. ldu #$f519
  3393. leau b,u
  3394. L_FC16 dec ,x
  3395. bge L_FC1F
  3396. jsr >L_F5DB
  3397. bra L_FC21
  3398. L_FC1F lsl 4,x
  3399. L_FC21 rola
  3400. decb
  3401. bne L_FC16
  3402. jmp ,u
  3403. L_FC27 tfr d,y
  3404. subb #$08
  3405. lslb
  3406. ldu #$f523
  3407. leau b,u
  3408. clrb
  3409. L_FC32 dec ,x
  3410. bge L_FC3B
  3411. jsr >L_F5DB
  3412. bra L_FC3D
  3413. L_FC3B lsl 4,x
  3414. L_FC3D rolb
  3415. rola
  3416. leay -1,y
  3417. bne L_FC32
  3418. jmp ,u
  3419. suba ,x++
  3420. anda #$ce
  3421. suba #$4d
  3422. bne L_FCA4
  3423. bita <$04
  3424. inca
  3425. bne L_FCC6
  3426. fcb $02,$49 ; negcom <$49
  3427. fcb $31,$bc,$68 ; leay [<$fcbf,pcr]
  3428. bcc L_FC89
  3429. sbcb #$20
  3430. fcb $01,$41 ; neg <$41
  3431. leay -10,x
  3432. leay 5,x
  3433. fcb $05,$04 ; lsr <$04
  3434. suba #$00
  3435. dec 10,x
  3436. bita #$80
  3437. dec 11,x
  3438. jmp <$34
  3439. neg <$01
  3440. bita #$05
  3441. bitb #$5a
  3442. suba #$61
  3443. fcb $41 ; nega
  3444. cmpa #$79
  3445. fcb $ad,$ea ; jsr
  3446. lsrb
  3447. lsl <$7f
  3448. stu >$d022
  3449. com <$d1
  3450. nega
  3451. subd <$ff
  3452. fcb $65,$02 ; lsr 2,x
  3453. neg 2,x
  3454. L_FC89 fcb $14 ; hcf
  3455. dec <$80
  3456. neg <$48
  3457. L_FC8E coma
  3458. fcb $02,$22 ; negcom <$22
  3459. bhi L_FCB5
  3460. bhi L_FCC5
  3461. leax -15,y
  3462. nega
  3463. daa
  3464. neg <$02
  3465. fcb $41 ; nega
  3466. eorb >$224a
  3467. fcb $14 ; hcf
  3468. fcb $45 ; lsra
  3469. ror 6,s
  3470. L_FCA3 lsl >$988a
  3471. L_FCA4 equ L_FCA3+1
  3472. fcb $51 ; negb
  3473. fcb $15 ; hcf
  3474. adca <$99
  3475. sbcb 2,s
  3476. bmi L_FCF6
  3477. lsra
  3478. coma
  3479. asr <$e1
  3480. fcb $5b ; decb
  3481. sta <$a1
  3482. L_FCB5 adcb 6,s
  3483. ora #$7a
  3484. anda #$50
  3485. bita #$2a
  3486. sbca #$e4
  3487. std <$68
  3488. fcb $cd ; hcf
  3489. L_FCC2 lsrb
  3490. fcb $02,$29 ; negcom <$29
  3491. L_FCC5 fcb $87,$93 ; discarda #$93
  3492. L_FCC6 equ L_FCC5+1
  3493. ldb >$445a
  3494. addd >$a193
  3495. fcb $51 ; negb
  3496. comb
  3497. eorb #$a6
  3498. ora #$3e
  3499. clr >$cbb2
  3500. jmp a,y
  3501. lsra
  3502. suba 9,x
  3503. bsr L_FCED
  3504. bgt L_FD19
  3505. stx <$68
  3506. jsr <$8c
  3507. adcb #$4f
  3508. bhi L_FC8E
  3509. eorb >$3c73
  3510. pshu b,x,s,pc
  3511. abx
  3512. L_FCED ora <$1a
  3513. ldx <$27
  3514. bmi L_FCC2
  3515. cmpx >$d037
  3516. L_FCF6 cmpx #$5e37
  3517. L_FCF7 equ L_FCF6+1
  3518. fcb $45 ; lsra
  3519. cwai #$54
  3520. lsl ,-x
  3521. fcb $e9,$cc,$23 ; adcb <$fd24,pcr
  3522. ora <$dc
  3523. lsr >$4a78
  3524. bvs L_FD0A
  3525. L_FD08 addd #$bf6f
  3526. L_FD0A equ L_FD08+2
  3527. eorb -11,u
  3528. bita 1,x
  3529. anda <$fd
  3530. orcc #$08
  3531. lbra L_0AA4
  3532. jsr >$0ae2
  3533. L_FD19 leay $f834,y
  3534. nop
  3535. bvc L_FD5A
  3536. clr >$7955
  3537. lsra
  3538. anda #$53
  3539. andb >$a79e
  3540. asr [,y]
  3541. lsr <$7b
  3542. dec 8,u
  3543. lda [a,y]
  3544. eorb 12,u
  3545. mul
  3546. neg <$27
  3547. ldd >$6211
  3548. cmpb <$06
  3549. tst <$40
  3550. tst -12,y
  3551. bne L_FCF7
  3552. rora
  3553. comb
  3554. beq L_FD91
  3555. lda #$80
  3556. anda >$4653
  3557. beq L_FD69
  3558. ldy >$4656
  3559. ldb -8,y
  3560. subb -9,y
  3561. decb
  3562. andb -6,y
  3563. cmpb >$4658
  3564. L_FD5A bls L_FD69
  3565. lda #$0b
  3566. jsr >$e1df
  3567. lda #$7f
  3568. anda >$4653
  3569. sta >$4653
  3570. L_FD69 lda #$40
  3571. anda >$4653
  3572. beq L_FD7D
  3573. lda #$bf
  3574. anda >$4653
  3575. sta >$4653
  3576. lda #$1a
  3577. jsr >$e1df
  3578. L_FD7D lda #$20
  3579. anda >$4653
  3580. beq L_FD91
  3581. lda #$df
  3582. anda >$4653
  3583. sta >$4653
  3584. lda #$0a
  3585. jsr >$e1df
  3586. L_FD91 puls a,b,y,pc
  3587. pshs a
  3588. lda >$4661
  3589. cmpa #$07
  3590. bge L_FDA0
  3591. inca
  3592. sta >$4661
  3593. L_FDA0 puls a,pc
  3594. pshs a
  3595. lda >$4661
  3596. cmpa #$f9
  3597. ble L_FDAF
  3598. deca
  3599. sta >$4661
  3600. L_FDAF puls a,pc
  3601. pshs a,y
  3602. lda #$40
  3603. ora >$4653
  3604. sta >$4653
  3605. ldy #$c000
  3606. lda ,y
  3607. bita #$40
  3608. bne L_FDDA
  3609. lda #$25
  3610. sta 1,y
  3611. clra
  3612. sta 2,y
  3613. L_FDCC lda ,y
  3614. bmi L_FDCC
  3615. lda #$40
  3616. sta ,y
  3617. L_FDD4 lda ,y
  3618. bita #$40
  3619. beq L_FDD4
  3620. L_FDDA lda #$00
  3621. sta ,y
  3622. L_FDDE lda ,y
  3623. bita #$40
  3624. bne L_FDDE
  3625. lda #$64
  3626. sta ,y
  3627. L_FDE8 lda ,y
  3628. bita #$40
  3629. beq L_FDE8
  3630. clra
  3631. sta >$465f
  3632. sta >$4660
  3633. ldy #$fe01
  3634. sty >$3800
  3635. andcc #$bf
  3636. puls a,y,pc
  3637. pshs a,b,x,y,u
  3638. ldu #$c000
  3639. lda ,u
  3640. bita #$20
  3641. lbeq L_FED4
  3642. ldy >$4664
  3643. cmpy >$4662
  3644. lbeq L_FED4
  3645. lda ,y
  3646. leax 2,u
  3647. bita #$01
  3648. beq L_FE24
  3649. leax 1,x
  3650. L_FE24 ldb #$0d
  3651. stb 1,u
  3652. stb ,x
  3653. L_FE2A ldb ,u
  3654. bmi L_FE2A
  3655. ldb #$00
  3656. stb 1,u
  3657. ldy >$4664
  3658. leay 1,y
  3659. lda >$4660
  3660. lsra
  3661. beq L_FE41
  3662. L_FE3E deca
  3663. bpl L_FE3E
  3664. L_FE41 lda ,y+
  3665. sta 2,u
  3666. lda ,y+
  3667. sta 2,u
  3668. lda ,y+
  3669. sta 2,u
  3670. lda ,y+
  3671. sta 2,u
  3672. lda ,y+
  3673. sta 2,u
  3674. lda ,y+
  3675. sta 2,u
  3676. lda ,y+
  3677. sta 2,u
  3678. lda ,y+
  3679. sta 2,u
  3680. lda ,y+
  3681. sta 2,u
  3682. lda ,y+
  3683. sta ,x
  3684. ldd ,y++
  3685. sta ,x
  3686. L_FE6D lda ,u
  3687. bmi L_FE6D
  3688. stb ,x
  3689. ldb ,y+
  3690. L_FE75 lda ,u
  3691. bmi L_FE75
  3692. stb ,x
  3693. ldb ,y+
  3694. L_FE7D lda ,u
  3695. bmi L_FE7D
  3696. stb ,x
  3697. ldb ,y+
  3698. L_FE85 lda ,u
  3699. bmi L_FE85
  3700. stb ,x
  3701. L_FE8B lda ,u
  3702. bmi L_FE8B
  3703. lda >$465f
  3704. sta >$4660
  3705. stb >$465f
  3706. ldy >$4664
  3707. lda ,y
  3708. anda #$fc
  3709. sta ,u
  3710. leay $12,y
  3711. cmpy #$3b2c
  3712. bcs L_FEAF
  3713. ldy #$39e8
  3714. L_FEAF sty >$4664
  3715. bita #$80
  3716. beq L_FED4
  3717. lda #$20
  3718. ora >$4653
  3719. sta >$4653
  3720. lda #$02
  3721. anda >$393a
  3722. beq L_FEC8
  3723. bra L_FED1
  3724. L_FEC8 cmpy >$4662
  3725. bne L_FED1
  3726. clr >$393a
  3727. L_FED1 lbsr L_E69D
  3728. L_FED4 puls a,b,x,y,u
  3729. jmp >$e0eb
  3730. neg <$00
  3731. neg <$00
  3732. neg <$00
  3733. neg <$00
  3734. L_FEE1 neg <$00
  3735. L_FEE2 equ L_FEE1+1
  3736. neg <$00
  3737. neg <$00
  3738. neg <$00
  3739. neg <$00
  3740. neg <$00
  3741. neg <$00
  3742. neg <$00
  3743. neg <$00
  3744. neg <$00
  3745. neg <$00
  3746. neg <$00
  3747. neg <$00
  3748. neg <$00
  3749. neg <$00
  3750. neg <$00
  3751. neg <$00
  3752. neg <$00
  3753. neg <$00
  3754. neg <$00
  3755. neg <$00
  3756. neg <$00
  3757. neg <$00
  3758. neg <$00
  3759. neg <$00
  3760. neg <$00
  3761. neg <$00
  3762. neg <$00
  3763. neg <$00
  3764. neg <$00
  3765. neg <$00
  3766. neg <$00
  3767. neg <$00
  3768. neg <$00
  3769. neg <$00
  3770. neg <$00
  3771. neg <$00
  3772. neg <$00
  3773. neg <$00
  3774. neg <$00
  3775. neg <$00
  3776. neg <$00
  3777. neg <$00
  3778. neg <$00
  3779. neg <$00
  3780. neg <$00
  3781. neg <$00
  3782. neg <$00
  3783. neg <$00
  3784. neg <$00
  3785. neg <$00
  3786. neg <$00
  3787. neg <$00
  3788. neg <$00
  3789. neg <$00
  3790. neg <$00
  3791. neg <$00
  3792. neg <$00
  3793. neg <$00
  3794. neg <$00
  3795. neg <$00
  3796. neg <$00
  3797. neg <$00
  3798. neg <$00
  3799. neg <$00
  3800. neg <$00
  3801. neg <$00
  3802. neg <$00
  3803. neg <$00
  3804. neg <$00
  3805. neg <$00
  3806. neg <$00
  3807. neg <$00
  3808. neg <$00
  3809. neg <$00
  3810. neg <$00
  3811. neg <$00
  3812. neg <$00
  3813. neg <$00
  3814. neg <$00
  3815. neg <$00
  3816. neg <$00
  3817. neg <$00
  3818. neg <$00
  3819. neg <$00
  3820. neg <$00
  3821. neg <$00
  3822. neg <$00
  3823. neg <$00
  3824. neg <$00
  3825. neg <$00
  3826. neg <$00
  3827. neg <$00
  3828. neg <$00
  3829. neg <$00
  3830. neg <$00
  3831. neg <$00
  3832. neg <$00
  3833. neg <$00
  3834. neg <$00
  3835. neg <$00
  3836. neg <$00
  3837. neg <$00
  3838. neg <$00
  3839. neg <$00
  3840. neg <$00
  3841. neg <$00
  3842. neg <$00
  3843. neg <$00
  3844. neg <$00
  3845. neg <$00
  3846. neg <$00
  3847. neg <$00
  3848. neg <$00
  3849. neg <$00
  3850. neg <$00
  3851. neg <$00
  3852. neg <$00
  3853. neg <$00
  3854. neg <$00
  3855. neg <$00
  3856. neg <$00
  3857. neg <$00
  3858. neg <$00
  3859. neg <$00
  3860. neg <$00
  3861. neg <$00
  3862. neg <$00
  3863. neg <$00
  3864. neg <$00
  3865. neg <$00
  3866. neg <$00
  3867. neg <$00
  3868. neg <$00
  3869. neg <$00
  3870. adda #$00
  3871. neg <$00
  3872. neg <$00
  3873. neg <$e0
  3874. stb ,s+
  3875. fcb $ec,$00 ; ldd 0,x
  3876. neg <$00
  3877. neg <$e0
  3878. fcb $00 ; neg
ダウンロード 印刷用表示

このコピペの URL

JavaScript での埋め込み

iframe での埋め込み

元のテキスト