Загрузка блока(Bytes) из aссемблера

[amfirifma]

если так:
LD IX,50000 ;не знаю подходит ли этот адрес под буфер?
LD DE,17
LD A,0
SCF
INC D
EX AF,AF'
DEC D
call #0562
;JP NC, обработка ошибки загрузки. например, повтор - не знаю что тут писать и в принципе мне не надо проверок на ошибки
LD IX,30000
LD DE,16198
LD A,255
SCF
INC D
EX AF,AF'
DEC D
call #0562
;JP NC, обработка ошибки загрузки
RET

то - есть нормальный щелчок заголовка, но нет самого заголовка на экране. (Загрузка дальше продолжается нормально.)
Может можно что-то добавить, чтобы он все таки выводился? Как-то ж он выводится при call #0621 (1569)?!

[Spectramine]

Выводится примерно так, если убрать все лишнее из ПЗУшного кода.

LD A,#FE ; Обеспечивается откры-
CALL #1601 ; CHAN-OPEN тие канала 'S'.
LD IX, адрес буфера заголовка
LD A,(IX+0)
LD DE,#09C0 ; таблица сообщений типов блоков на ленте
CALL #0C0A ; PO-MSG
LD B,10
L1 INC IX
LD A,(IX+0)
RST #10
DJNZ L1
LD A,#0D
RST #10

[krt17]

А если не секрет зачем вам это? Просто никогда ни у кого не видел подобного. И не потому что это какая то сверх задача, это никому не было нужно.

[amfirifma]

Заработало !!!!! со "скрипом"

в таком варианте:
LD IX,50000
LD DE,17
LD A,0
SCF
INC D
EX AF,AF'
DEC D
call #0562

LD A,#FE
CALL #1601
LD IX, 50000
LD A,(IX+0)
LD DE,#09C0
CALL #0C0A
LD B,10
L1 INC IX
LD A,(IX+0)
RST #10
DJNZ L1
LD A,#0D
RST #10

LD IX,30000
LD DE,16198
LD A,255
SCF
INC D
EX AF,AF'
DEC D
call #0562

RET

Не на всех заголовках, правда, но получилось выкрутиться. Буду проверять в разных условиях.
БЛАГОДАРЕНЬ ВСЕМ ОТКЛИКНУВШИМСЯ!

- - - Добавлено - - -

Постараюсь нам показать в ближайшее время

[Black Cat / Era CG]

Ваще адреса можно из заголовка брать.

[amfirifma]

Спасибо, но я не знаю, как это сделать... и уже так намучился, что оставлю последний вариант. Если у Вас есть желание оптимизировать этот код, буду благодарен. В принципе люди правы, что можно было просто вернуться в бейсик и сделать LOAD""CODE, но мне очень хотелось почувствовать себя "олдскулхацкером" А может это еще кому-то пригодится.

[Advertiser]

[Gutten]

Так а что там делать - заголовок ты в буфер уже загрузил, вот из этого буфера и бери адрес и длину загрузки файла.

[Alex Rider]

Имитация LOAD "" CODE. Не грузит не bytes, выдает Tape loadgin error, читает начало и длину из заголовка.

load_code:
	ld ix,header
	ld de,#0011
	ld a,#00
	scf
	call #0556
	jr nc,error

	ld a,#02
	call #1601
	ld a,(header)
	ld de,#09c0
	call #0c0a
	ld de,header + 1
	ld bc,#000a
	call #203c
	ld a,#0d
	rst #10

	ld a,(header)
	cp #03
	jr nz,load_code

	ld de,(header + #0b)
	ld ix,(header + #0d)
	ld a,#ff
	scf
	call #0556
	ret c
error:
	rst #08
	db #1a

header: ds #11

[Spectramine]

В случае ошибки или BREAK процедура load_codе вернется в бейсик.

[Alex Rider]

В случае ошибки или BREAK процедура load_codе вернется в бейсик.

Да Просили аналог LOAD "" CODE, она выдает Tape loading error. Прежде, чем упасть в BASIC, оно придет на метку error, там можно сделать все по-своему.