Я в свое время юзал такую процедуру загрузки файла:
Код:start ld hl,#f700 ; буфер для загрузки каталога ld de,0 ld bc,#0805 ;грузим каталог дискеты call 15635 ld de,NameFile ;имя файла ld hl,#f700 call SearchFile ;ищем файл в каталоге и берем инфу о его расположении (трек, сектор) jpc Exit ; а нет такого файла - выход! ld hl,#9700 ;грузим 1 сектор файла по адресу #9700 ld bc,#0105 call 15635 ... ;routines SearchFile ld b,128 ld (S_file1+1),de S_file1 ld de,0 ld a,(hl) or a jrz No_file ld a,(de) cp (hl) jrz found_symb N_file2 ld a,b ld bc,16 add hl,bc ld b,a djnz S_file1 No_file scf ret found_symb ld (N_file1+1),hl ld c,10 inc hl inc de S_file2 ld a,(de) cp (hl) jrnz N_file1 inc de inc hl dec c jrnz S_file2 inc hl inc hl ld b,(hl) inc hl ld e,(hl) inc hl ld d,(hl) or a ret N_file1 ld hl,0 jr N_file2 NameFile db "Levels dat"




Ответить с цитированием
