Корвет: Грузимся с магнитофона

[BYTEMAN]

Вобщем, облом-с с TREAS... В эмуляторе всё работает (просто гружу с нужного адреса в дебаггере и запуская - работает). На реале же - после начала игры появляется игровое поле, и всё зависает... Спрайты не двигаются... Вобщем, облом Выкладываю то, что получилось. У кого есть возможность, проверьте на реале. Загрузка с автозапуском (LOAD"CAS:TREAS ",B,R), моноблок.

[Advertiser]

[BYTEMAN]

Вот сам код:

		.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

[esl]

ну из явных "багов"
после переключения конфигурации надо по адресу 5 занести "c3" jmp
а то мой микроэмулятор думает что работаем в cp/m и модифицирует только адрес
если в памяти 0, то все прокатит, если же мусор, то возможно разное ...

и стек было бы неплохо установить, хоть в FFFF, тогда заодно на экране забавное мигание

[BYTEMAN]

Ок, я сейчас в универ, вечером опробую на реале.

зы. Никто не знает, как в TASM подключить BIN-файл? INCLUDE - для asm-файлов, директивы incbin там нет

[esl]

по поводу вывода на экран

вот код conout это один символ на экран, в C

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

он выводит через ROM

а сам эмулятор доса для вывода строки ..

сорри за мешанину 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

ну

[BYTEMAN]

Уже проверил - появляется карта, на экране даже спрайтов нет

		.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:

[BYTEMAN]

по поводу вывода на экран

вот код conout это один символ на экран, в C

это уже точно вечером проверю.

[BYTEMAN]

Никак не врублюсь, почему на эмуле (юзал эмуль b2m, у него в дебаггере есть прямая загрузка и выгрузка памяти) работает, а на реале виснет

[esl]

Уже проверил - появляется карта, на экране даже спрайтов нет

сфоткай что именно на экране ...

возможно железо глючит ...
нажатие i(и) или n(н) что либо дает ?



у меня в эмуляторе тоже работает
p.s. заодно поломал его
нечуствительность к мечам
прохождение сквозь врагов
вечные мечи

[BYTEMAN]

сфоткай что именно на экране ...

возможно железо глючит ...

у меня в эмуляторе тоже работает
p.s. заодно поломал его
нечуствительность к мечам
прохождение сквозь врагов
вечные мечи

Просто карта, без спрайтов. Один раз удалось добиться такого же результата в эмуляторе, но только тогда, когда записывал С3 до переключения карты памяти

---------- Post added at 18:56 ---------- Previous post was at 18:40 ----------

нажатие i(и) или n(н) что либо дает ?

Дык музыка играет!!!! Нажимаю n - играет вступление, появляется карта - и висняк. I - не нажимал, сейчкас попробую....