Echo #01 31 октября 1996

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

Assembler - Turbo Loader with full error checking.

(C) VfNG / NEW


   I suggest to my fullest yuzaniyu devepoled Turbo Loader with 
full error checking. He checked on all those caught me by the 
arm machines (Profi, Pentagon, 'Leningrad', 'Byte') and works 
great! Please, just do not fix it, some 'obvious folly'. The 
fact is that one disk interface, which we

use in Brest, is engaged in emulation
TR-DOS, therefore, some procedures ROMs do not work as 
expected, and sometimes spoil some registers ... For example # 
2A53 in our sticks JP  where is converter. 
Individual treatment to all the brethren: do not meddle in 
TR-DOS with Register R (except in # 3D2F, ​​# 3D30 possible) 
pomrets. 

;----------------------------------------;' NEW 'TURBO LOADER 
BY VfNG' 96 ; NEW ORIGINAL CONCEPTION + FULL ERROR

; CONTROL!
;---------------------------------------- RETRY EQU 3; number 
of attempts to read 

                  ; Bad sector to

                  ; Repositioning
;----------------------------------------
        ORG # 8000
;----------------------------------------; Section 
initialization. Sufficient duration; vat once. 
;---------------------------------------- INIT DI 

        LD A, # 3F; Setting vector

        LD I, A; I in the 'fast' parameters
                      ; Crease.


        LD A, (# 5D16); definition

        AND 3, disc type
        LD (REG +1), A; water.

        LD HL, # 5CC8;

        ADD A, L

        LD L, A

        BIT 1, (HL)

        JR NZ, LOAD8

        LD HL, # A700

        LD (POKE1), HL

        LD (POKE2), HL

        LD (POKE3), HL

        LD A, # 37

        LD (POKE4), A
;----------------------------------------; Positioning. 
DE-trek/sektor. If ; Already sticks out on this track, it is 
possible and ; Not cause

;---------------------------------------- LOAD8 CALL POSIT

        RET
;----------------------------------------; End of 
initialization. Now we own; respectively loader: ; HL-where, 
B-number, DE-how ; Returns: DE-current track / sector

; HL-mail, which was loaded
; The last byte of a
;---------------------------------------- LOAD DI
LOAD5 PUSH DE

        CALL SECTOR

        POP DE

        INC H

        INC E

        LD A, E

        CP # 10

        JR Z, LOAD2
LOAD6 DJNZ LOAD5

        RET
LOAD2 LD A, D
POKE4 RRA

        PUSH AF

        LD A, # 3C

        JR C, LOAD1

        LD A, # 2C
LOAD1 CALL REG

        POP AF

        LD C, # 3F

        CALL PORT

        INC D

        LD E, 0

        LD A, D
POKE1 SRL A

        LD C, # 7F

        CALL PORT

        LD A, # 18

        LD IX, # 2FC3

        CALL DOS

        JR LOAD6
;---------------------------------------- SECTOR LD C, RETRY
SECTOR1 PUSH BC

        LD A, E

        INC A

        LD C, # 5F

        CALL PORT

        LD A, # 80

        LD C, # 1F

        CALL PORT

        PUSH HL

        LD C, # 7F

        LD IX, # 3FE5

        CALL DOS

        CALL STATUS

        POP HL

        POP BC

        RET Z

        DEC C

        JR NZ, SECTOR1

        CALL REPOS

        JR SECTOR
;---------------------------------------- STATUS PUSH DE

        XOR A

        LD C, # 3F

        CALL PORT

        LD A, # 0A

        LD C, # 5F

        CALL PORT

        LD D, 1

        LD IX, # 3F33

        CALL DOS

        POP DE

        LD A, B

        AND # 7F

        PUSH AF

        LD A, D
POKE2 SRL A

        LD C, # 3F

        CALL PORT

        POP AF

        RET
;---------------------------------------- REPOS LD A,% 11011000

        CALL COMM2

        LD A, 8

        CALL COMM3
;---------------------------------------- POSIT LD A, D; 
Positioning POKE3 SRL A


        PUSH AF

        LD A, # 2C

        JR C, REPOS1

        LD A, # 3C
REPOS1 CALL REG

        POP AF

        LD C, # 7F

        CALL PORT

        LD A, # 18

        JR COMM3
;---------------------------------------- REG OR 0

        LD IX, # 1FF3
DOS PUSH IX

        JP # 3D30
PORT LD IX, # 2A53

        JR DOS
COMM2 LD IX, # 2F57

        JR DOS
COMM3 CALL COMM2

        LD C, 5; very, it seems, camping, long pause, but 
otherwise this is not crap ; Will work on the 'byte'.


COMM3_1 PUSH BC

        LD IX, # 3DFD

        CALL DOS

        POP BC

        DEC C

        JR NZ, COMM3_1

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

   That's it! We kindly request if
anyone have a trick And this does not work, write immediately 
to the Echo!