.code .bank 82 .org $6000 mb128_routines: PHP LDA $be82, X CLX LDA [$8d, X] EOR <$97 CMP [$8e] SBC <$95 RMB5 <$8f STX <$92 CMP <$b3, X LDY $4dac, X AND [$32], Y SEC ASL $8255 STY $5283 TST #$5b, <$81 PLA TST #$cc, <$82 ADC <$97 DEX SMB1 <$aa CLX .db $4b STA <$76, X SMB1 <$c5 CLX SMB3 <$82 SAY STA [$14, X] BRK EOR $5355, Y PHA EOR [$20, X] JSR l2020_00 JSR l580f_00 CLX EOR <$82, X RMB5 <$82 BBR6 <$83, l608f_00 TST #$67, <$83 CPY $6582 SMB1 <$ca SMB1 <$aa CLX .db $4b STA <$76, X SMB1 <$c5 CLX SMB3 <$82 SAY STA [$a2, X] TSB <$a9 ORA <$20 LDX $e868, Y INC A JSR l68be_00 JSR l40a5_00 LDA $281a AND #$80 STA $3559 JSR l652d_00 JSR l62b6_00 LDA $3559 BNE l6092_00 LDA $3557 BNE l6092_00 LDA $3558 BEQ l6091_00 CMP #$ff l608f_00: BNE l6092_00 l6091_00: RTS l6092_00: JSR l42b8_00 JSR l6203_00 JSR l42af_00 JSR l6732_00 l609e_00: TST #$01, $3182 BNE l60a7_00 JSR l6329_00 l60a7_00: TST #$80, $3182 BNE l60b0_00 JSR l6580_00 l60b0_00: JSR l6162_00 JSR l6a58_00 JSR l40a5_00 JSR l6732_00 LDA #$96 STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$b3 STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 JSR l40a5_00 JSR l62b6_00 JSR l652d_00 JSR l6a58_00 TST #$01, $3182 BNE l610b_00 LDA #$f0 STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$3f STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 JSR l68d2_00 l610b_00: TST #$80, $3182 BNE l6138_00 LDA $3558 CMP #$ff BEQ l6138_00 LDA #$3c STA $355c LDA #$72 STA $355d CLA JSR l692b_00 LDA #$3f STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 JSR l68d2_00 l6138_00: LDA #$50 STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$63 STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 JSR l6b61_00 LDA <$18 CMP #$01 BEQ l6161_00 JMP l609e_00 l6161_00: RTS l6162_00: LDA $3558 CMP #$ff BNE l616c_00 JMP l61f1_00 l616c_00: LDA #$29 STA <$1a LDA #$00 STA <$1b LDA #$f9 STA <$18 LDA #$00 STA <$19 LDA #$11 STA $355c LDA #$72 STA $355d LDA #$00 STA $3177 LDA #$20 STA $3178 LDA #$02 STA $317a LDA #$81 STA <$1e STZ <$1f JSR l6968_00 LDA <$1a CLC ADC #$10 STA <$1a LDA <$1b ADC #$00 STA <$1b LDA #$57 STA $355c LDA #$72 STA $355d LDA #$02 STA $317a LDA #$82 STA <$1e JSR l6968_00 LDA <$1a CLC ADC #$10 STA <$1a LDA <$1b ADC #$00 STA <$1b LDA #$84 STA $355c LDA #$71 STA $355d LDA #$02 STA $317a LDA #$83 STA <$1e JSR l6968_00 LDA #$03 STA $355a JSR l6c66_00 JSR l6a58_00 BRA l61f3_00 l61f1_00: STZ <$18 l61f3_00: LDA <$18 BNE l61fc_00 JSR l628b_00 BRA l6202_00 l61fc_00: DEC A BNE l6202_00 JSR l6502_00 l6202_00: RTS l6203_00: TMA #$04 PHA TMA #$05 PHA LDA #$03 LDX #$04 JSR l68be_00 INX INC A JSR l68be_00 TII $8200, $2829, $0040 TII $8200, $2a29, $0020 TII $8200, $2a49, $0020 TII $8200, $2a69, $0020 INC $2094 LDA #$00 STA $0000 LDA #$00 STA $0002 LDA #$10 STA $0003 LDA #$02 STA $0000 TIA $8240, $0002, $2000 LDA #$00 STA $0000 LDA #$00 STA $0002 LDA #$09 STA $0003 LDA #$02 STA $0000 TIA $a240, $0002, $0080 LDA #$00 STA $0000 STZ $0002 STZ $0003 LDA #$02 STA $0000 TIA $a2c0, $0002, $0800 JSR l6a58_00 PLA TAM #$05 PLA TAM #$04 RTS l628b_00: LDA #$11 STA $355c LDA #$72 STA $355d CLA JSR l692b_00 JSR l6bc7_00 LDA <$18 PHA JSR l6a58_00 PLA CMP #$02 BCS l62b5_00 CMP #$00 BNE l62b0_00 JSR l6363_00 BRA l62b3_00 l62b0_00: JSR l64b1_00 l62b3_00: BRA l628b_00 l62b5_00: RTS l62b6_00: JSR l6a9c_00 CMP #$ff BNE l62c1_00 STA $3557 RTS l62c1_00: STZ <$1d LDA $3561 CMP #$ff BEQ l62fd_00 LDA #$00 STA <$1a LDA #$80 STA <$1b CLX l62d3_00: STZ <$1c CLY l62d6_00: LDA $6036, Y CMP [$1a], Y BEQ l62df_00 INC <$1c l62df_00: INY CPY #$0c BNE l62d6_00 LDA <$1c BNE l62ea_00 INC <$1d l62ea_00: LDA <$1a CLC ADC #$0c STA <$1a LDA <$1b ADC #$00 STA <$1b INX CPX $3561 BNE l62d3_00 l62fd_00: LDA <$1d BEQ l630d_00 STZ $3557 LDA $3182 ORA #$01 STA $3182 RTS l630d_00: JSR bm_free LDA <$fd CMP #$03 BCC l631e_00 BNE l6325_00 LDA <$fc CMP #$c8 BCS l6325_00 l631e_00: LDA #$01 STA $3557 BRA l6328_00 l6325_00: JSR l6a63_00 l6328_00: RTS l6329_00: LDA $3557 BNE l632f_00 RTS l632f_00: LDA #$ca STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA $3557 CMP #$ff BNE l6350_00 LDA #$76 STA $355c LDA #$70 STA $355d BRA l635a_00 l6350_00: LDA #$a6 STA $355c LDA #$70 STA $355d l635a_00: LDA #$01 JSR l692b_00 JSR l68d2_00 RTS l6363_00: LDA $3557 CMP #$ff BNE l638b_00 LDA #$76 STA $355c LDA #$70 STA $355d CLA JSR l692b_00 LDA #$8f STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l68d2_00 RTS l638b_00: JSR l6420_00 LDA $3566 CMP #$ff BNE l6398_00 JMP l641c_00 l6398_00: INC A STA <$f8 LDA #$68 STA <$fa LDA #$35 STA <$fb JSR bm_files LDA #$0a STA $3569 LDA #$69 STA <$18 LDA #$35 STA <$19 JSR l6a06_00 CLA JSR l692b_00 LDA #$e8 STA $355c LDA #$70 STA $355d JSR l6968_00 LDA #$eb STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l6b61_00 LDA <$18 CMP #$01 BNE l6419_00 LDA $3566 STA <$18 STZ <$19 ASL <$18 ROL <$19 ASL <$18 ROL <$19 LDA <$18 STA <$f8 LDA <$19 ASL <$f8 ROL A ASL <$f8 ROL A STA <$f9 LDA <$f8 SEC SBC <$18 STA <$f8 LDA <$f9 SBC <$19 STA <$f9 LDA <$f8 CLC ADC #$00 STA <$f8 LDA <$f9 ADC #$80 STA <$f9 JSR bm_delete l6419_00: JMP l638b_00 l641c_00: JSR l6203_00 RTS l6420_00: JSR l6203_00 JSR l6a9c_00 LDA $3561 CMP #$ff BNE l6447_00 JSR l6a58_00 LDA #$fa STA $355c LDA #$70 STA $355d CLA JSR l692b_00 JSR l68d2_00 LDA #$ff STA $3566 RTS l6447_00: JSR l6f5d_00 JSR l6a58_00 LDA #$00 STA $355c LDA #$60 STA $355d CLA JSR l692b_00 LDA #$d9 STA $355c LDA #$70 STA $355d JSR l6968_00 LDA #$42 STA $355c LDA #$60 STA $355d LDA #$01 JSR l692b_00 LDA #$5c STA <$18 LDA #$70 STA <$19 LDA #$1a STA <$1a LDA #$14 STA <$1b STZ <$1c JSR l69ad_00 JSR bm_free LDA <$fc STA <$28 LDA <$fd STA <$29 JSR l6c27_00 LDA #$15 STA <$1a LDA #$14 STA <$1b STZ <$1c JSR l69ad_00 STZ $3567 JSR l6d70_00 JSR l6a58_00 RTS l64b1_00: LDA #$dd STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$b7 STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l6b61_00 LDA <$18 CMP #$01 BNE l64f6_00 LDA #$f7 STA <$f8 LDA #$64 STA <$f9 JSR bm_format LDA #$c8 STA $355c LDA #$70 STA $355d CLA JSR l692b_00 JSR l68d2_00 STZ $3557 l64f6_00: RTS AND [$42, X] EOR $4620 BBR4 <$52, l654c_00 EOR [$54, X] AND [$a9, X] RMB5 <$8d .db $5c AND <$a9, X ADC [$8d] EOR $6235, X JSR l692b_00 JSR l6bc7_00 LDA <$18 PHA JSR l6a58_00 PLA CMP #$02 BCS l652c_00 CMP #$00 BNE l6527_00 JSR l65c1_00 BRA l652a_00 l6527_00: JSR l66ed_00 l652a_00: BRA l6502_00 l652c_00: RTS l652d_00: JSR mb128_boot CMP #$00 BEQ l653a_00 LDA #$ff STA $3558 RTS l653a_00: JSR mb128_is_valid CMP #$00 BEQ l6547_00 LDA #$01 STA $3558 RTS l6547_00: LDA #$11 STA <$f8 LDA #$60 STA <$f9 JSR mb128_find_entry CMP #$40 BEQ l655f_00 LDA $3182 ORA #$80 STA $3182 RTS l655f_00: LDA #$06 STA <$fa JSR l73c1_00 CMP #$01 BNE l6572_00 LDA #$03 STA $3558 RTS BRA l657c_00 l6572_00: CMP #$ff BNE l657c_00 LDA #$02 STA $3558 RTS l657c_00: JSR l6ac9_00 RTS l6580_00: LDA $3558 CMP #$ff BNE l6588_00 RTS l6588_00: CMP #$03 BNE l658d_00 RTS l658d_00: LDA #$22 STA $355c LDA #$72 STA $355d CLA JSR l692b_00 LDA $3558 CMP #$01 BNE l65ae_00 LDA #$76 STA $355c LDA #$70 STA $355d BRA l65b8_00 l65ae_00: LDA #$a6 STA $355c LDA #$70 STA $355d l65b8_00: LDA #$01 JSR l692b_00 JSR l68d2_00 RTS l65c1_00: LDA $3558 CMP #$01 BNE l65e9_00 LDA #$76 STA $355c LDA #$70 STA $355d CLA JSR l692b_00 LDA #$8f STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l68d2_00 RTS l65e9_00: JSR l6642_00 LDA $3566 CMP #$ff BNE l65f6_00 JMP l663e_00 l65f6_00: JSR l701f_00 LDA #$68 STA <$18 LDA #$35 STA <$19 JSR l6a06_00 CLA JSR l692b_00 LDA #$e8 STA $355c LDA #$70 STA $355d JSR l6968_00 LDA #$eb STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l6b61_00 LDA <$18 CMP #$01 BNE l663b_00 LDA $3566 INC A JSR mb128_delete_entry CMP #$ff BNE l663b_00 JMP l6b1f_00 l663b_00: JMP l65e9_00 l663e_00: JSR l6203_00 RTS l6642_00: JSR l6203_00 JSR mb128_is_valid JSR l73c1_00 DEC <$fc LDA <$fc BNE l6652_00 DEC A l6652_00: STA $3561 CMP #$ff BNE l6673_00 JSR l6a58_00 LDA #$fa STA $355c LDA #$70 STA $355d CLA JSR l692b_00 JSR l68d2_00 LDA #$ff STA $3566 RTS l6673_00: JSR l6a58_00 LDA #$00 STA $355c LDA #$60 STA $355d CLA JSR l692b_00 LDA #$d9 STA $355c LDA #$70 STA $355d JSR l6968_00 LDA #$19 STA $355c LDA #$60 STA $355d LDA #$01 JSR l692b_00 LDA #$62 STA <$18 LDA #$70 STA <$19 LDA #$1a STA <$1a LDA #$14 STA <$1b STZ <$1c JSR l69ad_00 JSR l73c1_00 LDA <$fb STA <$28 STZ <$29 JSR l6c27_00 LDA #$15 STA <$1a LDA #$14 STA <$1b STZ <$1c LDA $3561 CMP #$3f BNE l66de_00 LDA #$66 STA <$18 LDA #$70 STA <$19 LDA #$10 STA <$1a l66de_00: JSR l69ad_00 LDA #$01 STA $3567 JSR l6d70_00 JSR l6a58_00 RTS l66ed_00: LDA #$2f STA $355c LDA #$72 STA $355d CLA JSR l692b_00 LDA #$b7 STA $355c LDA #$70 STA $355d LDA #$01 JSR l692b_00 JSR l6b61_00 LDA <$18 CMP #$01 BNE l6731_00 JSR mb128_format CMP #$00 BEQ l671d_00 JMP l6b1f_00 l671d_00: LDA #$c8 STA $355c LDA #$70 STA $355d CLA JSR l692b_00 JSR l68d2_00 STZ $3558 l6731_00: RTS l6732_00: LDA $3558 CMP #$01 BEQ l673d_00 CMP #$ff BNE l673e_00 l673d_00: RTS l673e_00: JSR mb128_is_valid JSR l73c1_00 DEC <$fc LDA <$fc BNE l674b_00 RTS l674b_00: STA $3561 LDA #$22 STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$b3 STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 STZ $357e LDA #$01 STA $357f LDA #$02 STA $357d l6778_00: DEC $357f BNE l6782_00 JSR l67d1_00 BRA l67c3_00 l6782_00: LDA #$00 STA <$f8 LDA #$90 STA <$f9 LDA $357c STA <$fa STA <$fb JSR mb128_read_sectors JSR l6871_00 CMP #$00 BNE l6782_00 l679b_00: LDA #$00 STA <$f8 LDA #$90 STA <$f9 LDA $357d STA <$fa STA <$fb JSR mb128_write_sectors JSR l6871_00 CMP #$00 BEQ l67bd_00 TII $9200, $9000, $0200 BRA l679b_00 l67bd_00: INC $357c INC $357d l67c3_00: LDA $357e CMP #$40 BNE l6778_00 JSR mb128_update_header JSR l6203_00 RTS l67d1_00: INC $357e LDA $357e STA <$18 STZ <$19 LDA <$19 ASL <$18 ROL A ASL <$18 ROL A ASL <$18 ROL A ASL <$18 ROL A STA <$19 LDA <$18 CLC ADC #$00 STA <$18 LDA <$19 ADC #$80 STA <$19 LDY #$01 LDA [$18], Y INC A STA $357f LDA [$18] STA $357c CMP $357d BEQ l6812_00 LDA $357e CMP $3561 BCC l6822_00 l6812_00: LDA #$01 STA $357f LDA $357d CLC ADC [$18], Y STA $357d BRA l6827_00 l6822_00: LDA $357d STA [$18] l6827_00: LDA #$40 SEC SBC $357e STA <$18 LSR A LSR A LSR A STA <$19 CLX l6835_00: LDA #$08 STA $3581, X INX CPX <$19 BNE l6835_00 LDA <$18 AND #$07 STA $3581, X INX l6847_00: CPX #$08 BCS l6853_00 LDA #$20 STA $3581, X INX BRA l6847_00 l6853_00: LDA #$08 STA $3580 LDA #$80 STA <$18 LDA #$35 STA <$19 LDA #$06 STA <$1a LDA #$14 STA <$1b STZ <$1c JSR l69ad_00 JSR l40a5_00 RTS l6871_00: TII $9000, $9200, $0200 LDA #$00 STA <$f8 LDA #$90 STA <$f9 LDA $357c STA <$fa STA <$fb JSR mb128_read_sectors STZ <$1c LDA #$00 STA <$18 LDA #$90 STA <$19 l6894_00: LDA <$18 CLC ADC #$00 STA <$1a LDA <$19 ADC #$02 STA <$1b LDA [$18] CMP [$1a] BEQ l68a9_00 INC <$1c l68a9_00: INC <$18 BNE l68af_00 INC <$19 l68af_00: LDA <$19 CMP #$92 BNE l6894_00 LDA <$18 CMP #$00 BNE l6894_00 LDA <$1c RTS l68be_00: PHA PHX CLC ADC $fff5 PHA TXA ASL A TAX PLA JSR l68cf_00 PLX PLA RTS l68cf_00: JMP [$4883, X] l68d2_00: JSR l40a5_00 l68d5_00: INC $3563 TST #$1f, $3563 BNE l6905_00 LDA $3564 EOR #$01 STA $3564 BNE l68f2_00 LDA #$23 STA <$1a LDA #$69 STA <$1b BRA l68fa_00 l68f2_00: LDA #$1b STA <$1a LDA #$69 STA <$1b l68fa_00: CLY l68fb_00: LDA [$1a], Y STA $2616, Y INY CPY #$08 BNE l68fb_00 l6905_00: JSR l40a5_00 LDA $281f BEQ l68d5_00 CLY l690e_00: CLA STA $2616, Y INY CPY #$08 BNE l690e_00 JSR l6a58_00 RTS ORA $9401, Y BRK PHA BRK BRA l6923_00 l6923_00: BRK BRK BRK BRK BRK BRK BRK BRK l692b_00: PHA LDA #$f9 STA <$18 LDA #$00 STA <$19 LDA #$00 STA $3177 LDA #$20 STA $3178 PLA BEQ l6955_00 LDA #$20 CLC ADC #$04 STA $3178 LDA <$18 CLC ADC #$10 STA <$18 CLA ADC <$19 STA <$19 l6955_00: LDA #$02 STA $317a LDA #$29 STA <$1a LDA #$00 STA <$1b LDA #$80 STA <$1e STZ <$1f l6968_00: LDY #$01 LDA $355c STA <$1c LDA $355d STA <$1d LDA [$1c] l6976_00: PHA LDA $355c STA <$1c LDA $355d STA <$1d LDA [$1c], Y INY PHA LDA [$1c], Y INY PLX PHY TAY LDA $3560 JSR l47d7_00 JSR l4827_00 LDA #$10 INC $3560 BPL l699d_00 LDA #$0c l699d_00: CLC ADC <$1a STA <$1a CLA ADC <$1b STA <$1b PLY PLA DEC A BNE l6976_00 RTS l69ad_00: STZ <$1d LDA <$1b STA <$1e LSR <$1e ROR <$1d LSR <$1e ROR <$1d LSR <$1e ROR <$1d LDA <$1d CLC ADC <$1a STA <$1d BCC l69ca_00 INC <$1e l69ca_00: SEI LDA #$00 STA $0000 LDA <$1d STA $0002 LDA <$1e STA $0003 LDY #$01 LDA #$02 STA $0000 LDA <$1c ASL A ASL A ASL A ASL A INC A STA <$1e LDA [$18] STA <$1d l69ee_00: LDA [$18], Y STA $0002 LDA <$1e STA $0003 INY DEC <$1d BNE l69ee_00 CLI LDA <$1a CLC ADC [$18] STA <$1a RTS l6a06_00: LDA [$18] STA $358b LDY #$01 CLX LDA [$18] STA <$1c l6a12_00: PHY LDA [$18], Y STA <$1a STZ <$1b ASL <$1a ROL <$1b LDA <$1a CLC ADC #$00 STA <$1a LDA <$1b ADC #$80 STA <$1b TMA #$04 PHA PHX LDX #$04 LDA #$03 JSR l68be_00 PLX LDA [$1a] STA $358c, X LDY #$01 INX LDA [$1a], Y STA $358c, X INX PLA TAM #$04 PLY INY DEC <$1c BNE l6a12_00 LDA #$8b STA $355c LDA #$35 STA $355d RTS l6a58_00: LDA #$81 STA $3560 JSR l42a0_00 JMP l40a5_00 l6a63_00: STZ $9000 TII $9000, $9001, $03b8 LDA #$36 STA <$f8 LDA #$60 STA <$f9 LDA #$00 STA <$fa LDA #$90 STA <$fb LDA #$b8 STA <$fc LDA #$03 STA <$fd STZ <$fe STZ <$ff JSR bm_write STA $3557 CMP #$00 BNE l6a9b_00 LDA $3182 ORA #$01 STA $3182 l6a9b_00: RTS l6a9c_00: STZ <$f8 LDA #$00 STA <$fa LDA #$80 STA <$fb l6aa6_00: INC <$f8 JSR bm_files CMP #$00 BNE l6abe_00 LDA <$fa CLC ADC #$0c STA <$fa LDA <$fb ADC #$00 STA <$fb BRA l6aa6_00 l6abe_00: PHA LDA <$f8 BNE l6ac4_00 DEC A l6ac4_00: STA $3561 PLA RTS l6ac9_00: JSR mb128_is_valid CMP #$00 BPL l6ad3_00 JMP l6b1f_00 l6ad3_00: STZ $9000 TII $9000, $9001, $0006 LDA #$11 STA <$f8 LDA #$60 STA <$f9 LDA #$06 STA <$fa JSR l73c1_00 CMP #$00 BPL l6af3_00 JMP l6b1f_00 l6af3_00: CMP #$00 BEQ l6af8_00 RTS l6af8_00: LDA #$11 STA <$f8 LDA #$60 STA <$f9 JSR l752f_00 CMP #$00 BPL l6b0a_00 JMP l6b1f_00 l6b0a_00: LDA <$fc JSR l74c6_00 CMP #$00 BPL l6b16_00 JMP l6b1f_00 l6b16_00: LDA $3182 ORA #$80 STA $3182 RTS l6b1f_00: LDA #$64 STA $355c LDA #$72 STA $355d CLA JSR l692b_00 LDA #$71 STA $355c LDA #$72 STA $355d LDA #$01 JSR l692b_00 JSR l68d2_00 LDA #$86 STA $355c LDA #$72 STA $355d CLA JSR l692b_00 LDA #$a1 STA $355c LDA #$72 STA $355d LDA #$01 JSR l692b_00 l6b5c_00: JSR l40a5_00 BRA l6b5c_00 l6b61_00: LDA #$11 STA $355c LDA #$71 STA $355d LDA #$02 STA $317a JSR l6968_00 LDA $3560 AND #$7f STA <$18 STZ <$19 ASL <$18 ROL <$19 ASL <$18 ROL <$19 ASL <$18 ROL <$19 LDA <$18 CLC ADC #$dc STA <$18 LDA <$19 ADC #$25 STA <$19 CLX l6b96_00: LDA $6bbf, X STA [$18] LDA <$18 CLC ADC #$08 STA <$18 LDA <$19 ADC #$00 STA <$19 INX CPX #$08 BNE l6b96_00 LDA #$02 STA $355a JSR l6c66_00 LDA <$18 PHA JSR l6a58_00 PLA STA <$18 RTS BRA l6b42_00 STA [$80, X] CLX CLX CLX BRA l6b71_00 AND #$85 INC A LDA #$00 STA <$1b LDA #$09 STA <$18 LDA #$01 STA <$19 LDA #$74 STA $355c LDA #$71 STA $355d LDA #$00 STA $3177 LDA #$24 STA $3178 LDA #$02 STA $317a LDA #$81 STA <$1e STZ <$1f JSR l6968_00 LDA #$7b STA $355c LDA #$71 STA $355d LDA #$82 STA <$1e JSR l6968_00 LDA #$84 STA $355c LDA #$71 STA $355d LDA #$83 STA <$1e JSR l6968_00 LDA #$03 STA $355a JSR l6c66_00 JSR l6a58_00 RTS l6c27_00: LDA #$73 STA <$2b LDA #$35 STA <$2c LDA #$02 JSR l45ca_00 STA <$18 LDA #$04 SEC SBC <$18 STA <$18 CLX l6c3e_00: LDA #$20 STA $3578, X INX CPX <$18 BNE l6c3e_00 CLY l6c49_00: LDA $3573, Y CLC ADC #$30 STA $3578, X INY INX CPX #$04 BNE l6c49_00 LDA #$04 STA $3577 LDA #$77 STA <$18 LDA #$35 STA <$19 RTS l6c66_00: LDA #$50 STA <$1a LDA #$6d STA <$1b LDA #$49 STA <$18 LDA #$2a STA <$19 JSR l6d22_00 LDA #$30 STA <$1a LDA #$6d STA <$1b LDX #$0e l6c83_00: LDA <$18 CLC ADC #$20 STA <$18 LDA <$19 ADC #$00 STA <$19 JSR l6d22_00 DEX BNE l6c83_00 STZ $355b l6c99_00: JSR l40a5_00 TST #$03, $281f BEQ l6cad_00 LDA #$30 STA <$1a LDA #$6d STA <$1b JSR l6d02_00 l6cad_00: TST #$01, $281f BEQ l6cc1_00 INC $355b LDA $355b CMP $355a BNE l6cc1_00 STZ $355b l6cc1_00: TST #$02, $281f BEQ l6cd8_00 DEC $355b LDA $355b CMP #$ff BNE l6cd8_00 LDA $355a DEC A STA $355b l6cd8_00: TST #$03, $281f BEQ l6ce9_00 LDA #$50 STA <$1a LDA #$6d STA <$1b JSR l6d02_00 l6ce9_00: TST #$c0, $281f BEQ l6c99_00 TST #$40, $281f BEQ l6cfc_00 LDA $355a STA <$18 BRA l6d01_00 l6cfc_00: LDA $355b STA <$18 l6d01_00: RTS l6d02_00: STZ <$18 LDA $355b STA <$19 LSR <$19 ROR <$18 l6d0d_00: LSR <$19 ROR <$18 LSR <$19 ROR <$18 LDA <$18 CLC ADC #$49 STA <$18 LDA <$19 ADC #$2a STA <$19 l6d22_00: CLY l6d23_00: LDA [$1a], Y STA [$18], Y INY CPY #$20 BNE l6d23_00 INC $2094 RTS BRA l6d32_00 l6d32_00: SEC BRK STA [$00] SED ORA [$57, X] ORA [$c0, X] ORA [$87, X] BRK SMB4 <$01 ST0 #$00 RMB0 <$00 BBR1 <$00, l6d86_00 BRK .db $3b BRK BRK BRK SMB4 <$01 BBS7 <$01, l6d51_00 l6d51_00: BRK SEC BRK SED ORA [$f8, X] ORA [$d8, X] ORA [$c0, X] ORA [$c3, X] ORA [$c7, X] ORA [$c7, X] BRK RMB0 <$00 BBR1 <$00, l6da6_00 BRK .db $3b BRK STA [$00] BIT <$01 BBS7 <$01, l6d0d_00 ADC <$35 STZ $3566 STZ $358a STZ $3589 l6d7c_00: JSR l6e68_00 LDA #$0f STA <$1a LDA #$08 STA <$1b STZ <$1c LDA $3565 BEQ l6d9a_00 BMI l6d9a_00 LDA #$62 STA <$18 LDA #$6e STA <$19 BRA l6da2_00 l6d9a_00: LDA #$66 STA <$18 LDA #$6e STA <$19 l6da2_00: JSR l69ad_00 LDA #$0f STA <$1a LDA #$11 STA <$1b LDA $3565 CLC ADC #$08 CMP $3561 BCS l6dc2_00 LDA #$64 STA <$18 LDA #$6e STA <$19 BRA l6dca_00 l6dc2_00: LDA #$66 STA <$18 LDA #$6e STA <$19 l6dca_00: JSR l69ad_00 JSR l40a5_00 TST #$0c, $281f BEQ l6dde_00 STZ $3589 LDA #$ff STA $358a l6dde_00: TST #$08, $281a BEQ l6e08_00 INC $3589 BNE l6dec_00 DEC $3589 l6dec_00: LDA $358a CLC ADC $3589 STA $358a BCC l6e08_00 DEC $3566 BPL l6e08_00 STZ $3566 DEC $3565 BPL l6e08_00 STZ $3565 l6e08_00: TST #$04, $281a BEQ l6e41_00 INC $3589 BNE l6e16_00 DEC $3589 l6e16_00: LDA $358a CLC ADC $3589 STA $358a BCC l6e41_00 INC $3566 LDA $3566 CLC ADC $3565 CMP $3561 BCC l6e34_00 DEC $3566 l6e34_00: LDA $3566 CMP #$08 BNE l6e41_00 DEC $3566 INC $3565 l6e41_00: TST #$c0, $281f BNE l6e4a_00 JMP l6d7c_00 l6e4a_00: TST #$40, $281f BEQ l6e57_00 LDA #$ff STA $3566 BRA l6e61_00 l6e57_00: LDA $3566 CLC ADC $3565 STA $3566 l6e61_00: RTS ORA [$19, X] ORA [$18, X] ORA [$20, X] l6e68_00: STZ <$1f l6e6a_00: LDA <$1f CLC ADC $3565 CMP $3561 BCC l6e78_00 JMP l6ef4_00 l6e78_00: PHA STA <$28 STZ <$29 JSR l6c27_00 LDA $357a CMP #$20 BNE l6e8c_00 LDA #$30 STA $357a l6e8c_00: LDA #$02 STA $3579 LDA #$79 STA <$18 LDA #$35 STA <$19 LDA #$07 STA <$1a LDA <$1f CLC ADC #$09 STA <$1b STZ <$1c JSR l69ad_00 PLA TST #$01, $3567 BEQ l6eb5_00 JSR l701f_00 BRA l6eb8_00 l6eb5_00: JSR l6f00_00 l6eb8_00: LDA #$68 STA <$18 LDA #$35 STA <$19 LDA #$0b STA <$1a LDA <$1f CLC ADC #$09 STA <$1b STZ <$1c LDA <$1f CMP $3566 BNE l6ed6_00 INC <$1c l6ed6_00: JSR l69ad_00 LDA <$fc STA <$28 LDA <$fd STA <$29 JSR l6c27_00 LDA #$16 STA <$1a LDA <$1f CLC ADC #$09 STA <$1b STZ <$1c JSR l69ad_00 l6ef4_00: INC <$1f LDA <$1f CMP #$08 BEQ l6eff_00 JMP l6e6a_00 l6eff_00: RTS l6f00_00: STA <$18 STZ <$19 ASL <$18 ROL <$19 LDA <$18 CLC ADC #$00 STA <$1a LDA <$19 ADC #$88 STA <$1b LDA [$1a] STA <$fc LDY #$01 LDA [$1a], Y STA <$fd ASL <$18 ROL <$19 LDA <$18 STA <$1a LDA <$19 ASL <$1a ROL A ASL <$1a ROL A STA <$1b LDA <$1a SEC SBC <$18 STA <$18 LDA <$1b SBC <$19 STA <$19 LDA <$18 CLC ADC #$00 STA <$18 LDA <$19 ADC #$80 STA <$19 LDY #$02 l6f4d_00: LDA [$18], Y STA $3567, Y INY CPY #$0c BNE l6f4d_00 LDA #$0a STA $3568 RTS l6f5d_00: LDA $3561 CMP #$ff BNE l6f65_00 RTS l6f65_00: LDA #$ca STA $355c LDA #$71 STA $355d CLA JSR l692b_00 LDA #$89 STA $355c LDA #$71 STA $355d JSR l6968_00 LDA #$b3 STA $355c LDA #$71 STA $355d LDA #$01 JSR l692b_00 JSR l40a5_00 STZ <$18 l6f94_00: LDA <$18 STA <$f8 STZ <$f9 ASL <$f8 ROL <$f9 ASL <$f8 ROL <$f9 LDA <$f8 STA <$19 LDA <$f9 ASL <$19 ROL A ASL <$19 ROL A STA <$1a LDA <$19 SEC SBC <$f8 STA <$f8 LDA <$1a SBC <$f9 STA <$f9 LDA <$f8 CLC ADC #$00 STA <$f8 LDA <$f9 ADC #$80 STA <$f9 LDA #$00 STA <$fa LDA #$90 STA <$fb LDA #$00 STA <$fc LDA #$08 STA <$fd STZ <$fe STZ <$ff JSR bm_read LDA <$fc CLC ADC #$10 STA <$fc LDA <$fd ADC #$00 STA <$fd LDA <$18 STA <$19 STZ <$1a ASL <$19 ROL <$1a LDA <$19 CLC ADC #$00 STA <$19 LDA <$1a ADC #$88 STA <$1a LDA <$fc STA [$19] LDY #$01 LDA <$fd STA [$19], Y INC <$18 LDA <$18 CMP $3561 BEQ l701b_00 JMP l6f94_00 l701b_00: JSR l6a58_00 RTS l701f_00: STA <$18 STZ <$19 LDA <$19 ASL <$18 ROL A ASL <$18 ROL A ASL <$18 ROL A ASL <$18 ROL A STA <$19 LDA <$18 CLC ADC #$10 STA <$18 LDA <$19 ADC #$80 STA <$19 LDY #$01 LDA [$18], Y STA <$fc STZ <$fd LDY #$08 CLX l704b_00: LDA [$18], Y STA $3569, X INY INX CPX #$08 BNE l704b_00 LDA #$08 STA $3568 RTS ORA <$42 l705e_00: ADC $6574, Y TII $5203, $6365, $540f BBR6 <$6f, l708b_00 EOR $6e61 ADC $4620, Y ADC #$6c ADC <$73 AND [$0c, X] CPX #$93 ADC <$97 TAX CLX ROR A STY <$f3, X BIT #$b3 CLX NOP CLX CPY <$82 LDX #$82 .db $dc CLX l708b_00: SMB3 <$82 SAY STA [$0b, X] BIT #$8f PLX TXA .db $bb BIT #$f0 CLX TII $c18d, $c482, $ba82 BIT #$b3 CLX LDX #$82 SAY STA [$08, X] CPX #$93 ADC <$97 TAX CLX NOP DEY STZ <$94, X CMP <$82 SMB3 <$82 SAY STA [$08, X] BIT #$8f l70ba_00: PLX TXA l70bc_00: .db $bb BIT #$b5 CLX .db $dc CLX SMB3 <$82 LDA #$82 PHA STA [$08, X] BIT #$8f PLX TXA .db $bb BIT #$b5 CLX .db $dc CLX LDA <$82, X LDA $4282, X STA [$07, X] BEQ l705e_00 JMP l5e8b_00 TYA SMB3 <$82 SBC #$82 CMP #$82 CMP $0182 BEQ l706d_00 RMB0 <$ed STA $8f9c LDA <$82, X .db $dc CLX SMB3 <$82 LDA #$82 PHA STA [$0b, X] STZ <$83, X RTI TST #$43, <$83 .db $8b TST #$aa, <$82 LDY #$82 INX CLX .db $dc l710a_00: CLX LDA $f182, Y CLX SAY STA [$08, X] ADC #$81 ADC $8f82 CLX RTI STA [$78, X] CLX STA <$82 TST #$82, $816a ASL $8374 RTI TST #$43, <$83 .db $8b TST #$cc, <$82 LDX $9d90 SMB1 <$86 l7132_00: STA [$c5] CLX SMB3 <$82 BSR l70ba_00 BSR l70bc_00 BSR l70be_00 SAY STA [$08, X] RMB6 <$8e BVS l70db_00 CMP <$82 .db $ab CLX .db $dc CLX LDA $f182, Y CLX SAY STA [$09, X] EOR [$83], Y .db $5b STA [$80, X] TST #$f0, <$82 ROR $df8e CLX .db $dc CLX SMB3 <$82 SAY STA [$08, X] INC <$82 .db $eb CLX LDA <$82, X LDX #$82 CMP <$82 SMB3 <$82 LDA #$82 l7172_00: PHA STA [$03, X] SBC $9c8d BBS0 <$40, l70fc_00 TSB <$89 l717d_00: BBS0 <$fa, l710a_00 .db $bb BIT #$40 STA [$02, X] EOR #$8f LDA $0697, Y RTS TST #$46, <$83 CLA TST #$4e, <$83 STX <$92 SAY STA [$0e, X] RMB6 <$8e BVS l7132_00 STZ <$83, X RTI TST #$43, <$83 .db $8b TST #$cc, <$82 ADC $468a STY <$95, X STA [$ec, X] STA $90ac STX <$92 SAY STA [$0b, X] LDA <$82, X DEC $e782 CLX LDA $a882 CLX CMP [$91] BBS3 <$82, l717d_00 BIT #$b3 CLX LDX #$82 SAY STA [$09, X] .db $7b STX <$cc, Y STA [$6f], Y TST #$62, <$83 LSR $4183 TST #$62, <$83 ROR <$83, X CPY $0982 .db $7b STX <$cc, Y STA [$6f], Y TST #$62, <$83 LSR $4183 TST #$62, <$83 ROR <$83, X BEQ l7172_00 BPL l71a3_00 CLX CPY $dc82 CLX .db $dc CLX CMP <$82 CMP $4182 l71fe_00: STA [$7b, X] STX <$cc, Y STA [$6f], Y TST #$62, <$83 LSR $4183 TST #$62, <$83 ROR <$83, X BEQ l7193_00 PHP .db $7b STX <$cc, Y STA [$6f], Y TST #$62, <$83 LSR $4183 TST #$62, <$83 ROR <$83, X ASL <$a2 CLX BBS3 <$82, l71f1_00 CLX CMP [$82, X] l722b_00: BBS4 <$82, l71fa_00 CLX ASL <$a2 CLX l7232_00: BBS3 <$82, l71fe_00 CLX CMP [$82, X] BBS4 <$82, l722b_00 CLX ORA $82b1 CPY $dc82 CLX .db $dc CLX CMP <$82 l7247_00: CMP $4182 STA [$a2, X] CLX BBS3 <$82, l7219_00 CLX CMP [$82, X] l7253_00: BBS4 <$82, l7246_00 CLX ORA <$a2 l7259_00: CLX BBS3 <$82, l7226_00 CLX l725e_00: CMP [$82, X] BBS4 <$82, l7253_00 CLX ASL <$a2 CLX BBS3 <$82, l7233_00 CLX l726b_00: CMP [$82, X] BBS4 <$82, l7239_00 CLX ASL A CMP $ed88, Y BBS0 <$aa, l71fa_00 LDA $b694 BCC l7232_00 l727d_00: CLX .db $dc CLX LDA <$82, X LDA $4282, X STA [$0e, X] LDX #$82 BBS3 <$82, l7255_00 l728c_00: CLX CMP [$82, X] l728f_00: BBS4 <$82, l725e_00 CLX PHX l7294_00: BCC l7247_00 STA [$f0], Y l7298_00: CLX ADC $468a STY <$b5, X CLX CPY <$82 l72a1_00: ASL A TXA TST #$5a, <$83 CLA TST #$67, <$83 LDA <$82, X CPY <$82 TSX BIT #$b3 l72b1_00: CLX LDX #$82 SAY l72b5_00: STA [$00, X] BRA l72c9_00 l72b9_00: BRA l72db_00 BRA l72ed_00 BRA l72ff_00 BRA l7311_00 BRA l7323_00 BRA l7335_00 l72c5_00: BRA l7247_00 BRA l7259_00 l72c9_00: BRA l726b_00 BRA l727d_00 BRA l728f_00 BRA l72a1_00 BRA l72b3_00 BRA l72c5_00 BRA l72d7_00 l72d7_00: STA [$10, X] STA [$20, X] l72db_00: STA [$30, X] STA [$40, X] STA [$50, X] STA [$60, X] STA [$70, X] STA [$80, X] STA [$90, X] STA [$a0, X] STA [$b0, X] l72ed_00: STA [$c0, X] STA [$d0, X] STA [$e0, X] STA [$f0, X] STA [$00, X] CLX BPL l727c_00 JSR l3082_00 CLX RTI l72ff_00: CLX BVC l7284_00 RTS CLX BVS l7288_00 BRA l728a_00 BCC l728c_00 LDY #$82 BCS l7290_00 CPY #$82 BNE l7294_00 CPX #$82 BEQ l7298_00 BRK TST #$10, <$83 JSR l3083_00 TST #$40, <$83 BVC l72a5_00 RTS l7323_00: TST #$70, <$83 BRA l72ab_00 BCC l72ad_00 LDY #$83 BCS l72b1_00 CPY #$83 BNE l72b5_00 CPX #$83 BEQ l72b9_00 mb128_write_000b: PHP SEI PHA CLA JSR mb128_write_bit JSR mb128_write_bit JSR mb128_write_bit PLA PLP RTS mb128_boot: PHP SEI PHX .ok: PHY CLX .detect: JSR mb128_detect CMP #$00 BEQ .set_addr INX CPX #$00 BEQ .fail BRA .detect .set_addr: JSR mb128_write_bit0 CLA JSR mb128_write_addr LDA #$01 JSR mb128_write_bit CLA JSR mb128_write_bit JSR mb128_write_bit JSR mb128_write_bit CLA JSR mb128_write_byte JSR mb128_write_byte JSR mb128_read_bit PLY PLX CLA PLP RTS .fail: JSR mb128_write_000b PLY PLX LDA #$ff PLP RTS mb128_format: PHP SEI PHX PHY TII $73b1, $8000, $0010 STZ $8010 TII $8010, $8011, $03ef LDA #$00 STA <$f8 LDA #$80 STA <$f9 STZ <$fa LDA #$01 STA <$fb JSR mb128_write_sectors PLY PLX PLP RTS mb128_header: BMI l73b9_00 BRK BRK CMP [$d3] CLD CMP $b0de LDA $3231, X SEC BRK BRK l73c1_00: PHP SEI PHX PHY LDA #$01 STA <$fc STZ <$fd LDA #$02 STA <$fb LDX #$02 LDY #$01 l73d3_00: LDA $72b6, X STA <$f8 INX LDA $72b6, X STA <$f9 INX LDA [$f8] BEQ l7405_00 LDA <$fc CMP #$40 BCS l7405_00 LDA <$fd BNE l73fa_00 LDA [$f8] SEC SBC <$fb CMP <$fa BCC l73fa_00 LDA <$fb STA <$fd l73fa_00: LDA [$f8] CLC ADC [$f8], Y STA <$fb INC <$fc BRA l73d3_00 l7405_00: LDA <$fd BNE l741f_00 LDA <$fc CMP #$40 BCS l741f_00 LDA <$fb STA <$fd LDA <$fd SEC SBC #$01 CLC ADC <$fa BCC l741f_00 STZ <$fd l741f_00: LDA $8002 STA <$fb LDA #$fe SEC SBC <$fb STA <$fb STZ <$f8 LDA <$fd BNE l7435_00 LDA #$01 STA <$f8 l7435_00: LDA <$fc CMP #$40 BEQ l7441_00 LDA <$fb CMP <$fa BCS l7445_00 l7441_00: LDA #$ff STA <$f8 l7445_00: LDA <$f8 PLY PLX PLP RTS l744b_00: PHP SEI PHX PHY CLX ASL A TAY l7452_00: PHY LDA $72b6, Y STA <$f8 INY LDA $72b6, Y STA <$f9 LDA [$f8] STA <$fa LDY #$01 LDA [$f8], Y SEC SBC #$01 CLC ADC <$fa STA <$fb LDA #$00 STA <$f8 LDA #$90 STA <$f9 JSR mb128_read_sectors CMP #$00 BNE l74b9_00 PLY LDA $72b6, Y STA <$f8 INY LDA $72b6, Y STA <$f9 DEY LDA <$f8 CLC ADC #$04 STA <$f8 LDA <$f9 ADC #$00 STA <$f9 LDA [$f8] STA <$fa INC <$f8 BNE l74a1_00 INC <$f9 l74a1_00: LDA [$f8] STA <$fb STZ <$f8 LDA <$fd CMP <$fb BNE l74b3_00 LDA <$fc CMP <$fa BEQ l74b7_00 l74b3_00: LDA #$01 STA <$f8 l74b7_00: LDA <$f8 l74b9_00: CMP #$00 BEQ l74c2_00 INX CPX #$03 BCC l7452_00 l74c2_00: PLY PLX PLP RTS l74c6_00: PHP SEI PHX PHY ASL A TAY LDA $72b6, Y STA <$fe INY LDA $72b6, Y STA <$ff LDA #$00 STA <$f8 LDA #$90 STA <$f9 LDA [$fe] BNE l74e7_00 LDA #$01 BRA l752b_00 l74e7_00: LDY #$01 LDA [$fe], Y ASL A STA <$fc LDA #$00 STA <$fa LDA #$90 STA <$fb LDA <$fb CLC ADC <$fc STA <$fb JSR mb128_compute_crc LDY #$04 LDA <$fc STA [$fe], Y INY LDA <$fd STA [$fe], Y LDA #$00 STA <$f8 LDA #$90 STA <$f9 LDA [$fe] STA <$fa LDY #$01 LDA [$fe], Y DEC A CLC ADC <$fa STA <$fb JSR mb128_write_sectors CMP #$00 BNE l752b_00 JSR mb128_update_header l752b_00: PLY PLX PLP RTS l752f_00: PHP SEI PHX PHY STZ <$fc LDX #$02 l7537_00: LDA $72b6, X STA <$fe INX LDA $72b6, X STA <$ff INX INC <$fc LDA [$fe] CMP <$fd BEQ l754d_00 BCS l7551_00 l754d_00: CMP #$00 BNE l7537_00 l7551_00: CMP #$00 BEQ l758a_00 LDA <$f8 PHA LDA <$f9 PHA LDY #$10 LDA #$ef STA <$f8 LDA #$83 STA <$f9 l7565_00: LDA [$f8] STA [$f8], Y LDA <$f8 BNE l756f_00 DEC <$f9 l756f_00: DEC A STA <$f8 ORA <$f9 LDA <$f9 CMP <$ff BNE l7565_00 LDA <$f8 CMP <$fe BNE l7565_00 LDA [$f8] STA [$f8], Y PLA STA <$f9 PLA STA <$f8 l758a_00: LDA <$fd STA [$fe] LDY #$01 LDA <$fa STA [$fe], Y INY CLA STA [$fe], Y INY LDA #$02 STA [$fe], Y INY CLA STA [$fe], Y INY CLA STA [$fe], Y INY LDA #$00 STA [$fe], Y INY CLA STA [$fe], Y INY CLX l75b0_00: SXY LDA [$f8], Y SXY STA [$fe], Y INY INX CPX #$08 BNE l75b0_00 PLY PLX PLP RTS PHP SEI PHX PHY LDY #$01 LDA <$f8 PHA JSR l75f8_00 LDA [$fa] CMP <$fc BEQ l75d6_00 CMP #$00 BNE l75d9_00 l75d6_00: CLA BRA l75f0_00 l75d9_00: PLA PHA JSR l744b_00 CMP #$00 BNE l75f0_00 PLA PHA JSR l75f8_00 LDA <$fc STA [$fa] PLA PHA JSR l74c6_00 l75f0_00: PLX INX STX <$f8 PLY PLX PLP RTS l75f8_00: PHA PHA DEC A ASL A TAX LDA $72b6, X STA <$f8 INX LDA $72b6, X STA <$f9 INX LDA $72b6, X STA <$fa INX LDA $72b6, X STA <$fb PLA CMP #$01 BNE l761f_00 LDA #$02 STA <$fc BRA l7626_00 l761f_00: LDA [$f8] CLC ADC [$f8], Y STA <$fc l7626_00: PLA RTS mb128_delete_entry: PHP SEI PHX PHY TAX ASL A TAY LDA $72b6, Y STA <$f8 INY LDA $72b6, Y STA <$f9 CPX #$3f BCS .clear INY LDA $72b6, Y STA <$fa INY LDA $72b6, Y STA <$fb .move: LDA [$fa] STA [$f8] INC <$f8 BNE .inc0 INC <$f9 .inc0: INC <$fa BNE .inc1 INC <$fb .inc1: LDA <$fb CMP #$84 BNE .move LDA <$fa CMP #$00 BNE .move .clear: CLA STA [$f8] INC <$f8 BNE .inc2 INC <$f9 .inc2: LDA <$f9 CMP #$84 BNE .clear LDA <$f8 CMP #$00 BNE .clear JSR mb128_update_header PLY PLX PLP RTS mb128_find_entry: PHP SEI PHX PHY STZ <$fc .loop: INC <$fc LDA <$fc ASL A TAY LDA $72b6, Y STA <$fa INY LDA $72b6, Y STA <$fb LDA [$fa] BNE .next LDA #$40 STA <$fc .next: LDA <$fc CMP #$40 BCS .end LDA <$fa CLC ADC #$08 STA <$fa LDA <$fb ADC #$00 STA <$fb CLX CLY .check: LDA [$f8], Y CMP [$fa], Y BEQ .valid LDX #$01 .valid: INY CPY #$08 BNE .check CPX #$00 BEQ .end BRA .loop .end: LDA <$fc PLY PLX PLP RTS mb128_is_valid: PHP SEI PHX PHY CLX .try: LDA #$00 STA <$f8 LDA #$80 STA <$f9 STZ <$fa LDA #$01 STA <$fb JSR mb128_read_sectors CMP #$00 BNE .check_err LDA $8000 STA <$f8 LDA $8001 STA <$f9 LDA <$fc SEC SBC <$f8 STA <$fc BCS .l0 DEC <$fd .l0: LDA <$fc SEC SBC <$f9 STA <$fc BCS .l1 DEC <$fd .l1: STZ <$fa LDA <$fd CMP <$f9 BNE .l2 LDA <$fc CMP <$f8 BEQ .l3 .l2: LDA #$01 STA <$fa .l3: LDA #$04 STA <$f8 LDA #$80 STA <$f9 LDA #$4a STA <$fc LDA #$77 STA <$fd CLY .check_header_string: LDA [$f8], Y CMP [$fc], Y BEQ .l4 LDA #$01 STA <$fa .l4: INY CPY #$0a BNE .check_header_string LDA <$fa .check_err: CMP #$00 BEQ .end INX CPX #$03 BCC .try .end: PLY PLX PLP RTS mb128_string: CMP [$d3] CLD CMP $b0de LDA $3231, X SEC mb128_write_bit: AND #$01 STA $1000 PHA PLA NOP ORA #$02 STA $1000 PHA PLA PHA PLA PHA PLA AND #$01 STA $1000 PHA PLA NOP RTS mb128_write_byte: PHX STA <$fe LDX #$08 .byte_loop: LSR <$fe CLA ADC #$00 STA $1000 PHA PLA NOP ORA #$02 STA $1000 PHA PLA PHA PLA PHA PLA AND #$01 STA $1000 PHA PLA NOP DEX BNE .byte_loop PLX RTS mb128_read_bit: STZ <$fe STZ $1000 PHA PLA NOP ORA #$02 STA $1000 PHA PLA NOP LDA $1000 AND #$01 STA <$fe STZ $1000 PHA PLA NOP LDA <$fe RTS mb128_read_byte: PHX STZ <$fe LDX #$08 .byte_loop: STZ $1000 PHA PLA NOP ORA #$02 STA $1000 PHA PLA NOP LDA $1000 AND #$01 ASL A ASL A ASL A ASL A ASL A ASL A ASL A LSR <$fe ORA <$fe STA <$fe STZ $1000 PHA PLA NOP DEX BNE .byte_loop LDA <$fe PLX RTS mb128_write_addr: STZ <$ff STA <$fe ASL <$fe ROL <$ff ASL <$fe ROL <$ff LDA <$fe JSR mb128_write_byte LDA <$ff AND #$01 JSR mb128_write_bit LDA <$ff AND #$02 LSR A JSR mb128_write_bit RTS mb128_write_0x01000: PHA LDA #$00 JSR mb128_write_byte LDA #$10 JSR mb128_write_byte LDA #$00 JSR mb128_write_bit JSR mb128_write_bit JSR mb128_write_bit JSR mb128_write_bit PLA RTS mb128_detect: PHX CLX mb128_detect.loop: LDA #$a8 JSR mb128_write_byte CLA JSR mb128_write_bit LDA $1000 ASL A ASL A ASL A ASL A STA <$fe LDA #$01 JSR mb128_write_bit LDA $1000 AND #$0f ORA <$fe CMP #$04 BNE mb128_detect.retry CLA PLX RTS BRA mb128_detect.bit0 mb128_detect.retry: INX CPX #$03 BCS mb128_detect.failed BRA mb128_detect.loop BRA mb128_detect.bit0 mb128_detect.failed: LDA #$ff PLX RTS mb128_detect.bit0: PHA CLA JSR mb128_write_bit PLA RTS mb128_write_bit0: PHA LDA #$01 JSR mb128_write_bit PLA RTS mb128_update_header: PHX PHY LDA #$10 STA <$f8 LDA #$80 STA <$f9 STZ <$fa STZ <$fb LDX #$01 LDY #$01 .compute_sector_count: LDA [$f8] BEQ .update CPX #$40 BCS .update LDA <$fa CLC ADC [$f8], Y STA <$fa BCC .inc0 INC <$fb .inc0: LDA <$f8 CLC ADC #$10 STA <$f8 BCC .inc1 INC <$f9 .inc1: INX BRA .compute_sector_count .update: LDA <$fa STA $8002 LDA <$fb STA $8003 LDA #$02 STA <$f8 LDA #$80 STA <$f9 LDA #$00 STA <$fa LDA #$84 STA <$fb JSR mb128_compute_crc LDA <$fc STA $8000 LDA <$fd STA $8001 LDA #$00 STA <$f8 LDA #$80 STA <$f9 STZ <$fa LDA #$01 STA <$fb JSR mb128_write_sectors CMP #$00 BPL .ok LDA #$ff BRA .end .ok: CLA .end: PLY PLX RTS mb128_read_sectors: PHX PHY STZ <$fc STZ <$fd INC <$fb .next_sector: JSR mb128_detect CMP #$00 BNE .nok JSR mb128_write_bit0 LDA <$fa JSR mb128_write_addr JSR mb128_write_0x01000 LDX #$02 .next_256_bytes: CLY .next_byte: JSR mb128_read_byte STA [$f8] CLC ADC <$fc STA <$fc BCC .l0 INC <$fd .l0: INC <$f8 BNE .l1 INC <$f9 .l1: DEY BNE .next_byte DEX BNE .next_256_bytes INC <$fa LDA <$fa CMP <$fb BNE .next_sector PLY PLX CLA RTS .nok: JSR mb128_write_000b PLY PLX LDA #$ff RTS mb128_write_sectors: PHX PHY INC <$fb .next_sector: LDA <$f8 PHA LDA <$f9 PHA STZ <$fc STZ <$fd JSR mb128_detect JSR mb128_detect.bit0 LDA <$fa JSR mb128_write_addr JSR mb128_write_0x01000 LDX #$02 .write_next_256_bytes: CLY .write_next_byte: LDA [$f8] PHA CLC ADC <$fc STA <$fc BCC .l0 INC <$fd .l0: PLA JSR mb128_write_byte INC <$f8 BNE .l1 INC <$f9 .l1: DEY BNE .write_next_byte DEX BNE .write_next_256_bytes JSR mb128_detect JSR mb128_write_bit0 LDA <$fa JSR mb128_write_addr JSR mb128_write_0x01000 LDX #$02 .next_256_bytes: CLY .next_byte: JSR mb128_read_byte STA <$fe LDA <$fc SEC SBC <$fe STA <$fc BCS .l2 DEC <$fd .l2: DEY BNE .next_byte DEX BNE .next_256_bytes PLA STA <$f9 PLA STA <$f8 LDA <$fd CMP #$00 BNE .next_sector LDA <$fc BNE .next_sector LDA <$f9 CLC ADC #$02 STA <$f9 INC <$fa LDA <$fa CMP <$fb BNE .next_sector PLY PLX CLA RTS JSR mb128_write_000b PLY PLX LDA #$ff RTS STZ <$f8 STZ <$f9 LDA #$01 JSR mb128_write_bit l79c3_00: LDA $1000 AND #$0f CMP #$00 BEQ l79e2_00 CLA JSR mb128_write_bit INC A JSR mb128_write_bit INC <$f8 BNE l79da_00 INC <$f9 l79da_00: LDA <$f9 CMP #$04 BEQ l79ef_00 BRA l79c3_00 l79e2_00: STZ $1000 PHA PLA NOP LDA #$01 JSR mb128_write_bit CLA RTS l79ef_00: LDA #$01 RTS mb128_compute_crc: STZ <$fc STZ <$fd .loop: LDA [$f8] CLC ADC <$fc STA <$fc BCC .inc0 INC <$fd .inc0: INC <$f8 BNE .inc1 INC <$f9 .inc1: LDA <$f9 CMP <$fb BNE .loop LDA <$f8 CMP <$fa BNE .loop RTS BBS7 <$ff, l7a16_00 BBS7 <$ff, l7a19_00 BBS7 <$ff, l7a1c_00 BBS7 <$ff, l7a1f_00 BBS7 <$ff, l7a22_00 BBS7 <$ff, l7a25_00 BBS7 <$ff, l7a28_00 BBS7 <$ff, l7a2b_00 BBS7 <$ff, l7a2e_00 BBS7 <$ff, l7a31_00 BBS7 <$ff, l7a34_00 BBS7 <$ff, l7a37_00 BBS7 <$ff, l7a3a_00 BBS7 <$ff, l7a3d_00 BBS7 <$ff, l7a40_00 BBS7 <$ff, l7a43_00 BBS7 <$ff, l7a46_00 BBS7 <$ff, l7a49_00 BBS7 <$ff, l7a4c_00 BBS7 <$ff, l7a4f_00 BBS7 <$ff, l7a52_00 BBS7 <$ff, l7a55_00 BBS7 <$ff, l7a58_00 BBS7 <$ff, l7a5b_00 BBS7 <$ff, l7a5e_00 BBS7 <$ff, l7a61_00 BBS7 <$ff, l7a64_00 BBS7 <$ff, l7a67_00 BBS7 <$ff, l7a6a_00 BBS7 <$ff, l7a6d_00 BBS7 <$ff, l7a70_00 BBS7 <$ff, l7a73_00 BBS7 <$ff, l7a76_00 BBS7 <$ff, l7a79_00 BBS7 <$ff, l7a7c_00 BBS7 <$ff, l7a7f_00 BBS7 <$ff, l7a82_00 BBS7 <$ff, l7a85_00 BBS7 <$ff, l7a88_00 BBS7 <$ff, l7a8b_00 BBS7 <$ff, l7a8e_00 BBS7 <$ff, l7a91_00 BBS7 <$ff, l7a94_00 BBS7 <$ff, l7a97_00 BBS7 <$ff, l7a9a_00 BBS7 <$ff, l7a9d_00 BBS7 <$ff, l7aa0_00 BBS7 <$ff, l7aa3_00 BBS7 <$ff, l7aa6_00 BBS7 <$ff, l7aa9_00 BBS7 <$ff, l7aac_00 BBS7 <$ff, l7aaf_00 BBS7 <$ff, l7ab2_00 BBS7 <$ff, l7ab5_00 BBS7 <$ff, l7ab8_00 BBS7 <$ff, l7abb_00 BBS7 <$ff, l7abe_00 BBS7 <$ff, l7ac1_00 BBS7 <$ff, l7ac4_00 BBS7 <$ff, l7ac7_00 BBS7 <$ff, l7aca_00 BBS7 <$ff, l7acd_00 BBS7 <$ff, l7ad0_00 BBS7 <$ff, l7ad3_00 BBS7 <$ff, l7ad6_00 BBS7 <$ff, l7ad9_00 BBS7 <$ff, l7adc_00 BBS7 <$ff, l7adf_00 BBS7 <$ff, l7ae2_00 BBS7 <$ff, l7ae5_00 BBS7 <$ff, l7ae8_00 BBS7 <$ff, l7aeb_00 BBS7 <$ff, l7aee_00 BBS7 <$ff, l7af1_00 BBS7 <$ff, l7af4_00 BBS7 <$ff, l7af7_00 BBS7 <$ff, l7afa_00 BBS7 <$ff, l7afd_00 BBS7 <$ff, l7b00_00 BBS7 <$ff, l7b03_00 BBS7 <$ff, l7b06_00 BBS7 <$ff, l7b09_00 BBS7 <$ff, l7b0c_00 BBS7 <$ff, l7b0f_00 BBS7 <$ff, l7b12_00 BBS7 <$ff, l7b15_00 BBS7 <$ff, l7b18_00 BBS7 <$ff, l7b1b_00 BBS7 <$ff, l7b1e_00 BBS7 <$ff, l7b21_00 BBS7 <$ff, l7b24_00 BBS7 <$ff, l7b27_00 BBS7 <$ff, l7b2a_00 BBS7 <$ff, l7b2d_00 BBS7 <$ff, l7b30_00 BBS7 <$ff, l7b33_00 BBS7 <$ff, l7b36_00 BBS7 <$ff, l7b39_00 BBS7 <$ff, l7b3c_00 BBS7 <$ff, l7b3f_00 BBS7 <$ff, l7b42_00 BBS7 <$ff, l7b45_00 BBS7 <$ff, l7b48_00 BBS7 <$ff, l7b4b_00 BBS7 <$ff, l7b4e_00 BBS7 <$ff, l7b51_00 BBS7 <$ff, l7b54_00 BBS7 <$ff, l7b57_00 BBS7 <$ff, l7b5a_00 BBS7 <$ff, l7b5d_00 BBS7 <$ff, l7b60_00 BBS7 <$ff, l7b63_00 BBS7 <$ff, l7b66_00 BBS7 <$ff, l7b69_00 BBS7 <$ff, l7b6c_00 BBS7 <$ff, l7b6f_00 BBS7 <$ff, l7b72_00 BBS7 <$ff, l7b75_00 BBS7 <$ff, l7b78_00 BBS7 <$ff, l7b7b_00 BBS7 <$ff, l7b7e_00 BBS7 <$ff, l7b81_00 BBS7 <$ff, l7b84_00 BBS7 <$ff, l7b87_00 BBS7 <$ff, l7b8a_00 BBS7 <$ff, l7b8d_00 BBS7 <$ff, l7b90_00 BBS7 <$ff, l7b93_00 BBS7 <$ff, l7b96_00 BBS7 <$ff, l7b99_00 BBS7 <$ff, l7b9c_00 BBS7 <$ff, l7b9f_00 BBS7 <$ff, l7ba2_00 BBS7 <$ff, l7ba5_00 BBS7 <$ff, l7ba8_00 BBS7 <$ff, l7bab_00 BBS7 <$ff, l7bae_00 BBS7 <$ff, l7bb1_00 BBS7 <$ff, l7bb4_00 BBS7 <$ff, l7bb7_00 BBS7 <$ff, l7bba_00 BBS7 <$ff, l7bbd_00 BBS7 <$ff, l7bc0_00 BBS7 <$ff, l7bc3_00 BBS7 <$ff, l7bc6_00 BBS7 <$ff, l7bc9_00 BBS7 <$ff, l7bcc_00 BBS7 <$ff, l7bcf_00 BBS7 <$ff, l7bd2_00 BBS7 <$ff, l7bd5_00 BBS7 <$ff, l7bd8_00 BBS7 <$ff, l7bdb_00 BBS7 <$ff, l7bde_00 BBS7 <$ff, l7be1_00 BBS7 <$ff, l7be4_00 BBS7 <$ff, l7be7_00 BBS7 <$ff, l7bea_00 BBS7 <$ff, l7bed_00 BBS7 <$ff, l7bf0_00 BBS7 <$ff, l7bf3_00 BBS7 <$ff, l7bf6_00 BBS7 <$ff, l7bf9_00 BBS7 <$ff, l7bfc_00 BBS7 <$ff, l7bff_00 BBS7 <$ff, l7c02_00 BBS7 <$ff, l7c05_00 BBS7 <$ff, l7c08_00 BBS7 <$ff, l7c0b_00 BBS7 <$ff, l7c0e_00 BBS7 <$ff, l7c11_00 BBS7 <$ff, l7c14_00 BBS7 <$ff, l7c17_00 BBS7 <$ff, l7c1a_00 BBS7 <$ff, l7c1d_00 BBS7 <$ff, l7c20_00 BBS7 <$ff, l7c23_00 BBS7 <$ff, l7c26_00 BBS7 <$ff, l7c29_00 BBS7 <$ff, l7c2c_00 BBS7 <$ff, l7c2f_00 BBS7 <$ff, l7c32_00 BBS7 <$ff, l7c35_00 BBS7 <$ff, l7c38_00 BBS7 <$ff, l7c3b_00 BBS7 <$ff, l7c3e_00 BBS7 <$ff, l7c41_00 BBS7 <$ff, l7c44_00 BBS7 <$ff, l7c47_00 BBS7 <$ff, l7c4a_00 BBS7 <$ff, l7c4d_00 BBS7 <$ff, l7c50_00 BBS7 <$ff, l7c53_00 BBS7 <$ff, l7c56_00 BBS7 <$ff, l7c59_00 BBS7 <$ff, l7c5c_00 BBS7 <$ff, l7c5f_00 BBS7 <$ff, l7c62_00 BBS7 <$ff, l7c65_00 BBS7 <$ff, l7c68_00 BBS7 <$ff, l7c6b_00 BBS7 <$ff, l7c6e_00 BBS7 <$ff, l7c71_00 BBS7 <$ff, l7c74_00 BBS7 <$ff, l7c77_00 BBS7 <$ff, l7c7a_00 BBS7 <$ff, l7c7d_00 BBS7 <$ff, l7c80_00 BBS7 <$ff, l7c83_00 BBS7 <$ff, l7c86_00 BBS7 <$ff, l7c89_00 BBS7 <$ff, l7c8c_00 BBS7 <$ff, l7c8f_00 BBS7 <$ff, l7c92_00 BBS7 <$ff, l7c95_00 BBS7 <$ff, l7c98_00 BBS7 <$ff, l7c9b_00 BBS7 <$ff, l7c9e_00 BBS7 <$ff, l7ca1_00 BBS7 <$ff, l7ca4_00 BBS7 <$ff, l7ca7_00 BBS7 <$ff, l7caa_00 BBS7 <$ff, l7cad_00 BBS7 <$ff, l7cb0_00 BBS7 <$ff, l7cb3_00 BBS7 <$ff, l7cb6_00 BBS7 <$ff, l7cb9_00 BBS7 <$ff, l7cbc_00 BBS7 <$ff, l7cbf_00 BBS7 <$ff, l7cc2_00 BBS7 <$ff, l7cc5_00 BBS7 <$ff, l7cc8_00 BBS7 <$ff, l7ccb_00 BBS7 <$ff, l7cce_00 BBS7 <$ff, l7cd1_00 BBS7 <$ff, l7cd4_00 BBS7 <$ff, l7cd7_00 BBS7 <$ff, l7cda_00 BBS7 <$ff, l7cdd_00 BBS7 <$ff, l7ce0_00 BBS7 <$ff, l7ce3_00 BBS7 <$ff, l7ce6_00 BBS7 <$ff, l7ce9_00 BBS7 <$ff, l7cec_00 BBS7 <$ff, l7cef_00 BBS7 <$ff, l7cf2_00 BBS7 <$ff, l7cf5_00 BBS7 <$ff, l7cf8_00 BBS7 <$ff, l7cfb_00 BBS7 <$ff, l7cfe_00 BBS7 <$ff, l7d01_00 BBS7 <$ff, l7d04_00 BBS7 <$ff, l7d07_00 BBS7 <$ff, l7d0a_00 BBS7 <$ff, l7d0d_00 BBS7 <$ff, l7d10_00 BBS7 <$ff, l7d13_00 BBS7 <$ff, l7d16_00 BBS7 <$ff, l7d19_00 BBS7 <$ff, l7d1c_00 BBS7 <$ff, l7d1f_00 BBS7 <$ff, l7d22_00 BBS7 <$ff, l7d25_00 BBS7 <$ff, l7d28_00 BBS7 <$ff, l7d2b_00 BBS7 <$ff, l7d2e_00 BBS7 <$ff, l7d31_00 BBS7 <$ff, l7d34_00 BBS7 <$ff, l7d37_00 BBS7 <$ff, l7d3a_00 BBS7 <$ff, l7d3d_00 BBS7 <$ff, l7d40_00 BBS7 <$ff, l7d43_00 BBS7 <$ff, l7d46_00 BBS7 <$ff, l7d49_00 BBS7 <$ff, l7d4c_00 BBS7 <$ff, l7d4f_00 BBS7 <$ff, l7d52_00 BBS7 <$ff, l7d55_00 BBS7 <$ff, l7d58_00 BBS7 <$ff, l7d5b_00 BBS7 <$ff, l7d5e_00 BBS7 <$ff, l7d61_00 BBS7 <$ff, l7d64_00 BBS7 <$ff, l7d67_00 BBS7 <$ff, l7d6a_00 BBS7 <$ff, l7d6d_00 BBS7 <$ff, l7d70_00 BBS7 <$ff, l7d73_00 BBS7 <$ff, l7d76_00 BBS7 <$ff, l7d79_00 BBS7 <$ff, l7d7c_00 BBS7 <$ff, l7d7f_00 BBS7 <$ff, l7d82_00 BBS7 <$ff, l7d85_00 BBS7 <$ff, l7d88_00 BBS7 <$ff, l7d8b_00 BBS7 <$ff, l7d8e_00 BBS7 <$ff, l7d91_00 BBS7 <$ff, l7d94_00 BBS7 <$ff, l7d97_00 BBS7 <$ff, l7d9a_00 BBS7 <$ff, l7d9d_00 BBS7 <$ff, l7da0_00 BBS7 <$ff, l7da3_00 BBS7 <$ff, l7da6_00 BBS7 <$ff, l7da9_00 BBS7 <$ff, l7dac_00 BBS7 <$ff, l7daf_00 BBS7 <$ff, l7db2_00 BBS7 <$ff, l7db5_00 BBS7 <$ff, l7db8_00 BBS7 <$ff, l7dbb_00 BBS7 <$ff, l7dbe_00 BBS7 <$ff, l7dc1_00 BBS7 <$ff, l7dc4_00 BBS7 <$ff, l7dc7_00 BBS7 <$ff, l7dca_00 BBS7 <$ff, l7dcd_00 BBS7 <$ff, l7dd0_00 BBS7 <$ff, l7dd3_00 BBS7 <$ff, l7dd6_00 BBS7 <$ff, l7dd9_00 BBS7 <$ff, l7ddc_00 BBS7 <$ff, l7ddf_00 BBS7 <$ff, l7de2_00 BBS7 <$ff, l7de5_00 BBS7 <$ff, l7de8_00 BBS7 <$ff, l7deb_00 BBS7 <$ff, l7dee_00 BBS7 <$ff, l7df1_00 BBS7 <$ff, l7df4_00 BBS7 <$ff, l7df7_00 BBS7 <$ff, l7dfa_00 BBS7 <$ff, l7dfd_00 BBS7 <$ff, l7e00_00 BBS7 <$ff, l7e03_00 BBS7 <$ff, l7e06_00 BBS7 <$ff, l7e09_00 BBS7 <$ff, l7e0c_00 BBS7 <$ff, l7e0f_00 BBS7 <$ff, l7e12_00 BBS7 <$ff, l7e15_00 BBS7 <$ff, l7e18_00 BBS7 <$ff, l7e1b_00 BBS7 <$ff, l7e1e_00 BBS7 <$ff, l7e21_00 BBS7 <$ff, l7e24_00 BBS7 <$ff, l7e27_00 BBS7 <$ff, l7e2a_00 BBS7 <$ff, l7e2d_00 BBS7 <$ff, l7e30_00 BBS7 <$ff, l7e33_00 BBS7 <$ff, l7e36_00 BBS7 <$ff, l7e39_00 BBS7 <$ff, l7e3c_00 BBS7 <$ff, l7e3f_00 BBS7 <$ff, l7e42_00 BBS7 <$ff, l7e45_00 BBS7 <$ff, l7e48_00 BBS7 <$ff, l7e4b_00 BBS7 <$ff, l7e4e_00 BBS7 <$ff, l7e51_00 BBS7 <$ff, l7e54_00 BBS7 <$ff, l7e57_00 BBS7 <$ff, l7e5a_00 BBS7 <$ff, l7e5d_00 BBS7 <$ff, l7e60_00 BBS7 <$ff, l7e63_00 BBS7 <$ff, l7e66_00 BBS7 <$ff, l7e69_00 BBS7 <$ff, l7e6c_00 BBS7 <$ff, l7e6f_00 BBS7 <$ff, l7e72_00 BBS7 <$ff, l7e75_00 BBS7 <$ff, l7e78_00 BBS7 <$ff, l7e7b_00 BBS7 <$ff, l7e7e_00 BBS7 <$ff, l7e81_00 BBS7 <$ff, l7e84_00 BBS7 <$ff, l7e87_00 BBS7 <$ff, l7e8a_00 BBS7 <$ff, l7e8d_00 BBS7 <$ff, l7e90_00 BBS7 <$ff, l7e93_00 BBS7 <$ff, l7e96_00 BBS7 <$ff, l7e99_00 BBS7 <$ff, l7e9c_00 BBS7 <$ff, l7e9f_00 BBS7 <$ff, l7ea2_00 BBS7 <$ff, l7ea5_00 BBS7 <$ff, l7ea8_00 BBS7 <$ff, l7eab_00 BBS7 <$ff, l7eae_00 BBS7 <$ff, l7eb1_00 BBS7 <$ff, l7eb4_00 BBS7 <$ff, l7eb7_00 BBS7 <$ff, l7eba_00 BBS7 <$ff, l7ebd_00 BBS7 <$ff, l7ec0_00 BBS7 <$ff, l7ec3_00 BBS7 <$ff, l7ec6_00 BBS7 <$ff, l7ec9_00 BBS7 <$ff, l7ecc_00 BBS7 <$ff, l7ecf_00 BBS7 <$ff, l7ed2_00 BBS7 <$ff, l7ed5_00 BBS7 <$ff, l7ed8_00 BBS7 <$ff, l7edb_00 BBS7 <$ff, l7ede_00 BBS7 <$ff, l7ee1_00 BBS7 <$ff, l7ee4_00 BBS7 <$ff, l7ee7_00 BBS7 <$ff, l7eea_00 BBS7 <$ff, l7eed_00 BBS7 <$ff, l7ef0_00 BBS7 <$ff, l7ef3_00 BBS7 <$ff, l7ef6_00 BBS7 <$ff, l7ef9_00 BBS7 <$ff, l7efc_00 BBS7 <$ff, l7eff_00 BBS7 <$ff, l7f02_00 BBS7 <$ff, l7f05_00 BBS7 <$ff, l7f08_00 BBS7 <$ff, l7f0b_00 BBS7 <$ff, l7f0e_00 BBS7 <$ff, l7f11_00 BBS7 <$ff, l7f14_00 BBS7 <$ff, l7f17_00 BBS7 <$ff, l7f1a_00 BBS7 <$ff, l7f1d_00 BBS7 <$ff, l7f20_00 BBS7 <$ff, l7f23_00 BBS7 <$ff, l7f26_00 BBS7 <$ff, l7f29_00 BBS7 <$ff, l7f2c_00 BBS7 <$ff, l7f2f_00 BBS7 <$ff, l7f32_00 BBS7 <$ff, l7f35_00 BBS7 <$ff, l7f38_00 BBS7 <$ff, l7f3b_00 BBS7 <$ff, l7f3e_00 BBS7 <$ff, l7f41_00 BBS7 <$ff, l7f44_00 BBS7 <$ff, l7f47_00 BBS7 <$ff, l7f4a_00 BBS7 <$ff, l7f4d_00 BBS7 <$ff, l7f50_00 BBS7 <$ff, l7f53_00 BBS7 <$ff, l7f56_00 BBS7 <$ff, l7f59_00 BBS7 <$ff, l7f5c_00 BBS7 <$ff, l7f5f_00 BBS7 <$ff, l7f62_00 BBS7 <$ff, l7f65_00 BBS7 <$ff, l7f68_00 BBS7 <$ff, l7f6b_00 BBS7 <$ff, l7f6e_00 BBS7 <$ff, l7f71_00 BBS7 <$ff, l7f74_00 BBS7 <$ff, l7f77_00 BBS7 <$ff, l7f7a_00 BBS7 <$ff, l7f7d_00 BBS7 <$ff, l7f80_00 BBS7 <$ff, l7f83_00 BBS7 <$ff, l7f86_00 BBS7 <$ff, l7f89_00 BBS7 <$ff, l7f8c_00 BBS7 <$ff, l7f8f_00 BBS7 <$ff, l7f92_00 BBS7 <$ff, l7f95_00 BBS7 <$ff, l7f98_00 BBS7 <$ff, l7f9b_00 BBS7 <$ff, l7f9e_00 BBS7 <$ff, l7fa1_00 BBS7 <$ff, l7fa4_00 BBS7 <$ff, l7fa7_00 BBS7 <$ff, l7faa_00 BBS7 <$ff, l7fad_00 BBS7 <$ff, l7fb0_00 BBS7 <$ff, l7fb3_00 BBS7 <$ff, l7fb6_00 BBS7 <$ff, l7fb9_00 BBS7 <$ff, l7fbc_00 BBS7 <$ff, l7fbf_00 BBS7 <$ff, l7fc2_00 BBS7 <$ff, l7fc5_00 BBS7 <$ff, l7fc8_00 BBS7 <$ff, l7fcb_00 BBS7 <$ff, l7fce_00 BBS7 <$ff, l7fd1_00 BBS7 <$ff, l7fd4_00 BBS7 <$ff, l7fd7_00 BBS7 <$ff, l7fda_00 BBS7 <$ff, l7fdd_00 BBS7 <$ff, l7fe0_00 BBS7 <$ff, l7fe3_00 BBS7 <$ff, l7fe6_00 BBS7 <$ff, l7fe9_00 BBS7 <$ff, l7fec_00 BBS7 <$ff, l7fef_00 BBS7 <$ff, l7ff2_00 BBS7 <$ff, l7ff5_00 BBS7 <$ff, l7ff8_00 BBS7 <$ff, l7ffb_00 BBS7 <$ff, l7ffe_00 BBS7 <$00,