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

このコピペの URL

JavaScript での埋め込み

iframe での埋め込み

元のテキスト