SHARE
TWEET

BatLib Source (Assemblex)

Zeda Mar 17th, 2011 197 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. jp $592A
  2. jr nc, $30
  3. add hl,sp
  4. ld($3334),a
  5. nop
  6. inc a
  7. ld b,d
  8. ld b,d
  9. ld b,d
  10. ld b,d
  11. inc a
  12. nop
  13. nop
  14. inc a
  15. ld b,d
  16. ld e,d
  17. ld e,d
  18. ld b,d
  19. inc a
  20. nop
  21. jp $4F9E
  22. jp $4F9F
  23. jp $4FBC
  24. jp $4FBD
  25. jp $4FCD
  26. jp $4FD0
  27. jp $500C
  28. jp $501F
  29. jp $5021
  30. jp $502E
  31. jp $507C
  32. jp $50B2
  33. jp $50FC
  34. jp $5110
  35. jp $511D
  36. jp $5128
  37. jp $5134
  38. jp $5140
  39. jp $5141
  40. jp $514E
  41. jp $5175
  42. jp $518A
  43. jp $518D
  44. jp $51C4
  45. jp $51F4
  46. jp $5206
  47. jp $5217
  48. jp $5241
  49. jp $5827
  50. jp $5831
  51. jp $5860
  52. jp $5863
  53. jp $5867
  54. jp $58A9
  55. jp $58B3
  56. jp $58C9
  57. jp $5933
  58. jp $5936
  59. jp $5937
  60. jp $593A
  61. jp $5962
  62. jp $5964
  63. jp $597A
  64. jp $597C
  65. jp $59B3
  66. jp $9872
  67. jp $9888
  68. jp $9897
  69. jp $989B
  70. jp $98CD
  71. jp $98EF
  72. jp $98F2
  73. jp $9963
  74. jp $4F66
  75. jp $5AD3
  76. jp $5AD9
  77. jp $5ADF
  78. jp $5AE5
  79. jp $5AEB
  80. jp $5AF1
  81. jp $5AF7
  82. jp $5AFD
  83. jp $5B03
  84. jp $5B09
  85. jp $5B0F
  86. jp $5B15
  87. jp $5B1B
  88. jp $5B21
  89. jp $5B27
  90. jp $5B2D
  91. jp $5B33
  92. jp $5B38
  93. jp $5B3D
  94. jp $5B42
  95. jp $5B47
  96. jp $5B4C
  97. jp $5B51
  98. jp $5B56
  99. jp $5B5B
  100. jp $5B60
  101. jp $5B65
  102. jp $5B6A
  103. jp $5B6F
  104. jp $5B74
  105. jp $5B79
  106. jp $5B7E
  107. jp $5B83
  108. jp $5B88
  109. jp $5B8D
  110. jp $5B92
  111. jp $5B97
  112. jp $5B9C
  113. jp $5BA1
  114. jp $5BA6
  115. jp $5BAB
  116. jp $5BB0
  117. jp $5BB3
  118. jp $5BBF
  119. jp $5C64
  120. jp $5C78
  121. jp $5C8B
  122. jp $5C9E
  123. jp $5CC5
  124. jp $5CEE
  125. jp $5D15
  126. jp $5D4C
  127. jp $5D82
  128. jp $5DB9
  129. jp $5DF1
  130. jp $5E2B
  131. jp $5E6E
  132. jp $5E97
  133. jp $5EB7
  134. jp $5EB8
  135. jp $5EB9
  136. jp $5EBA
  137. jp $5EC0
  138. jp $5F12
  139. jp $5F55
  140. jp $5F5C
  141. jp $5F63
  142. jp $5F6A
  143. jp $5F71
  144. jp $5F78
  145. jp $5F7F
  146. jp $5F86
  147. jp $5F8D
  148. jp $5F94
  149. jp $5F99
  150. jp $5FA5
  151. jp $5FB0
  152. jp $6049
  153. jp $610D
  154. jp $6118
  155. jp $612C
  156. jp $614B
  157. jp $61EF
  158. jp $6212
  159. jp $621E
  160. jp $6231
  161. jp $6245
  162. jp $6259
  163. jp $626D
  164. jp $626F
  165. jp $6272
  166. jp $6281
  167. jp $6292
  168. jp $62A0
  169. jp $62AE
  170. jp $62D4
  171. jp $62EE
  172. jp $6308
  173. jp $6321
  174. jp $6333
  175. jp $6344
  176. jp $634A
  177. jp $635B
  178. jp $635E
  179. jp $6363
  180. jp $6368
  181. jp $6393
  182. jp $6393
  183. jp $63B3
  184. jp $63BF
  185. jp $63CF
  186. jp $63D5
  187. jp $63F6
  188. jp $6402
  189. jp $6408
  190. jp $6408
  191. jp $642E
  192. jp $6448
  193. jp $6462
  194. jp $647B
  195. jp $648D
  196. jp $649E
  197. jp $64A4
  198. jp $64B5
  199. jp $64D0
  200. jp $64D1
  201. jp $64D8
  202. jp $64F0
  203. jp $64F1
  204. jp $64F8
  205. jp $650C
  206. jp $6510
  207. jp $6514
  208. jp $653C
  209. jp $6570
  210. jp $6594
  211. jp $65B9
  212. jp $65D3
  213. jp $65EE
  214. jp $65FC
  215. add a,e
  216. di
  217. ld ($999F),sp
  218. ld sp,39784
  219. push af
  220. push hl
  221. push de
  222. push bc
  223. ld sp,($999F)
  224. sbc a,a
  225. sbc a,c
  226. ld de,24845
  227. push de
  228. or a
  229. ret z
  230. push hl
  231. ld hl,46517
  232. sbc hl,bc
  233. pop hl
  234. ret nz
  235. ld a,l
  236. dec a
  237. or h
  238. jr nz,$05
  239. ld a,(33912)
  240. or a
  241. ret nz
  242. ld($999B),hl
  243. push hl
  244. rst 18h
  245. rst 08h
  246. pop hl
  247. rst 28h
  248. sbc a,a
  249. ld b,e
  250. ld hl,($9824)
  251. inc hl
  252. ld($999D),hl
  253. ld hl,20814
  254. ld($9991),hl
  255. ld a,195
  256. ld($9990),a
  257. ld($9998),a
  258. ld hl,26136
  259. ld($9999),hl
  260. call 39312
  261. ld hl,($999B)
  262. jp z, $502E
  263. inc e
  264. ld b,e
  265. ld hl,17197
  266. push hl
  267. djnz $05
  268. res 5,(iy+53)
  269. ret
  270. djnz $04
  271. rst 28h
  272. ld (hl),b
  273. ld b,l
  274. ret
  275. djnz $09
  276. ld hl,20688
  277. in a,($06)
  278. rst 28h
  279. call po,51535
  280. djnz $19
  281. call 39312
  282. and 15
  283. add a,a
  284. add a,e
  285. add a,a
  286. add a,e
  287. ld d,0
  288. ld e,a
  289. ld hl,35386
  290. add hl,de
  291. push hl
  292. call 22631
  293. pop hl
  294. ex de,hl
  295. ldir
  296. ret
  297. djnz $24
  298. call 39312
  299. and 15
  300. add a,a
  301. add a,e
  302. add a,a
  303. add a,e
  304. ld d,0
  305. ld e,a
  306. ld hl,35386
  307. add hl,de
  308. push hl
  309. call 39312
  310. and 15
  311. add a,a
  312. add a,e
  313. add a,a
  314. add a,e
  315. ld b,0
  316. ld c,a
  317. call 20732
  318. pop hl
  319. ldir
  320. ret
  321. djnz $18
  322. call 22631
  323. ld h,d
  324. ld l,e
  325. srl b
  326. rr c
  327. push bc
  328. dec hl
  329. ld (hl),b
  330. dec hl
  331. ld (hl),c
  332. inc hl
  333. inc hl
  334. call 20788
  335. pop de
  336. rst 28h
  337.         ld d,a
  338. ld b,e
  339. ret
  340. djnz $1E
  341. call 22631
  342. ex de,hl
  343. dec hl
  344. dec hl
  345. ld e,(hl)
  346. sla (hl)
  347. inc hl
  348. ld d,(hl)
  349. rl (hl)
  350. inc hl
  351. add hl,de
  352. ex de,hl
  353. push hl
  354. rst 28h
  355. rst 30h
  356. ld b,d
  357. pop hl
  358. ld b,h
  359. ld c,l
  360. add hl,de
  361. ex de,hl
  362. dec hl
  363. dec de
  364. jp $5128
  365. djnz $29
  366. call 22631
  367. ex de,hl
  368. dec hl
  369. dec hl
  370. ld e,(hl)
  371. inc hl
  372. ld d,(hl)
  373. inc hl
  374. add hl,de
  375. dec hl
  376. ld de,34183
  377. ld bc,64
  378. call 20776
  379. ld hl,0
  380. ld($844B),hl
  381. ld a,127
  382. ld (de),a
  383. ex de,hl
  384. rst 28h
  385. djnz $45
  386. ld a,(34183)
  387. rst 28h
  388. ld bc,51525
  389. djnz $0D
  390. ld bc,64
  391. call 20732
  392. ex de,hl
  393. ld de,34056
  394. jp $5134
  395. djnz $28
  396. call 39312
  397. and 7
  398. add a,a
  399. add a,a
  400. add a,a
  401. add a,a
  402. push af
  403. call 39312
  404. and 15
  405. pop bc
  406. add a,b
  407. ld b,0
  408. ld c,a
  409. ld hl,34056
  410. add hl,bc
  411. ld a,(hl)
  412. sub 48
  413. cp 10
  414. jr c, $02
  415. sub 7
  416. ld l,a
  417. ld h,0
  418. rst 28h
  419. sub d
  420. ld b,a
  421. ret
  422. djnz $1E
  423. call 39312
  424. and 127
  425. jp z, $5F55
  426. cpl
  427. ld b,a
  428. xor a
  429. dec a
  430. out ($01),a
  431. ld a,b
  432. out ($01),a
  433. in a,($01)
  434. cpl
  435. bit 7,e
  436. jr nz,$03
  437. or a
  438. jr z,$F0
  439. jp $442C
  440. djnz $1B
  441. call 39312
  442. push de
  443. call 39151
  444. pop de
  445. add hl,de
  446. call 22707
  447. push hl
  448. push af
  449. call 39312
  450. ld b,d
  451. ld c,e
  452. call 20732
  453. pop af
  454. pop hl
  455. jp $98CD
  456. djnz $13
  457. call 39312
  458. push de
  459. call 39151
  460. pop de
  461. add hl,de
  462. or a
  463. ret nz
  464. push hl
  465. call 22631
  466. pop hl
  467. jp $58A9
  468. djnz $0E
  469. call 20980
  470. call 22631
  471. push de
  472. call 22631
  473. pop hl
  474. jp $507C
  475. djnz $13
  476. call 39151
  477. push hl
  478. call 39312
  479. pop hl
  480. add hl,de
  481. push hl
  482. call 39312
  483. pop hl
  484. ld a,(hl)
  485. ld (hl),e
  486. jp $442C
  487. djnz $0D
  488. call 39151
  489. push hl
  490. call 39312
  491. pop hl
  492. add hl,de
  493. ld a,(hl)
  494. jp $442C
  495. djnz $5D
  496. call 39312
  497. ld($84B2),a
  498. call 39151
  499. push af
  500. push hl
  501. call 39312
  502. pop hl
  503. add hl,de
  504. pop af
  505. ld de,32768
  506. call 24577
  507. nop
  508. call 52632
  509. rst 28h
  510. sbc a,b
  511. ld($84AE),a
  512. push hl
  513. call 39312
  514. pop hl
  515. add hl,de
  516. ld($84B0),hl
  517. call 39312
  518. rrca
  519. push af
  520. jr nc, $0C
  521. ld hl,32815
  522. ld de,32863
  523. ld bc,48
  524. call 25590
  525. pop af
  526. rrca
  527. jr c, $1A
  528. ld a,(33966)
  529. ld hl,($84B0)
  530. ld de,37696
  531. xor a
  532. ld($84AE),a
  533. ld ($84B0),de
  534. ld bc,768
  535. call 39117
  536. call 25551
  537. jp $6408
  538. djnz $17
  539. call 39312
  540. ld a,128
  541. add a,d
  542.         ld d,a
  543. push de
  544. call 22631
  545. pop hl
  546. ld a,(de)
  547. ldi
  548. dec hl
  549. ld (hl),a
  550. inc hl
  551. ld a,b
  552. or c
  553. jr nz,$F6
  554. ret
  555. djnz $10
  556. call 39312
  557. ld a,128
  558. add a,d
  559.         ld d,a
  560. push de
  561. call 39312
  562. ld b,d
  563. ld c,e
  564. jp $438E
  565. djnz $11
  566. call 39312
  567. ld a,128
  568. add a,d
  569.         ld d,a
  570. push de
  571. call 39312
  572. pop hl
  573. ld a,(hl)
  574. ld (hl),e
  575. jp $442C
  576. djnz $0B
  577. call 39312
  578. ld a,128
  579. add a,d
  580.         ld d,a
  581. ld a,(de)
  582. jp $442C
  583. djnz $0F
  584. call 39151
  585. push af
  586. push hl
  587. push bc
  588. call 20732
  589. pop bc
  590. pop hl
  591. pop af
  592. jp $98CD
  593. djnz $11
  594. call 22631
  595. srl b
  596. rr c
  597. ld hl,34540
  598. push hl
  599. call 20788
  600. ld (hl),201
  601. ret
  602. djnz $0E
  603. call 22631
  604. ex de,hl
  605. ld de,34540
  606. push de
  607. ldir
  608. ex de,hl
  609. ld (hl),201
  610. ret
  611. djnz $23
  612. call 39312
  613. push af
  614. call 39312
  615. push af
  616. call 39312
  617. and 63
  618. push af
  619. call 39312
  620. and 15
  621. push af
  622. call 22631
  623. pop hl
  624. pop af
  625. ld l,a
  626. pop bc
  627. pop af
  628. ld c,a
  629. call 21057
  630. jp $5217
  631. djnz $0A
  632. call 39312
  633. push af
  634. call 39151
  635. pop af
  636. ld (de),a
  637. ret
  638. djnz $1F
  639. rst 28h
  640. ld l,a
  641. ld c,h
  642. cp 1
  643. jr c, $0C
  644. ld a,b
  645. cp 30
  646. jr c, $07
  647. rst 28h
  648. ld hl,61266
  649. adc a,a
  650. ld b,a
  651. ret
  652. rst 28h
  653. cp h
  654.         ld b,c
  655. rst 28h
  656. or e
  657. ld d,b
  658. jr z,$03
  659. rst 28h
  660. sub l
  661.         ld b,c
  662. ret
  663. djnz $0B
  664. ld hl,33863
  665. ld a,(hl)
  666. add a,217
  667. ret c
  668. inc (hl)
  669. out ($10),a
  670. ret
  671. djnz $0D
  672. ld hl,33863
  673. ld a,(hl)
  674. ld b,215
  675. add a,b
  676. cp b
  677. ret c
  678. dec (hl)
  679. out ($10),a
  680. ret
  681. djnz $3E
  682. ld hl,37696
  683. ld($84B6),hl
  684. call 39312
  685. push de
  686. call 39312
  687. push af
  688. dec a
  689. cp 96
  690. jp nc,$5F8D
  691. call 39312
  692. push de
  693. call 39312
  694. push af
  695. dec a
  696. cp 64
  697. jp nc,$5F94
  698. call 39312
  699. pop af
  700. pop bc
  701. ld b,a
  702. add a,c
  703. dec a
  704. cp 64
  705. jp nc,$5F94
  706. pop af
  707. pop hl
  708. ld h,a
  709. add a,l
  710. dec a
  711. cp 96
  712. jp nc,$5F8D
  713. ex de,hl
  714. ld a,l
  715. jp $5BBF
  716. djnz $06
  717. ld hl,37696
  718. jp $59B3
  719. djnz $13
  720. call 39312
  721. ld($844B),a
  722. call 39312
  723. ld($844C),a
  724. call 39312
  725. rst 28h
  726. ld bc,51525
  727. djnz $11
  728. call 39312
  729. cp 39
  730. jr c, $02
  731. ld a,39
  732. ld($8447),a
  733. add a,216
  734. out ($10),a
  735. ret
  736. djnz $12
  737. call 39312
  738. push af
  739. call 39312
  740. ld hl,35312
  741. pop af
  742. add hl,de
  743. ld b,(hl)
  744. ld (hl),a
  745. ld a,b
  746. jp $442C
  747. djnz $0B
  748. call 39312
  749. ld hl,35312
  750. add hl,de
  751. ld a,(hl)
  752. jp $442C
  753. djnz $33
  754. call 20998
  755. ld de,37696
  756. add hl,de
  757. push hl
  758. call 39312
  759. push af
  760. call 39312
  761. pop af
  762. push af
  763. push de
  764. call 20801
  765. ld b,h
  766. ld c,l
  767. call 20732
  768. pop bc
  769.         ld b,c
  770. pop af
  771. pop hl
  772. ld (de),a
  773. ld a,12
  774. sub b
  775. ld c,a
  776. ld a,(de)
  777. push bc
  778. push af
  779. ld a,(hl)
  780. ld (de),a
  781. inc de
  782. inc hl
  783. djnz $FA
  784. add hl,bc
  785. pop af
  786. pop bc
  787. dec a
  788. jr nz,$F2
  789. ret
  790. djnz $64
  791. call 39312
  792. push af
  793. call 39312
  794. ld h,a
  795. ld l,96
  796. ld($8479),hl
  797. xor a
  798. ld($847B),a
  799. pop af
  800. or a
  801. jr nz,$16
  802. rst 10h
  803. ret c
  804. ld a,b
  805. inc de
  806. inc de
  807. ex de,hl
  808. or a
  809. jr z,$04
  810. ld de,12
  811. add hl,de
  812. ld de,37696
  813. ld bc,768
  814. jp $98CD
  815. cp 3
  816. jr nc, $20
  817. push af
  818. rst 10h
  819. jr c, $03
  820. rst 28h
  821. add a,79
  822. pop af
  823. cp 2
  824. ret z
  825. rst 28h
  826. inc sp
  827. ld b,e
  828. ex de,hl
  829. ld (hl),0
  830. inc hl
  831. ld (hl),3
  832. inc hl
  833. ex de,hl
  834. ld hl,12
  835. rst 28h
  836. rst 30h
  837. ld b,d
  838. ex de,hl
  839. jp $59B3
  840. sub 3
  841. push af
  842. rst 10h
  843. jr nc, $02
  844. pop bc
  845. ret
  846. ld a,b
  847. or a
  848. jr z,$02
  849. ld a,1
  850. pop bc
  851. xor b
  852. ret z
  853. rst 28h
  854. ret c
  855. ld c,a
  856. ret
  857. djnz $1C
  858. call 39312
  859. ld($844B),a
  860. call 39312
  861. ld($844C),a
  862. call 22631
  863. ex de,hl
  864. dec hl
  865. push hl
  866. ld a,(hl)
  867. ld (hl),c
  868. push af
  869. rst 28h
  870. djnz $45
  871. pop af
  872. pop hl
  873. ld (hl),a
  874. ret
  875. djnz $41
  876. call 39312
  877. push de
  878. call 39312
  879. ld h,d
  880. ld l,e
  881. add hl,hl
  882. add hl,hl
  883. add hl,hl
  884. add hl,de
  885. push hl
  886. call 22631
  887. ex de,hl
  888.         ld b,c
  889. ld de,33913
  890. call 20658
  891. inc c
  892. inc c
  893. ld hl,23809
  894. ld($8478),hl
  895. xor a
  896. ld (de),a
  897. push bc
  898. rst 28h
  899. pop af
  900. ld b,d
  901. ld a,b
  902. pop bc
  903. call 39154
  904. pop de
  905. add hl,de
  906. pop de
  907. push hl
  908. push af
  909. call 20492
  910. ld h,b
  911. ld l,c
  912. add hl,hl
  913. add hl,hl
  914. add hl,hl
  915. add hl,bc
  916. ld b,h
  917. ld c,l
  918. pop af
  919. pop hl
  920. jp $98CD
  921. djnz $0A
  922. call 39312
  923. and 63
  924. add a,64
  925. out ($10),a
  926. ret
  927. dec b
  928. jp z, $5261
  929. djnz $1E
  930. call 39151
  931. push af
  932. push de
  933. push bc
  934. ld de,3
  935. call 20492
  936. pop hl
  937. call 20432
  938. pop hl
  939. lh l,(hl)
  940. ld h,0
  941. call 20432
  942. pop af
  943. ld h,0
  944. ld l,a
  945. jp $4FD0
  946. djnz $07
  947. rst 28h
  948. rst 10h
  949. ld c,d
  950. rst 28h
  951. adc a,a
  952. ld b,a
  953. ret
  954. djnz $07
  955. call 24338
  956. rst 28h
  957. sub d
  958. ld b,a
  959. ret
  960. djnz $16
  961. call 39312
  962. ld ($997A),de
  963. call 22631
  964. ex de,hl
  965. ld d,b
  966. ld e,c
  967. call 22906
  968. dec de
  969. ld a,d
  970. or e
  971. jr nz,$F8
  972. ret
  973. djnz $1F
  974. call 39312
  975. and 7
  976. ld l,a
  977. ld h,0
  978. add hl,hl
  979. add hl,hl
  980. add hl,hl
  981. add hl,hl
  982. push hl
  983. call 39312
  984. and 15
  985. ld d,0
  986. ld e,a
  987. pop hl
  988. add hl,de
  989. ld de,34056
  990. add hl,de
  991. ld a,(hl)
  992. jp $442C
  993. djnz $25
  994. ld de,2
  995. call 20492
  996. push de
  997. call 39312
  998. push de
  999. call 39312
  1000. pop bc
  1001. in l,(c)
  1002. out (c),a
  1003. call 11
  1004. in c,(c)
  1005. ld b,0
  1006. ld h,0
  1007. pop de
  1008. push bc
  1009. call 20432
  1010. pop hl
  1011. jp $4FD0
  1012. djnz $09
  1013. call 39312
  1014. ld c,a
  1015. in a,(c)
  1016. jp $442C
  1017. djnz $09
  1018. in a,($06)
  1019. ld hl,22956
  1020. rst 28h
  1021. ld h,(hl)
  1022. ld c,a
  1023. ret
  1024. djnz $15
  1025. call 39312
  1026. ld($9976),a
  1027. call 39312
  1028. ld($9977),a
  1029. in a,($06)
  1030. ld hl,22967
  1031. rst 28h
  1032. ld h,(hl)
  1033. ld c,a
  1034. ret
  1035. djnz $05
  1036. res 1,(iy+54)
  1037. ret
  1038. djnz $05
  1039. res 5,(iy+52)
  1040. ret
  1041. djnz $11
  1042. call 22631
  1043. ld hl,34540
  1044. srl b
  1045. rr c
  1046. push hl
  1047. push bc
  1048. call 20788
  1049. jr $07
  1050. djnz $33
  1051. call 22631
  1052. push de
  1053. push bc
  1054. call 39312
  1055. pop hl
  1056. dec a
  1057. cp 64
  1058. jp nc,$5F8D
  1059. inc a
  1060. ld c,a
  1061. call 20513
  1062. or a
  1063. jr z,$01
  1064. inc l
  1065. ld a,l
  1066. dec a
  1067. and 63
  1068. inc a
  1069. jp z, $5F71
  1070. ld b,a
  1071. push bc
  1072. call 20998
  1073. ld de,37696
  1074. add hl,de
  1075. push hl
  1076. call 39312
  1077. pop hl
  1078. pop bc
  1079. pop de
  1080. jp $6212
  1081. djnz $3B
  1082. call 39312
  1083. ld($84B2),a
  1084. call 39312
  1085. push de
  1086. ld a,d
  1087. or e
  1088. jp z, $5F55
  1089. call 39151
  1090. pop bc
  1091. push bc
  1092. push af
  1093. ld a,(33970)
  1094. ld e,a
  1095. pop af
  1096. ld($84B0),a
  1097. call 39067
  1098. ld ($84AE),bc
  1099. pop bc
  1100. dec bc
  1101. ld a,b
  1102. or c
  1103. ld a,(33968)
  1104. jr nz,$E6
  1105. push de
  1106. ld bc,($84AE)
  1107. xor (hl)
  1108. add a,h
  1109. push af
  1110. call 20732
  1111. pop af
  1112. pop hl
  1113. jp $98CD
  1114. djnz $55
  1115. ld a,d
  1116. cp 55
  1117. jp z, $4F63
  1118. call 39312
  1119. push af
  1120. call 39312
  1121. ld hl,39254
  1122. ld (hl),e
  1123. inc hl
  1124. ld (hl),d
  1125. inc hl
  1126. push hl
  1127. call 22631
  1128. pop hl
  1129. ld (hl),c
  1130. inc hl
  1131. ld (hl),b
  1132. inc hl
  1133. ex de,hl
  1134. ld a,c
  1135. ldir
  1136. cp 8
  1137. jr z,$02
  1138. xor a
  1139. ld (de),a
  1140. in a,($06)
  1141. pop bc
  1142. inc b
  1143. djnz $05
  1144. ld hl,22745
  1145. jr $1F
  1146. djnz $05
  1147. ld hl,22636
  1148. jr $18
  1149. djnz $05
  1150. ld hl,20536
  1151. jr $11
  1152. djnz $05
  1153. ld hl,24556
  1154. jr $0A
  1155. djnz $05
  1156. ld hl,24670
  1157. jr $03
  1158. ld hl,24763
  1159. rst 28h
  1160. call po,51535
  1161. dec b
  1162. jp nz,$4A44
  1163. ld hl,37696
  1164. ld($84B6),hl
  1165. call 39312
  1166. push af
  1167. cp 4
  1168. jr nc, $14
  1169. call 39312
  1170. push de
  1171. call 39312
  1172. pop bc
  1173. ld b,a
  1174. call 25071
  1175. push af
  1176. push hl
  1177. and (hl)
  1178. call 17452
  1179. pop hl
  1180. pop af
  1181. pop bc
  1182. inc b
  1183. dec b
  1184. ret z
  1185. djnz $04
  1186. cpl
  1187. and (hl)
  1188. ld (hl),a
  1189. ret
  1190. djnz $03
  1191. or (hl)
  1192. ld (hl),a
  1193. ret
  1194. djnz $03
  1195. xor (hl)
  1196. ld (hl),a
  1197. ret
  1198. djnz $0F
  1199. xor a
  1200. ld de,($84B6)
  1201. or (hl)
  1202. add a,h
  1203. ld (de),a
  1204. ld h,d
  1205. ld l,e
  1206. inc de
  1207. ld bc,767
  1208. ldir
  1209. ret
  1210. djnz $10
  1211. ld a,255
  1212. ld de,($84B6)
  1213. or (hl)
  1214. add a,h
  1215. ld (de),a
  1216. ld h,d
  1217. ld l,e
  1218. inc de
  1219. ld bc,767
  1220. ldir
  1221. ret
  1222. djnz $10
  1223. ld hl,($84B6)
  1224. ld bc,768
  1225. ld a,(hl)
  1226. cpl
  1227. ld (hl),a
  1228. inc hl
  1229. dec bc
  1230. ld a,b
  1231. or c
  1232. jr nz,$F7
  1233. ret
  1234. ld a,b
  1235. cp 7
  1236. jr nc, $30
  1237. push bc
  1238. call 39312
  1239. pop bc
  1240. ld a,b
  1241. cp 4
  1242. jr nc, $0D
  1243. ld h,d
  1244. ld l,e
  1245. add hl,hl
  1246. add hl,de
  1247. add hl,hl
  1248. add hl,hl
  1249. ld de,($84B6)
  1250. or (hl)
  1251. add a,h
  1252. add hl,de
  1253. jr $19
  1254. ld hl,($84B6)
  1255. push af
  1256. ld a,e
  1257. rrca
  1258. rrca
  1259. rrca
  1260. and 15
  1261. ld c,a
  1262. ld a,e
  1263. ld b,0
  1264. add hl,bc
  1265. and 7
  1266. ld b,a
  1267. inc b
  1268. ld a,1
  1269. rrca
  1270. djnz $FD
  1271. pop bc
  1272. djnz $0B
  1273. xor a
  1274. ld (hl),a
  1275. ld d,h
  1276. ld e,l
  1277. inc de
  1278. ld bc,11
  1279. ldir
  1280. ret
  1281. djnz $0C
  1282. ld a,255
  1283. ld (hl),a
  1284. ld d,h
  1285. ld e,l
  1286. inc de
  1287. ld bc,11
  1288. ldir
  1289. ret
  1290. djnz $09
  1291. ld b,12
  1292. ld a,(hl)
  1293. cpl
  1294. ld (hl),a
  1295. inc hl
  1296. djnz $FA
  1297. ret
  1298. djnz $0E
  1299. cpl
  1300. ld b,64
  1301. ld de,12
  1302. ld c,a
  1303. and (hl)
  1304. ld (hl),a
  1305. add hl,de
  1306. ld a,c
  1307. djnz $F9
  1308. ret
  1309. djnz $0D
  1310. ld b,64
  1311. ld de,12
  1312. ld c,a
  1313. or (hl)
  1314. ld (hl),a
  1315. add hl,de
  1316. ld a,c
  1317. djnz $F9
  1318. ret
  1319. djnz $0D
  1320. ld b,64
  1321. ld de,12
  1322. ld c,a
  1323. xor (hl)
  1324. ld (hl),a
  1325. add hl,de
  1326. ld a,c
  1327. djnz $F9
  1328. ret
  1329. ret
  1330. djnz $23
  1331. ld bc,10
  1332. call 20732
  1333. ld a,58
  1334. ld hl,16515
  1335. ex de,hl
  1336. ld (hl),52
  1337. inc hl
  1338. ld (hl),a
  1339. inc hl
  1340. ex de,hl
  1341. ldi
  1342. ldi
  1343. ld (de),a
  1344. inc de
  1345. ldi
  1346. ldi
  1347. ld (de),a
  1348. inc de
  1349. ldi
  1350. ldi
  1351. ret
  1352. djnz $2F
  1353. call 39312
  1354. or a
  1355. jp z, $5F55
  1356. push de
  1357. call 39312
  1358. pop bc
  1359. ld b,4
  1360. push bc
  1361. rrca
  1362. push af
  1363. ld a,c
  1364. call c,25262
  1365. pop af
  1366. pop bc
  1367. push bc
  1368. rrca
  1369. push af
  1370. ld a,c
  1371. call c,25608
  1372. pop af
  1373. pop bc
  1374. push bc
  1375. rrca
  1376. push af
  1377. ld a,c
  1378. call c,25781
  1379. pop af
  1380. pop bc
  1381. rrca
  1382. ld a,c
  1383. call c,25816
  1384. ret
  1385. djnz $60
  1386. call 22631
  1387. ld a,b
  1388. or b
  1389. jp nz,$5F71
  1390. sra c
  1391. ld a,c
  1392. cp 32
  1393. jp nc,$5F71
  1394. ld hl,34540
  1395. push bc
  1396. call 20788
  1397. call 39312
  1398. ld d,0
  1399. ld ($84AE),de
  1400. dec a
  1401. cp 32
  1402. jp nc,$5F55
  1403. call 39312
  1404. pop bc
  1405. push af
  1406. ld hl,34540
  1407. ld de,35307
  1408. push bc
  1409. push de
  1410. ld a,(33966)
  1411. ld e,a
  1412. call 25448
  1413. pop de
  1414. ld (de),a
  1415. dec de
  1416. ld a,c
  1417. pop bc
  1418. jr z,$04
  1419. inc b
  1420. ld c,a
  1421. jr $EC
  1422. inc b
  1423. ld c,b
  1424. ld b,0
  1425. inc de
  1426. push de
  1427. call 20732
  1428. pop hl
  1429. pop af
  1430. ld a,(hl)
  1431. cp 10
  1432. jr c, $02
  1433. add a,7
  1434. add a,48
  1435. ld (hl),a
  1436. ldi
  1437. jp pe,$4AEC
  1438. ret
  1439. djnz $22
  1440. call 22631
  1441. inc de
  1442. ld a,(de)
  1443. cp 235
  1444. jr nz,$03
  1445. ld a,93
  1446. ld (de),a
  1447. dec de
  1448. ex de,hl
  1449.         ld b,c
  1450. ld de,33912
  1451. call 20658
  1452. xor a
  1453. ld (de),a
  1454. inc de
  1455. ld (de),a
  1456. rst 28h
  1457. pop af
  1458. ld b,d
  1459. ld a,b
  1460. ret c
  1461. rst 28h
  1462. add a,79
  1463. ret
  1464. djnz $06
  1465. call 25535
  1466. jp $460A
  1467. djnz $06
  1468. call 25535
  1469. jp $4952
  1470. djnz $4E
  1471. call 39312
  1472. ld b,a
  1473. ld c,96
  1474. call 22842
  1475. call c,24419
  1476. ex de,hl
  1477. inc hl
  1478. inc hl
  1479. ld a,b
  1480. or a
  1481. jr z,$04
  1482. ld bc,12
  1483. add hl,bc
  1484. push af
  1485. push hl
  1486. call 39312
  1487. ld h,d
  1488. ld l,e
  1489. add hl,de
  1490. add hl,de
  1491. add hl,hl
  1492. add hl,hl
  1493. pop de
  1494. add hl,de
  1495. push hl
  1496. call 39312
  1497. pop hl
  1498. rrca
  1499. rrca
  1500. rrca
  1501. and 31
  1502. ld c,a
  1503. ld b,0
  1504. add hl,bc
  1505. ld a,e
  1506. and 7
  1507. inc a
  1508. pop bc
  1509. push af
  1510. ld a,b
  1511. ld de,34540
  1512. push de
  1513. ld bc,1
  1514. call 39117
  1515. pop hl
  1516. pop bc
  1517. ld a,1
  1518. rrca
  1519. djnz $FD
  1520. and (hl)
  1521. jp $442C
  1522. djnz $1E
  1523. call 39151
  1524. push af
  1525. push hl
  1526. push bc
  1527. call 25491
  1528. jr c, $03
  1529. rst 28h
  1530. add a,79
  1531. pop hl
  1532. push hl
  1533. ld a,(33912)
  1534. rst 28h
  1535. ld (hl),b
  1536. ld c,(hl)
  1537. inc de
  1538. inc de
  1539. pop bc
  1540. pop hl
  1541. pop af
  1542. jp $98CD
  1543. djnz $0C
  1544. ld c,1
  1545. call 20732
  1546. push de
  1547. call 39312
  1548. pop hl
  1549. ld (hl),a
  1550. ret
  1551. djnz $07
  1552. call 22631
  1553. ld a,(de)
  1554. jp $442C
  1555. djnz $41
  1556. call 22624
  1557. cp 13
  1558. jr nz,$06
  1559. sla c
  1560. rl b
  1561. jr $1F
  1562. cp 1
  1563. jr z,$1B
  1564. cp 4
  1565. ret nz
  1566. push de
  1567. ld d,b
  1568. ld e,c
  1569. call 20492
  1570. pop hl
  1571. push bc
  1572. push hl
  1573. lh l,(hl)
  1574. ld h,0
  1575. call 20432
  1576. pop hl
  1577. pop bc
  1578. dec bc
  1579. inc hl
  1580. ld a,b
  1581. or c
  1582. jr nz,$F0
  1583. ret
  1584. push de
  1585. call 20732
  1586. pop hl
  1587. inc hl
  1588. push bc
  1589. push de
  1590. call 20877
  1591. pop de
  1592. ld (de),a
  1593. pop bc
  1594. inc de
  1595. dec bc
  1596. ld a,b
  1597. or c
  1598. jr nz,$F2
  1599. ret
  1600. djnz $08
  1601. call 39312
  1602. ld b,d
  1603. ld c,e
  1604. jp $50FC
  1605. dec b
  1606. jp nz,$4C8C
  1607. call 39312
  1608. ld a,92
  1609. ld($8479),a
  1610. ld d,0
  1611. ld ($847A),de
  1612. rst 10h
  1613. ld a,b
  1614. ld bc,3
  1615. call 39154
  1616. ld ($84AE),bc
  1617. push af
  1618. push hl
  1619. call 39312
  1620. ld h,d
  1621. ld l,e
  1622. add hl,hl
  1623. add hl,hl
  1624. add hl,hl
  1625. add hl,de
  1626. pop de
  1627. add hl,de
  1628. push hl
  1629. call 39312
  1630. ld hl,($84AE)
  1631. ld h,0
  1632. ld d,h
  1633. ld e,l
  1634. add hl,hl
  1635. add hl,hl
  1636. add hl,hl
  1637. add hl,de
  1638. call 20800
  1639. pop de
  1640. add hl,de
  1641. push hl
  1642. call 39312
  1643. or a
  1644. jp z, $5F55
  1645. push de
  1646. ld h,d
  1647. ld l,e
  1648. add hl,hl
  1649. add hl,hl
  1650. add hl,hl
  1651. add hl,de
  1652. ld($84B0),hl
  1653. ld hl,($84AE)
  1654. ld l,a
  1655. ld a,h
  1656. sub l
  1657. ld h,0
  1658. ld l,a
  1659. ld d,h
  1660. ld e,l
  1661. add hl,hl
  1662. add hl,hl
  1663. add hl,hl
  1664. add hl,de
  1665. ld($84B2),hl
  1666. call 39312
  1667. or a
  1668. jp z, $5F55
  1669. pop bc
  1670. ld b,a
  1671. push af
  1672. call 25848
  1673. pop bc
  1674. pop hl
  1675. pop af
  1676. push bc
  1677. call 22707
  1678. ld bc,($84B0)
  1679. or b
  1680. add a,h
  1681. call 39117
  1682. ld a,b
  1683. ld bc,($84B2)
  1684. or d
  1685. add a,h
  1686. add hl,bc
  1687. pop bc
  1688. djnz $EC
  1689. ret
  1690. djnz $0F
  1691. call 39312
  1692. ld ($997A),de
  1693. call 39312
  1694. or a
  1695. ret z
  1696. jp $597C
  1697. djnz $3E
  1698. call 39312
  1699. rrca
  1700. push af
  1701. and 3
  1702. inc a
  1703. push af
  1704. call 39312
  1705. pop af
  1706. push af
  1707. push de
  1708. cp 4
  1709. jr z,$03
  1710. call 39312
  1711. pop hl
  1712. pop bc
  1713. ld a,h
  1714. djnz $05
  1715. and d
  1716. ld h,a
  1717. ld a,l
  1718. and e
  1719. ld l,a
  1720. djnz $05
  1721. xor d
  1722. ld h,a
  1723. ld a,l
  1724. xor e
  1725. ld l,a
  1726. djnz $05
  1727. or d
  1728. ld h,a
  1729. ld a,l
  1730. or e
  1731. ld l,a
  1732. djnz $05
  1733. cpl
  1734. ld h,a
  1735. ld a,l
  1736. cpl
  1737. ld l,a
  1738. pop af
  1739. jr nc, $02
  1740. ld h,0
  1741. rst 28h
  1742. sub d
  1743. ld b,a
  1744. ret
  1745. djnz $1D
  1746. call 25872
  1747. push hl
  1748. push af
  1749. ld d,0
  1750. ld e,c
  1751. ld a,b
  1752. call 20801
  1753. push hl
  1754. ex de,hl
  1755. call 20492
  1756. pop hl
  1757. add hl,hl
  1758. add hl,hl
  1759. add hl,hl
  1760. add hl,bc
  1761. ld b,h
  1762. ld c,l
  1763. pop af
  1764. pop hl
  1765. jp $98CD
  1766. djnz $12
  1767. call 25876
  1768. push hl
  1769. push af
  1770. call 39312
  1771. ld b,d
  1772. ld c,e
  1773. call 20732
  1774. pop af
  1775. pop hl
  1776. jp $98CD
  1777. djnz $1A
  1778. call 25876
  1779. push af
  1780. add hl,bc
  1781. push hl
  1782. call 39312
  1783. pop hl
  1784. sbc hl,de
  1785. push hl
  1786. ld b,d
  1787. ld c,e
  1788. call 20732
  1789. pop hl
  1790. pop af
  1791. call 22707
  1792. jp $98CD
  1793. djnz $18
  1794. call 25876
  1795. push af
  1796. push hl
  1797. call 39312
  1798. pop hl
  1799. add hl,de
  1800. push hl
  1801. call 39312
  1802. ld b,d
  1803. ld c,e
  1804. call 20732
  1805. pop hl
  1806. pop af
  1807. jp $98CD
  1808. djnz $4C
  1809. sbc hl,hl
  1810. ld($84AE),hl
  1811. call 25872
  1812. push af
  1813. push hl
  1814. ld b,0
  1815. ld h,b
  1816. ld l,c
  1817. add hl,hl
  1818. add hl,hl
  1819. add hl,hl
  1820. add hl,bc
  1821. push hl
  1822. ld de,($84AE)
  1823. xor (hl)
  1824. add a,h
  1825. add hl,de
  1826. ld($84AE),hl
  1827. call 39312
  1828. pop de
  1829. call 20801
  1830. pop bc
  1831. add hl,bc
  1832. push hl
  1833. call 39312
  1834. ld h,d
  1835. ld l,e
  1836. add hl,hl
  1837. add hl,hl
  1838. add hl,hl
  1839. add hl,de
  1840. pop de
  1841. add hl,de
  1842. push hl
  1843. call 39312
  1844. push af
  1845. call 20492
  1846. pop bc
  1847. inc b
  1848. pop hl
  1849. pop af
  1850. push bc
  1851. ld bc,9
  1852. call 39117
  1853. ld bc,($84AE)
  1854. xor (hl)
  1855. add a,h
  1856. add hl,bc
  1857. pop bc
  1858. djnz $F1
  1859. ret
  1860. djnz $06
  1861. ld hl,65518
  1862. jp $4D4A
  1863. djnz $06
  1864. ld hl,65527
  1865. jp $4D4A
  1866. djnz $37
  1867. call 25872
  1868. push af
  1869. push hl
  1870. ld b,0
  1871. ld h,b
  1872. ld l,c
  1873. add hl,hl
  1874. add hl,hl
  1875. add hl,hl
  1876. add hl,bc
  1877. push hl
  1878. call 39312
  1879. pop de
  1880. call 20801
  1881. pop bc
  1882. add hl,bc
  1883. push hl
  1884. call 39312
  1885. ld h,d
  1886. ld l,e
  1887. add hl,hl
  1888. add hl,hl
  1889. add hl,hl
  1890. add hl,de
  1891. pop de
  1892. add hl,de
  1893. push hl
  1894. call 39312
  1895. call 20492
  1896. ld h,b
  1897. ld l,c
  1898. add hl,hl
  1899. add hl,hl
  1900. add hl,hl
  1901. add hl,bc
  1902. ld b,h
  1903. ld c,l
  1904. pop hl
  1905. pop af
  1906. jp $98CD
  1907. djnz $52
  1908. sbc hl,hl
  1909. ld($84AE),hl
  1910. call 25872
  1911. or a
  1912. jp nz,$5F78
  1913. push hl
  1914. ld b,0
  1915. ld h,b
  1916. ld l,c
  1917. add hl,hl
  1918. add hl,hl
  1919. add hl,hl
  1920. add hl,bc
  1921. push hl
  1922. ld de,($84AE)
  1923. xor (hl)
  1924. add a,h
  1925. add hl,de
  1926. ld($84AE),hl
  1927. call 39312
  1928. pop de
  1929. call 20801
  1930. pop bc
  1931. add hl,bc
  1932. push hl
  1933. call 39312
  1934. ld h,d
  1935. ld l,e
  1936. add hl,hl
  1937. add hl,hl
  1938. add hl,hl
  1939. add hl,de
  1940. pop de
  1941. add hl,de
  1942. push hl
  1943. call 25916
  1944. pop de
  1945. push af
  1946. ld a,b
  1947. or c
  1948. jp z, $5F6A
  1949. pop af
  1950.         ld b,c
  1951. push bc
  1952. ld bc,9
  1953. call 39117
  1954. ld bc,($84AE)
  1955. xor (hl)
  1956. add a,h
  1957. ex de,hl
  1958. add hl,bc
  1959. ex de,hl
  1960. pop bc
  1961. djnz $EF
  1962. ret
  1963. djnz $06
  1964. ld hl,65518
  1965. jp $4DE1
  1966. djnz $06
  1967. ld hl,65527
  1968. jp $4DE1
  1969. djnz $3F
  1970. call 25872
  1971. or a
  1972. jp nz,$5F78
  1973. push hl
  1974. ld b,0
  1975. ld h,b
  1976. ld l,c
  1977. add hl,hl
  1978. add hl,hl
  1979. add hl,hl
  1980. add hl,bc
  1981. push hl
  1982. call 39312
  1983. pop de
  1984. call 20801
  1985. pop bc
  1986. add hl,bc
  1987. push hl
  1988. call 39312
  1989. ld h,d
  1990. ld l,e
  1991. add hl,hl
  1992. add hl,hl
  1993. add hl,hl
  1994. add hl,de
  1995. pop de
  1996. add hl,de
  1997. push hl
  1998. call 25916
  1999. ex de,hl
  2000. push af
  2001. ld a,b
  2002. or c
  2003. jp z, $5F6A
  2004. pop af
  2005. ld h,b
  2006. ld l,c
  2007. add hl,hl
  2008. add hl,hl
  2009. add hl,hl
  2010. add hl,bc
  2011. ld b,h
  2012. ld c,l
  2013. ex de,hl
  2014. pop de
  2015. jp $98CD
  2016. djnz $2A
  2017. call 25876
  2018.         ld b,c
  2019. ld de,33912
  2020. call 20658
  2021. xor a
  2022. ld (de),a
  2023. inc de
  2024. ld (de),a
  2025. rst 28h
  2026. pop af
  2027. ld b,d
  2028. call c,24419
  2029. ld a,b
  2030. or a
  2031. jp nz,$5F78
  2032. ld hl,35320
  2033. ld a,(hl)
  2034. push hl
  2035. push af
  2036. set 1,(iy+8)
  2037. rst 28h
  2038. sbc a,e
  2039. ld c,d
  2040. pop af
  2041. pop hl
  2042. ld (hl),a
  2043. ret
  2044. djnz $16
  2045. ld hl,34279
  2046. xor a
  2047. ld e,a
  2048. call 39067
  2049. push de
  2050. call 20732
  2051. pop hl
  2052. push de
  2053. ldir
  2054. pop hl
  2055. ld a,(hl)
  2056. add a,64
  2057. ld (hl),a
  2058. ret
  2059. djnz $12
  2060. ld c,69
  2061. in l,(c)
  2062. inc c
  2063. in h,(c)
  2064. push hl
  2065. call 39312
  2066. pop hl
  2067. sbc hl,de
  2068. rst 28h
  2069. sub d
  2070. ld b,a
  2071. ret
  2072. djnz $23
  2073. call 39312
  2074. push de
  2075. call 39312
  2076. pop bc
  2077. ld b,a
  2078. ld ($9993),bc
  2079. ld hl,($999D)
  2080. dec hl
  2081. ld a,(hl)
  2082. and 31
  2083. jr nz,$06
  2084. call 39312
  2085. jp $6570
  2086. call 22631
  2087. ex de,hl
  2088. jp $65EE
  2089. djnz $02
  2090. jr $E6
  2091. djnz $25
  2092. call 22631
  2093. ld hl,0
  2094. push bc
  2095. push de
  2096. push hl
  2097. ld a,(de)
  2098. call 26108
  2099. push af
  2100. ex de,hl
  2101. rst 28h
  2102. sub h
  2103. ld b,l
  2104. pop af
  2105. pop hl
  2106. pop de
  2107. add hl,bc
  2108. pop bc
  2109. jr nz,$02
  2110. dec bc
  2111. inc de
  2112. dec bc
  2113. inc de
  2114. ld a,b
  2115. or c
  2116. jr nz,$E5
  2117. rst 28h
  2118. sub d
  2119. ld b,a
  2120. ret
  2121. djnz $37
  2122. ld hl,($999D)
  2123. dec hl
  2124. ld a,(hl)
  2125. cp 4
  2126. jr z,$0D
  2127. call 39312
  2128. push de
  2129. call 39312
  2130. pop bc
  2131. ld b,a
  2132. ld ($9993),bc
  2133. call 22631
  2134. ex de,hl
  2135. push bc
  2136. push hl
  2137. ld a,(hl)
  2138. call 26108
  2139. push af
  2140. rst 28h
  2141. sub h
  2142. ld b,l
  2143. ld hl,33934
  2144. call 26094
  2145. pop af
  2146. pop hl
  2147. pop bc
  2148. jr nz,$02
  2149. dec bc
  2150. inc hl
  2151. cpi
  2152. jp pe,$4F46
  2153. ret
  2154. ld hl,37696
  2155. ld c,17
  2156. ld d,64
  2157. in a,($10)
  2158. add a,a
  2159. jr c, $FB
  2160. ld a,7
  2161. out ($10),a
  2162. in a,($10)
  2163. add a,a
  2164. jr c, $FB
  2165. ld a,32
  2166. out ($10),a
  2167. in a,($10)
  2168. add a,a
  2169. jr c, $FB
  2170. ld a,192
  2171. sub d
  2172. out ($10),a
  2173. ld b,12
  2174. in a,($10)
  2175. add a,a
  2176. jr c, $FB
  2177. outi
  2178. jr nz,$F7
  2179. dec d
  2180. jr nz,$DF
  2181. in a,($10)
  2182. add a,a
  2183. jr c, $FB
  2184. ld a,5
  2185. out ($10),a
  2186. ret
  2187. ex de,hl
  2188. ld a,16
  2189. ld de,0
  2190. add hl,hl
  2191. ex de,hl
  2192. adc hl,hl
  2193. ex de,hl
  2194. push af
  2195. ld a,d
  2196. cp b
  2197. jr nz,$02
  2198. ld a,e
  2199. cp c
  2200. jr c, $05
  2201. inc l
  2202. ex de,hl
  2203. sbc hl,bc
  2204. ex de,hl
  2205. pop af
  2206. dec a
  2207. jr nz,$E9
  2208. ret
  2209. ex de,hl
  2210. ld de,0
  2211. ld a,16
  2212. ex de,hl
  2213. add hl,hl
  2214. ex de,hl
  2215. add hl,hl
  2216. jr nc, $01
  2217. add hl,bc
  2218. dec a
  2219. jr nz,$F6
  2220. ret
  2221. ld de,33912
  2222. push de
  2223. ld b,9
  2224. xor a
  2225. ld (de),a
  2226. inc de
  2227. djnz $FC
  2228. ld de,33966
  2229. push de
  2230. call 20511
  2231. ex de,hl
  2232. rrd
  2233. ex de,hl
  2234. call 20511
  2235. ex de,hl
  2236. rrd
  2237. ex de,hl
  2238. dec de
  2239. ld a,h
  2240. or l
  2241. jr nz,$ED
  2242. pop hl
  2243. sbc hl,de
  2244. ld b,h
  2245. ld c,l
  2246. pop hl
  2247. ld (hl),a
  2248. inc hl
  2249. ld a,c
  2250. add a,a
  2251. dec a
  2252. add a,128
  2253. ld (hl),a
  2254. inc hl
  2255. push hl
  2256. ex de,hl
  2257. inc hl
  2258. ldir
  2259. xor a
  2260. ld (de),a
  2261. pop hl
  2262. ld de,7
  2263. add hl,de
  2264. ex de,hl
  2265. ret
  2266. push de
  2267. ld a,d
  2268. or e
  2269. jp z, $5F6A
  2270. ex de,hl
  2271. rst 28h
  2272. ld (de),a
  2273. ld b,e
  2274. inc de
  2275. inc de
  2276. push de
  2277. rst 28h
  2278. dec e
  2279.         ld b,c
  2280. pop de
  2281. pop bc
  2282. ret
  2283. ld c,10
  2284. ld b,16
  2285. xor a
  2286. add hl,hl
  2287. rla
  2288. cp c
  2289. jr c, $02
  2290. inc l
  2291. sub c
  2292. djnz $F7
  2293. ret
  2294. ld sp,($999F)
  2295. sbc a,a
  2296. sbc a,c
  2297. call 23287
  2298. or 1
  2299. ret
  2300. add a,e
  2301. cp 1
  2302. ret nz
  2303. ld h,0
  2304. ld l,b
  2305. ld b,h
  2306. ld c,l
  2307. add hl,hl
  2308. add hl,bc
  2309. add hl,hl
  2310. add hl,bc
  2311. push hl
  2312. ld hl,39254
  2313. ld e,(hl)
  2314. inc hl
  2315. ld d,(hl)
  2316. inc hl
  2317. push de
  2318. ld c,(hl)
  2319. inc hl
  2320. ld b,(hl)
  2321. inc hl
  2322. push bc
  2323. rst 20h
  2324. rst 28h
  2325. pop af
  2326. ld b,d
  2327. ld a,b
  2328. pop bc
  2329. jr nc, $0A
  2330. res 5,(iy+53)
  2331. pop de
  2332. pop hl
  2333. ld hl,33882
  2334. ret
  2335. call 39154
  2336. pop de
  2337. add hl,de
  2338. pop de
  2339. add hl,de
  2340. call 22707
  2341. ld bc,8
  2342. ld de,33882
  2343. push de
  2344. call 39117
  2345. pop hl
  2346. xor a
  2347. ret
  2348. ld($84B4),hl
  2349. ld hl,37696
  2350. ld($84B2),hl
  2351. ld b,12
  2352. push bc
  2353. ld b,8
  2354. push bc
  2355. ld a,(de)
  2356. push de
  2357. ld l,a
  2358. ld h,0
  2359. add hl,hl
  2360. add hl,hl
  2361. add hl,hl
  2362. ld bc,($84B4)
  2363. or h
  2364. add a,h
  2365. add hl,bc
  2366. ex de,hl
  2367. ld hl,($84B2)
  2368. call 39048
  2369. ld($84B2),hl
  2370. pop de
  2371. inc de
  2372. pop bc
  2373. djnz $E3
  2374. dec h
  2375. dec h
  2376. dec h
  2377. inc l
  2378. ld($84B2),hl
  2379. pop bc
  2380. djnz $D6
  2381. ret
  2382. ld c,0
  2383. ld a,(hl)
  2384. cp 41
  2385. jr nz,$02
  2386. ld a,32
  2387. cp 187
  2388. jr nz,$0A
  2389. inc hl
  2390. dec b
  2391. ld a,(hl)
  2392. sub 79
  2393. cp 109
  2394. jr c, $01
  2395. dec a
  2396. inc hl
  2397. ld (de),a
  2398. inc de
  2399. inc c
  2400. djnz $E5
  2401. ret
  2402. add a,e
  2403. cp 1
  2404. jr z,$03
  2405. xor a
  2406. dec a
  2407. ret
  2408. ld a,b
  2409. cp 58
  2410. jr c, $02
  2411. sub 7
  2412. sub 48
  2413. cp 16
  2414. jr nc, $F0
  2415. ld c,a
  2416. ld a,(38483)
  2417. or a
  2418. jr z,$E9
  2419. ld a,c
  2420. push bc
  2421. add a,a
  2422. add a,c
  2423. add a,a
  2424. add a,c
  2425. ld d,0
  2426. ld e,a
  2427. ld hl,35386
  2428. add hl,de
  2429. pop bc
  2430. xor a
  2431. ret
  2432. push bc
  2433. ld a,b
  2434. or c
  2435. jp z, $5F6A
  2436. ld h,b
  2437. ld l,c
  2438. rst 28h
  2439. inc h
  2440. ld b,e
  2441. inc de
  2442. inc de
  2443. push de
  2444. rst 28h
  2445. dec e
  2446.         ld b,c
  2447. pop de
  2448. pop bc
  2449. ret
  2450. ld a,48
  2451. rrd
  2452. cp 58
  2453. jr c, $02
  2454. add a,7
  2455. ld (de),a
  2456. dec de
  2457. ret
  2458. ld a,(de)
  2459. cp 58
  2460. jr c, $02
  2461. sub 7
  2462. inc de
  2463. rld
  2464. ret
  2465. call 20752
  2466. call 20752
  2467. cpd
  2468. jp pe,$5128
  2469. ret
  2470. call 20765
  2471. call 20765
  2472. cpi
  2473. jp pe,$5134
  2474. ret
  2475. ex de,hl
  2476. ld b,8
  2477. ld hl,0
  2478. add hl,hl
  2479. rlca
  2480. jr nc, $01
  2481. add hl,de
  2482. djnz $F9
  2483. ret
  2484. ld de,($999D)
  2485. sbc a,l
  2486. sbc a,c
  2487. dec de
  2488. ld a,(de)
  2489. and 31
  2490. jr z,$03
  2491. xor a
  2492. jr $07
  2493. ld hl,($999B)
  2494. ld a,h
  2495. or l
  2496. jr nz,$03
  2497.         ld d,a
  2498. ld e,a
  2499. ret
  2500. dec hl
  2501. ld($999B),hl
  2502. ex de,hl
  2503. inc hl
  2504. call 20877
  2505. ld($999D),hl
  2506. or 1
  2507. ld a,e
  2508. ret
  2509. push de
  2510. push hl
  2511. call 20800
  2512. ld de,($84B4)
  2513. or h
  2514. add a,h
  2515. add hl,de
  2516. ld($84B4),hl
  2517. pop hl
  2518. ld a,10
  2519. call 20800
  2520. pop de
  2521. ret
  2522. ld hl,33913
  2523. ld a,(hl)
  2524. push hl
  2525. and 15
  2526. srl a
  2527. push af
  2528. inc a
  2529. ld c,a
  2530. ld b,0
  2531. add hl,bc
  2532. ex de,hl
  2533. ld h,b
  2534. ld l,b
  2535. ld($84B4),hl
  2536. inc hl
  2537. pop af
  2538. jr nc, $06
  2539. ld a,(de)
  2540. and 15
  2541. call 20853
  2542. ld a,(de)
  2543. and 240
  2544. rlca
  2545. rlca
  2546. rlca
  2547. rlca
  2548. call 20853
  2549. dec de
  2550. dec c
  2551. ld a,c
  2552. or a
  2553. jr nz,$EA
  2554. pop hl
  2555. ld de,9
  2556. add hl,de
  2557. ld de,($84B4)
  2558. or h
  2559. add a,h
  2560. ld a,e
  2561. ret
  2562. push de
  2563. cp 97
  2564. jr c, $0C
  2565. ex de,hl
  2566. ld (hl),187
  2567. inc hl
  2568. ex de,hl
  2569. add a,79
  2570. cp 187
  2571. jr c, $01
  2572. inc a
  2573. cp 46
  2574. jr nz,$02
  2575. ld a,58
  2576. cp 32
  2577. jr nz,$02
  2578. ld a,41
  2579. cp 63
  2580. jr nz,$01
  2581. dec a
  2582. ld (de),a
  2583. inc de
  2584. jp c,$AC1E
  2585. ld d,l
  2586. ld e,30
  2587. cp (hl)
  2588. push de
  2589. ld l,92
  2590. ld b,h
  2591. ld c,l
  2592. call 39312
  2593. dec a
  2594. and 3
  2595. add a,a
  2596. add a,a
  2597. add a,a
  2598. add a,166
  2599. ld($988C),a
  2600. ld($987B),a
  2601. ret
  2602. call 39312
  2603. push de
  2604. call 39312
  2605. ex de,hl
  2606. add hl,hl
  2607. add hl,hl
  2608. ld d,h
  2609. ld e,l
  2610. add hl,hl
  2611. add hl,de
  2612. pop de
  2613. add hl,de
  2614. ret
  2615. in a,($10)
  2616. add a,a
  2617. jr c, $FB
  2618. ld a,32
  2619. add a,h
  2620. out ($10),a
  2621. in a,($10)
  2622. add a,a
  2623. jr c, $FB
  2624. ld a,128
  2625. add a,l
  2626. out ($10),a
  2627. push bc
  2628. push hl
  2629. in a,($10)
  2630. add a,a
  2631. jr c, $FB
  2632. ld a,(de)
  2633. inc de
  2634. out ($11),a
  2635. djnz $F5
  2636. pop hl
  2637. pop bc
  2638. dec c
  2639. inc h
  2640. ld a,c
  2641. or a
  2642. jr nz,$D7
  2643. ret
  2644. push bc
  2645. push hl
  2646. ld hl,34540
  2647. push hl
  2648. ex de,hl
  2649. ld a,c
  2650. push af
  2651. push hl
  2652. push bc
  2653. ld a,(hl)
  2654. ld (de),a
  2655. inc de
  2656. ld a,b
  2657. ld b,0
  2658. add hl,bc
  2659. ld b,a
  2660. djnz $F6
  2661. pop bc
  2662. pop hl
  2663. pop af
  2664. inc hl
  2665. dec a
  2666. jr nz,$EC
  2667. pop de
  2668. pop hl
  2669. pop bc
  2670. ret
  2671. res 0,(iy+7)
  2672. ld hl,21113
  2673. ld($9991),hl
  2674. ld hl,26184
  2675. ld($9999),hl
  2676. ld ($9978),bc
  2677. ld de,21105
  2678. push de
  2679. ld hl,($965D)
  2680. inc hl
  2681. ld($965D),hl
  2682. ld a,(hl)
  2683. cp 63
  2684. ret z
  2685. cp 217
  2686. jr nz,$06
  2687. ld($965D),hl
  2688. jp $502E
  2689. cp 216
  2690. jr nz,$2C
  2691. inc hl
  2692. ld a,(hl)
  2693. cp 209
  2694. jr z,$13
  2695. call 21113
  2696. push bc
  2697. ld de,2293
  2698. dec de
  2699. ld a,d
  2700. or e
  2701. jr nz,$FB
  2702. dec bc
  2703. ld a,b
  2704. or c
  2705. jr nz,$F3
  2706. pop bc
  2707. ret
  2708. push bc
  2709. push hl
  2710. ld($965D),hl
  2711. call 26172
  2712. scf
  2713. ccf
  2714. sbc hl,hl
  2715. sbc hl,bc
  2716. pop hl
  2717. jr c, $F0
  2718. pop bc
  2719. ret
  2720. cp 114
  2721. jr nz,$0D
  2722. ld hl,($997A)
  2723. ld ($997A),bc
  2724. ld($9978),hl
  2725. ld b,h
  2726. ld c,l
  2727. ret
  2728. cp 222
  2729. jr nz,$2D
  2730. call 21113
  2731. ld a,c
  2732. and 7
  2733. ld($844B),a
  2734. call 21113
  2735. push bc
  2736. ld a,c
  2737. and 15
  2738. ld($844C),a
  2739. push hl
  2740. ld b,0
  2741. inc b
  2742. inc hl
  2743. ld a,(hl)
  2744. cp 63
  2745. jr nz,$F9
  2746. ex de,hl
  2747. pop hl
  2748. dec b
  2749. ld (hl),b
  2750. push hl
  2751. rst 28h
  2752. djnz $45
  2753. ld($965D),hl
  2754. pop hl
  2755. ld (hl),43
  2756. pop bc
  2757. ret
  2758. cp 156
  2759. jr nz,$08
  2760. call 17927
  2761. ld bc,($9978)
  2762. ld a,b
  2763. sbc a,c
  2764. ret
  2765. cp 173
  2766. jr nz,$09
  2767. call 24338
  2768. ld b,h
  2769. ld c,l
  2770. ld($9978),hl
  2771. ret
  2772. cp 223
  2773. jr nz,$08
  2774. call 20323
  2775. ld bc,($9978)
  2776. ld a,b
  2777. sbc a,c
  2778. ret
  2779. cp 147
  2780. jr nz,$21
  2781. inc hl
  2782. ld a,(hl)
  2783. cp 176
  2784. jr z,$0E
  2785. dec hl
  2786. call 21113
  2787. push bc
  2788. call 21113
  2789. pop de
  2790. ld d,c
  2791. ld ($9993),de
  2792. ld($965D),hl
  2793. push bc
  2794. call 26184
  2795. ex de,hl
  2796. call 20294
  2797. pop bc
  2798. ret
  2799. cp 187
  2800. jp nz,$5366
  2801. inc hl
  2802. ld a,(hl)
  2803. ld($965D),hl
  2804. cp 108
  2805. jr nz,$0E
  2806. call 26184
  2807. srl b
  2808. rr c
  2809. ld hl,34540
  2810. push hl
  2811. jp $5134
  2812. cp 206
  2813. jr nz,$2E
  2814. push bc
  2815. call 21113
  2816. scf
  2817. ccf
  2818. sbc hl,hl
  2819. sbc hl,bc
  2820. pop bc
  2821. ret c
  2822. ex de,hl
  2823. ld hl,($965D)
  2824. inc hl
  2825. ld a,(hl)
  2826. cp 212
  2827. jr nz,$01
  2828. dec de
  2829. cp 207
  2830. jr z,$04
  2831. cp 209
  2832. jr nz,$01
  2833. inc de
  2834. ld a,d
  2835. or e
  2836. jr nz,$EC
  2837. inc hl
  2838. ld a,(hl)
  2839. cp 63
  2840. jr nz,$FA
  2841. ld($965D),hl
  2842. ret
  2843. cp 166
  2844. jr nz,$2C
  2845. call 21113
  2846. ex de,hl
  2847. ld h,b
  2848. ld l,c
  2849. add hl,hl
  2850. add hl,bc
  2851. add hl,hl
  2852. add hl,hl
  2853. ld bc,37696
  2854. add hl,bc
  2855. push hl
  2856. ex de,hl
  2857. call 21113
  2858. ld a,c
  2859. pop hl
  2860. ld b,12
  2861. or a
  2862. jr nz,$05
  2863. ld (hl),a
  2864. inc hl
  2865. djnz $FC
  2866. ret
  2867. dec a
  2868. jr nz,$0B
  2869. dec a
  2870. jr $FB
  2871. ld a,(hl)
  2872. cpl
  2873. ld (hl),a
  2874. inc hl
  2875. djnz $FA
  2876. ret
  2877. cp 157
  2878. jr nz,$4D
  2879. call 21113
  2880. ld a,c
  2881. and 7
  2882. ld b,a
  2883. ld a,c
  2884. rrca
  2885. rrca
  2886. rrca
  2887. and 31
  2888. ld c,a
  2889. inc b
  2890. ld a,1
  2891. rrca
  2892. djnz $FD
  2893. ld hl,37696
  2894. add hl,bc
  2895. push af
  2896. push hl
  2897. call 21113
  2898. ld a,c
  2899. ld bc,16396
  2900. pop hl
  2901. pop de
  2902. or a
  2903. jr nz,$0E
  2904. ld a,d
  2905. cpl
  2906.         ld d,a
  2907. ld a,d
  2908. and (hl)
  2909. ld (hl),a
  2910. ld a,b
  2911. ld b,0
  2912. add hl,bc
  2913. ld b,a
  2914. djnz $F6
  2915. ret
  2916. dec a
  2917. jr nz,$0B
  2918. ld a,d
  2919. or (hl)
  2920. ld (hl),a
  2921. ld a,b
  2922. ld b,0
  2923. add hl,bc
  2924. ld b,a
  2925. djnz $F6
  2926. ret
  2927. ld a,d
  2928. xor (hl)
  2929. ld (hl),a
  2930. ld a,b
  2931. ld b,0
  2932. add hl,bc
  2933. ld b,a
  2934. djnz $F6
  2935. ret
  2936. cp 226
  2937. jr nz,$75
  2938. call 21113
  2939. ld a,c
  2940. ld hl,37696
  2941. ld bc,768
  2942. ld d,85
  2943. or a
  2944. jr nz,$07
  2945. ld (hl),a
  2946. cpi
  2947. jp pe,$542C
  2948. ret
  2949. dec a
  2950. jr nz,$03
  2951. dec a
  2952. jr $F3
  2953. dec a
  2954. jr nz,$09
  2955. ld a,(hl)
  2956. cpl
  2957. ld (hl),a
  2958. cpi
  2959. jp pe,$543C
  2960. ret
  2961. dec a
  2962. jr nz,$03
  2963. ld a,d
  2964. jr $E1
  2965. dec a
  2966. jr nz,$04
  2967. ld a,d
  2968. rlca
  2969. jr $DA
  2970. dec a
  2971. jr nz,$09
  2972. ld a,d
  2973. xor (hl)
  2974. ld (hl),a
  2975. cpi
  2976. jp pe,$5455
  2977. ret
  2978. dec a
  2979. jr nz,$04
  2980. rlc d
  2981. jr $F0
  2982. push bc
  2983. push af
  2984. push hl
  2985. call 21113
  2986. pop hl
  2987. ld a,c
  2988. pop bc
  2989. push bc
  2990. djnz $01
  2991. cpl
  2992.         ld d,a
  2993. pop af
  2994. pop bc
  2995. dec a
  2996. jr nz,$09
  2997. ld a,d
  2998. and (hl)
  2999. ld (hl),a
  3000. cpi
  3001. jp pe,$5478
  3002. ret
  3003. dec a
  3004. jr nz,$09
  3005. ld a,d
  3006. or (hl)
  3007. ld (hl),a
  3008. cpi
  3009. jp pe,$5484
  3010. ret
  3011. dec a
  3012. jr z,$C5
  3013. jr $9A
  3014. cp 45
  3015. jr nz,$36
  3016. dec hl
  3017. ld a,(hl)
  3018. inc hl
  3019. inc hl
  3020. ld($965D),hl
  3021. cp 4
  3022. ld a,(hl)
  3023. ld($8479),a
  3024. ld de,0
  3025. ex de,hl
  3026. ld($847A),hl
  3027. ex de,hl
  3028. jr z,$0F
  3029. call 22835
  3030. ld bc,0
  3031. ret c
  3032. inc de
  3033. ex de,hl
  3034. call 20877
  3035. ld b,d
  3036. ld c,e
  3037. ret
  3038. push bc
  3039. call 22835
  3040. jr nc, $03
  3041. rst 28h
  3042. rrca
  3043. ld b,e
  3044. pop hl
  3045. push hl
  3046. call 20432
  3047. pop bc
  3048. ret
  3049. cp 209
  3050. jr nz,$1A
  3051. push hl
  3052. ld($965D),hl
  3053. call 26172
  3054. scf
  3055. ccf
  3056. sbc hl,hl
  3057. sbc hl,bc
  3058. ex de,hl
  3059. inc de
  3060. pop hl
  3061. jp nc,$5377
  3062. push hl
  3063. call 21105
  3064. pop hl
  3065. jr $E6
  3066. cp 212
  3067. jr nz,$02
  3068. pop hl
  3069. ret
  3070. cp 181
  3071. jr nz,$08
  3072. call 21113
  3073. inc a
  3074. ld b,a
  3075. jp $433C
  3076. cp 164
  3077. jp z, $4664
  3078. cp 19
  3079. jr z,$08
  3080. cp 160
  3081. jr c, $3A
  3082. cp 164
  3083. jr nc, $36
  3084. sub 160
  3085. push af
  3086. ld bc,37696
  3087. ld ($84B6),bc
  3088. call 21113
  3089. push bc
  3090. call 21113
  3091. ld a,c
  3092. pop bc
  3093. ld b,a
  3094. call 25071
  3095. pop bc
  3096. ld c,a
  3097. and (hl)
  3098. ld de,1
  3099. or a
  3100. jr nz,$01
  3101. dec e
  3102. push de
  3103. ld a,c
  3104. djnz $04
  3105. or (hl)
  3106. ld (hl),a
  3107. pop bc
  3108. ret
  3109. djnz $05
  3110. cpl
  3111. and (hl)
  3112. ld (hl),a
  3113. pop bc
  3114. ret
  3115. djnz $02
  3116. xor (hl)
  3117. ld (hl),a
  3118. pop bc
  3119. ret
  3120. cp 171
  3121. jr nz,$11
  3122. ld b,2
  3123. ld a,r
  3124.         ld d,a
  3125. ld a,r
  3126. ld e,a
  3127. add hl,de
  3128. djnz $F7
  3129. ld b,h
  3130. ld c,l
  3131. ld($9978),hl
  3132. ret
  3133. cp 207
  3134. jr nz,$03
  3135. pop hl
  3136. push hl
  3137. jp (hl)
  3138. cp 196
  3139. jr nz,$04
  3140. ld a,64
  3141. jr $05
  3142. cp 194
  3143. jr nz,$22
  3144. xor a
  3145. push af
  3146. call 21113
  3147. pop af
  3148. add a,c
  3149. di
  3150. rla
  3151.         ld d,a
  3152. cpl
  3153. ld e,a
  3154. ex af,af
  3155. xor a
  3156. ld b,8
  3157. rrc e
  3158. jr nc, $01
  3159. add a,d
  3160. rra
  3161. djnz $F8
  3162. rlca
  3163. ld c,a
  3164. ex af,af
  3165. ret nc
  3166. cpl
  3167. inc a
  3168. ret z
  3169. ld c,a
  3170. dec b
  3171. ret
  3172. cp 117
  3173. jr nz,$22
  3174. ld bc,1
  3175. inc hl
  3176. ld a,(hl)
  3177. cp 63
  3178. jr z,$03
  3179. call 21113
  3180. in a,($02)
  3181. rlca
  3182. and 1
  3183.         ld d,a
  3184. ld a,c
  3185. cp 1
  3186. jr c, $04
  3187. and d
  3188. out ($20),a
  3189. ret
  3190. in a,($02)
  3191. and 1
  3192. xor d
  3193. jr $F6
  3194. cp 153
  3195. jr z,$04
  3196. cp 152
  3197. jr nz,$57
  3198. sub 152
  3199. push af
  3200. call 21113
  3201.         ld h,c
  3202. ld l,96
  3203. ld($8479),hl
  3204. pop af
  3205. or a
  3206. jr nz,$37
  3207. ld($847B),a
  3208. call 22835
  3209. jr c, $07
  3210. ld a,b
  3211. or a
  3212. jr z,$06
  3213. rst 28h
  3214. add a,79
  3215. rst 28h
  3216. inc sp
  3217. ld b,e
  3218. ex de,hl
  3219. ld c,(hl)
  3220. inc hl
  3221. ld b,(hl)
  3222. inc hl
  3223. ex de,hl
  3224. ld hl,768
  3225. sbc hl,bc
  3226. ld bc,768
  3227. push bc
  3228. jr c, $0C
  3229. inc hl
  3230. ex de,hl
  3231. dec hl
  3232. ld (hl),b
  3233. dec hl
  3234. ld (hl),c
  3235. inc hl
  3236. inc hl
  3237. ex de,hl
  3238. rst 28h
  3239. rst 30h
  3240. ld b,d
  3241. pop bc
  3242. ld hl,37696
  3243. ldir
  3244. ret
  3245. call 22835
  3246. ret c
  3247. jr $01
  3248. inc c
  3249. nop
  3250. call 39154
  3251. ld de,37696
  3252. jp $98CD
  3253. cp 158
  3254. jp z, $4884
  3255. cp 192
  3256. jr nz,$3B
  3257. inc hl
  3258. ld a,(hl)
  3259. cp 147
  3260. push af
  3261. jr nz,$19
  3262. ld($965D),hl
  3263. inc hl
  3264. ld a,(hl)
  3265. cp 42
  3266. jr z,$0D
  3267. call 21113
  3268. push bc
  3269. call 21113
  3270. pop de
  3271. ld d,c
  3272. ld ($9993),de
  3273. ld($965D),hl
  3274. call 21113
  3275. push bc
  3276. ld a,(hl)
  3277. ld c,10
  3278. cp 63
  3279. jr z,$03
  3280. call 21113
  3281. pop hl
  3282. call 26314
  3283. ld ($9978),bc
  3284. pop af
  3285. jp z, $65EE
  3286. ret
  3287. cp 219
  3288. jr nz,$18
  3289. push bc
  3290. call 21113
  3291. inc bc
  3292. pop de
  3293. ld a,d
  3294. or e
  3295. ret z
  3296. dec hl
  3297. ld a,(hl)
  3298. cp 63
  3299. jr nz,$FA
  3300. dec bc
  3301. ld a,b
  3302. or c
  3303. jr nz,$F5
  3304. ld($965D),hl
  3305. ret
  3306. cp 218
  3307. jr nz,$19
  3308. push bc
  3309. call 21113
  3310. inc bc
  3311. dec hl
  3312. pop de
  3313. ld a,d
  3314. or e
  3315. ret z
  3316. inc hl
  3317. ld a,(hl)
  3318. cp 63
  3319. jr nz,$FA
  3320. dec bc
  3321. ld a,b
  3322. or c
  3323. jr nz,$F5
  3324. ld($965D),hl
  3325. ret
  3326. cp 213
  3327. jr nz,$12
  3328. inc hl
  3329. ld a,(hl)
  3330. cp 4
  3331. jr z,$08
  3332. call 21113
  3333. ld ($965D),bc
  3334. ret
  3335. inc hl
  3336. ld b,h
  3337. ld c,l
  3338. inc bc
  3339. cp 4
  3340. jr nz,$02
  3341. inc hl
  3342. ld a,(hl)
  3343. cp 64
  3344. jr c, $33
  3345. cp 91
  3346. jr nc, $2F
  3347. ex de,hl
  3348. dec a
  3349. and 31
  3350. rlca
  3351. ld l,a
  3352. inc de
  3353. ld a,(de)
  3354. dec de
  3355. cp 174
  3356. jr nz,$04
  3357. ld a,54
  3358. add a,l
  3359. ld l,a
  3360. ld h,128
  3361. dec de
  3362. ld a,(de)
  3363. inc de
  3364. cp 4
  3365. jr nz,$09
  3366. ld bc,($9978)
  3367. ld a,b
  3368. sbc a,c
  3369. ld (hl),c
  3370. inc hl
  3371. ld (hl),b
  3372. jr $07
  3373. ld c,(hl)
  3374. inc hl
  3375. ld b,(hl)
  3376. ld ($9978),bc
  3377. ex de,hl
  3378. inc hl
  3379. ld a,(hl)
  3380. jr $0B
  3381. cp 48
  3382. jr c, $0A
  3383. cp 58
  3384. jr nc, $06
  3385. call 22577
  3386. ld($965D),hl
  3387. cp 112
  3388. jr nz,$0E
  3389. push bc
  3390. call 21113
  3391. pop de
  3392. ex de,hl
  3393. add hl,bc
  3394. ld($9978),hl
  3395. ex de,hl
  3396. ld b,d
  3397. ld c,e
  3398. ret
  3399. cp 113
  3400. jr nz,$11
  3401. push bc
  3402. call 21113
  3403. pop de
  3404. ex de,hl
  3405. scf
  3406. ccf
  3407. sbc hl,bc
  3408. ld($9978),hl
  3409. ex de,hl
  3410. ld b,d
  3411. ld c,e
  3412. ret
  3413. cp 13
  3414. jr nz,$04
  3415. ld d,b
  3416. ld e,c
  3417. jr $09
  3418. cp 130
  3419. jr nz,$10
  3420. push bc
  3421. call 21113
  3422. pop de
  3423. push hl
  3424. call 20412
  3425. ld($9978),hl
  3426. ld b,h
  3427. ld c,l
  3428. pop hl
  3429. ret
  3430. cp 131
  3431. jr nz,$14
  3432. push bc
  3433. call 21113
  3434. pop de
  3435. push hl
  3436. call 20382
  3437. ld($9978),hl
  3438. ld ($997A),de
  3439. ld b,h
  3440. ld c,l
  3441. pop hl
  3442. ret
  3443. cp 176
  3444. jr nz,$0C
  3445. call 21113
  3446. scf
  3447. ccf
  3448. sbc hl,hl
  3449. sbc hl,bc
  3450. ld b,h
  3451. ld c,l
  3452. ret
  3453. cp 64
  3454. jr nz,$0C
  3455. push bc
  3456. call 21113
  3457. pop hl
  3458. ld a,b
  3459. and h
  3460. ld b,a
  3461. ld a,c
  3462. and l
  3463. ld c,a
  3464. ret
  3465. cp 60
  3466. jr nz,$0C
  3467. push bc
  3468. call 21113
  3469. pop hl
  3470. ld a,b
  3471. or h
  3472. ld b,a
  3473. ld a,c
  3474. or l
  3475. ld c,a
  3476. ret
  3477. cp 61
  3478. jr nz,$0C
  3479. push bc
  3480. call 21113
  3481. pop hl
  3482. ld a,b
  3483. xor h
  3484. ld b,a
  3485. ld a,c
  3486. xor l
  3487. ld c,a
  3488. ret
  3489. cp 184
  3490. jr nz,$0A
  3491. call 21113
  3492. ld a,b
  3493. cpl
  3494. ld b,a
  3495. ld a,c
  3496. cpl
  3497. ld c,a
  3498. ret
  3499. cp 106
  3500. jr nz,$12
  3501. push bc
  3502. call 21113
  3503. pop hl
  3504. scf
  3505. ccf
  3506. sbc hl,bc
  3507. ld hl,0
  3508. jr nz,$01
  3509. inc hl
  3510. ld b,h
  3511. ld c,l
  3512. ret
  3513. cp 111
  3514. jr nz,$12
  3515. push bc
  3516. call 21113
  3517. pop hl
  3518. scf
  3519. ccf
  3520. sbc hl,bc
  3521. ld hl,0
  3522. jr z,$01
  3523. inc hl
  3524. ld b,h
  3525. ld c,l
  3526. ret
  3527. cp 108
  3528. jr nz,$14
  3529. push bc
  3530. call 21113
  3531. pop hl
  3532. ld d,b
  3533. ld e,c
  3534. ex de,hl
  3535. scf
  3536. ccf
  3537. sbc hl,de
  3538. add hl,de
  3539. ld hl,0
  3540. jr c, $01
  3541. inc hl
  3542. ret
  3543. cp 110
  3544. jr nz,$13
  3545. push bc
  3546. call 21113
  3547. pop hl
  3548. scf
  3549. ccf
  3550. sbc hl,bc
  3551. add hl,bc
  3552. ld hl,0
  3553. jr c, $01
  3554. inc hl
  3555. ld b,h
  3556. ld c,l
  3557. ret
  3558. cp 107
  3559. jr nz,$13
  3560. push bc
  3561. call 21113
  3562. pop hl
  3563. scf
  3564. ccf
  3565. sbc hl,bc
  3566. add hl,bc
  3567. ld hl,0
  3568. jr nc, $01
  3569. inc hl
  3570. ld b,h
  3571. ld c,l
  3572. ret
  3573. cp 109
  3574. jr nz,$14
  3575. push bc
  3576. call 21113
  3577. pop hl
  3578. ld d,b
  3579. ld e,c
  3580. ex de,hl
  3581. scf
  3582. ccf
  3583. sbc hl,de
  3584. add hl,de
  3585. ld hl,0
  3586. jr c, $01
  3587. inc hl
  3588. ret
  3589. ld d,b
  3590. ld e,c
  3591. ld a,c
  3592. ret
  3593. inc hl
  3594. ld a,(hl)
  3595. cp 48
  3596. ret c
  3597. cp 58
  3598. jr c, $F7
  3599. ret
  3600. call 22567
  3601. push hl
  3602. ex de,hl
  3603. ld hl,1
  3604. ld b,h
  3605. ld c,h
  3606. dec de
  3607. ld a,(de)
  3608. cp 48
  3609. jr c, $18
  3610. cp 58
  3611. jr nc, $14
  3612. and 15
  3613. push de
  3614. push bc
  3615. call 20800
  3616. pop bc
  3617. add hl,bc
  3618. push hl
  3619. ex de,hl
  3620. ld a,10
  3621. call 20800
  3622. pop bc
  3623. pop de
  3624. jr $E2
  3625. pop hl
  3626. ld ($9978),bc
  3627. ld a,(hl)
  3628. ret
  3629. xor a
  3630. jr $06
  3631. ld a,1
  3632. jr $02
  3633. ld a,4
  3634. jp $9998
  3635. add a,e
  3636. cp 1
  3637. ret nz
  3638. ld h,0
  3639. ld l,b
  3640. add hl,hl
  3641. add hl,hl
  3642. add hl,hl
  3643. push hl
  3644. ld hl,39254
  3645. ld e,(hl)
  3646. inc hl
  3647. ld d,(hl)
  3648. inc hl
  3649. push de
  3650. ld c,(hl)
  3651. inc hl
  3652. ld b,(hl)
  3653. inc hl
  3654. push bc
  3655. rst 20h
  3656. rst 28h
  3657. pop af
  3658. ld b,d
  3659. ld a,b
  3660. pop bc
  3661. jr nc, $06
  3662. pop de
  3663. pop hl
  3664. ld hl,33882
  3665. ret
  3666. call 39154
  3667. pop de
  3668. add hl,de
  3669. pop de
  3670. add hl,de
  3671. call 22707
  3672. ld bc,8
  3673. ld de,33882
  3674. push de
  3675. call 39117
  3676. pop hl
  3677. xor a
  3678. ret
  3679. ld a,(de)
  3680. ldi
  3681. dec hl
  3682. ld (hl),a
  3683. inc hl
  3684. jp pe,$58A9
  3685. ret
  3686. or a
  3687. ret z
  3688. push bc
  3689. ld b,a
  3690. ld a,h
  3691. sub 64
  3692. rlca
  3693. rlca
  3694. and 3
  3695. add a,b
  3696. ld b,a
  3697. ld a,h
  3698. and 63
  3699. add a,64
  3700. ld h,a
  3701. ld a,b
  3702. pop bc
  3703. ret
  3704. ld bc,170
  3705. call 22842
  3706. call c,20526
  3707. ex de,hl
  3708. ld c,(hl)
  3709. inc hl
  3710. ld b,(hl)
  3711. inc hl
  3712. ex de,hl
  3713. ret
  3714. add a,e
  3715. cp 1
  3716. ret nz
  3717. ld h,0
  3718. ld l,b
  3719. add hl,hl
  3720. add hl,hl
  3721. add hl,hl
  3722. push hl
  3723. ld hl,39254
  3724. ld e,(hl)
  3725. inc hl
  3726. ld d,(hl)
  3727. inc hl
  3728. push de
  3729. ld c,(hl)
  3730. inc hl
  3731. ld b,(hl)
  3732. inc hl
  3733. push bc
  3734. rst 20h
  3735. rst 28h
  3736. pop af
  3737. ld b,d
  3738. ld a,b
  3739. pop bc
  3740. jr nc, $06
  3741. pop de
  3742. pop hl
  3743. ld hl,33882
  3744. ret
  3745. call 39154
  3746. pop de
  3747. add hl,de
  3748. pop de
  3749. add hl,de
  3750. call 22707
  3751. ld bc,8
  3752. ld de,33882
  3753. push de
  3754. call 39117
  3755. pop hl
  3756. bit 3,(iy+5)
  3757. jr z,$0A
  3758. push hl
  3759. ld b,8
  3760. ld a,(hl)
  3761. cpl
  3762. ld (hl),a
  3763. inc hl
  3764. djnz $FA
  3765. pop hl
  3766. call 24485
  3767. jp $9963
  3768. call 24256
  3769. call 24907
  3770. rst 28h
  3771. daa
  3772. ld b,b
  3773. ld de,33913
  3774. ex de,hl
  3775. ld c,(hl)
  3776. inc hl
  3777. ld b,(hl)
  3778. ld hl,65120
  3779. ld a,c
  3780. cp (hl)
  3781. dec hl
  3782. jr nz,$04
  3783. ld a,b
  3784. cp (hl)
  3785. jr z,$0E
  3786. ld de,65528
  3787. add hl,de
  3788. ex de,hl
  3789. ld hl,($9830)
  3790. sbc hl,de
  3791. ex de,hl
  3792. ld a,d
  3793. or a
  3794. ccf
  3795. jr nz,$E7
  3796. inc hl
  3797. inc hl
  3798. ld b,(hl)
  3799. inc hl
  3800. ld d,(hl)
  3801. inc hl
  3802. ld e,(hl)
  3803. inc hl
  3804. inc hl
  3805. inc hl
  3806. ld a,(hl)
  3807. ret
  3808. ld c,10
  3809. ld b,16
  3810. xor a
  3811. add hl,hl
  3812. rla
  3813. cp c
  3814. jr c, $02
  3815. inc l
  3816. sub c
  3817. djnz $F7
  3818. srl c
  3819. cp c
  3820. jr c, $03
  3821. inc hl
  3822. sub c
  3823. sub c
  3824. ret
  3825. ret
  3826. ld a,(hl)
  3827. inc hl
  3828. ld c,a
  3829. cp 128
  3830. jr c, $09
  3831. ld b,a
  3832. ex (sp),hl
  3833. ex (sp),hl
  3834. ex (sp),hl
  3835. ex (sp),hl
  3836. djnz $FA
  3837. xor a
  3838. ret
  3839. push de
  3840. push hl
  3841.         ld d,a
  3842. ld hl,($997A)
  3843. call 22884
  3844. ld c,d
  3845. push hl
  3846.         ld b,c
  3847. ex (sp),hl
  3848. ex (sp),hl
  3849. ex (sp),hl
  3850. ex (sp),hl
  3851. djnz $FA
  3852. inc d
  3853. ld a,d
  3854. out ($00),a
  3855. pop hl
  3856. dec hl
  3857. ld a,h
  3858. or l
  3859. jr nz,$EE
  3860. xor a
  3861. out ($00),a
  3862. pop hl
  3863. pop de
  3864. ret
  3865. add a,e
  3866. cp 238
  3867. ret nz
  3868. ld hl,37696
  3869. rst 28h
  3870. ld a,e
  3871. ld c,h
  3872. ret
  3873. add a,e
  3874. ld b,a
  3875. ld hl,33858
  3876. ld a,(hl)
  3877. cp 50
  3878. jr c, $06
  3879. ld a,(39286)
  3880. ld (hl),a
  3881. ld a,b
  3882. ret
  3883. cp 10
  3884. jr nz,$04
  3885. ld a,(39287)
  3886. ld (hl),a
  3887. ld a,b
  3888. ret
  3889. ld (hl),a
  3890. ld a,12
  3891. sub b
  3892. ld c,a
  3893. ld a,(hl)
  3894. push bc
  3895. push af
  3896. ld a,(de)
  3897. nop
  3898. ld (hl),a
  3899. inc de
  3900. inc hl
  3901. djnz $F9
  3902. add hl,bc
  3903. pop af
  3904. pop bc
  3905. dec a
  3906. jr nz,$F1
  3907. ret
  3908. ld bc,2060
  3909. ld a,(de)
  3910. nop
  3911. ld (hl),a
  3912. inc de
  3913. ld a,b
  3914. ld b,0
  3915. add hl,bc
  3916. ld b,a
  3917. djnz $F5
  3918. ret
  3919. xor a
  3920. ld e,63
  3921. inc hl
  3922. push hl
  3923. or a
  3924. jr z,$02
  3925. out ($06),a
  3926. ld bc,0
  3927. ld a,h
  3928. add a,a
  3929. or l
  3930. jr nz,$07
  3931. in a,($06)
  3932. inc a
  3933. out ($06),a
  3934. ld h,64
  3935. ld a,e
  3936. cpi
  3937. jr nz,$EF
  3938. in a,($06)
  3939.         ld d,a
  3940. ld a,255
  3941. sub b
  3942. ld b,a
  3943. ld a,255
  3944. sub c
  3945. ld c,a
  3946. ld a,(39793)
  3947. out ($06),a
  3948. ld a,d
  3949. pop de
  3950. cp 7
  3951. jr nz,$01
  3952. xor a
  3953. ret
  3954. or a
  3955. jr nz,$03
  3956. ldir
  3957. ret
  3958. out ($06),a
  3959. ld a,h
  3960. add a,a
  3961. or l
  3962. jr nz,$07
  3963. in a,($06)
  3964. inc a
  3965. out ($06),a
  3966. ld h,64
  3967. ldi
  3968. jp pe,$98D5
  3969. in a,($06)
  3970. ld b,a
  3971. ld a,(39793)
  3972. out ($06),a
  3973. ret
  3974. call 25491
  3975. call c,24419
  3976. ex de,hl
  3977. or a
  3978. jr nz,$05
  3979. ld c,(hl)
  3980. inc hl
  3981. ld b,(hl)
  3982. inc hl
  3983. ret
  3984. add hl,bc
  3985. ld bc,9
  3986. add hl,bc
  3987. ld b,a
  3988. ld a,h
  3989. add a,a
  3990. or a
  3991. jr nz,$03
  3992. inc b
  3993. ld h,64
  3994. ld a,b
  3995. out ($06),a
  3996. ld c,(hl)
  3997. inc hl
  3998. ld b,a
  3999. ld a,h
  4000. add a,a
  4001. or l
  4002. jr nz,$06
  4003. inc b
  4004. ld h,64
  4005. ld a,b
  4006. out ($06),a
  4007. ld a,b
  4008. ld b,(hl)
  4009. inc hl
  4010. push hl
  4011. add hl,bc
  4012. ld($998D),hl
  4013. pop hl
  4014. push bc
  4015. in a,($06)
  4016. ld c,a
  4017. ld a,(39793)
  4018. out ($06),a
  4019. ld a,c
  4020. pop bc
  4021. ret
  4022. di
  4023. exx
  4024. ex af,af
  4025. ld ($999F),sp
  4026. ld sp,39292
  4027. pop bc
  4028. pop de
  4029. pop hl
  4030. pop af
  4031. push af
  4032. push hl
  4033. push de
  4034. push bc
  4035. ld sp,($999F)
  4036. sbc a,a
  4037. sbc a,c
  4038. ex af,af
  4039. or a
  4040. jr nz,$03
  4041. ei
  4042. xor a
  4043. ret
  4044. exx
  4045. push hl
  4046. out ($06),a
  4047. exx
  4048. ei
  4049. ret
  4050. nop
  4051. nop
  4052. nop
  4053. nop
  4054. nop
  4055. nop
  4056. nop
  4057. nop
  4058. nop
  4059. nop
  4060. nop
  4061. nop
  4062. nop
  4063. ld hl,18
  4064. add hl,sp
  4065. ld sp,hl32225
  4066. out ($06),a
  4067. pop hl
  4068. pop ix
  4069. pop hl
  4070. pop de
  4071. pop bc
  4072. pop af
  4073. ret
  4074. ld hl,33912
  4075. jp $5B9C
  4076. ld hl,33912
  4077. jp $5BA1
  4078. ld hl,33912
  4079. jp $5BA6
  4080. ld hl,33912
  4081. jp $5BAB
  4082. ld hl,33912
  4083. jp $5BB0
  4084. ld hl,33912
  4085. jp $5BB3
  4086. ld hl,33923
  4087. jp $5B97
  4088. ld hl,33923
  4089. jp $5BA1
  4090. ld hl,33923
  4091. jp $5BA6
  4092. ld hl,33923
  4093. jp $5BAB
  4094. ld hl,33923
  4095. jp $5BB0
  4096. ld hl,33923
  4097. jp $5BB3
  4098. ld hl,33934
  4099. jp $5B97
  4100. ld hl,33934
  4101. jp $5B9C
  4102. ld hl,33934
  4103. jp $5BA6
  4104. ld hl,33934
  4105. jp $5BAB
  4106. ld hl,33934
  4107. jr $7B
  4108. ld hl,33934
  4109. jr $76
  4110. ld hl,33945
  4111. jr $71
  4112. ld hl,33945
  4113. jr $6C
  4114. ld hl,33945
  4115. jr $67
  4116. ld hl,33945
  4117. jr $62
  4118. ld hl,33945
  4119. jr $5D
  4120. ld hl,33945
  4121. jr $58
  4122. ld hl,33956
  4123. jr $53
  4124. ld hl,33956
  4125. jr $4E
  4126. ld hl,33956
  4127. jr $49
  4128. ld hl,33956
  4129. jr $44
  4130. ld hl,33956
  4131. jr $3F
  4132. ld hl,33956
  4133. jr $3A
  4134. ld hl,33967
  4135. jr $35
  4136. ld hl,33967
  4137. jr $30
  4138. ld hl,33967
  4139. jr $2B
  4140. ld hl,33967
  4141. jr $26
  4142. ld hl,33967
  4143. jr $21
  4144. ld hl,33967
  4145. jr $1C
  4146. ld de,33912
  4147. jr $17
  4148. ld de,33923
  4149. jr $12
  4150. ld de,33934
  4151. jr $0D
  4152. ld de,33945
  4153. jr $08
  4154. ld de,33956
  4155. jr $03
  4156. ld de,33967
  4157. ld bc,9
  4158. ldir
  4159. ret
  4160. ld hl,37696
  4161. ld($84B6),hl
  4162. push af
  4163. push bc
  4164. ld b,0
  4165. push bc
  4166. push de
  4167. push de
  4168. ld hl,34540
  4169. ld (hl),0
  4170. ld de,34541
  4171. ld bc,24
  4172. ldir
  4173. pop de
  4174. ld a,e
  4175. rrca
  4176. rrca
  4177. rrca
  4178. and 15
  4179. ld h,0
  4180. ld l,a
  4181. ld a,e
  4182. and 7
  4183. push af
  4184. ld b,a
  4185. ld a,255
  4186. jr z,$04
  4187. srl a
  4188. djnz $FC
  4189. ld de,34540
  4190. add hl,de
  4191. ld (hl),a
  4192. pop af
  4193. cpl
  4194. and 7
  4195. inc a
  4196. ld b,a
  4197. pop af
  4198. sub b
  4199. bit 7,a
  4200. jr z,$0F
  4201. and 7
  4202. or a
  4203. jr z,$06
  4204. ld b,a
  4205. xor a
  4206. scf
  4207. rra
  4208. djnz $FC
  4209. and (hl)
  4210. ld (hl),a
  4211. jr $15
  4212. inc hl
  4213. cp 8
  4214. jr c, $06
  4215. ld (hl),255
  4216. sub 8
  4217. jr $F5
  4218. or a
  4219. jr z,$06
  4220. ld b,a
  4221. xor a
  4222. scf
  4223. rra
  4224. djnz $FC
  4225. ld (hl),a
  4226. pop hl
  4227. add hl,hl
  4228. add hl,hl
  4229. ld b,h
  4230. ld c,l
  4231. add hl,hl
  4232. add hl,bc
  4233. ld bc,($84B6)
  4234. or (hl)
  4235. add a,h
  4236. add hl,bc
  4237. push hl
  4238. push de
  4239. ld hl,34539
  4240. ld de,34551
  4241. inc de
  4242. inc hl
  4243. ld a,(hl)
  4244. or a
  4245. jr z,$FA
  4246. srl a
  4247. xor (hl)
  4248. ld (de),a
  4249. inc hl
  4250. ld a,(hl)
  4251. dec hl
  4252. or a
  4253. jr nz,$09
  4254. ld a,(hl)
  4255. srl a
  4256. add a,(hl)
  4257. cpl
  4258. and (hl)
  4259. ld (de),a
  4260. jr $11
  4261. inc de
  4262. inc hl
  4263. ld a,l
  4264. cp 248
  4265. jr z,$04
  4266. ld a,(hl)
  4267. or a
  4268. jr nz,$F5
  4269. dec de
  4270. dec hl
  4271. ld a,(hl)
  4272. add a,a
  4273. xor (hl)
  4274. ld (de),a
  4275. pop de
  4276. pop hl
  4277. pop bc
  4278. pop af
  4279. or a
  4280. jr nz,$11
  4281. ld c,12
  4282. ld de,34540
  4283. ld a,(de)
  4284. cpl
  4285. and (hl)
  4286. ld (hl),a
  4287. inc de
  4288. inc hl
  4289. dec c
  4290. jr nz,$F7
  4291. djnz $F0
  4292. ret
  4293. dec a
  4294. jr nz,$10
  4295. ld c,12
  4296. ld de,34540
  4297. ld a,(de)
  4298. or (hl)
  4299. ld (hl),a
  4300. inc de
  4301. inc hl
  4302. dec c
  4303. jr nz,$F8
  4304. djnz $F1
  4305. ret
  4306. dec a
  4307. jr nz,$10
  4308. ld c,12
  4309. ld de,34540
  4310. ld a,(de)
  4311. xor (hl)
  4312. ld (hl),a
  4313. inc de
  4314. inc hl
  4315. dec c
  4316. jr nz,$F8
  4317. djnz $F1
  4318. ret
  4319. dec a
  4320. jr nz,$24
  4321. ld c,12
  4322. ld de,34540
  4323. ld a,(de)
  4324. or (hl)
  4325. ld (hl),a
  4326. inc de
  4327. inc hl
  4328. dec c
  4329. jr nz,$F8
  4330. dec b
  4331. ret z
  4332. dec b
  4333. jr z,$0F
  4334. ld c,12
  4335. ld de,34552
  4336. ld a,(de)
  4337. or (hl)
  4338. ld (hl),a
  4339. inc de
  4340. inc hl
  4341. dec c
  4342. jr nz,$F8
  4343. djnz $F1
  4344. inc b
  4345. jr $DC
  4346. dec a
  4347. jr nz,$26
  4348. ld c,12
  4349. ld de,34540
  4350. ld a,(de)
  4351. and (hl)
  4352. xor (hl)
  4353. ld (hl),a
  4354. inc de
  4355. inc hl
  4356. dec c
  4357. jr nz,$F7
  4358. dec b
  4359. ret z
  4360. dec b
  4361. jr z,$10
  4362. ld c,12
  4363. ld de,34552
  4364. ld a,(de)
  4365. and (hl)
  4366. xor (hl)
  4367. ld (hl),a
  4368. inc de
  4369. inc hl
  4370. dec c
  4371. jr nz,$F7
  4372. djnz $F0
  4373. inc b
  4374. jr $DA
  4375. dec a
  4376. jr nz,$24
  4377. ld c,12
  4378. ld de,34540
  4379. ld a,(de)
  4380. xor (hl)
  4381. ld (hl),a
  4382. inc de
  4383. inc hl
  4384. dec c
  4385. jr nz,$F8
  4386. dec b
  4387. ret z
  4388. dec b
  4389. jr z,$0F
  4390. ld c,12
  4391. ld de,34552
  4392. ld a,(de)
  4393. xor (hl)
  4394. ld (hl),a
  4395. inc de
  4396. inc hl
  4397. dec c
  4398. jr nz,$F8
  4399. djnz $F1
  4400. inc b
  4401. jr $DC
  4402. dec a
  4403. jr nz,$34
  4404. ld c,12
  4405. ld de,34540
  4406. ld a,(de)
  4407. or (hl)
  4408. ld (hl),a
  4409. inc de
  4410. inc hl
  4411. dec c
  4412. jr nz,$F8
  4413. dec b
  4414. ret z
  4415. dec b
  4416. jr z,$1F
  4417. push hl
  4418. ld c,12
  4419. ld de,34540
  4420. ld a,(de)
  4421. and (hl)
  4422. xor (hl)
  4423. ld (hl),a
  4424. inc de
  4425. inc hl
  4426. dec c
  4427. jr nz,$F7
  4428. pop hl
  4429. ld c,12
  4430. ld de,34552
  4431. ld a,(de)
  4432. or (hl)
  4433. ld (hl),a
  4434. inc de
  4435. inc hl
  4436. dec c
  4437. jr nz,$F8
  4438. djnz $E1
  4439. inc b
  4440. jr $CC
  4441. dec a
  4442. jr nz,$33
  4443. ld c,12
  4444. ld de,34540
  4445. ld a,(de)
  4446. or (hl)
  4447. ld (hl),a
  4448. inc de
  4449. inc hl
  4450. dec c
  4451. jr nz,$F8
  4452. dec b
  4453. ret z
  4454. dec b
  4455. jr z,$1E
  4456. push hl
  4457. ld c,12
  4458. ld de,34540
  4459. ld a,(de)
  4460. xor (hl)
  4461. ld (hl),a
  4462. inc de
  4463. inc hl
  4464. dec c
  4465. jr nz,$F8
  4466. pop hl
  4467. ld c,12
  4468. ld de,34552
  4469. ld a,(de)
  4470. or (hl)
  4471. ld (hl),a
  4472. inc de
  4473. inc hl
  4474. dec c
  4475. jr nz,$F8
  4476. djnz $E2
  4477. inc b
  4478. jr $CD
  4479. dec a
  4480. jr nz,$34
  4481. ld c,12
  4482. ld de,34540
  4483. ld a,(de)
  4484. and (hl)
  4485. xor (hl)
  4486. ld (hl),a
  4487. inc de
  4488. inc hl
  4489. dec c
  4490. jr nz,$F7
  4491. dec b
  4492. ret z
  4493. dec b
  4494. jr z,$1E
  4495. push hl
  4496. ld c,12
  4497. ld de,34540
  4498. ld a,(de)
  4499. or (hl)
  4500. ld (hl),a
  4501. inc de
  4502. inc hl
  4503. dec c
  4504. jr nz,$F8
  4505. pop hl
  4506. ld c,12
  4507. ld de,34552
  4508. ld a,(de)
  4509. xor (hl)
  4510. ld (hl),a
  4511. inc de
  4512. inc hl
  4513. dec c
  4514. jr nz,$F8
  4515. djnz $E2
  4516. inc b
  4517. jr $CC
  4518. dec a
  4519. jr nz,$35
  4520. ld c,12
  4521. ld de,34540
  4522. ld a,(de)
  4523. and (hl)
  4524. xor (hl)
  4525. ld (hl),a
  4526. inc de
  4527. inc hl
  4528. dec c
  4529. jr nz,$F7
  4530. dec b
  4531. ret z
  4532. dec b
  4533. jr z,$1F
  4534. push hl
  4535. ld c,12
  4536. ld de,34540
  4537. ld a,(de)
  4538. xor (hl)
  4539. ld (hl),a
  4540. inc de
  4541. inc hl
  4542. dec c
  4543. jr nz,$F8
  4544. pop hl
  4545. ld c,12
  4546. ld de,34552
  4547. ld a,(de)
  4548. and (hl)
  4549. xor (hl)
  4550. ld (hl),a
  4551. inc de
  4552. inc hl
  4553. dec c
  4554. jr nz,$F7
  4555. djnz $E1
  4556. inc b
  4557. jr $CB
  4558. dec a
  4559. jr nz,$37
  4560. dec b
  4561. ret z
  4562. di
  4563. push hl
  4564. exx
  4565. ld bc,12
  4566. pop hl
  4567. add hl,bc
  4568. exx
  4569. ld c,12
  4570. ld de,34540
  4571. push de
  4572. exx
  4573. pop de
  4574. exx
  4575. ld a,(de)
  4576. cpl
  4577. and (hl)
  4578. exx
  4579. ld b,a
  4580. ld a,(de)
  4581. and (hl)
  4582. or b
  4583. inc de
  4584. inc hl
  4585. exx
  4586. ld (hl),a
  4587. inc de
  4588. inc hl
  4589. dec c
  4590. jr nz,$EF
  4591. djnz $E4
  4592. ld c,12
  4593. ld de,34540
  4594. ld a,(de)
  4595. cpl
  4596. and (hl)
  4597. ld (hl),a
  4598. inc de
  4599. inc hl
  4600. dec c
  4601. jr nz,$F7
  4602. ei
  4603. ret
  4604. dec a
  4605. jr nz,$40
  4606. di
  4607. push bc
  4608. ld de,12
  4609. add hl,de
  4610. djnz $FD
  4611. dec hl
  4612. push hl
  4613. exx
  4614. ld de,65524
  4615. pop hl
  4616. add hl,de
  4617. exx
  4618. pop bc
  4619. dec b
  4620. ret z
  4621. ld c,12
  4622. ld de,34551
  4623. push de
  4624. exx
  4625. pop de
  4626. exx
  4627. ld a,(de)
  4628. cpl
  4629. and (hl)
  4630. exx
  4631. ld b,a
  4632. ld a,(de)
  4633. and (hl)
  4634. or b
  4635. dec de
  4636. dec hl
  4637. exx
  4638. ld (hl),a
  4639. dec de
  4640. dec hl
  4641. dec c
  4642. jr nz,$EF
  4643. djnz $E4
  4644. ld c,12
  4645. ld de,34551
  4646. ld a,(de)
  4647. cpl
  4648. and (hl)
  4649. ld (hl),a
  4650. dec de
  4651. dec hl
  4652. dec c
  4653. jr nz,$F7
  4654. ei
  4655. ret
  4656. dec a
  4657. jr nz,$03
  4658. ld de,65524
  4659. add hl,de
  4660. ld c,12
  4661. ld de,23
  4662. add hl,de
  4663. ld de,34551
  4664. xor a
  4665. push af
  4666. ex de,hl
  4667. pop af
  4668. ld a,(de)
  4669. rla
  4670. push af
  4671. and (hl)
  4672. push af
  4673. ex de,hl
  4674. ld a,(de)
  4675. cpl
  4676. and (hl)
  4677. ld (hl),a
  4678. pop af
  4679. or (hl)
  4680. ex de,hl
  4681. ld (de),a
  4682. dec de
  4683. dec hl
  4684. dec c
  4685. jr nz,$EC
  4686. pop af
  4687. ex de,hl
  4688. djnz $DC
  4689. ret
  4690. ex de,hl
  4691. ld c,12
  4692. ld hl,34540
  4693. xor a
  4694. push af
  4695. pop af
  4696. ld a,(de)
  4697. rra
  4698. push af
  4699. and (hl)
  4700. push af
  4701. ld a,(hl)
  4702. cpl
  4703. ex de,hl
  4704. and (hl)
  4705. ld (hl),a
  4706. pop af
  4707. or (hl)
  4708. ld (hl),a
  4709. ex de,hl
  4710. inc de
  4711. inc hl
  4712. dec c
  4713. jr nz,$EC
  4714. pop af
  4715. djnz $E2
  4716. ret
  4717. nop
  4718. nop
  4719. ret
  4720. pop hl
  4721. rst 28h
  4722. djnz $45
  4723. push hl
  4724. ret
  4725. ld hl,27194
  4726. ld($9995),hl
  4727. rst 28h
  4728. jr nz,$4A
  4729. ld hl,22993
  4730. ld de,39026
  4731. ld bc,258
  4732. ldir
  4733. in a,($06)
  4734. ld($9B71),a
  4735. ld b,a
  4736. ld hl,($9BAC)
  4737. inc hl
  4738. ld a,(39854)
  4739. cp b
  4740. jr z,$06
  4741. ld($9B68),hl
  4742. ld($689D),a
  4743. ld hl,($9B9C)
  4744. inc hl
  4745. ld a,(39838)
  4746. cp b
  4747. jr z,$06
  4748. ld($9B6B),hl
  4749. ld($6B9D),a
  4750. ld hl,($9B84)
  4751. inc hl
  4752. ld a,(39814)
  4753. cp b
  4754. jr z,$06
  4755. ld($9B6E),hl
  4756. ld($6E9D),a
  4757. ld hl,17119
  4758. ld a,b
  4759. rst 28h
  4760. ld h,80
  4761. ret
  4762. ld bc,1919
  4763. ld hl,0
  4764. ld d,h
  4765. ld e,l
  4766. rlc c
  4767. ld a,c
  4768. out ($01),a
  4769. ex (sp),hl
  4770. ex (sp),hl
  4771. in a,($01)
  4772. cpl
  4773. or a
  4774. jr nz,$08
  4775. ld a,8
  4776. add a,l
  4777. ld l,a
  4778. djnz $ED
  4779. jr $0E
  4780. push bc
  4781. ld b,8
  4782. inc l
  4783. rrca
  4784. jr nc, $02
  4785. ld e,h 
  4786. ld h,l
  4787. djnz $F8
  4788. pop bc
  4789. djnz $DD
  4790. ld a,h
  4791. or a
  4792. jr nz,$01
  4793. ld l,a
  4794. ld l,h
  4795. ld h,d
  4796. ld a,e
  4797. or a
  4798. jr z,$0A
  4799. ld b,h
  4800. ld c,l
  4801. add hl,hl
  4802. add hl,bc
  4803. add hl,hl
  4804. add hl,bc
  4805. add hl,hl
  4806. add hl,hl
  4807. add hl,hl
  4808. add hl,bc
  4809. add hl,de
  4810. ld a,l
  4811. ret
  4812. ld hl,26415
  4813. ld c,11
  4814. jr $3D
  4815. ld hl,26405
  4816. ld c,10
  4817. jr $36
  4818. ld hl,26396
  4819. ld c,9
  4820. jr $2F
  4821. ld hl,26387
  4822. ld c,9
  4823. jr $28
  4824. ld hl,26379
  4825. ld c,8
  4826. jr $21
  4827. ld hl,26374
  4828. ld c,5
  4829. jr $1A
  4830. ld hl,26368
  4831. ld c,6
  4832. jr $13
  4833. ld hl,26362
  4834. ld c,6
  4835. jr $0C
  4836. ld hl,26356
  4837. ld c,6
  4838. jr $05
  4839. ld hl,26349
  4840. ld c,7
  4841. ld b,0
  4842. push hl
  4843. call 20732
  4844. pop hl
  4845. ldir
  4846. jp $502E
  4847. ld a,(33867)
  4848. rlca
  4849. rlca
  4850. rlca
  4851. ld c,a
  4852. ld a,(33868)
  4853. ld b,a
  4854. in a,($10)
  4855. add a,a
  4856. jr c, $FB
  4857. xor a
  4858. out ($10),a
  4859. in a,($10)
  4860. add a,a
  4861. jr c, $FB
  4862. ld a,5
  4863. out ($10),a
  4864. in a,($10)
  4865. add a,a
  4866. jr c, $FB
  4867. ld a,32
  4868. add a,b
  4869. out ($10),a
  4870. in a,($10)
  4871. add a,a
  4872. jr c, $FB
  4873. ld a,128
  4874. add a,c
  4875. out ($10),a
  4876. ld b,8
  4877. in a,($10)
  4878. add a,a
  4879. jr c, $FB
  4880. ld a,(hl)
  4881. inc hl
  4882. out ($11),a
  4883. djnz $F5
  4884. in a,($10)
  4885. add a,a
  4886. jr c, $FB
  4887. ld a,1
  4888. out ($10),a
  4889. ret
  4890. add a,e
  4891. cp 1
  4892. jr z,$03
  4893. xor a
  4894. dec a
  4895. ret
  4896. ld a,b
  4897. cp 58
  4898. jr c, $02
  4899. sub 7
  4900. sub 48
  4901. cp 16
  4902. jr nc, $F0
  4903. ld c,a
  4904. ld a,(38483)
  4905. or a
  4906. jr z,$E9
  4907. ld h,0
  4908. ld l,c
  4909. add hl,hl
  4910. add hl,hl
  4911. add hl,hl
  4912. push hl
  4913. ld hl,39254
  4914. ld e,(hl)
  4915. inc hl
  4916. ld d,(hl)
  4917. inc hl
  4918. push de
  4919. ld c,(hl)
  4920. inc hl
  4921. ld b,(hl)
  4922. inc hl
  4923. push bc
  4924. rst 20h
  4925. rst 28h
  4926. pop af
  4927. ld b,d
  4928. ld a,b
  4929. pop bc
  4930. jr nc, $0A
  4931. res 5,(iy+53)
  4932. pop de
  4933. pop hl
  4934. ld hl,33882
  4935. ret
  4936. call 39154
  4937. pop de
  4938. add hl,de
  4939. pop de
  4940. add hl,de
  4941. call 22707
  4942. ld bc,8
  4943. ld de,33882
  4944. push de
  4945. call 39117
  4946. pop hl
  4947. call 24485
  4948. jp $9963
  4949. ld hl,33868
  4950. ld a,(hl)
  4951. ld b,a
  4952. cp 12
  4953. ret nc
  4954. dec hl
  4955. ld a,(hl)
  4956. rlca
  4957. rlca
  4958. rlca
  4959. ld l,a
  4960. ld h,b
  4961. ld bc,2049
  4962. jp $5217
  4963. add a,e
  4964. cp 1
  4965. jr z,$03
  4966. xor a
  4967. dec a
  4968. ret
  4969. ld a,b
  4970. cp 58
  4971. jr c, $02
  4972. sub 7
  4973. sub 48
  4974. cp 16
  4975. jr nc, $F0
  4976. ld c,a
  4977. ld a,(38483)
  4978. or a
  4979. jr z,$E9
  4980. ld h,0
  4981. ld l,c
  4982. add hl,hl
  4983. add hl,hl
  4984. add hl,hl
  4985. push hl
  4986. ld hl,39254
  4987. ld e,(hl)
  4988. inc hl
  4989. ld d,(hl)
  4990. inc hl
  4991. push de
  4992. ld c,(hl)
  4993. inc hl
  4994. ld b,(hl)
  4995. inc hl
  4996. push bc
  4997. rst 20h
  4998. rst 28h
  4999. pop af
  5000. ld b,d
  5001. ld a,b
  5002. pop bc
  5003. jr nc, $0A
  5004. res 5,(iy+53)
  5005. pop de
  5006. pop hl
  5007. ld hl,33882
  5008. ret
  5009. call 39154
  5010. pop de
  5011. add hl,de
  5012. pop de
  5013. add hl,de
  5014. call 22707
  5015. ld bc,8
  5016. ld de,33882
  5017. push de
  5018. call 39117
  5019. pop de
  5020. call 24649
  5021. jp $9963
  5022. add a,e
  5023. cp 1
  5024. ret nz
  5025. ld h,0
  5026. ld l,b
  5027. add hl,hl
  5028. add hl,hl
  5029. add hl,hl
  5030. push hl
  5031. ld hl,39254
  5032. ld e,(hl)
  5033. inc hl
  5034. ld d,(hl)
  5035. inc hl
  5036. push de
  5037. ld c,(hl)
  5038. inc hl
  5039. ld b,(hl)
  5040. inc hl
  5041. push bc
  5042. rst 20h
  5043. rst 28h
  5044. pop af
  5045. ld b,d
  5046. ld a,b
  5047. pop bc
  5048. jr nc, $06
  5049. pop de
  5050. pop hl
  5051. ld hl,33882
  5052. ret
  5053. call 39154
  5054. pop de
  5055. add hl,de
  5056. pop de
  5057. add hl,de
  5058. call 22707
  5059. ld bc,8
  5060. ld de,33882
  5061. push de
  5062. call 39117
  5063. pop hl
  5064. bit 3,(iy+5)
  5065. jr z,$0A
  5066. push hl
  5067. ld b,8
  5068. ld a,(hl)
  5069. cpl
  5070. ld (hl),a
  5071. inc hl
  5072. djnz $FA
  5073. pop hl
  5074. ex de,hl
  5075. call 24649
  5076. jp $9963
  5077. xor a
  5078. ret
  5079. ld hl,($9B68)
  5080. ld a,(39302)
  5081. jp $9932
  5082. ld bc,2049
  5083. ld de,16521
  5084. jr z,$03
  5085. ld de,16529
  5086. jp $5217
  5087. ld hl,1030
  5088. ld($844B),hl
  5089. or a
  5090. jr nz,$07
  5091. in a,($06)
  5092. ld de,26341
  5093. jr $03
  5094. ld de,16402
  5095. ld bc,8
  5096. ld hl,33966
  5097. ld (hl),c
  5098. push hl
  5099. inc hl
  5100. ex de,hl
  5101. call 39117
  5102. pop hl
  5103. rst 28h
  5104. djnz $45
  5105. ret
  5106. xor a
  5107. push af
  5108. ld hl,26426
  5109. call 20326
  5110. ld hl,535
  5111. bit 1,(iy+54)
  5112. call 24856
  5113. ld hl,543
  5114. bit 5,(iy+53)
  5115. call 24856
  5116. ld hl,551
  5117. bit 5,(iy+52)
  5118. call 24856
  5119. ld hl,37696
  5120. call 22963
  5121. pop af
  5122. push af
  5123. rlca
  5124. rlca
  5125. rlca
  5126. add a,23
  5127. ld c,a
  5128. ld b,8
  5129. ld de,16400
  5130. ld a,2
  5131. call 23481
  5132. call 20323
  5133. pop af
  5134. push af
  5135. ld b,a
  5136. add a,a
  5137. add a,b
  5138. add a,106
  5139. ld h,155
  5140. ld l,a
  5141. ld a,(hl)
  5142. call 24870
  5143. call 24338
  5144. or a
  5145. jr z,$FA
  5146. pop bc
  5147. push af
  5148. ld a,b
  5149. push af
  5150. rlca
  5151. rlca
  5152. rlca
  5153. add a,23
  5154. ld c,a
  5155. ld b,8
  5156. ld de,16400
  5157. ld a,2
  5158. call 23481
  5159. pop bc
  5160. pop af
  5161. cp 15
  5162. ret z
  5163. cp 1
  5164. jr nz,$01
  5165. inc b
  5166. cp 4
  5167. jr nz,$01
  5168. dec b
  5169. cp 9
  5170. jr nz,$0B
  5171. dec b
  5172. jp z, $635E
  5173. dec b
  5174. jp z, $6363
  5175. jp $6363
  5176. sub 18
  5177. jr c, $0C
  5178. rrca
  5179. rrca
  5180. rrca
  5181. cp 3
  5182. jr nc, $05
  5183. ld c,a
  5184. ld a,2
  5185. sub c
  5186. ld b,a
  5187. ld a,b
  5188. inc b
  5189. jr nz,$02
  5190. ld a,2
  5191. cp 3
  5192. jr nz,$01
  5193. xor a
  5194. jr $89
  5195. ld a,b
  5196. ld l,c
  5197. ld h,0
  5198. ld b,h
  5199. add hl,hl
  5200. add hl,bc
  5201. add hl,hl
  5202. add hl,hl
  5203. ld b,a
  5204. rrca
  5205. rrca
  5206. rrca
  5207. and 15
  5208. ld c,a
  5209. ld a,b
  5210. ld b,0
  5211. add hl,bc
  5212. ld bc,($84B6)
  5213. or (hl)
  5214. add a,h
  5215. add hl,bc
  5216. and 7
  5217. ld b,a
  5218. inc b
  5219. ld a,1
  5220. rrca
  5221. djnz $FD
  5222. ret
  5223. push af
  5224. ld a,c
  5225. di
  5226. ex af,af
  5227. ld a,12
  5228. sub b
  5229. ld c,a
  5230. pop af
  5231. or a
  5232. jr nz,$10
  5233. ex af,af
  5234. push bc
  5235. push af
  5236. ld a,(de)
  5237. ld (hl),a
  5238. inc de
  5239. inc hl
  5240. djnz $FA
  5241. add hl,bc
  5242. pop af
  5243. pop bc
  5244. dec a
  5245. jr nz,$F2
  5246. ret
  5247. dec a
  5248. jr nz,$11
  5249. ex af,af
  5250. push bc
  5251. push af
  5252. ld a,(de)
  5253. and (hl)
  5254. ld (hl),a
  5255. inc de
  5256. inc hl
  5257. djnz $F9
  5258. add hl,bc
  5259. pop af
  5260. pop bc
  5261. dec a
  5262. jr nz,$F1
  5263. ret
  5264. dec a
  5265. jr nz,$11
  5266. ex af,af
  5267. push bc
  5268. push af
  5269. ld a,(de)
  5270. xor (hl)
  5271. ld (hl),a
  5272. inc de
  5273. inc hl
  5274. djnz $F9
  5275. add hl,bc
  5276. pop af
  5277. pop bc
  5278. dec a
  5279. jr nz,$F1
  5280. ret
  5281. dec a
  5282. jr nz,$11
  5283. ex af,af
  5284. push bc
  5285. push af
  5286. ld a,(de)
  5287. or (hl)
  5288. ld (hl),a
  5289. inc de
  5290. inc hl
  5291. djnz $F9
  5292. add hl,bc
  5293. pop af
  5294. pop bc
  5295. dec a
  5296. jr nz,$F1
  5297. ret
  5298. jp $66B6
  5299. ld b,8
  5300. or a
  5301. jr nz,$0C
  5302. ld a,b
  5303. ld bc,11
  5304. ldi
  5305. inc c
  5306. add hl,bc
  5307. dec a
  5308. jr nz,$F9
  5309. ret
  5310. dec a
  5311. jr nz,$0E
  5312. ld c,12
  5313. ld a,(de)
  5314. and (hl)
  5315. ld (hl),a
  5316. inc de
  5317. ld a,b
  5318. ld b,0
  5319. add hl,bc
  5320. ld b,a
  5321. djnz $F5
  5322. ret
  5323. dec a
  5324. jr nz,$0E
  5325. ld c,12
  5326. ld a,(de)
  5327. xor (hl)
  5328. ld (hl),a
  5329. inc de
  5330. ld a,b
  5331. ld b,0
  5332. add hl,bc
  5333. ld b,a
  5334. djnz $F5
  5335. ret
  5336. ld c,12
  5337. ld a,(de)
  5338. or (hl)
  5339. ld (hl),a
  5340. inc de
  5341. ld a,b
  5342. ld b,0
  5343. add hl,bc
  5344. ld b,a
  5345. djnz $F5
  5346. ret
  5347. rrca
  5348. push af
  5349. call c,25418
  5350. pop af
  5351. rrca
  5352. push af
  5353. call c,25412
  5354. pop af
  5355. rrca
  5356. push af
  5357. call c,25395
  5358. pop af
  5359. rrca
  5360. push af
  5361. call c,25377
  5362. pop af
  5363. rrca
  5364. push af
  5365. call c,25352
  5366. pop af
  5367. rrca
  5368. push af
  5369. call c,25326
  5370. pop af
  5371. rrca
  5372. ret nc
  5373. ld b,64
  5374. ld hl,38455
  5375. ld de,38463
  5376. push bc
  5377. ld bc,4
  5378. lddr
  5379. ld b,8
  5380. xor a
  5381. ld (de),a
  5382. dec de
  5383. dec hl
  5384. djnz $FB
  5385. pop bc
  5386. djnz $EF
  5387. ret
  5388. ld b,64
  5389. ld hl,38459
  5390. ld de,38463
  5391. push bc
  5392. ld bc,8
  5393. lddr
  5394. ld b,4
  5395. xor a
  5396. ld (de),a
  5397. dec de
  5398. dec hl
  5399. djnz $FB
  5400. pop bc
  5401. djnz $EF
  5402. ret
  5403. ld b,64
  5404. ld hl,38461
  5405. ld de,38463
  5406. push bc
  5407. ld bc,10
  5408. lddr
  5409. xor a
  5410. ld (de),a
  5411. dec de
  5412. ld (de),a
  5413. dec de
  5414. dec hl
  5415. dec hl
  5416. pop bc
  5417. djnz $F0
  5418. ret
  5419. ld hl,37696
  5420. ld d,64
  5421. xor a
  5422. ld b,12
  5423. ld c,(hl)
  5424. ld (hl),a
  5425. inc hl
  5426. ld a,c
  5427. djnz $FA
  5428. dec d
  5429. jr nz,$F4
  5430. ret
  5431. ld hl,37696
  5432. ld c,64
  5433. xor a
  5434. ld b,12
  5435. rrd
  5436. inc hl
  5437. djnz $FB
  5438. dec c
  5439. jr nz,$F5
  5440. ret
  5441. call 25418
  5442. jp $634A
  5443. ld hl,37696
  5444. ld c,64
  5445. xor a
  5446. ld b,12
  5447. rr (hl)
  5448. inc hl
  5449. djnz $FB
  5450. dec c
  5451. jr nz,$F5
  5452. ret
  5453. jp $614B
  5454. ld a,1
  5455. jp $614C
  5456. ld a,2
  5457. jp $614C
  5458. ld b,0
  5459. push hl
  5460. add hl,bc
  5461. dec hl
  5462. ld a,c
  5463. rlca
  5464. rlca
  5465. rlca
  5466.         ld d,a
  5467. xor a
  5468.         ld b,c
  5469. or a
  5470. rl (hl)
  5471. dec hl
  5472. djnz $FB
  5473. rla
  5474. add hl,bc
  5475. cp e
  5476. jr c, $02
  5477. sub e
  5478. inc (hl)
  5479. dec d
  5480. jr nz,$EF
  5481. pop hl
  5482.         ld b,c
  5483.         ld d,a
  5484. ld a,(hl)
  5485. or a
  5486. jr nz,$04
  5487. dec c
  5488. inc hl
  5489. djnz $F8
  5490. ld a,d
  5491. ld b,0
  5492. ret
  5493. call 22631
  5494. inc de
  5495. ld a,(de)
  5496. cp 235
  5497. jr nz,$03
  5498. ld a,93
  5499. ld (de),a
  5500. dec de
  5501. ex de,hl
  5502.         ld b,c
  5503. ld de,33912
  5504. call 20658
  5505. xor a
  5506. ld (de),a
  5507. inc de
  5508. ld (de),a
  5509. push bc
  5510. rst 28h
  5511. pop af
  5512. ld b,d
  5513. ld a,b
  5514. pop bc
  5515. ret
  5516. xor a
  5517. rrd
  5518. cp 10
  5519. jr c, $02
  5520. add a,7
  5521. ld (de),a
  5522. dec de
  5523. ret
  5524. call 25491
  5525. call c,24419
  5526. or a
  5527. jp nz,$5F78
  5528. ex de,hl
  5529. ld c,(hl)
  5530. inc hl
  5531. ld b,(hl)
  5532. inc hl
  5533. ret
  5534. ld de,37696
  5535. ld hl,34540
  5536. ld c,8
  5537. ld b,8
  5538. push bc
  5539. push hl
  5540. ld bc,3080
  5541. ld a,(de)
  5542. ld (hl),a
  5543. inc de
  5544. ld a,b
  5545. ld b,0
  5546. add hl,bc
  5547. ld b,a
  5548. djnz $F6
  5549. pop hl
  5550. inc hl
  5551. pop bc
  5552. djnz $EC
  5553. ld a,c
  5554. ld c,88
  5555. add hl,bc
  5556. ld c,a
  5557. dec c
  5558. jr nz,$E2
  5559. ret
  5560. call 25523
  5561. call 25523
  5562. cpd
  5563. jp pe,$63F6
  5564. ret
  5565. ld de,32768
  5566. ld hl,37696
  5567. rrca
  5568. push af
  5569. call c,25764
  5570. pop af
  5571. rrca
  5572. push af
  5573. call c,25758
  5574. pop af
  5575. rrca
  5576. push af
  5577. call c,25741
  5578. pop af
  5579. rrca
  5580. push af
  5581. call c,25723
  5582. pop af
  5583. rrca
  5584. push af
  5585. call c,25698
  5586. pop af
  5587. rrca
  5588. push af
  5589. call c,25672
  5590. pop af
  5591. rrca
  5592. ret nc
  5593. ld b,64
  5594. ld hl,37704
  5595. ld de,37696
  5596. push bc
  5597. ld bc,4
  5598. ldir
  5599. ld b,8
  5600. xor a
  5601. ld (de),a
  5602. inc de
  5603. inc hl
  5604. djnz $FB
  5605. pop bc
  5606. djnz $EF
  5607. ret
  5608. ld b,64
  5609. ld hl,37700
  5610. ld de,37696
  5611. push bc
  5612. ld bc,8
  5613. ldir
  5614. ld b,4
  5615. xor a
  5616. ld (de),a
  5617. inc de
  5618. inc hl
  5619. djnz $FB
  5620. pop bc
  5621. djnz $EF
  5622. ret
  5623. ld b,64
  5624. ld hl,37698
  5625. ld de,37696
  5626. push bc
  5627. ld bc,10
  5628. ldir
  5629. xor a
  5630. ld (de),a
  5631. inc de
  5632. ld (de),a
  5633. inc de
  5634. inc hl
  5635. inc hl
  5636. pop bc
  5637. djnz $F0
  5638. ret
  5639. ld hl,38463
  5640. ld d,64
  5641. xor a
  5642. ld b,12
  5643. ld c,(hl)
  5644. ld (hl),a
  5645. dec hl
  5646. ld a,c
  5647. djnz $FA
  5648. dec d
  5649. jr nz,$F4
  5650. ret
  5651. ld hl,38463
  5652. ld c,64
  5653. xor a
  5654. ld b,12
  5655. rld
  5656. dec hl
  5657. djnz $FB
  5658. dec c
  5659. jr nz,$F5
  5660. ret
  5661. call 25764
  5662. jp $64A4
  5663. ld hl,38463
  5664. ld c,64
  5665. xor a
  5666. ld b,12
  5667. rl (hl)
  5668. dec hl
  5669. djnz $FB
  5670. dec c
  5671. jr nz,$F5
  5672. ret
  5673. ld de,12
  5674. call 20801
  5675. push hl
  5676. ld a,h
  5677. inc a
  5678. cpl
  5679. and 3
  5680. ld b,a
  5681. ld a,l
  5682. dec a
  5683. cpl
  5684. ld c,a
  5685. ld hl,37695
  5686. add hl,bc
  5687. ld de,38463
  5688. lddr
  5689. pop bc
  5690. xor a
  5691. ld (de),a
  5692. ld h,d
  5693. ld l,e
  5694. dec de
  5695. lddr
  5696. ret
  5697. ld de,12
  5698. call 20801
  5699. push hl
  5700. ld a,h
  5701. inc a
  5702. cpl
  5703. and 3
  5704. ld b,a
  5705. ld a,l
  5706. dec a
  5707. cpl
  5708. ld c,a
  5709. ld de,37696
  5710. add hl,de
  5711. ldir
  5712. pop bc
  5713. xor a
  5714. ld (de),a
  5715. ld h,d
  5716. ld l,e
  5717. inc de
  5718. ldir
  5719. ret
  5720. push bc
  5721. ld a,b
  5722. or c
  5723. jp z, $5F6A
  5724. ld h,b
  5725. ld l,c
  5726. rst 28h
  5727. ld e,67
  5728. inc de
  5729. inc de
  5730. push de
  5731. rst 28h
  5732. dec e
  5733.         ld b,c
  5734. pop de
  5735. pop bc
  5736. ret
  5737. ld c,96
  5738. jr $06
  5739. ld c,92
  5740. jr $02
  5741. ld c,170
  5742. push bc
  5743. ld hl,($999D)
  5744. dec hl
  5745. ld a,(hl)
  5746. and 31
  5747. pop bc
  5748. jr nz,$15
  5749. push bc
  5750. call 39312
  5751. pop hl
  5752. ld h,a
  5753. ld($8479),hl
  5754. xor a
  5755. ld($847B),a
  5756. rst 10h
  5757. ld a,b
  5758. ld bc,3
  5759. jp $98F2
  5760. call 22624
  5761. ex de,hl
  5762. xor a
  5763. ret
  5764. ld hl,($999D)
  5765. dec hl
  5766. ld a,(hl)
  5767. and 31
  5768. jr nz,$17
  5769. call 39312
  5770. ld hl,23809
  5771. ld($8478),hl
  5772. ld ($847A),de
  5773. rst 28h
  5774. pop af
  5775. ld b,d
  5776. ld a,b
  5777. ld bc,4
  5778. jp $98F2
  5779. dec a
  5780. push af
  5781. call 22624
  5782. ex de,hl
  5783. pop af
  5784. ret z
  5785. cp 12
  5786. ret z
  5787. sub 3
  5788. jp nz,$5F63
  5789. ex de,hl
  5790. jp $6393
  5791. push af
  5792. ld bc,($9993)
  5793. sub e
  5794. sbc a,c
  5795. ld a,b
  5796. cp 24
  5797. ld a,c
  5798. jr c, $04
  5799. ld b,0
  5800. add a,6
  5801. cp 59
  5802. jr c, $06
  5803. sub 60
  5804. jr nc, $02
  5805. add a,6
  5806. ld c,a
  5807. inc b
  5808. ld ($9993),bc
  5809. dec b
  5810. ld hl,($9995)
  5811. pop af
  5812. push bc
  5813. push hl
  5814. ld b,0
  5815. ld c,a
  5816. ld h,b
  5817. ld l,c
  5818. add hl,hl
  5819. add hl,bc
  5820. pop de
  5821. add hl,de
  5822. pop bc
  5823. push hl
  5824. ld a,b
  5825. ld b,0
  5826. ld h,b
  5827. ld l,c
  5828. add hl,hl
  5829. add hl,bc
  5830. add hl,hl
  5831. add hl,hl
  5832. rra
  5833. push af
  5834. ld c,a
  5835. add hl,bc
  5836. ld bc,37696
  5837. add hl,bc
  5838. ld bc,1548
  5839. pop af
  5840. pop de
  5841. jr c, $1A
  5842. ld a,(hl)
  5843. and 15
  5844. ld (hl),a
  5845. ld a,(de)
  5846. bit 0,b
  5847. jr z,$05
  5848. rlca
  5849. rlca
  5850. rlca
  5851. rlca
  5852. inc de
  5853. and 240
  5854. or (hl)
  5855. ld (hl),a
  5856. ld a,b
  5857. ld b,0
  5858. add hl,bc
  5859. ld b,a
  5860. djnz $E7
  5861. ret
  5862. ld a,(hl)
  5863. and 240
  5864. ld (hl),a
  5865. ld a,(de)
  5866. bit 0,b
  5867. jr nz,$05
  5868. rlca
  5869. rlca
  5870. rlca
  5871. rlca
  5872. dec de
  5873. inc de
  5874. and 15
  5875. or (hl)
  5876. ld (hl),a
  5877. ld a,b
  5878. ld b,0
  5879. add hl,bc
  5880. ld b,a
  5881. djnz $E6
  5882. ret
  5883. push bc
  5884. push hl
  5885. ld a,(hl)
  5886. call 25968
  5887. pop hl
  5888. pop bc
  5889. cpi
  5890. jp pe,$65EE
  5891. ret
  5892. sub 92
  5893. ret z
  5894. dec a
  5895. ret z
  5896. dec a
  5897. ret z
  5898. sub 2
  5899. ret z
  5900. dec a
  5901. ret z
  5902. dec a
  5903. ret z
  5904. dec a
  5905. ret z
  5906. sub 27
  5907. ret z
  5908. sub 44
  5909. ret z
  5910. sub 17
  5911. ret z
  5912. sub 52
  5913. ret
  5914. ld hl,($999D)
  5915. dec hl
  5916. or a
  5917. jr z,$01
  5918. cp (hl)
  5919. jp nz,$5F5C
  5920. rst 20h
  5921. inc hl
  5922. ld($999D),hl
  5923. ld hl,($999B)
  5924. dec hl
  5925. ld($999B),hl
  5926. rst 28h
  5927. pop af
  5928. ld b,d
  5929. jp c,$4FCD
  5930. ex de,hl
  5931. ld c,(hl)
  5932. inc hl
  5933. ld b,(hl)
  5934. inc hl
  5935. ex de,hl
  5936. ret
  5937. call 21113
  5938. ld hl,($965D)
  5939. ld a,(hl)
  5940. cp 63
  5941. jr nz,$F5
  5942. ret
  5943. ld hl,($965D)
  5944. inc hl
  5945. ld a,(hl)
  5946. cp 42
  5947. jr z,$0A
  5948. call 39063
  5949. dec de
  5950. dec hl
  5951. inc bc
  5952. ld($965D),hl
  5953. ret
  5954. inc hl
  5955. ld a,(hl)
  5956. call 26108
  5957. jr nz,$3A
  5958. ld ($84AE),bc
  5959. ld c,(hl)
  5960. inc hl
  5961. ld b,(hl)
  5962. inc hl
  5963. ld($965D),hl
  5964. ld a,(hl)
  5965. cp 63
  5966. di
  5967. ex af,af
  5968. call 22842
  5969. ld a,b
  5970. ld bc,12
  5971. call 39154
  5972. ex de,hl
  5973. push bc
  5974. ld bc,($84AE)
  5975. xor (hl)
  5976. add a,h
  5977. ld a,b
  5978. or c
  5979. jr nz,$03
  5980. pop bc
  5981. jr $01
  5982. pop af
  5983. ex af,af
  5984. ret z
  5985. push af
  5986. push hl
  5987. push bc
  5988. push de
  5989. ld b,d
  5990. ld c,e
  5991. call 21113
  5992. pop hl
  5993. add hl,bc
  5994. ex de,hl
  5995. pop bc
  5996. pop hl
  5997. pop af
  5998. ret
  5999. ld a,(hl)
  6000. ld($965D),hl
  6001. sub 65
  6002. rlca
  6003. ld h,128
  6004. ld l,a
  6005. ld de,54
  6006. ld c,(hl)
  6007. inc hl
  6008. ld b,(hl)
  6009. add hl,de
  6010. add hl,de
  6011. dec hl
  6012. ld a,(hl)
  6013. sbc hl,de
  6014. ld e,(hl)
  6015. inc hl
  6016. ld d,(hl)
  6017. ret
  6018. ex af,af
  6019. ld c,12
  6020. push bc
  6021. push af
  6022. ld a,(de)
  6023. ldi
  6024. dec hl
  6025. ld (hl),a
  6026. inc hl
  6027. djnz $F8
  6028. add hl,bc
  6029. pop af
  6030. pop bc
  6031. dec a
  6032. jr nz,$F0
  6033. ret
  6034. ld de,35307
  6035. call 20513
  6036. cp 10
  6037. jr c, $02
  6038. add a,7
  6039. add a,48
  6040. ld (de),a
  6041. dec de
  6042. ld a,h
  6043. or l
  6044. jr nz,$EF
  6045. ld a,235
  6046. sub e
  6047. ld c,a
  6048. inc de
  6049. ex de,hl
  6050. ret
  6051. jr nz,$20
  6052. jr nz,$20
  6053. jr nz,$20
  6054. jr nz,$20
  6055. ld a,(17736)
  6056. ld c,c
  6057. ld b,a
  6058. ld c,b
  6059. ld d,h
  6060. ld a,(18775)
  6061. ld b,h
  6062. ld d,h
  6063. ld c,b
  6064. ld a,(16706)
  6065. ld b,h
  6066. add hl,hl
  6067. ld e,c
  6068. ld a,(16706)
  6069. ld b,h
  6070. add hl,hl
  6071. ld e,b
  6072. ld a,(21057)
  6073. ld b,e
  6074. ld c,b
  6075. ld a,(20308)
  6076. ld c,a
  6077. add hl,hl
  6078. ld b,d
  6079. ld c,c
  6080. ld b,a
  6081. ld a,(20302)
  6082. add hl,hl
  6083. ld b,h
  6084.         ld b,c
  6085. ld d,h
  6086.         ld b,c
  6087. xor a
  6088. ld a,(16706)
  6089. ld b,h
  6090. add hl,hl
  6091. ld c,(hl)
  6092.         ld b,c
  6093. ld c,l
  6094. ld b,l
  6095. ld a,(16706)
  6096. ld b,h
  6097. add hl,hl
  6098. ld c,c
  6099. ld c,(hl)
  6100. ld d,b
  6101. ld d,l
  6102. ld d,h
  6103. ld a,(16706)
  6104. ld b,h
  6105. add hl,hl
  6106. ld c,(hl)
  6107. ld d,l
  6108. ld c,l
  6109. ld b,d
  6110. ld b,l
  6111. ld d,d
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top