B9:D100 A6 64 LDX $64
B9:D102 B5 38 LDA $38,X
B9:D104 38 SEC
B9:D105 F5 3A SBC $3A,X
B9:D107 95 38 STA $38,X
B9:D109 F0 02 BEQ $D10D
B9:D10B 10 31 BPL $D13E
B9:D48B A6 64 LDX $64
B9:D48D B9 00 00 LDA $0000,Y
B9:D490 29 00 FF AND #$FF00
B9:D493 18 CLC ;
B9:D494 75 38 ADC $38,X
B9:D496 95 38 STA $38,X
B9:D498 10 0B BPL $D4A5
B9:D49A C8 INY
B9:D49B C8 INY
B9:D49C C8 INY
B9:D49D C8 INY
B9:D49E C8 INY
B9:D49F C8 INY
B9:D4A0 C8 INY
B9:D4A1 C8 INY
B9:D4A2 4C 15 D1 JMP $D115
B9:D4A5 B9 02 00 LDA $0002,Y
B9:D4A8 95 1A STA $1A,X
B9:D4AA B5 42 LDA $42,X
B9:D4AC F0 0D BEQ $D4BB
B9:D4AE AA TAX
B9:D4AF B9 04 00 LDA $0004,Y
B9:D4B2 95 1A STA $1A,X
B9:D4B4 B9 06 00 LDA $0006,Y
B9:D4B7 95 44 STA $44,X
B9:D4B9 A6 64 LDX $64
B9:D4BB 98 TYA
B9:D4BC 18 CLC
B9:D4BD 69 08 00 ADC #$0008
B9:D4C0 95 3C STA $3C,X
B9:D4C2 4C 3D D1 JMP $D13D
B9:D4C5 60 RTS