Buzz #17 10 апреля 1999

Программирование

HDD Autodetect - FDD & HDD loader.

-------------------------------------------------- 
-------------( C) FASTeR / TNL E-MAIL: faster@usa.net

(8422) 37-68-85 (ask SASHA!)
-------------------------------------------------- -------------
                                                    FAST M UP!!!

                     · ∙ ° FDD unvs HDD?!? ° ∙ ·

 Hello! To date, 99.9% of the programs in their work
use a direct appeal to WG93, and 99% of the programs track
current drive (very happy!). However, there is a lotion, a HDD 
(on SCORPION'e)! A program that supports the work of the HDD 
can be counted on the fingers! Curiously enough this may seem 
like an ordinary user, a program that supports GENERAL SOUND! 
But! These programs only allow select the disk (TURBO LOADER: 
ON / OFF), instead of automatically use the HDD, if such a 
device there! So I decided to fill this gap (HDD userz

also entitled to a comfortable existence, so if 'vbuhali'
in its SCORP many attendants!) and offer you a 2 in 1 (FDD 'HDD)
LOADER!

P.S. By the way SMUC DEVICE I do not have! ;)
P.P.S. All of the above is true only (!) For devices C and D,

       as on these devices usually hang screw!


                                                     FASTeR / 
TNL! 


                                                     CYE L8ER 
... 

;------------------------------------------------- 
-------------; 

        DI

        LD A, (# 08)

        CP # C3

        JR NZ, FDD; IS A NOT SCORPION 256!

        LD C, # 2009

        LD HL, BUFFER; 512 BYTES!

        RST # 08

        DEFB # 01

        LD C, # 22; TEST OF SYSTEM!

        RST # 08

        DEFB # 81

        JR NC, HDD; HDD PRESENT!
;------------------------- FDD LD A, (# 5CF6); IN A NUMBER OF 
DRIVE. 0-A ,1-B ... 

        OR # 2C

        LD (DRV +1), A

        SET 4, A

        LD (DRV +5), A


        LD IX, # 4000

        LD DE, (# 5CF4)

        LD B, # 1B

        LD (TR_SEC), DE

        CALL LOAD_

        RET
;------------------------- HDD LD HL, # 4000

        LD DE, (# 5CF4)

        LD BC, # 1B05

        CALL # 3D14; (# 3D13)

        RET
;------------------------------------------------- 
-------------; 

; REGISTORS USE: AF, IX, HL, BC, DE, AF ', HL', BC ', DE'.

; STACK USE: BY 10 BYTES.

LOAD_ LD DE, (TR_SEC)
LOAD LD A, D

        SRL A

        LD C, # 7F

        CALL DOS
DRV LD A, # 2C

        JR C, SIDE

        LD A, # 3C
SIDE LD HL, # 1FF3

        CALL DOS1

        LD A, # 18

        LD HL, # 2FC3

        CALL DOS1
N_SEC XOR A

        OR B

        LD (TR_SEC), DE

        RET Z
ERROR LD A, E

        INC A

        LD C, # 5F

        CALL DOS

        PUSH IX

        EXX

        LD DE, # 20AA

        LD B, 1

        LD C, # 7F

        POP HL

        CALL DOS2

        XOR A

        OR B

        EXX

        JR Z, ERROR

        INC HX

        DEC B

        INC E

        BIT 4, E

        JP Z, N_SEC

        LD E, 0

        INC D

        JP LOAD

DOS LD HL, # 2A53; OUT (C), A
DOS1 PUSH HL

        JP # 3D30; (# 3D2F)

DOS2 PUSH DE

        LD DE, # 2090

        PUSH DE

        JP # 3D30; (# 3D2F)
;------------------------- TR_SEC DEFW 0
;------------------------- BUFFER DEFS 512,0
;------------------------------------------------- 
-------------; 

  @@@@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @TM

    @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

    @ @ @ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @

    @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

    @@@@ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @


          @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

           @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

           @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

           @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

          @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @


                   @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

                  @ @ @ @ @ @ @ @ @ @

                   @ @ @ @ @ @ @ @ @ @

                    @ @ @ @ @ @ @ @

                  @ @ @ @ @ @ @ @ @ @ @ @ @ (C) FASTeR / TNL
;------------------------------------------------- 
-------------;