; Load: 26144 ($6620), len: 872 bytes
6620 A9 03 LDA #$03
6622 85 31 STA $31
6624 20 0A F5 JSR $F50A
6627 50 FE BVC $6627
6629 B8 CLV
662A AD 01 1C LDA $1C01
662D 99 00 03 STA $0300,Y
6630 C8 INY
6631 D0 F4 BNE $6627
6633 A0 BA LDY #$BA
6635 50 FE BVC $6635
6637 B8 CLV
6638 AD 01 1C LDA $1C01
663B 99 00 01 STA $0100,Y
663E C8 INY
663F D0 F4 BNE $6635
6641 20 E0 F8 JSR $F8E0
6644 A5 38 LDA $38
6646 C5 47 CMP $47
6648 F0 05 BEQ $664F
664A A9 04 LDA #$04
664C 4C 69 F9 JMP $F969
664F 20 E9 F5 JSR $F5E9
6652 C5 3A CMP $3A
6654 F0 05 BEQ $665B
6656 A9 05 LDA #$05
6658 4C 69 F9 JMP $F969
665B AD 00 03 LDA $0300
665E F0 2A BEQ $668A
6660 A2 00 LDX #$00
6662 BD 00 03 LDA $0300,X
6665 20 80 06 JSR $0680
6668 E8 INX
6669 D0 F7 BNE $6662
666B AD 00 03 LDA $0300
666E C5 0C CMP $0C
6670 D0 0C BNE $667E
6672 AD 01 03 LDA $0301
6675 85 0D STA $0D
6677 AD 00 03 LDA $0300
667A 85 0C STA $0C
667C D0 A6 BNE $6624
667E 85 0C STA $0C
6680 AD 01 03 LDA $0301
6683 85 0D STA $0D
6685 A9 01 LDA #$01
6687 4C 69 F9 JMP $F969
668A A2 00 LDX #$00
668C EE 01 03 INC $0301
668F BD 00 03 LDA $0300,X
6692 20 80 06 JSR $0680
6695 E8 INX
6696 EC 01 03 CPX $0301
6699 D0 F4 BNE $668F
669B A9 7F LDA #$7F
669D 4C 69 F9 JMP $F969
66A0 A8 TAY
66A1 2C 00 18 BIT $1800
66A4 10 FB BPL $66A1
66A6 A9 10 LDA #$10
66A8 8D 00 18 STA $1800
66AB 2C 00 18 BIT $1800
66AE 30 FB BMI $66AB
66B0 98 TYA
66B1 4A LSR A
66B2 4A LSR A
66B3 4A LSR A
66B4 4A LSR A
66B5 8D 00 18 STA $1800
66B8 0A ASL A
66B9 29 0F AND #$0F
66BB 8D 00 18 STA $1800
66BE 98 TYA
66BF 29 0F AND #$0F
66C1 8D 00 18 STA $1800
66C4 0A ASL A
66C5 29 0F AND #$0F
66C7 8D 00 18 STA $1800
66CA A9 0F LDA #$0F
66CC EA NOP
66CD 8D 00 18 STA $1800
66D0 60 RTS
66D1 20 00 C1 JSR $C100
66D4 A5 18 LDA $18
66D6 A6 19 LDX $19
66D8 85 0C STA $0C
66DA 86 0D STX $0D
66DC 8D 00 03 STA $0300
66DF 8E 01 03 STX $0301
66E2 A9 E0 LDA #$E0
66E4 85 03 STA $03
66E6 A5 03 LDA $03
66E8 30 FC BMI $66E6
66EA C9 02 CMP #$02
66EC 90 F4 BCC $66E2
66EE C9 7F CMP #$7F
66F0 F0 03 BEQ $66F5
66F2 4C 0A E6 JMP $E60A
66F5 4C 9E C1 JMP $C19E
66F8 00 BRK
66F9 00 BRK
66FA 00 BRK
66FB 00 BRK
66FC 00 BRK
66FD 00 BRK
66FE 00 BRK
66FF 00 BRK
6700 A0 A0 LDY #$A0
6702 A0 A0 LDY #$A0
6704 A0 A0 LDY #$A0
6706 A0 A0 LDY #$A0
6708 50 50 BVC $675A
670A 50 50 BVC $675C
670C 50 50 BVC $675E
670E 50 50 BVC $6760
6710 0A ASL A
6711 0A ASL A
6712 0A ASL A
6713 0A ASL A
6714 0A ASL A
6715 0A ASL A
6716 0A ASL A
6717 0A ASL A
6718 05 05 ORA $05
671A 05 05 ORA $05
671C 05 05 ORA $05
671E 05 05 ORA $05
6720 33 ??
6721 33 ??
6722 33 ??
6723 33 ??
6724 33 ??
6725 33 ??
6726 33 ??
6727 33 ??
6728 33 ??
6729 33 ??
672A 33 ??
672B 33 ??
672C 33 ??
672D 33 ??
672E 33 ??
672F 33 ??
6730 33 ??
6731 33 ??
6732 33 ??
6733 33 ??
6734 33 ??
6735 33 ??
6736 33 ??
6737 33 ??
6738 33 ??
6739 33 ??
673A 33 ??
673B 33 ??
673C 33 ??
673D 33 ??
673E 33 ??
673F 33 ??
6740 20 20 20 JSR $2020
6743 20 20 20 JSR $2020
6746 20 20 10 JSR $1020
6749 10 10 BPL $675B
674B 10 10 BPL $675D
674D 10 10 BPL $675F
674F 10 02 BPL $6753
6751 02 ??
6752 02 ??
6753 02 ??
6754 02 ??
6755 02 ??
6756 02 ??
6757 02 ??
6758 01 01 ORA ($01,X)
675A 01 01 ORA ($01,X)
675C 01 01 ORA ($01,X)
675E 01 01 ORA ($01,X)
6760 33 ??
6761 33 ??
6762 33 ??
6763 33 ??
6764 33 ??
6765 33 ??
6766 33 ??
6767 33 ??
6768 33 ??
6769 33 ??
676A 33 ??
676B 33 ??
676C 33 ??
676D 33 ??
676E 33 ??
676F 33 ??
6770 33 ??
6771 33 ??
6772 33 ??
6773 33 ??
6774 33 ??
6775 33 ??
6776 33 ??
6777 33 ??
6778 33 ??
6779 33 ??
677A 33 ??
677B 33 ??
677C 33 ??
677D 33 ??
677E 33 ??
677F 33 ??
6780 80 ??
6781 80 ??
6782 80 ??
6783 80 ??
6784 80 ??
6785 80 ??
6786 80 ??
6787 80 ??
6788 40 RTI
6789 40 RTI
678A 40 RTI
678B 40 RTI
678C 40 RTI
678D 40 RTI
678E 40 RTI
678F 40 RTI
6790 08 PHP
6791 08 PHP
6792 08 PHP
6793 08 PHP
6794 08 PHP
6795 08 PHP
6796 08 PHP
6797 08 PHP
6798 04 ??
6799 04 ??
679A 04 ??
679B 04 ??
679C 04 ??
679D 04 ??
679E 04 ??
679F 04 ??
67A0 33 ??
67A1 33 ??
67A2 33 ??
67A3 33 ??
67A4 33 ??
67A5 33 ??
67A6 33 ??
67A7 33 ??
67A8 33 ??
67A9 33 ??
67AA 33 ??
67AB 33 ??
67AC 33 ??
67AD 33 ??
67AE 33 ??
67AF 33 ??
67B0 33 ??
67B1 33 ??
67B2 33 ??
67B3 33 ??
67B4 33 ??
67B5 33 ??
67B6 33 ??
67B7 33 ??
67B8 33 ??
67B9 33 ??
67BA 33 ??
67BB 33 ??
67BC 33 ??
67BD 33 ??
67BE 33 ??
67BF 33 ??
67C0 00 BRK
67C1 00 BRK
67C2 00 BRK
67C3 00 BRK
67C4 00 BRK
67C5 00 BRK
67C6 00 BRK
67C7 00 BRK
67C8 00 BRK
67C9 00 BRK
67CA 00 BRK
67CB 00 BRK
67CC 00 BRK
67CD 00 BRK
67CE 00 BRK
67CF 00 BRK
67D0 00 BRK
67D1 00 BRK
67D2 00 BRK
67D3 00 BRK
67D4 00 BRK
67D5 00 BRK
67D6 00 BRK
67D7 00 BRK
67D8 00 BRK
67D9 00 BRK
67DA 00 BRK
67DB 00 BRK
67DC 00 BRK
67DD 00 BRK
67DE 00 BRK
67DF 00 BRK
67E0 33 ??
67E1 33 ??
67E2 33 ??
67E3 33 ??
67E4 33 ??
67E5 33 ??
67E6 33 ??
67E7 33 ??
67E8 33 ??
67E9 33 ??
67EA 33 ??
67EB 33 ??
67EC 33 ??
67ED 33 ??
67EE 33 ??
67EF 33 ??
67F0 33 ??
67F1 33 ??
67F2 33 ??
67F3 33 ??
67F4 33 ??
67F5 33 ??
67F6 33 ??
67F7 33 ??
67F8 33 ??
67F9 33 ??
67FA 33 ??
67FB 33 ??
67FC 33 ??
67FD 33 ??
67FE 33 ??
67FF 33 ??
6800 A9 61 LDA #$61
6802 8D 30 03 STA $0330
6805 A9 68 LDA #$68
6807 8D 31 03 STA $0331
680A 60 RTS
680B A9 0B LDA #$0B
680D 8D 00 DD STA $DD00
6810 AD 00 DD LDA $DD00
6813 10 FB BPL $6810
6815 AD 12 D0 LDA $D012
6818 C9 31 CMP #$31
681A 90 06 BCC $6822
681C 29 06 AND #$06
681E C9 02 CMP #$02
6820 F0 F3 BEQ $6815
6822 A9 03 LDA #$03
6824 8D 00 DD STA $DD00
6827 EA NOP
6828 EA NOP
6829 EA NOP
682A EA NOP
682B EA NOP
682C EA NOP
682D EA NOP
682E EA NOP
682F EA NOP
6830 EA NOP
6831 AC 00 DD LDY $DD00
6834 B9 00 67 LDA $6700,Y
6837 AC 00 DD LDY $DD00
683A 19 08 67 ORA $6708,Y
683D AC 00 DD LDY $DD00
6840 19 10 67 ORA $6710,Y
6843 AC 00 DD LDY $DD00
6846 19 18 67 ORA $6718,Y
6849 60 RTS
684A 20 0B 68 JSR $680B
684D 85 AE STA $AE
684F 20 0B 68 JSR $680B
6852 85 AF STA $AF
6854 A5 02 LDA $02
6856 D0 08 BNE $6860
6858 A5 C3 LDA $C3
685A 85 AE STA $AE
685C A5 C4 LDA $C4
685E 85 AF STA $AF
6860 60 RTS
6861 85 93 STA $93
6863 A0 00 LDY #$00
6865 B1 BB LDA ($BB),Y
6867 C9 24 CMP #$24
6869 D0 03 BNE $686E
686B 4C A7 F4 JMP $F4A7
686E A9 08 LDA #$08
6870 85 B8 STA $B8
6872 20 AF F5 JSR $F5AF
6875 20 E7 FF JSR $FFE7
6878 A6 B9 LDX $B9
687A 86 02 STX $02
687C A9 60 LDA #$60
687E 85 B9 STA $B9
6880 20 C0 FF JSR $FFC0
6883 A5 BA LDA $BA
6885 20 09 ED JSR $ED09
6888 A5 B9 LDA $B9
688A 20 C7 ED JSR $EDC7
688D 20 13 EE JSR $EE13
6890 A5 BA LDA $BA
6892 20 C3 FF JSR $FFC3
6895 A5 90 LDA $90
6897 4A LSR A
6898 4A LSR A
6899 90 03 BCC $689E
689B 4C 04 F7 JMP $F704
689E 20 D2 F5 JSR $F5D2
68A1 A9 20 LDA #$20
68A3 85 03 STA $03
68A5 A9 66 LDA #$66
68A7 85 04 STA $04
68A9 A9 00 LDA #$00
68AB 85 05 STA $05
68AD A9 06 LDA #$06
68AF 85 06 STA $06
68B1 A5 BA LDA $BA
68B3 20 0C ED JSR $ED0C
68B6 A9 6F LDA #$6F
68B8 20 B9 ED JSR $EDB9
68BB A9 4D LDA #$4D
68BD 20 DD ED JSR $EDDD
68C0 A9 2D LDA #$2D
68C2 20 DD ED JSR $EDDD
68C5 A9 57 LDA #$57
68C7 20 DD ED JSR $EDDD
68CA A5 05 LDA $05
68CC 20 DD ED JSR $EDDD
68CF A5 06 LDA $06
68D1 20 DD ED JSR $EDDD
68D4 A9 20 LDA #$20
68D6 20 DD ED JSR $EDDD
68D9 A0 00 LDY #$00
68DB B1 03 LDA ($03),Y
68DD 20 DD ED JSR $EDDD
68E0 C8 INY
68E1 C0 20 CPY #$20
68E3 90 F6 BCC $68DB
68E5 20 FE ED JSR $EDFE
68E8 18 CLC
68E9 A5 03 LDA $03
68EB 69 20 ADC #$20
68ED 85 03 STA $03
68EF 90 02 BCC $68F3
68F1 E6 04 INC $04
68F3 18 CLC
68F4 A5 05 LDA $05
68F6 69 20 ADC #$20
68F8 85 05 STA $05
68FA 90 02 BCC $68FE
68FC E6 06 INC $06
68FE A6 05 LDX $05
6900 E0 E0 CPX #$E0
6902 90 AD BCC $68B1
6904 A5 BA LDA $BA
6906 20 0C ED JSR $ED0C
6909 A9 6F LDA #$6F
690B 20 B9 ED JSR $EDB9
690E A9 4D LDA #$4D
6910 20 DD ED JSR $EDDD
6913 A9 2D LDA #$2D
6915 20 DD ED JSR $EDDD
6918 A9 45 LDA #$45
691A 20 DD ED JSR $EDDD
691D A9 B1 LDA #$B1
691F 20 DD ED JSR $EDDD
6922 A9 06 LDA #$06
6924 20 DD ED JSR $EDDD
6927 20 FE ED JSR $EDFE
692A 78 SEI
692B A2 04 LDX #$04
692D 20 0B 68 JSR $680B
6930 F0 1E BEQ $6950
6932 20 0B 68 JSR $680B
6935 E0 02 CPX #$02
6937 F0 03 BEQ $693C
6939 20 4A 68 JSR $684A
693C 20 0B 68 JSR $680B
693F A0 00 LDY #$00
6941 91 AE STA ($AE),Y
6943 E6 AE INC $AE
6945 D0 02 BNE $6949
6947 E6 AF INC $AF
6949 E8 INX
694A D0 F0 BNE $693C
694C A2 02 LDX #$02
694E D0 DD BNE $692D
6950 20 0B 68 JSR $680B
6953 E0 02 CPX #$02
6955 F0 05 BEQ $695C
6957 48 PHA
6958 20 4A 68 JSR $684A
695B 68 PLA
695C AA TAX
695D CA DEX
695E CA DEX
695F 20 0B 68 JSR $680B
6962 A0 00 LDY #$00
6964 91 AE STA ($AE),Y
6966 E6 AE INC $AE
6968 D0 02 BNE $696C
696A E6 AF INC $AF
696C CA DEX
696D D0 F0 BNE $695F
696F A5 BA LDA $BA
6971 20 0C ED JSR $ED0C
6974 A9 6F LDA #$6F
6976 20 B9 ED JSR $EDB9
6979 A9 49 LDA #$49
697B 20 DD ED JSR $EDDD
697E 20 FE ED JSR $EDFE
6981 A6 AE LDX $AE
6983 A4 AF LDY $AF
6985 18 CLC
6986 60 RTS
6987 00 BRK
READY.
