*---------------------------------------------------------* * Disassembled with The Flaming Bird Disassembler * * (c) Phoenix corp. 1992,93 - All rights reserved * *---------------------------------------------------------* REL mx %00 use ENESEG3.X.S L0B0000 ENT PHP SEP #$20 LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B0017 PLP RTL L0B0017 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$04 STA $68 LDX $68 PHX LDA $69 STA $64 STZ $65 LDX $64 STX $74 JSL L03204E LDA #$06 STA $5C JSL L03206C LDA $5C EOR #$FF INC CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DBC LDY $74 LDA L0207E8,Y STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DBE LDA $68 STA $5C LDA $60 CLC ADC $65 STA $60 LDX $60 STX L024DC4 LDA L020928,Y CLC ADC $68 STA $60 LDX $60 STX L024DC6 LDA L0209C8,Y CLC ADC $68 STA $60 LDX $60 STX L024DBA LDA L020888,Y STA $65 LDA $68 SEC SBC $65 STA $60 LDX $60 STX L024DB8 LDA $68 CLC ADC $65 STA $60 LDA L020748,Y STA $65 LDA $61 SEC SBC $65 STA $61 LDX $60 STX L024DC8 LDA $68 STA $60 LDX $60 STX L024DC2 LDA $68 SEC SBC $65 STA $60 LDX $60 STX L024DC0 PLX STX $68 INC $69 JSL L031E2F LDA $69 STA $5C STZ $5D LDY $5C STY $74 LDA L020888,Y STA $65 LDA $60 SEC SBC $65 STA $60 LDX $60 STX L024DCA LDA $60 CLC ADC $65 STA $60 LDA L0209C8,Y STA $5C CLC ADC $60 STA $60 LDX $60 STX L024DCC INC $69 JSL L031E2F LDX $60 STX L024DCE INC $69 INC $69 JSL L031E2F LDX $60 STX L024DD2 LDA $69 STA $5C STZ $5D LDY $5C STY $74 LDA L020748,Y EOR #$FF INC STA $5C CLC ADC $60 STA $60 LDX $60 STX L024DD0 INC $69 INC $69 JSL L031E2F LDA $69 STA $5C STZ $5D LDY $5C STY $74 LDA L020888,Y STA $5C CLC ADC $60 STA $60 LDX $60 STX L024DD4 LDX L024DC0 STX L024D58 LDX L024DC2 STX L024D78 LDX L024DBC STX L024D5A LDX L024DBE STX L024D7A LDX L024DD0 STX L024D5C LDX L024DD2 STX L024D7C LDX #$0202 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DD0 STX L024D5A LDX L024DD2 STX L024D7A LDX #$0101 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DB8 STX L024D58 LDX L024DBA STX L024D78 LDX L024DCA STX L024D5A LDX L024DCC STX L024D7A LDX L024DCE STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$05 STA L02445B STZ L024A4A JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$FCFC STX $64 LDX #$3F3F STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDX #$CCCC STX $64 LDX #$3333 STX $66 JSL L072F07 LDY #$0006 LDA ($6C),Y STA $5C BEQ L0B0230 JMP L0B037E L0B0230 LDX L024DC8 STX L024D58 STX L024D78 LDX L024DC4 STX L024D5A LDX L024DD4 STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDX L024DC6 STX L024D7A LDX L024DD4 STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$04 STA L02445B STZ L02494A JSL L181103 LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL ASL TAX LDA L024384,X STA $64 LDA L024386,X STA $66 SEP #$20 LDA #$03 LDX #$5555 STX $64 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$4444 STX $64 LDX #$1111 STX $66 JSL L072F07 LDX L024DC0 STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DB8 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DCA STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DD0 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DD4 STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0028 STA ($6C),Y LDA L024DC8 STA $60 SEP #$20 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DCC STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD4 STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0304 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B037E LDX L024DC0 STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DB8 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DCA STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DD0 STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DC2 STA $60 SEP #$20 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DCC STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD2 STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0303 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B0436 ENT PHP SEP #$20 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B0444 PLP RTL L0B0444 LDY #$0006 LDA ($6C),Y STA $5C BNE L0B044F PLP RTL L0B044F JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$07 STA $68 JSL L031E2F LDA $69 STA $5C STZ $5D LDY $5C STY $74 LDA L020748,Y STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DBA LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DB8 LDA $60 CLC ADC $65 STA $60 LDA $61 SEC SBC $65 STA $61 LDX $60 STX L024DBC LDA $69 CLC ADC #$06 STA $69 JSL L031E2F LDX $60 STX L024DBE LDX L024DBC STX L024D58 STX L024D78 LDX L024DB8 STX L024D5A LDX L024DBE STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DBA STX L024D7A LDX L024DBE STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 JSL L03219C LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL ASL TAX LDA L024384,X STA $64 LDA L024386,X STA $66 SEP #$20 LDA #$01 STA L02445B LDX #$5555 STX $64 STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$4444 STX $64 LDX #$1111 STX $66 JSL L072F07 LDX L024DBC STX $60 DEC $60 DEC $60 DEC $61 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DB8 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 INC $60 INC $60 DEC $61 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA #$0202 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B05D5 ENT PHP LDY #$000C LDA ($6C),Y STA $5C BEQ L0B05E1 PLP RTL L0B05E1 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F STZ $5D LDA $69 STA $5C LDY $5C STY $70 LDA L0207E8,Y STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DBA LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DB8 INC $69 JSL L031E2F STZ $5D LDA $69 STA $5C LDY $5C STY $70 LDA L020928,Y STA $64 CLC ADC $60 STA $60 LDX $60 STX L024DBE LDA $60 SEC SBC $64 SEC SBC $64 STA $60 LDX $60 STX L024DBC INC $69 LDX $68 PHX LDA $69 STA $64 JSL L03204E STZ $5D LDA $64 STA $5C LDY $5C STY $70 LDA L020928,Y STA $65 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DC2 LDA $68 SEC SBC $65 STA $60 LDX $60 STX L024DC0 LDA #$06 STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $68 STA $60 LDX $60 STX L024DC6 LDA $68 SEC SBC $65 STA $60 LDX $60 STX L024DC4 LDY $70 LDA L020748,Y EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDA #$02 STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $68 STA $60 LDX $60 STX L024DCA LDA $68 SEC SBC $65 STA $5C STA $60 LDX $60 STX L024DC8 PLX STX $68 INC $69 INC $69 JSL L031E2F STZ $5D LDA $69 STA $5C LDY $5C STY $70 LDA L0207E8,Y STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DCE LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DCC INC $69 JSL L031E2F STZ $5D LDA $69 STA $5C LDY $5C STY $70 LDA L020748,Y STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DD2 LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DD0 LDA $60 CLC ADC $65 STA $60 LDA $61 SEC SBC $65 STA $61 LDX $60 STX L024DD4 LDA $61 CLC ADC $65 CLC ADC $65 STA $61 LDX $60 STX L024DD8 LDA $69 CLC ADC #$04 STA $69 JSL L031E2F LDX $60 STX L024DD6 LDX L024DB8 STX L024D58 STX L024D78 LDX L024DBC STX L024D5A LDX L024DC0 STX L024D5C LDX L024DCC STX L024D5E STX L024D7A LDX #$0103 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DBA STX L024D58 STX L024D78 LDX L024DBE STX L024D7A LDX L024DC2 STX L024D7C LDX L024DCE STX L024D5A STX L024D7E LDX #$0301 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DC8 STX L024D58 LDX L024DCA STX L024D78 LDX L024DC4 STX L024D5A LDX L024DC6 STX L024D7A LDX L024DD0 STX L024D5C LDX L024DD2 STX L024D7C LDX #$0202 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDX L024DD4 STX L024D5A STX L024D7A LDX #$0101 STX L024456 LDA #$04 STA L02445B STZ L02494A JSL L181103 LDY #$0006 LDA ($6C),Y STA $5C BNE L0B082C JMP L0B09E0 L0B082C LDX L024DD4 STX L024D58 STX L024D78 LDX L024DD0 STX L024D5A LDX L024DD2 STX L024D7A LDX L024DD8 STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$05 STA L02445B STZ L024A4A JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$FCFC STX $64 LDX #$CFCF STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FCFC STX $64 LDX #$CFCF STX $66 JSL L072F07 LDA #$03 STA L02445B LDX #$CCCC STX $64 LDX #$3333 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDX #$4444 STX $64 LDX #$1111 STX $66 LDA L024428 AND #$08 STA $5C BEQ L0B08C8 LDX #$5555 STX $64 STX $66 L0B08C8 JSL L072F07 LDX L024DB8 STX $60 DEC $61 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DC0 STA $60 SEP #$20 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DCC STA $60 SEP #$20 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DD0 STA $60 SEP #$20 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0028 STA ($6C),Y LDA L024DD8 STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$002A STA ($6C),Y LDA L024DBA STA $60 SEP #$20 DEC $61 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 INC $60 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DC2 STA $60 SEP #$20 INC $60 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DCE STA $60 SEP #$20 INC $60 INC $60 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA L024DD2 STA $60 SEP #$20 INC $60 INC $60 REP #$20 LDA $60 LDY #$0048 STA ($6C),Y LDA L024DD8 STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$004A STA ($6C),Y LDA #$0505 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B09E0 LDX L024DD4 STX L024D58 STX L024D78 LDX L024DD0 STX L024D5A LDX L024DD6 STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$05 STA L02445B JSL L181103 LDX L024DD2 STX L024D7A LDX L024DD6 STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$06 STA L02445B JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$FCFC STX $64 LDX #$CFCF STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FCFC STX $64 LDX #$CFCF STX $66 JSL L072F07 LDA #$03 STA L02445B LDX #$CCCC STX $64 LDX #$3333 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDX #$5555 STX $64 STX $66 JSL L072F07 LDA #$06 STA L02445B LDX #$5454 STX $64 LDX #$4545 STX $66 JSL L072F07 LDX L024DB8 STX $60 DEC $61 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DC0 STA $60 SEP #$20 DEC $60 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DD6 STA $60 SEP #$20 DEC $60 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 DEC $61 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 INC $60 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DC2 STA $60 SEP #$20 INC $60 INC $60 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD6 STA $60 SEP #$20 INC $60 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0303 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B0B61 ENT PHP SEP #$20 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B0B6F PLP RTL L0B0B6F JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F STZ $5D LDA $69 STA $5C LDY $5C STY $70 LDA L020748,Y STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DBA LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DB8 LDA $60 CLC ADC $65 STA $60 LDA $61 SEC SBC $65 STA $61 LDX $60 STX L024DBC LDA $69 CLC ADC #$04 STA $69 JSL L031E2F LDX $60 STX L024DBE LDX L024DBC STX L024D58 STX L024D78 LDX L024DB8 STX L024D5A LDX L024DBE STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DBA STX L024D7A LDX L024DBE STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$5555 STX $64 STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$5454 STX $64 LDX #$4545 STX $66 JSL L072F07 LDX L024DBC STX $60 DEC $60 DEC $60 DEC $61 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DB8 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 INC $60 INC $60 DEC $61 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA #$0202 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B0CDC ENT PHP SEP #$20 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B0CEA PLP RTL L0B0CEA JSL L0320D8 LDY #$0004 REP #$20 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L03204E LDA #$FA STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDA #$FA STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DB8 LDA #$06 STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDA #$FA STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DBA REP #$20 LDA L024452 CLC ADC #$0040 STA $60 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 INC $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA #$F4 STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DBC LDA $68 SEC SBC $64 STA $60 LDX $60 STX L024DBE REP #$20 LDA L024452 CLC ADC #$0040 STA $60 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 INC $69 INC $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA #$FA STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DC0 LDA $68 SEC SBC $64 STA $60 LDA $69 STA $61 LDX $60 STX L024DC2 REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 STA $60 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$03 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA #$FA STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DC4 LDA $68 SEC SBC $64 STA $60 STA $5C LDX $60 STX L024DC6 REP #$20 LDA L024452 CLC ADC #$0040 STA $60 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$04 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA #$FA STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DC8 LDA $68 SEC SBC $64 STA $60 STA $5C LDX $60 STX L024DCA REP #$20 LDA L024452 CLC ADC #$0040 STA $60 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$05 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA #$FA STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DCC LDA $68 STA $5C SEC SBC $64 STA $60 STA $5C LDX $60 STX L024DCE LDA #$01 STA L02445B STZ L02464A LDX L024DB8 STX L024D58 STX L024D78 LDX L024DBC STX L024D5A LDX L024DCC STX L024D5C STX L024D7A LDX #$0102 STX L024456 JSL L181103 LDA #$02 STA L02445B STZ L02474A LDX L024DBA STX L024D58 STX L024D78 LDX L024DBE STX L024D7A LDX L024DCE STX L024D5A STX L024D7C LDX #$0201 STX L024456 JSL L181103 LDA #$03 STA L02445B STZ L02484A LDX L024DB8 STX L024D58 LDX L024DBA STX L024D78 LDX L024DC0 STX L024D5A LDX L024DC2 STX L024D7A LDX #$0101 STX L024456 JSL L181103 LDA #$04 STA L02445B STZ L02494A LDX L024DC4 STX L024D58 LDX L024DC6 STX L024D78 LDX L024DC8 STX L024D5A LDX L024DCA STX L024D7A LDX #$0101 STX L024456 JSL L181103 JSL L03219C LDA #$04 STA L02445B LDX #$A8A8 STX $64 LDX #$8A8A STX $66 JSL L072F07 LDA #$03 STA L02445B LDX #$3333 STX $64 LDX #$CCCC STX $66 JSL L072F07 LDA #$01 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDX L024DB8 STX $68 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 LDY #$0020 STA ($6C),Y LDA L024DBC STA $68 SEP #$20 DEC $68 REP #$20 LDA $68 LDY #$0022 STA ($6C),Y LDA L024DCC STA $68 SEP #$20 INC $69 DEC $68 DEC $68 REP #$20 LDA $68 LDY #$0024 STA ($6C),Y LDA L024DBA STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 LDY #$0040 STA ($6C),Y LDA L024DBE STA $68 SEP #$20 INC $68 REP #$20 LDA $68 LDY #$0042 STA ($6C),Y LDA L024DCE STA $68 SEP #$20 INC $69 INC $68 INC $68 REP #$20 LDA $68 LDY #$0044 STA ($6C),Y SEP #$20 LDA L024459 STA $5C LDY #$0001 STA ($6C),Y REP #$20 LDA #$0202 INY STA ($6C),Y SEP #$20 LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B108B ENT PHP SEP #$20 LDX #L024DB8 STX $5C LDA L024436 CLC ADC #$55 STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B10A7 PLP RTL L0B10A7 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L03204E LDY #$0006 LDA ($6C),Y AND #$07 ASL STA $64 STZ $65 REP #$20 LDA #L0273CC CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DBC LDA ($74) EOR #$FF INC STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y EOR #$FF INC STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DBE REP #$20 LDA #L0273DC CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 LDA $68 CLC ADC $64 STA $60 LDA $69 CLC ADC $65 STA $61 LDX $60 STX L024DC4 LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DC6 LDY #$0006 LDA ($6C),Y AND #$07 INC ASL STA $64 STZ $65 LDX #L0273EC STX $74 REP #$20 LDA $74 CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DB8 LDA $64 CLC ADC #$0C AND #$1F STA $64 REP #$20 LDA #L0273EC CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DBA LDA $64 CLC ADC #$04 AND #$1F STA $64 REP #$20 LDA #L0273EC CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DC2 LDA $64 CLC ADC #$0C AND #$1F STA $64 REP #$20 LDA #L0273EC CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 LDX $60 STX L024DC0 LDA $64 CLC ADC #$02 AND #$0F STA $64 REP #$20 LDA #L0273DC CLC ADC $64 STA $74 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 INC $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DC8 LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DCA REP #$20 LDA L024452 CLC ADC #$0100 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$05 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STX $68 STY $60 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $5C STA $61 LDX $60 STX L024DCC LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DCE LDY #$0006 LDA ($6C),Y AND #$04 STA $5C BEQ L0B1360 JMP L0B15C9 L0B1360 LDA #$01 STA L02445B STZ L02464A LDX L024DC4 STX L024D98 LDX L024DC6 STX L024D9A LDX L024DCA STX L024D9C LDX L024DC8 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$02 STA L02445B STZ L02474A LDX L024DB8 STX L024D98 LDX L024DCC STX L024D9A LDX L024DBC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$03 STA L02445B STZ L02484A LDX L024DBA STX L024D98 LDX L024DBE STX L024D9A LDX L024DCE STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$04 STA L02445B STZ L02494A LDX L024DBC STX L024D98 LDX L024DCC STX L024D9A LDX L024DC0 STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$05 STA L02445B STZ L024A4A LDX L024DBA STX L024D98 LDX L024DCE STX L024D9A LDX L024DC2 STX L024D9C LDA #$03 STA L024458 JSL L181526 JSL L03219C LDA #$01 STA L02445B LDA L02464A ORA #$01 STA L02464A LDX #$6666 STX $64 LDX #$9999 STX $66 JSL L072F07 LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL ASL TAX LDA L024384,X STA $64 LDA L024386,X STA $66 SEP #$20 LDA #$02 STA L02445B JSL L072F07 LDA #$03 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDA L024A4A BIT #$80 BNE L0B1493 LDX #$FFFF STX $64 LDX #$FFFF STX $66 JSL L072F07 JMP L0B14BF L0B1493 STZ L024A4A LDX L024DB8 STX L024D98 LDX L024DC0 STX L024D9A LDX L024DCC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDX #$FFFF STX $64 LDX #$FFFF STX $66 JSL L072F07 L0B14BF LDA ($6C) ORA #$80 STA ($6C) LDY #$0006 LDA ($6C),Y AND #$07 STA $5C BEQ L0B14D3 JMP L0B15B8 L0B14D3 REP #$20 LDA $6C CLC ADC #$0020 STA $70 LDX #$0002 STX $5C LDX L024DB8 STX $68 SEP #$20 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBC STA $68 SEP #$20 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC #$001A STA $70 LDA L024DB8 STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBA STA $68 SEP #$20 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBE STA $68 SEP #$20 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $68 INC $68 INC $69 REP #$20 LDA $68 STA ($70) LDA $70 SEC SBC #$0045 STA $70 SEP #$20 LDA L024459 STA $5C STA ($70) REP #$20 INC $70 LDA #$0303 STA ($70) PLP RTL L0B15B8 SEP #$20 LDA #$05 STA L024450 LDA #$0C STA $5C JSL L0321FA PLP RTL L0B15C9 SEP #$20 LDA #$01 STA L02445B STZ L02464A LDX L024DC6 STX L024D98 LDX L024DC4 STX L024D9A LDX L024DC8 STX L024D9C LDX L024DCA STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$02 STA L02445B STZ L02474A LDX L024DBE STX L024D98 LDX L024DC2 STX L024D9A LDX L024DCE STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$03 STA L02445B STZ L02484A LDX L024DC0 STX L024D98 LDX L024DBC STX L024D9A LDX L024DCC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$04 STA L02445B STZ L02494A LDX L024DB8 STX L024D98 LDX L024DCC STX L024D9A LDX L024DBC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$05 STA L02445B STZ L024A4A LDX L024DBA STX L024D98 LDX L024DCE STX L024D9A LDX L024DC2 STX L024D9C LDA #$03 STA L024458 JSL L181526 JSL L03219C LDA #$01 STA L02445B LDA L02464A ORA #$01 STA L02464A LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL ASL TAX LDA L024384,X STA $64 LDA L024386,X STA $66 SEP #$20 JSL L072F07 LDA #$02 STA L02445B LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL ASL TAX LDA L024384,X STA $64 LDA L024386,X STA $66 SEP #$20 JSL L072F07 LDA #$03 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDA L024A4A BIT #$80 BNE L0B171F LDX #$FFFF STX $64 LDX #$FFFF STX $66 JSL L072F07 LDA ($6C) ORA #$80 STA ($6C) LDA #$05 STA L024450 LDA #$0C STA $5C JSL L0321FA PLP RTL L0B171F SEP #$20 STZ L024A4A LDX L024DB8 STX L024D98 LDX L024DC0 STX L024D9A LDX L024DCC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDX #$4444 STX $64 LDX #$1111 STX $66 JSL L072F07 LDA ($6C) ORA #$80 STA ($6C) LDA #$05 STA L024450 LDA #$0C STA $5C JSL L0321FA PLP RTL L0B1762 ENT PHP SEP #$20 LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y BEQ L0B1777 PLP RTL L0B1777 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L03204E LDY #$0006 LDA ($6C),Y AND #$7F ASL STA $64 STZ $65 REP #$20 LDA #L02740C CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $5C STA $61 LDX $60 STX L024DB8 REP #$20 LDA #L027416 CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C CLC ADC $69 STA $61 STA $5C LDX $60 STX L024DBA REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 INC $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 REP #$20 LDA #L027420 CLC ADC $64 STA $74 SEP #$20 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DBC LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DBE LDY #$0006 LDA ($6C),Y AND #$7F ASL STA $64 STZ $65 REP #$20 LDA #L02742A CLC ADC $64 STA $74 REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 INC $69 INC $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DC0 LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DC2 REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$03 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DC4 LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DC6 REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$04 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DC8 LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DCA REP #$20 LDA L024452 CLC ADC #$0040 STA L024452 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $69 CLC ADC #$05 STA $69 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 LDY $68 STY $60 STX $68 LDA ($74) STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDY #$0001 LDA ($74),Y STA $5C JSL L03206C LDA $5C STA $65 CLC ADC $69 STA $61 LDX $60 STX L024DCC LDA $68 SEC SBC $64 STA $60 LDA $69 SEC SBC $65 STA $61 LDX $60 STX L024DCE LDA #$01 STA L02445B STZ L02464A LDX L024DB8 STX L024D98 LDX L024DCC STX L024D9A LDX L024DBC STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$02 STA L02445B STZ L02474A LDX L024DBA STX L024D98 LDX L024DBE STX L024D9A LDX L024DCE STX L024D9C LDA #$03 STA L024458 JSL L181526 LDA #$03 STA L02445B STZ L02484A LDX L024DB8 STX L024D98 LDX L024DBA STX L024D9A LDX L024DC2 STX L024D9C LDX L024DC0 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$04 STA L02445B STZ L02494A LDX L024DC4 STX L024D98 LDX L024DC6 STX L024D9A LDX L024DCA STX L024D9C LDX L024DC8 STX L024D9E LDA #$04 STA L024458 JSL L181526 JSL L03219C LDY #$000B LDA ($6C),Y STA $60 LDA #$03 STA $61 LDX #$FFFF STX L023D85 LDA #$04 STA L02445B LDX #$EEEE STX $64 LDX #$BBBB STX $66 JSL L072F07 LDX #$FFFF STX L023D85 LDA #$03 STA L02445B LDX #$AAAA STX $64 STX $66 JSL L072F07 LDA #$01 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA ($6C) ORA #$80 STA ($6C) LDY #$0006 LDA ($6C),Y AND #$7F STA $5C CMP #$03 BCC L0B1B47 JMP L0B1D0D L0B1B47 LDA L02464A BIT #$80 BEQ L0B1B51 JMP L0B1C3C L0B1B51 REP #$20 LDA $6C CLC ADC #$0020 STA $70 LDX #$0002 STX $5C LDX L024DBA STX $68 SEP #$20 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DB8 STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBC STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 DEC $68 DEC $68 INC $69 REP #$20 LDA $68 STA ($70) LDA $6C CLC ADC #$0040 STA $70 LDA L024DBA STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBE STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 INC $68 INC $68 INC $69 REP #$20 LDA $68 STA ($70) SEP #$20 LDA L024459 STA $5C LDY #$0001 STA ($6C),Y REP #$20 LDA #$0303 LDY #$0002 STA ($6C),Y SEP #$20 PLP RTL L0B1C3C REP #$20 LDA $6C CLC ADC #$0020 STA $70 LDX #$0002 STX $5C LDX L024DBA STX $68 SEP #$20 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DB8 STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 DEC $68 DEC $68 INC $69 REP #$20 LDA $68 STA ($70) LDA $6C CLC ADC #$0040 STA $70 LDA L024DBA STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBE STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 INC $68 INC $68 INC $69 REP #$20 LDA $68 STA ($70) SEP #$20 LDA L024459 LDY #$0001 STA $5C STA ($6C),Y REP #$20 LDA #$0302 LDY #$0002 STA ($6C),Y PLP RTL L0B1D0D SEP #$20 LDA L02474A BIT #$80 BEQ L0B1D19 JMP L0B1E02 L0B1D19 REP #$20 LDA $6C CLC ADC #$0020 STA $70 LDA #$0002 STA $5C LDA L024DB8 STA $68 SEP #$20 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBC STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 DEC $68 DEC $68 INC $69 REP #$20 LDA $68 STA ($70) LDA $6C CLC ADC #$0040 STA $70 LDA L024DB8 STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBA STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBE STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $68 INC $68 INC $69 REP #$20 LDA $68 STA ($70) SEP #$20 LDA L024459 STA $5C LDY #$0001 STA ($6C),Y REP #$20 LDA #$0303 LDY #$0002 STA ($6C),Y PLP RTL L0B1E02 REP #$20 LDA $6C CLC ADC #$0020 STA $70 LDA #$0002 STA $5C LDA L024DB8 STA $68 SEP #$20 DEC $69 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBC STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCC STA $68 SEP #$20 DEC $68 DEC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 DEC $68 DEC $68 INC $69 REP #$20 LDA $68 STA ($70) LDA $6C CLC ADC #$0040 STA $70 LDA L024DB8 STA $68 SEP #$20 DEC $69 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DBA STA $68 SEP #$20 INC $68 INC $68 REP #$20 LDA $68 STA ($70) LDA $70 CLC ADC $5C STA $70 LDA L024DCE STA $68 SEP #$20 INC $68 INC $68 INC $69 REP #$20 LDA $68 STA ($70) SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y REP #$20 LDA #$0203 LDY #$0002 STA ($6C),Y PLP RTL L0B1ED1 ENT SEP #$20 PHP LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B1EE8 PLP RTL L0B1EE8 JSL L0320D8 LDY #$0006 LDA ($6C),Y STA $5C STZ $5D REP #$20 ASL $5C ASL $5C LDA #L027434 CLC ADC $5C STA $70 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 CLC ADC #$05 STA $68 JSL L031E2F LDA $60 STA $68 REP #$20 LDA ($70) CLC ADC #$00A0 STA $64 SEP #$20 LDA $69 STA $5C STZ $5D REP #$20 LDA $5C STA L027444 CLC ADC $64 STA $5C STA $74 SEP #$20 LDA ($74) STA $5C STA $69 CLC ADC $60 STA $60 LDX $60 STX L024DBA LDA $68 SEC SBC $69 STA $5C STA $60 LDX $60 STX L024DB8 REP #$20 LDA $74 SEC SBC #$0140 STA $74 LDA ($70) SEC SBC #L020748 STA $5C SEP #$20 BEQ L0B1F73 LDA ($74) STA $5C L0B1F73 LDA $5C STA $69 CLC ADC $68 STA $5C STA $60 LDX $60 STX L024DC2 LDA $68 SEC SBC $69 STA $5C STA $60 LDX $60 STX L024DC0 PHX REP #$20 LDA $74 CLC ADC #$00A0 STA $74 SEP #$20 LDA ($74) STA $5C REP #$20 LDA #L020748 CLC ADC L027444 STA $74 SEP #$20 LDA $5C STA $69 CLC ADC $68 STA $5C STA $60 LDA ($74) EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDX $60 STX L024DBE LDA $68 SEC SBC $69 STA $5C STA $60 LDX $60 STX L024DBC PLX STX $60 REP #$20 LDY #$0002 LDA ($70),Y CLC ADC L027444 STA $5C STA $74 SEP #$20 LDA ($74) EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDA $68 STA $60 LDX $60 STX L024DC4 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 CLC ADC #$05 STA $68 INC $69 JSL L031E2F REP #$20 LDY #$0002 LDA ($70),Y STA $5C STA $74 SEP #$20 LDA $69 STA $64 STZ $65 REP #$20 LDA $64 STA L027444 CLC ADC $74 STA $74 SEP #$20 LDA ($74) EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDX $60 STX L024DC6 INC $69 JSL L031E2F REP #$20 LDA ($70) SEC SBC #$00A0 STA $64 LDA ($70) SEC SBC #L020748 STA $5C SEP #$20 BEQ L0B207D LDA $69 STA $5C STZ $5D REP #$20 LDA $64 CLC ADC $5C STA $64 STA $74 SEP #$20 LDA ($74) STA $5C L0B207D LDA $5C STA $64 CLC ADC $60 STA $60 LDX $60 STX L024DCA LDA $60 SEC SBC $64 SEC SBC $64 STA $60 LDX $60 STX L024DC8 LDA $69 CLC ADC #$04 STA $69 JSL L031E2F REP #$20 LDA ($70) STA $64 SEP #$20 LDA $69 STA $5C STZ $5D REP #$20 LDA $64 CLC ADC $5C STA $64 STA $74 SEP #$20 LDA ($74) STA $5C STA $64 CLC ADC $60 STA $60 LDX $60 STX L024DCE LDA $60 SEC SBC $64 SEC SBC $64 STA $60 LDX $60 STX L024DCC LDX L024DBC STX L024D58 STX L024D78 LDX L024DB8 STX L024D5A LDX L024DCC STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DC0 STX L024D7A LDX L024DCC STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DC4 STX L024D58 STX L024D78 LDX L024DC0 STX L024D5A LDX L024DC6 STX L024D7A LDX L024DC8 STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDX L024DC6 STX L024D5A LDX L024DC2 STX L024D7A LDX L024DCA STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$04 STA L02445B STZ L02494A JSL L181103 LDX L024DBE STX L024D58 STX L024D78 LDX L024DC2 STX L024D5A LDX L024DCE STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$05 STA L02445B STZ L024A4A JSL L181103 LDX L024DBA STX L024D7A LDX L024DCE STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$06 STA L02445B STZ L024B4A JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FCFC STX $64 LDX #$3333 STX $66 JSL L072F07 LDA #$03 STA L02445B LDX #$5454 STX $64 LDX #$1111 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$1111 STX $64 LDX #$4444 STX $66 JSL L072F07 LDA #$05 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$06 STA L02445B LDX #$FCFC STX $64 LDX #$3333 STX $66 JSL L072F07 LDX L024DC4 STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDY #$0020 LDA $60 STA ($6C),Y SEP #$20 LDX L024DBC STX $60 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y SEP #$20 LDX L024DB8 STX $60 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y SEP #$20 LDX L024DCC STX $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y SEP #$20 LDX L024DC4 STX $60 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y SEP #$20 LDX L024DBE STX $60 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y SEP #$20 LDX L024DBA STX $60 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y SEP #$20 LDX L024DCE STX $60 INC $60 INC $60 INC $61 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0303 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B22F2 ENT PHP SEP #$20 LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B2309 PLP RTL L0B2309 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 LDX $68 PHX JSL L03204E LDA #$0E STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DBA LDA $68 SEC SBC $64 STA $60 LDX $60 STX L024DB8 LDA #$06 STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $68 STA $60 LDX $60 STX L024DBE LDA $68 SEC SBC $64 STA $60 LDX $60 STX L024DBC STZ $5D LDY #$0005 LDA ($6C),Y STA $5C LDX $5C STX $70 LDA L0207E8,X STA $5C STA $65 LSR EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDA $68 SEC SBC $65 STA $60 LDX $60 STX L024DC4 LDA $68 CLC ADC $65 STA $60 LDX $60 STX L024DC6 LDX $70 LDA L020888,X STA $65 CLC ADC $68 STA $60 LDX $60 STX L024DC2 LDA $68 SEC SBC $65 STA $5C STA $60 LDX $60 STX L024DC0 PLX STX $68 JSL L031E2F STZ $5D LDA $69 STA $5C LDX $5C STX $70 LDA L0209C8,X STA $65 STA $5C CLC ADC $60 STA $60 LDX $60 STX L024DCA SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DC8 CLC ADC $65 STA $60 LDX $70 LDA L020748,X STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DCE SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DCC CLC ADC $65 STA $60 LDA $61 SEC SBC $65 STA $61 LDX $60 STX L024DD0 INC $69 JSL L031E2F STZ $5D LDA $69 STA $5C LDX $5C STX $70 LDA L0209C8,X STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DD4 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DD2 INC $69 JSL L031E2F LDX $60 STX L024DD6 INC $69 JSL L031E2F LDX $60 STX L024DD8 INC $69 INC $69 JSL L031E2F STZ $5D LDA $69 STA $5C LDX $5C STX $70 LDA L020888,X STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DDC SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DDA CLC ADC $65 STA $60 LDX $70 LDA L0207E8,X STA $5C STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DE0 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DDE LDX L024DC0 STX L024D58 LDX L024DC4 STX L024D78 LDX L024DB8 STX L024D5A LDX L024DBC STX L024D7A LDX L024DDA STX L024D5C LDX L024DDE STX L024D7C LDX #$0202 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DDA STX L024D5A LDX L024DDE STX L024D7A LDX #$0101 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DC6 STX L024D58 LDX L024DC2 STX L024D78 LDX L024DBE STX L024D5A LDX L024DBA STX L024D7A LDX L024DE0 STX L024D5C LDX L024DDC STX L024D7C LDX #$0202 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDX L024DE0 STX L024D5A LDX L024DDC STX L024D7A LDX #$0101 STX L024456 LDA #$04 STA L02445B STZ L02494A JSL L181103 LDX L024DC8 STX L024D58 LDX L024DCA STX L024D78 LDX L024DD2 STX L024D5A LDX L024DD4 STX L024D7A LDX L024DD6 STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$05 STA L02445B STZ L024A4A JSL L181103 LDX L024DD0 STX L024D58 STX L024D78 LDX L024DCC STX L024D5A LDX L024DCE STX L024D7A LDX L024DD8 STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$06 STA L02445B STZ L024B4A JSL L181103 JSL L03219C LDA #$01 STA L02445B LDX #$FCFC STX $64 LDX #$3F3F STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$03 STA L02445B LDX #$FCFC STX $64 LDX #$3F3F STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDA #$05 STA L02445B LDX #$CCCC STX $64 LDX #$3333 STX $66 JSL L072F07 LDX #$5050 STX $64 LDX #$0505 STX $66 LDA L024428 AND #$08 STA $5C BEQ L0B2644 LDX #$5555 STX $64 STX $66 L0B2644 LDA #$06 STA L02445B JSL L072F07 LDX L024DC0 STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y SEP #$20 LDX L024DB8 STX $60 DEC $60 REP #$20 LDY #$0022 LDA $60 STA ($6C),Y LDY #$0016 LDA L024DC8 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DD2 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DDA STA $60 SEP #$20 DEC $60 DEC $60 INC $61 REP #$20 LDA $60 LDY #$0028 STA ($6C),Y LDA L024DC2 STA $60 SEP #$20 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DBA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DCA STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD4 STA $60 SEP #$20 INC $60 REP #$20 LDY #$0046 LDA $60 STA ($6C),Y LDA L024DDC STA $60 SEP #$20 INC $60 INC $60 INC $61 REP #$20 LDY #$0048 LDA $60 STA ($6C),Y LDA #$0404 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 STA $5C LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B272E ENT PHP SEP #$20 LDY #$000C LDA ($6C),Y BEQ L0B273A PLP RTL L0B273A LDY #$0006 LDA ($6C),Y INC CMP #$30 BCC L0B2746 LDA #$00 L0B2746 LDY #$0006 STA ($6C),Y JSL L0320D8 LDY #$0004 REP #$20 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L03204E LDY #$0006 LDA ($6C),Y STA $61 STZ $60 REP #$20 LDA $60 LSR LSR LSR CLC ADC #L270000 STA $60 LDA #^L270000 STA $62 SEP #$20 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $64 ROL $5C ROR STA $5C CLC ADC $64 CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $65 ROL $5C ROR CLC ADC $65 CLC ADC $69 STA $5C STA $65 LDX $64 STX L027458 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $64 ROL $5C ROR CLC ADC $64 CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $65 ROL $5C ROR CLC ADC $65 CLC ADC $69 STA $65 LDX $64 STX L02745A LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $64 ROL $5C ROR CLC ADC $64 CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $65 ROL $5C ROR CLC ADC $65 CLC ADC $69 STA $65 LDX $64 STX L02745C LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $64 ROL $5C ROR CLC ADC $64 CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C STA $65 ROL $5C ROR CLC ADC $65 CLC ADC $69 STA $5C STA $65 LDX $64 STX L02745E JMP L0B2A05 L0B28AF ENT PHP SEP #$20 LDY #$000C LDA ($6C),Y BEQ L0B28BB PLP RTL L0B28BB LDY #$0006 LDA ($6C),Y INC CMP #$30 BCC L0B28C7 LDA #$00 L0B28C7 LDY #$0006 STA ($6C),Y JSL L0320D8 LDY #$0004 REP #$20 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L03204E LDY #$0006 LDA ($6C),Y STA $61 STZ $60 REP #$20 LDA $60 LSR LSR LSR CLC ADC #L270000 STA $60 LDA #^L270000 STA $62 SEP #$20 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR STA $5C CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $69 STA $5C STA $65 LDX $64 STX L027458 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $69 STA $65 LDX $64 STX L02745A LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $69 STA $65 LDX $64 STX L02745C LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $68 STA $64 LDA [$60] STA $5C REP #$20 INC $60 SEP #$20 JSL L03206C LDA $5C ROL $5C ROR STA $5C ROL $5C ROR CLC ADC $69 STA $5C STA $65 LDX $64 STX L02745E L0B2A05 LDA #$01 STA L02445B STZ L02464A LDX $62 PHX LDX $60 PHX JSL L03219C LDY #$000B LDA ($6C),Y ASL STA $60 STZ $61 REP #$20 LDY $60 LDA L027446,Y STA L023D85 PLA STA $60 PLA STA $62 LDA #$0202 STA L024456 LDA $60 STA $70 LDA $62 STA $72 SEP #$20 LDA [$70] LDX $70 INX STX $70 STA L027460 LDA [$70] ASL STA $60 STZ $61 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D58 STA L024D78 SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5C STA L024D7C SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5A SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D7A LDA $72 PHA LDA $70 PHA SEP #$20 JSL L181103 LDA L027460 STA $5C JSL L072EE5 REP #$20 PLA STA $70 PLA STA $72 SEP #$20 STZ $61 LDA [$70] CMP #$FF BNE L0B2AC7 JMP L0B2CCE L0B2AC7 LDX $70 INX STX $70 STA L027460 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D58 STA L024D78 SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5C STA L024D7C SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5A SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D7A LDA $72 PHA LDA $70 PHA SEP #$20 JSL L181103 LDA L027460 STA $5C JSL L072EE5 PLX STX $70 PLX STX $72 STZ $61 LDA [$70] CMP #$FF BNE L0B2B45 JMP L0B2CDD L0B2B45 LDX $70 INX STX $70 STA L027460 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D58 STA L024D78 SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5C STA L024D7C SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D5A SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA L024D7A LDA $72 PHA LDA $70 PHA SEP #$20 JSL L181103 LDA L027460 STA $5C JSL L072EE5 REP #$20 PLA STA $70 PLA STA $72 SEP #$20 STZ $61 L0B2BBE SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA $64 SEP #$20 DEC $64 LDX $64 STX L024DB8 INC $64 INC $64 REP #$20 LDX $64 STX L024DC0 SEP #$20 LDA [$70] ASL STA $60 REP #$20 INC $70 LDY $60 LDA L027458,Y STA $64 SEP #$20 INC $65 DEC $64 LDX $64 STX L024DBE INC $64 INC $64 LDX $64 STX L024DC6 LDA [$70] LDX $70 INX STX $70 ASL STA $60 BCC L0B2C19 JMP L0B2CEC L0B2C19 REP #$20 LDY $60 LDA L027458,Y STA $64 SEP #$20 DEC $64 LDX $64 STX L024DBA LDA [$70] LDX $70 INX STX $70 ASL STA $60 BCC L0B2C3A JMP L0B2CFE L0B2C3A REP #$20 LDY $60 LDA L027458,Y STA $64 SEP #$20 DEC $64 LDX $64 STX L024DBC L0B2C4C LDA [$70] LDX $70 INX STX $70 ASL STA $60 BCC L0B2C5B JMP L0B2D0B L0B2C5B REP #$20 LDY $60 LDA L027458,Y STA $64 SEP #$20 INC $64 LDX $64 STX L024DC2 LDA [$70] LDX $70 INX STX $70 ASL STA $60 BCC L0B2C7C JMP L0B2D1D L0B2C7C REP #$20 LDY $60 LDA L027458,Y STA $64 SEP #$20 INC $64 LDX $64 STX L024DC4 L0B2C8E LDA ($6C) ORA #$80 STA ($6C) LDA L024459 LDY #$0001 STA ($6C),Y REP #$20 LDA #$0303 LDY #$0002 STA ($6C),Y REP #$20 LDA $6C PHA CLC ADC #$0020 TAY LDX #L024DB8 LDA #$0007 PHB MVN L024DB8,L024DB8 PLB TYA CLC ADC #$0018 TAY LDA #$0007 PHB MVN L024DB8,L024DB8 PLB PLA STA $6C PLP RTL L0B2CCE REP #$20 LDA #$000A CLC ADC $70 STA $70 SEP #$20 JMP L0B2BBE L0B2CDD REP #$20 LDA $70 CLC ADC #$0005 STA $70 SEP #$20 JMP L0B2BBE L0B2CEC REP #$20 INC $70 LDA L024DBE STA L024DBA STA L024DBC SEP #$20 JMP L0B2C4C L0B2CFE REP #$20 LDA L024DBE STA L024DBC SEP #$20 JMP L0B2C4C L0B2D0B REP #$20 INC $70 LDA L024DC6 STA L024DC2 STA L024DC4 SEP #$20 JMP L0B2C8E L0B2D1D REP #$20 LDA L024DC6 STA L024DC4 SEP #$20 JMP L0B2C8E L0B2D2A ENT PHP SEP #$20 LDA L024436 CLC ADC #$55 STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B2D41 PLP RTL L0B2D41 JSL L0320D8 LDY #$0006 LDA ($6C),Y AND #$0F ASL STA $5C STZ $69 STA $68 REP #$20 LDA $68 CLC ADC #L027465 STA $70 SEP #$20 LDA #$FA STA $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDX $60 STX L024DC6 LDY $68 STX $68 STY $60 LDA #$02 STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDA $69 STA $61 LDX $60 STX L024DB8 LDA #$0A STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDX $60 STX L024DCA LDA #$0C STA $5C JSL L03206C LDA $5C CLC ADC $68 STA $60 LDX $60 STX L024DD8 REP #$20 LDA $70 CLC ADC #$0020 STA $70 SEP #$20 LDA #$FE STA $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDX $60 STX L024DBA LDA #$04 STA $5C JSL L03206C LDA $60 CLC ADC $5C STA $60 LDX $60 STX L024DCC REP #$20 LDA $70 CLC ADC #$0020 STA $70 SEP #$20 STZ $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDA #$10 STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $60 STA $60 LDX $60 STX L024DCE LDA $60 SEC SBC $64 SEC SBC $64 STA $60 LDX $60 STX L024DBC REP #$20 LDA $70 CLC ADC #$0020 STA $70 SEP #$20 LDA #$FA STA $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDX $60 STX L024DBE LDA #$0C STA $5C JSL L03206C LDA $60 CLC ADC $5C STA $60 LDX $60 STX L024DD0 REP #$20 LDA $70 CLC ADC #$0020 STA $70 SEP #$20 STZ $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDA #$10 STA $5C JSL L03206C LDA $5C STA $64 CLC ADC $60 STA $60 LDX $60 STX L024DD2 LDA $60 SEC SBC $64 SEC SBC $64 STA $60 LDX $60 STX L024DC0 LDA #$FA STA $64 LDA #$06 STA $5C STZ $65 JSL L031F32 LDX $60 STX L024DC8 LDA #$0C STA $5C JSL L03206C LDA $60 CLC ADC $5C STA $60 LDX $60 STX L024DDA REP #$20 LDA #$0020 CLC ADC $70 STA $70 SEP #$20 LDA #$FA STA $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDX $60 STX L024DC2 LDA #$0C STA $5C JSL L03206C LDA $60 CLC ADC $5C STA $60 LDX $60 STX L024DD4 REP #$20 LDA $70 CLC ADC #$0020 STA $70 SEP #$20 LDA #$FE STA $64 LDA ($70) STA $5C LDY #$0001 LDA ($70),Y STA $65 JSL L031F32 LDX $60 STX L024DC4 LDA #$04 STA $5C JSL L03206C LDA $60 CLC ADC $5C STA $60 LDX $60 STX L024DD6 LDA #$06 STA L02445B STZ L024B4A LDX L024DBA STX L024D98 LDX L024DCC STX L024D9A LDX L024DD6 STX L024D9C LDX L024DC4 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDY #$0004 LDA ($6C),Y STA $5C CMP #$3B BCS L0B2FD1 LDA #$03 STA L02445B STZ L02484A LDX L024DC6 STX L024D98 LDX L024DC8 STX L024D9A LDX L024DC2 STX L024D9C LDX L024DBE STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$04 STA L02445B STZ L02494A LDX L024DD8 STX L024D98 LDX L024DDA STX L024D9A LDX L024DD4 STX L024D9C LDX L024DD0 STX L024D9E LDA #$04 STA L024458 JSL L181526 JMP L0B3023 L0B2FD1 LDA #$03 STA L02445B STZ L02484A LDX L024DC6 STX L024D98 LDX L024DBE STX L024D9A LDX L024DC2 STX L024D9C LDX L024DC8 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$04 STA L02445B STZ L02494A LDX L024DD8 STX L024D98 LDX L024DD0 STX L024D9A LDX L024DD4 STX L024D9C LDX L024DDA STX L024D9E LDA #$04 STA L024458 JSL L181526 L0B3023 LDA L024DC7 STA $64 LDA L024DC9 STA $5C CMP $64 BCS L0B3034 JMP L0B3095 L0B3034 LDA #$01 STA L02445B STZ L02464A LDX L024DC6 STX L024D98 LDX L024DC8 STX L024D9A LDX L024DC0 STX L024D9C LDX L024DBC STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$02 STA L02445B STZ L02474A LDX L024DD8 STX L024D98 LDX L024DCE STX L024D9A LDX L024DD2 STX L024D9C LDX L024DDA STX L024D9E LDA #$04 STA L024458 JSL L181526 LDX #$3333 STX L027461 LDX #$CCCC STX L027463 JMP L0B30F3 L0B3095 LDA #$01 STA L02445B STZ L02464A LDX L024DC8 STX L024D98 LDX L024DC6 STX L024D9A LDX L024DBC STX L024D9C LDX L024DC0 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDA #$02 STA L02445B STZ L02474A LDX L024DDA STX L024D98 LDX L024DD2 STX L024D9A LDX L024DCE STX L024D9C LDX L024DD8 STX L024D9E LDA #$04 STA L024458 JSL L181526 LDX #$FCFC STX L027461 LDX #$CFCF STX L027463 L0B30F3 LDA L024DB9 STA $64 LDA L024DC5 STA $5C CMP $64 BCS L0B3104 JMP L0B32F8 L0B3104 LDA L024DBB STA $64 LDA L024DB9 STA $5C CMP $64 BCS L0B3115 JMP L0B32CC L0B3115 LDA #$05 STA L02445B STZ L024A4A LDX L024DBA STX L024D98 LDX L024DCC STX L024D9A LDX L024DCA STX L024D9C LDX L024DD6 STX L024D9E LDX L024DC4 STX L024DA0 LDX L024DB8 STX L024DA2 LDA #$06 STA L024458 JSL L181526 JSL L03219C LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL TAX LDA L0243A8,X STA L023D85 AND L027461 STA $64 LDA L023D85 AND L027463 STA $66 SEP #$20 LDA #$01 STA L02445B JSL L072F07 LDA #$02 STA L02445B REP #$20 LDA L023D85 AND L027461 STA $64 LDA L023D85 AND L027463 STA $66 SEP #$20 JSL L072F07 LDA #$03 STA L02445B LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL TAX LDA L0243A8,X STA L023D85 AND #$FCFC STA $64 LDA L023D85 AND #$CFCF STA $66 SEP #$20 JSL L072F07 LDA #$04 STA L02445B REP #$20 LDA L023D85 AND #$FCFC STA $64 LDA L023D85 AND #$CFCF STA $66 SEP #$20 JSL L072F07 LDA #$05 STA L02445B REP #$20 LDA L023D85 AND #$3333 STA $64 LDA L023D85 AND #$CCCC STA $66 SEP #$20 JSL L072F07 LDA #$06 STA L02445B REP #$20 LDA L023D85 AND #$FFFF STA $64 STA $66 SEP #$20 JSL L072F07 LDY #$0006 LDA ($6C),Y STA $5C BEQ L0B321C JMP L0B3431 L0B321C LDX L024DBE STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DC0 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DC4 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DD0 STA $60 SEP #$20 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DCE STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DD2 STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD6 STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0303 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B32CC LDA #$05 STA L02445B STZ L024A4A LDX L024DB8 STX L024D98 LDX L024DCA STX L024D9A LDX L024DD6 STX L024D9C LDX L024DC4 STX L024D9E LDA #$04 STA L024458 JSL L181526 JMP L0B3321 L0B32F8 LDA #$05 STA L02445B STZ L024A4A LDX L024DC4 STX L024D98 LDX L024DD6 STX L024D9A LDX L024DCA STX L024D9C LDX L024DB8 STX L024D9E LDA #$04 STA L024458 JSL L181526 L0B3321 LDA #$07 STA L02445B STZ L024C4A LDX L024DBA STX L024D98 LDX L024DB8 STX L024D9A LDX L024DCA STX L024D9C LDX L024DCC STX L024D9E LDA #$04 STA L024458 JSL L181526 JSL L03219C LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL TAX LDA L0243A8,X STA L023D85 AND L027461 STA $64 LDA L023D85 AND L027463 STA $66 SEP #$20 LDA #$01 STA L02445B JSL L072F07 LDA #$02 STA L02445B REP #$20 LDA L023D85 AND L027461 STA $64 LDA L023D85 AND L027463 STA $66 SEP #$20 JSL L072F07 LDA #$03 STA L02445B LDA #$00 XBA LDY #$000B LDA ($6C),Y REP #$20 ASL TAX LDA L0243A8,X STA L023D85 AND #$FCFC STA $64 LDA L023D85 AND #$CFCF STA $66 SEP #$20 JSL L072F07 LDA #$04 STA L02445B REP #$20 LDA L023D85 AND #$FCFC STA $64 LDA L023D85 AND #$CFCF STA $66 SEP #$20 JSL L072F07 LDA #$05 STA L02445B REP #$20 LDA L023D85 AND #$3333 STA $64 LDA L023D85 AND #$CCCC STA $66 SEP #$20 JSL L072F07 LDA #$06 STA L02445B REP #$20 LDA L023D85 AND #$FFFF STA $64 STA $66 SEP #$20 JSL L072F07 LDX #$5555 STX L023D85 LDA #$07 STA L02445B LDA L024428 AND #$07 STA $5C JSL L072EE5 LDY #$0006 LDA ($6C),Y STA $5C CMP #$10 BEQ L0B3445 L0B3431 LDA ($6C) ORA #$80 STA ($6C) LDA #$06 STA L024450 LDA #$07 STA $5C PLP JMPL L0321FA L0B3445 LDX L024DC4 STX $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y LDA L024DC0 STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y LDA L024DBC STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y LDA L024DBE STA $60 SEP #$20 DEC $60 REP #$20 LDA $60 LDY #$0026 STA ($6C),Y LDA L024DD6 STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y LDA L024DD2 STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y LDA L024DCE STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA L024DD0 STA $60 SEP #$20 INC $60 REP #$20 LDA $60 LDY #$0046 STA ($6C),Y LDA #$0303 LDY #$0002 STA ($6C),Y LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$0080 STA ($6C) PLP RTL L0B34EC ENT PHP SEP #$20 LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y BEQ L0B3501 PLP RTL L0B3501 JSL L0320D8 REP #$20 LDY #$0004 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDX $60 STX L024DB8 LDA $69 CLC ADC #$04 STA $69 DEC $68 JSL L031E2F LDX $60 STX L024DBA LDA #$00 XBA LDA $69 TAX LDA L0207E8,X CLC ADC $60 STA $60 LDX $60 STX L024DBC INC $69 INC $69 INC $69 INC $68 JSL L031E2F LDX $60 STX L024DBE LDA $69 STA $64 XBA LDA #$00 XBA TAX STX $70 LDA L0207E8,X CLC ADC $60 STA $60 LDY $60 STY L024DC0 INC $68 JSL L031E2F LDX $70 LDA L020748,X EOR #$FF INC CLC ADC $61 STA $5C STA $61 LDY $60 STY L024DC2 LDA L0207E8,X CLC ADC $61 STA $5C STA $61 LDX $60 STX L024DC4 JSL L031E2F LDA #$00 XBA LDA $69 TAX STX $70 LDA L020928,X STA $65 LDA $60 SEC SBC $65 STA $60 LDY $60 STY L024DC6 CLC ADC $65 CLC ADC $65 STA $60 LDY $60 STY L024DC8 SEC SBC $65 STA $5C LDA $65 LSR STA $65 LDA $5C SEC SBC $65 STA $60 LDA L020888,X LSR EOR #$FF INC CLC ADC $61 STA $61 LDY $60 STY L024DCA LDA L0207E8,X ASL CLC ADC $60 STA $60 LDY $60 STY L024DCC INC $69 INC $69 INC $69 DEC $68 DEC $68 JSL L031E2F LDY $60 STY L024DCE LDA #$00 XBA LDA $69 TAX LDA L020928,X CLC ADC $60 STA $60 STA $5C LDX $60 STX L024DD0 LDX L024DB8 STX L024D58 STX L024D78 LDX L024DC2 STX L024D7A LDX L024DBE STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DC2 STX L024D5A LDX L024DC0 STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DC2 STX L024D58 STX L024D78 LDX L024DBE STX L024D5A LDX L024DC0 STX L024D7A LDX L024DC4 STX L024D5C STX L024D7C LDX #$0202 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDX L024DBA STX L024D58 STX L024D78 LDX L024DCA STX L024D7A LDX L024DC6 STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$04 STA L02445B STZ L02494A JSL L181103 LDX L024DBC STX L024D58 STX L024D78 LDX L024DCC STX L024D5A LDX L024DC8 STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$05 STA L02445B STZ L024A4A JSL L181103 LDX L024DCA STX L024D58 STX L024D78 LDX L024DC6 STX L024D5A LDX L024DCE STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$06 STA L02445B STZ L024B4A JSL L181103 LDX L024DCC STX L024D58 STX L024D78 LDX L024DC8 STX L024D7A LDX L024DD0 STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$07 STA L02445B STZ L024C4A JSL L181103 JSL L03219C LDX #$FFFF STX $64 STX $66 LDA #$01 STA L02445B JSL L072F07 LDA #$02 STA L02445B LDX #$FCFC STX $64 LDX #$3333 STX $66 JSL L072F07 LDX #$AAAA STX $64 STX $66 LDA #$03 STA L02445B JSL L072F07 LDX #$9999 STX $64 STX $66 LDA #$04 STA L02445B JSL L072F07 LDA #$05 STA L02445B LDX #$9999 STX $64 STX $66 JSL L072F07 LDA #$06 STA L02445B LDX #$5555 STX $64 LDX #$5454 JSL L072F07 LDA #$07 STA L02445B LDX #$5555 STX $64 LDX #$5454 JSL L072F07 REP #$20 LDA L024DB8 SEP #$20 DEC REP #$20 LDY #$0020 STA ($6C),Y LDA L024DBA SEP #$20 DEC DEC DEC REP #$20 LDY #$0022 STA ($6C),Y LDA L024DC6 SEP #$20 DEC DEC DEC REP #$20 LDY #$0024 STA ($6C),Y LDA L024DCE SEP #$20 DEC XBA INC XBA REP #$20 LDY #$0026 STA ($6C),Y LDA L024DB8 SEP #$20 INC REP #$20 LDY #$0040 STA ($6C),Y LDA L024DBC SEP #$20 INC INC INC REP #$20 LDY #$0042 STA ($6C),Y LDA L024DC8 SEP #$20 INC INC INC REP #$20 LDY #$0044 STA ($6C),Y LDA L024DD0 SEP #$20 INC XBA INC XBA REP #$20 LDY #$0046 STA ($6C),Y LDY #$0002 LDA #$0303 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL L0B3847 ENT PHP SEP #$20 LDA L024436 CLC ADC #$3F STA L024436 LDY #$000C LDA ($6C),Y STA $5C BEQ L0B385E PLP RTL L0B385E JSL L0320D8 LDY #$0004 REP #$20 LDA ($6C),Y STA $68 SEP #$20 LDA $68 CLC ADC #$05 STA $68 JSL L031E2F LDY #$0006 LDA ($6C),Y STA $5C LDY #$001A LDA ($6C),Y STA $5D LDY $5C STY $70 STY $74 LDA $69 STA $5C STZ $5D REP #$20 LDA $70 CLC ADC $5C STA $70 SEP #$20 LDA ($70) STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DBA LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DB8 LDX #L020748 STX $70 LDA $69 STA $5C STZ $5D REP #$20 LDA $5C CLC ADC $70 STA $70 SEP #$20 LDA ($70) EOR #$FF INC STA $5C CLC ADC $61 STA $61 LDX $60 STX L024DBC LDX $74 STX $70 LDA $69 STA $5C REP #$20 LDA $70 CLC ADC $5C STA $70 SEP #$20 LDA ($70) ASL STA $5C CLC ADC $60 STA $60 LDX $60 STX L024DBE INC $69 JSL L031E2F LDX $74 STX $70 LDA $69 STA $5C STZ $5D REP #$20 LDA $70 CLC ADC $5C STA $70 SEP #$20 LDA ($70) STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DC6 LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DC4 LDA $60 CLC ADC $65 STA $60 REP #$20 LDA $74 CLC ADC #$0140 STA $70 SEP #$20 LDA $69 STA $5C STZ $5D REP #$20 LDA $70 CLC ADC $5C STA $70 SEP #$20 LDA ($70) STA $65 SEP #$20 LDA $60 CLC ADC $65 STA $60 LDX $60 STX L024DC2 LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DC0 LDA $69 CLC ADC #$03 STA $69 JSL L031E2F LDX $74 STX $70 LDA $69 STA $5C STZ $5D REP #$20 LDA $70 CLC ADC $5C STA $70 SEP #$20 LDA ($70) STA $65 CLC ADC $60 STA $60 LDX $60 STX L024DCA LDA $60 SEC SBC $65 SEC SBC $65 STA $60 LDX $60 STX L024DC8 LDX L024DBC STX L024D58 STX L024D78 LDX L024DC0 STX L024D5A LDX L024DC8 STX L024D5C STX L024D7A LDX #$0102 STX L024456 LDA #$01 STA L02445B STZ L02464A JSL L181103 LDX L024DBE STX L024D58 STX L024D78 LDX L024DC2 STX L024D7A LDX L024DCA STX L024D5A STX L024D7C LDX #$0201 STX L024456 LDA #$02 STA L02445B STZ L02474A JSL L181103 LDX L024DB8 STX L024D58 LDX L024DBA STX L024D78 LDX L024DC4 STX L024D5A LDX L024DC6 STX L024D7A LDX #$0101 STX L024456 LDA #$03 STA L02445B STZ L02484A JSL L181103 LDA #$04 STA L02445B STZ L02494A LDY #$0004 LDA ($6C),Y STA $5C CMP #$3B BCS L0B3A6F LDX L024DBC STX L024D58 STX L024D78 LDX L024DB8 STX L024D7A LDX L024DC8 STX L024D5A STX L024D7C LDX #$0201 STX L024456 JMP L0B3A8D L0B3A6F LDX L024DBE STX L024D58 STX L024D78 LDX L024DBA STX L024D5A LDX L024DCA STX L024D5C STX L024D7A LDX #$0102 STX L024456 L0B3A8D JSL L181103 JSL L03219C LDA #$03 STA L02445B LDX #$5454 STX $64 LDX #$1515 STX $66 JSL L072F07 LDA #$04 STA L02445B LDX #$A8A8 STX $64 LDX #$2A2A STX $66 JSL L072F07 LDA #$01 STA L02445B LDX #$FCFC STX $64 LDX #$3F3F STX $66 JSL L072F07 LDA #$02 STA L02445B LDX #$FFFF STX $64 STX $66 JSL L072F07 LDX L024DBC STX $60 DEC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0020 STA ($6C),Y SEP #$20 LDX L024DC0 STX $60 DEC $60 REP #$20 LDA $60 LDY #$0022 STA ($6C),Y SEP #$20 LDX L024DC8 STX $60 INC $61 DEC $60 DEC $60 REP #$20 LDA $60 LDY #$0024 STA ($6C),Y SEP #$20 LDX L024DBE STX $60 DEC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0040 STA ($6C),Y SEP #$20 LDX L024DC2 STX $60 INC $60 REP #$20 LDA $60 LDY #$0042 STA ($6C),Y SEP #$20 LDX L024DCA STX $60 INC $61 INC $60 INC $60 REP #$20 LDA $60 LDY #$0044 STA ($6C),Y LDA #$0202 LDY #$0002 STA ($6C),Y SEP #$20 LDA L024459 LDY #$0001 STA ($6C),Y LDA ($6C) ORA #$80 STA ($6C) PLP RTL