.

[Xavier]

Salut,

Nouveau jeu pour Zx81 !
"Cramp"...
Il permet de faire de la haute résolution avec un Zx8116k.
Superbe travail!

disponible sur votre site préféré(http://www.hebdogiciel.fr), bien sûr.

[DIDIER]

YEP XAVIER ....

oui ... va falloir y retravailler sur ce soft ... (c est pour cela que je te l avais envoye ...)

faudra que tu m envoie comment redefinir exactement les graphiques ...

on en recause ...

a+

didier

[Xavier]

Salut,

Je regarde ça.
Xav.

[Xavier]

CRAMP
______

De Brice RIVE.

Pour ZX81 16K non modifié.
Ce programme s'appuie sur la programmation en Psedo-HRG basée sur le vecteur d'interruption IX du ZX81.
Certains émulateurs ne fonctionnent pas avec cette routine de réorientation d'affichage.
Testé sur Eighty-One en configuration 16K, sans carte graphique.

Bon Jeu !

XavSnap.
(nota: modification des entrées des routines dans le basic, partie basic d'entrée de codes non tapé.)

Anexe Codes Machine:

Code : Tout sélectionner

#define ORG  .org       ; TASM cross-assembler definitions
ORG $4082
	HALT 
	HALT 
	JP Lb40AB ; [16555]
	JP Lb40BE ; [16574]
	JP Lb40C7 ; [16583]
	JP Lb4116 ; [16662]
	JP Lb416D ; [16749]
	NOP 
	NOP 
	JR NZ, Lb40B5 ; [$40B5:16565]
	LD E,$20 
	NOP 
	NOP 
	ADC A,A 
	ADC A,A 
	SBC A,(HL) 
	ADC A,E 
	ADC A,E 
	ADC A,E 
	SBC A,(HL) 
	ADC A,A 
	NOP 
	NOP 
	NOP 
	LD E,$1E 
	NOP 
	NOP 
	NOP 
Lb40AB:
	LD HL,$5A00 
	LD C,$B8 
Lb40B0:
	LD B,$20 
Lb40B2:
	LD (HL),$9E 
	INC HL 
Lb40B5:
	DJNZ Lb40B2 ; [$40B2:16562]
	LD (HL),$C9 
	INC HL 
	DEC C 
	JR NZ, Lb40B0 ; [$40B0:16560]
	RET ; ==========================

Lb40BE:
	LD A,$08 
	LD I,A 
	LD IX,$40D0 
	RET ; ==========================

Lb40C7:
	LD A,$1F 
	LD I,A 
	LD IX,$0281 
	RET ; ==========================

	LD A,R 
	LD BC,$0201 
	LD A,$F5 
	CALL $02B5 ; [DISPLAY-5]
	LD A,$08 
	LD I,A 
	LD I,A 
	LD HL,$D9DF 
	LD DE,$0021 
	DI 
	LD C,$FE 
	LD B,$08 
Lb40EB:
	DJNZ Lb40EB ; [$40EB:16619]
	LD B,$B7 
Lb40EF:
	IN A,(c) 
	OUT ($FF),A ; Zx81 Display/Tape port
	ADD HL,DE 
	CALL $0044 ; []*BIOS ROM*
	DEC B 
	JP NZ, Lb40EF ; [16623]
	CALL $0292 ; [DISPLAY-3]
	CALL $0220 ; []*BIOS ROM*
	LD IX,$40D0 
	LD A,$7F 
	IN A,($FE) ; Keyboard Port.
	RRA 
	JR C, Lb410F ; [$410F:16655]
	CALL $40C7 ; [16583]
Lb410F:
	LD A,$1F 
	LD I,A 
	JP $02A4 ; []*BIOS ROM*
Lb4116:
	LD HL,($407B) ; GET UNUSED-16
	LD A,$02 
	CALL $4193 ; [16787]
	LD A,($4021) ; GET UNUSED-8
	DEC A 
	JR NZ, Lb412A ; [$412A:16682]
	LD DE,$FEF8 
	ADD HL,DE 
	JR Lb4152 ; [$4152:16722]
Lb412A:
	DEC A 
	JR NZ, Lb4139 ; [$4139:16697]
	INC HL 
	LD A,(HL) 
	CP $C9 
	JR NZ, Lb4152 ; [$4152:16722]
	LD DE,$FFE0 
	ADD HL,DE 
	JR Lb4152 ; [$4152:16722]
Lb4139:
	DEC A 
	JR NZ, Lb4142 ; [$4142:16706]
	LD DE,$0108 
	ADD HL,DE 
	JR Lb4152 ; [$4152:16722]
Lb4142:
	DEC A 
	JR NZ, Lb4151 ; [$4151:16721]
	DEC HL 
	LD A,(HL) 
	CP $C9 
	JR NZ, Lb4152 ; [$4152:16722]
	LD DE,$0020 
	ADD HL,DE 
	JR Lb4152 ; [$4152:16722]
Lb4151:
	RST 08H 
Lb4152:
	LD ($407B),HL ; SET UNUSED-16
	LD A,(HL) 
	CP $9E 
	JR Z, Lb4164 ; [$4164:16740]
	CP $1E 
	LD BC,$0000 
	JR NZ, Lb4162 ; [$4162:16738]
	INC BC 
Lb4162:
	INC BC 
	RET ; ==========================

Lb4164:
	LD A,$00 
	CALL $4193 ; [16787]
	LD BC,$0000 
	RET ; ==========================

Lb416D:
	LD B,$17 
	LD DE,($400C) ; GET D-FILE
	LD HL,$0021 
	ADD HL,DE 
	EX DE,HL 
	LD HL,$59FF 
Lb417B:
	INC DE 
	INC HL 
	LD A,(DE) 
	OR A 
	JR Z, Lb417B ; [$417B:16763]
	CP $76 
	JR Z, Lb418A ; [$418A:16778]
	CALL $4193 ; [16787]
	JR Lb417B ; [$417B:16763]
Lb418A:
	PUSH DE 
	LD DE,$00E7 
	ADD HL,DE 
	POP DE 
	DJNZ Lb417B ; [$417B:16763]
	RET ; ==========================

Lb4193:
	PUSH BC 
	PUSH DE 
	PUSH HL 
	PUSH HL 
	LD HL,$4093 
	LD B,$07 
	LD C,A 
Lb419D:
	ADD A,C 
	DJNZ Lb419D ; [$419D:16797]
	LD C,A 
	ADD HL,BC 
	EX DE,HL 
	LD B,$08 
	POP HL 
Lb41A6:
	LD A,(DE) 
	LD (HL),A 
	INC DE 
	PUSH DE 
	LD DE,$0021 
	ADD HL,DE 
	POP DE 
	DJNZ Lb41A6 ; [$41A6:16806]
	POP HL 
	POP DE 
	POP BC 
	RET ; ==========================

	JP $7A3C ; [31292]
	HALT 
	NOP 


.end

[DIDIER]

OK XAVIER ...

je vais regarder ca ....

merci pour le desassemblage

ronan me prepare le zx ....

a+

didier