;----------------------------------------------------- ; ; Detection HardWare ; ;----------------------------------------------------- DetectionHardWare: move.l $C8,a0 move.b #CALC_TI92,CALCULATOR move.l a0,d1 and.l #$400000,d1 bne CalculatriceDetectee move.b #CALC_TI89,CALCULATOR move.l ScrRect*4(a0),a1 cmp.b #200,2(a1) bcs CalculatriceDetectee move.b #CALC_V200,CALCULATOR CalculatriceDetectee: move.l $C8,a5 move.l a5,d0 and.l #$600000,d0 move.l d0,a0 move.l $104(a0),a0 moveq #1,d7 sub.l a0,d0 cmp.l #-$10000,d0 bls.b HardWareDecte cmp.w #$16,(a0) bls.b HardWareDecte move.l $16(a0),d7 HardWareDecte: move.w d7,HARDWARE rts
Je viens d'acheter une titanium, elle serait apparemment detectee comme une HW1.
Je me trompe ?
Ou se situe la midif a faire ?