Вид для печати
Вобщем, облом-с с TREAS... В эмуляторе всё работает (просто гружу с нужного адреса в дебаггере и запуская - работает). На реале же - после начала игры появляется игровое поле, и всё зависает... Спрайты не двигаются... Вобщем, облом :( Выкладываю то, что получилось. У кого есть возможность, проверьте на реале. Загрузка с автозапуском (LOAD"CAS:TREAS ",B,R), моноблок.
Вот сам код:
Код:.ORG 09000H
DI
JMP BEG
TREAS: ;тут у нас будут нули, потом в HEX-редакторе вставляется упакованный TREAS.COM.mlz
BEG: .ORG 0D000H
LXI H,0FA7FH
MVI A,01CH
MOV M,A
LXI H,TREAS
LXI D,0100H
CALL DEC40
JMP 0100H
DEC40:
mvi a,80h ;если распаковщик вызывается только один раз
sta AF+2 ;то эту и предыдущую строки можно удалить
MS: push psw ; ldi
mov a, m ;
stax d ;
inx h ;
inx d ;
pop psw ;
M0: lxi b, 02FFh
M1: call ExAfAf
M1X: add a
jnz M2 ; jr nz, M2
mov a, m
inx h
ral
M2: sta RestA1+1; rl C
mov a, c ;
ral ;
mov c, a ;
RestA1: mvi a,0
jnc M1X ; jr nc, M1X
call ExAfAf
dcr b ; djnz X2
jnz X2
mov a, c ; sra C
ral ;
mov a, c ;
rar ;
mov c, a ;
mvi a, 002h
jc N1 ; jr c, N1
inr a
inr c
jz N2 ; jr z, N2
lxi b, 033Fh
jmp M1 ; jr M1
X2:
dcr b ; djnz X3
jnz X3
sta RestA3+1; srl C
mov a, c ;
ora a ;
rar ;
mov c, a ;
RestA3: mvi a,0
jc MS ; jr c, MS
inr b
jmp M1 ; jr M1
X6: add c
N2: lxi b, 04FFh
jmp M1 ; jr M1
N1: inr c
jnz M4 ; jr nz, M4
call ExAfAf
inr b
N5:
sta RestA2+1; rr C
mov a, c ;
rar ;
mov c, a ;
rc
mov a, b ; rl B
ral ;
mov b, a ;
RestA2: mvi a,0
add a
jnz N6 ; jr nz, N6
mov a, m
inx h
ral
N6: jnc N5 ; jr nc, N5
call ExAfAf
add b
mvi b, 006h
jmp M1 ; jr M1
X3:
dcr b ; djnz X4
jnz X4
mvi a, 001h
jmp M3 ; jr M3
X4:
dcr b ; djnz X5
jnz X5
inr c
jnz M4 ; jr nz, M4
lxi b, 051Fh
jmp M1 ; jr M1
X5:
dcr b ; djnz X6
jnz X6
mov b, c
M4: mov c, m
inx h
M3: dcr b
push h
mov l, c
mov h, b
dad d
mov c, a
LdirLoop: mov a, m ; ldir
stax d ;
inx h ;
inx d ;
dcr c ;
jnz LdirLoop;
pop h
jmp M0 ; jr M0
ExAfAf: push h ; ex AF, AF'
push psw ;
AF: lxi h,8000h ;
xthl ;
shld AF+1 ;
pop psw ;
pop h ;
ret
.end
ну из явных "багов"
после переключения конфигурации надо по адресу 5 занести "c3" jmp
а то мой микроэмулятор думает что работаем в cp/m и модифицирует только адрес
если в памяти 0, то все прокатит, если же мусор, то возможно разное ...
и стек было бы неплохо установить, хоть в FFFF, тогда заодно на экране забавное мигание ;)
Ок, я сейчас в универ, вечером опробую на реале.
зы. Никто не знает, как в TASM подключить BIN-файл? INCLUDE - для asm-файлов, директивы incbin там нет :(
по поводу вывода на экран
вот код conout это один символ на экран, в C
он выводит через ROMКод:conout: ;e07d
mov a,c
lxi h,0
dad sp
lxi sp,stack0 ;0edfeh
push h
mvi a,14h
di
sta syscopy ;0f703h
sta sysreg1c ;0fa7fh
ei
call 4ch
mvi a,1ch
di
sta sysreg1c ;0fa7fh
sta syscopy ;0f703h
ei
pop h
sphl
ret
а сам эмулятор доса для вывода строки ..
сорри за мешанину 8080/z80 но думаю понятно о чем речь.
нуКод:...
0005: jmp ourEmu
сюда попадает код
ourEmu:
mvi a,9
cmp c
jnz nextFunc
loop:
ld a,(de)
cp '$'
jz _RET
push de
ld c,a
call conout
pop de
inc de
jp loop
nextFunc:
....
ld a,0xff ;имитируем ошибку.
или наоборот
xor a,a? ;(
_RET
jmp old5
прыгнули на то что было раньше
ну или в нашем случае тут может быть ret
Уже проверил - появляется карта, на экране даже спрайтов нет :(
Код:.ORG 09000H
DI
JMP BEG
TREAS:
BEG: .ORG 0D000H
LXI H,0FFFFH
SPHL
LXI H,0FA7FH
MVI A,01CH
MOV M,A
LXI H,00005H
MVI A,0C3H
MOV M,A
LXI H,TREAS
LXI D,0100H
CALL DEC40
JMP 0100H
DEC40:
это уже точно вечером проверю.Цитата:
Сообщение от esl
Никак не врублюсь, почему на эмуле (юзал эмуль b2m, у него в дебаггере есть прямая загрузка и выгрузка памяти) работает, а на реале виснет :(
сфоткай что именно на экране ...Цитата:
Сообщение от BYTEMAN
возможно железо глючит ...
нажатие i(и) или n(н) что либо дает ?
у меня в эмуляторе тоже работает
p.s. заодно поломал его ;)
нечуствительность к мечам
прохождение сквозь врагов
вечные мечи
Просто карта, без спрайтов. Один раз удалось добиться такого же результата в эмуляторе, но только тогда, когда записывал С3 до переключения карты памяти :)Цитата:
Сообщение от esl
---------- Post added at 18:56 ---------- Previous post was at 18:40 ----------
Дык музыка играет!!!! Нажимаю n - играет вступление, появляется карта - и висняк. I - не нажимал, сейчкас попробую....Цитата:
Сообщение от esl