.

[Xavier]

Voici quelques photos...






Xav Fun.

[Xavier]

Salut,

Bien, le montage est disponible ici:
http://zx81.ordi5.free.fr/brico/mouse/

SOURIS2.gif remplace la version sur le bus /IOreq.

A plus.

[DIDIER]

as tu pu lire le programme souris que je t avais envoye sur cassette ...

on pourra peut etre l utiliser avec la souris ( j avais fait en plus du deplacement de la souris (une souris dessine sur 2 CARACTERES) , un systeme de fenetre ...) .... a voir si on peu le reutiiser ... mais faut que tu lise ce programme pour voir comment il est foutu ...

a+

didier

[Xavier]

Salut,

Je me suis consacré ou hard pour le moment...

J'ai d'ailleurs un cas de conscience au niveau des touches...
Si la souris va allez en diagonale : touches "5" et "6"...
Le basic va poser problème.
On ne peut pas appuier sur deux touches en même temps.
En ASM, il suffit d'un masquage clavier... mais en basic ...
C'est pas trop grave, il prendra les touches reconnues,
mais il y aura des infos perdues.

Xav.

Je digitalise ta K7 dès que possible.

[Xavier]

Salut !

Voilà Didier... ton driver souris a été scanné et est dispo. ici:

http://zx81.ordi5.free.fr/brico/mouse/driver

Il y a le fichier "P", le PDF du programme et le fichier texte pour le XuR.

Superbe programme.
Ca donne envie de booter directement dessus !



Xav.

[DIDIER]

bon ce programme etait un essai > que je n ai d ailleurs pas fini ...

mais je pense que l on pourrait l utiliser avec la souris .. et peut etre pourquoi pas si on arrive a faire des eproms pour faire demarrer des programmes > on pourrait demarrer directement sur ce menu deroulant et proposer soit le basic ... soit un acces direct sur le lecteur de disquette ...

juste pour info > si vous voulez taper ce programme (souris) (qui marche juste pour l instant avec les touches fleches du zx)

progarmme ici >

http://zx81.ordi5.free.fr/brico/mouse/driver/driver.pdf

donc attention au dessus de la ligne 20 IF PEEK(16514) vous devez taper la ligne suivante :
1REMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

CETTE ligne 1 rem doit contenir 50 caracteres ....

ensuite effacez la ligne 25 poke 16418,0

des que vous avez taper tout le programme basic (jusqu a la ligne 1020) faites run et a la question "longueur rem" tapez 1000 .... la vous entrez les codes en hexadecimal de la ligne 0 REM qui sont au tout debut du DOCUMENT pdf ...

voila .... bon va falloir que je reprenne ce programme et mon brouillon sur papier que j avais fait ... y a du boulot !

a+ merci xavier

didier

[Xavier]

Salut Didier,



J'ai chargé le fichier "P" et j'ai fait GOTO 1000...
Ca marche aussi !
Je regarde quand même pour la ligne 1.

Xav.

[Xavier]

Avec les labels ça donne ça...
A copier/coller dans Vb81 Xur
(en forcant à 32k avant dans le menu... puis icône ASM2... car les commentaires prennent de la mémoire!)

Code : Tout sélectionner

ORG 4082
LD HL,(400C); Get D-FILE
INC HL 
LD DE,0021 
ADD HL,DE 
LD (400E),HL; Set DF-CC
JP Lb4090; [16528]
@LB4090
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
INC HL 
@LB409D
CALL 02BB; [KEYBOARD]
LD A,L 
INC A 
JR Z  Lb409D; [409D:16541]
PUSH HL 
POP BC 
CALL 07BD; [DECODE]
LD A,(HL) 
CP 21 
JR Z  Lb40B0; [40B0:16560]
JR Lb40B3; [40B3:16563]
@LB40B0
JP Lb4107; [16647]
@LB40B3
CP 24 
JR Z  Lb40B9; [40B9:16569]
JR Lb40BC; [40BC:16572]
@LB40B9
JP Lb40C7; [16583]
@LB40BC
CP 1C 
JR Z  Lb40C2; [40C2:16578]
JR Lb40C5; [40C5:16581]
@LB40C2
JP Lb414B; [16715]
@LB40C5
JR Lb409D; [409D:16541]
@LB40C7
LD HL,(400E); Get DF-CC
LD DE,0002 
ADD HL,DE 
LD A,(HL) 
CP 76 
JR Z  Lb4104; [4104:16644]
LD HL,(400E); Get DF-CC
LD DE,0001 
ADD HL,DE 
LD (400E),HL; Set DF-CC
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
LD HL,(400E); Get DF-CC
LD DE,FFFF 
ADD HL,DE 
LD (HL),00 
LD DE,0021 
ADD HL,DE 
LD (HL),00 
LD D,90 
@LB40FA
LD E,0F 
@LB40FC
DEC E 
LD A,00 
JR NZ  Lb40FC; [40FC:16636]
DEC D 
JR NZ  Lb40FA; [40FA:16634]
@LB4104
JP Lb409D; [16541]
@LB4107
LD HL,(400E); Get DF-CC
LD DE,FFFF 
ADD HL,DE 
LD A,(HL) 
CP 76 
JR Z  Lb4148; [4148:16712]
LD HL,(400E); Get DF-CC
LD DE,FFFF 
ADD HL,DE 
LD (400E),HL; Set DF-CC
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
LD HL,(400E); Get DF-CC
LD DE,0001 
ADD HL,DE 
LD (HL),04 
INC HL 
LD (HL),00 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),00 
LD D,90 
@LB413E
LD E,0F 
@LB4140
DEC E 
LD A,00 
JR NZ  Lb4140; [4140:16704]
DEC D 
JR NZ  Lb413E; [413E:16702]
@LB4148
JP Lb409D; [16541]
@LB414B
LD HL,(400E); Get DF-CC
LD (HL),07 
INC HL 
LD (HL),00 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),00 
INC HL 
LD (HL),86 
LD HL,(400E); Get DF-CC
LD DE,FFDF 
ADD HL,DE 
LD A,(HL) 
CP 9D 
JR Z  Lb416B; [416B:16747]
JR Lb416E; [416E:16750]
@LB416B
JP Lb41B0; [16816]
@LB416E
CP 9E 
JR Z  Lb4174; [4174:16756]
JR Lb4177; [4177:16759]
@LB4174
JP Lb41B0; [16816]
@LB4177
CP 9F 
JR Z  Lb417D; [417D:16765]
JR Lb4180; [4180:16768]
@LB417D
JP Lb41B0; [16816]
@LB4180
CP A0 
JR Z  Lb4186; [4186:16774]
JR Lb4189; [4189:16777]
@LB4186
JP Lb41B0; [16816]
@LB4189
CP A1 
JR Z  Lb418F; [418F:16783]
JR Lb4192; [4192:16786]
@LB418F
JP Lb41B0; [16816]
@LB4192
CP A2 
JR Z  Lb4198; [4198:16792]
JR Lb419B; [419B:16795]
@LB4198
JP Lb41B0; [16816]
@LB419B
LD HL,(400E); Get DF-CC
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
INC HL 
LD (HL),00 
JP Lb409D; [16541]
@LB41B0
LD HL,(400E); Get DF-CC
LD DE,FFDF 
ADD HL,DE 
LD A,(HL) 
LD HL,(400C); Get D-FILE
INC HL 
LD DE,00A5 
ADD HL,DE 
LD (HL),A 
LD HL,(400C); Get D-FILE
INC HL 
LD DE,00A5 
ADD HL,DE 
INC HL 
LD B,0C 
@LB41CC
LD (HL),03 
INC HL 
DJNZ Lb41CC; [41CC:16844]
LD (HL),84 
INC HL 
LD DE,0013 
ADD HL,DE 
LD B,0E 
@LB41DA
LD (HL),05 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD (HL),85 
INC HL 
LD DE,0013 
ADD HL,DE 
DJNZ Lb41DA; [41DA:16858]
LD (HL),82 
INC HL 
LD B,0C 
@LB420F
LD (HL),83 
INC HL 
DJNZ Lb420F; [420F:16911]
LD (HL),81 
INC HL 
LD D,C0 
@LB4219
LD E,30 
@LB421B
DEC E 
LD A,00 
JR NZ  Lb421B; [421B:16923]
DEC D 
JR NZ  Lb4219; [4219:16921]
LD HL,(400E); Get DF-CC
LD (HL),00 
INC HL 
LD (HL),00 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),00 
INC HL 
LD (HL),00 
JP Lb43D3; [17363]
LD (HL),00 
INC HL 
LD (HL),00 
@LB423D
LD HL,(400C); Get D-FILE
INC HL 
LD DE,00C6 
ADD HL,DE 
LD (400E),HL; Set DF-CC
INC HL 
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
INC HL 
@LB4256
CALL 02BB; [KEYBOARD]
LD A,L 
INC A 
JR Z  Lb4256; [4256:16982]
PUSH HL 
POP BC 
CALL 07BD; [DECODE]
LD A,(HL) 
CP 22 
JR Z  Lb4269; [4269:17001]
JR Lb426C; [426C:17004]
@LB4269
JP Lb42BC; [17084]
@LB426C
CP 23 
JR Z  Lb4272; [4272:17010]
JR Lb4275; [4275:17013]
@LB4272
JP Lb4280; [17024]
@LB4275
CP 1C 
JR Z  Lb427B; [427B:17019]
JR Lb427E; [427E:17022]
@LB427B
JP Lb4365; [17253]
@LB427E
JR Lb4256; [4256:16982]
@LB4280
LD HL,(400E); Get DF-CC
LD DE,FFE0 
ADD HL,DE 
LD A,(HL) 
CP 03 
JR Z  Lb42B9; [42B9:17081]
LD HL,(400E); Get DF-CC
LD DE,FFDF 
ADD HL,DE 
LD (400E),HL; Set DF-CC
INC HL 
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
INC HL 
LD DE,001E 
ADD HL,DE 
LD (HL),85 
INC HL 
LD (HL),00 
LD DE,0020 
ADD HL,DE 
LD (HL),00 
LD D,90 
@LB42AF
LD E,0F 
@LB42B1
DEC E 
LD A,00 
JR NZ  Lb42B1; [42B1:17073]
DEC D 
JR NZ  Lb42AF; [42AF:17071]
@LB42B9
JP Lb4256; [16982]
@LB42BC
LD HL,(400E); Get DF-CC
LD DE,0043 
ADD HL,DE 
LD A,(HL) 
CP 83 
JR Z  Lb42FA; [42FA:17146]
LD HL,(400E); Get DF-CC
LD DE,0021 
ADD HL,DE 
LD (400E),HL; Set DF-CC
INC HL 
LD (HL),06 
INC HL 
LD (HL),04 
INC HL 
LD DE,001F 
ADD HL,DE 
LD (HL),85 
INC HL 
LD (HL),00 
LD HL,(400E); Get DF-CC
LD DE,FFE0 
ADD HL,DE 
LD (HL),00 
INC HL 
LD (HL),00 
LD D,90 
@LB42F0
LD E,0F 
@LB42F2
DEC E 
CCF 
NOP 
JR NZ  Lb42F2; [42F2:17138]
DEC D 
JR NZ  Lb42F0; [42F0:17136]
@LB42FA
JP Lb4256; [16982]
@LB42FD
LD HL,(400C); Get D-FILE
INC HL 
LD DE,00E9 
ADD HL,DE 
INC HL 
LD (HL),9D 
INC HL 
LD (HL),00 
INC HL 
LD (HL),39 
INC HL 
LD (HL),26 
INC HL 
LD (HL),27 
INC HL 
LD (HL),29 
LD HL,(400C); Get D-FILE
INC HL 
LD DE,014C 
ADD HL,DE 
INC HL 
LD (HL),9E 
INC HL 
LD (HL),00 
INC HL 
LD (HL),28 
INC HL 
LD (HL),34 
INC HL 
LD (HL),29 
INC HL 
LD (HL),3E 
LD HL,(400C); Get D-FILE
INC HL 
LD DE,01AF 
ADD HL,DE 
INC HL 
LD (HL),9F 
INC HL 
LD (HL),00 
INC HL 
LD (HL),28 
INC HL 
LD (HL),26 
INC HL 
LD (HL),39 
LD HL,(400C); Get D-FILE
INC HL 
LD DE,0212 
ADD HL,DE 
INC HL 
LD (HL),A0 
INC HL 
LD (HL),00 
INC HL 
LD (HL),31 
INC HL 
LD (HL),2E 
INC HL 
LD (HL),38 
INC HL 
LD (HL),39 
JP Lb423D; [16957]
@LB4365
LD HL,(400E); Get DF-CC
LD DE,0003 
ADD HL,DE 
LD A,(HL) 
CP 9D 
JR Z  Lb4373; [4373:17267]
JR Lb4376; [4376:17270]
@LB4373
JP 0000; [Start]
@LB4376
CP 9E 
JR Z  Lb437C; [437C:17276]
JR Lb437F; [437F:17279]
@LB437C
JP 0000; [Start]
@LB437F
CP 9F 
JR Z  Lb4385; [4385:17285]
JR Lb4388; [4388:17288]
@LB4385
JP 0000; [Start]
@LB4388
CP A0 
JR Z  Lb438E; [438E:17294]
JR Lb4391; [4391:17297]
@LB438E
JP 0000; [Start]
@LB4391
LD HL,(400E); Get DF-CC
LD DE,FFDF 
ADD HL,DE 
LD A,(HL) 
CP 1D 
JR Z  Lb439F; [439F:17311]
JR Lb43A2; [43A2:17314]
@LB439F
JP 0000; [Start]
@LB43A2
CP 1E 
JR Z  Lb43A8; [43A8:17320]
JR Lb43AB; [43AB:17323]
@LB43A8
JP 0000; [Start]
@LB43AB
CP 1F 
JR Z  Lb43B1; [43B1:17329]
JR Lb43B4; [43B4:17332]
@LB43B1
JP 0000; [Start]
@LB43B4
CP 20 
JR Z  Lb43BA; [43BA:17338]
JR Lb43BD; [43BD:17341]
@LB43BA
JP 0000; [Start]
@LB43BD
CP 21 
JR Z  Lb43C3; [43C3:17347]
JR Lb43C6; [43C6:17350]
@LB43C3
JP 0000; [Start]
@LB43C6
CP 22 
JR Z  Lb43CC; [43CC:17356]
JR Lb43CF; [43CF:17359]
@LB43CC
JP 0000; [Start]
@LB43CF
RET ; ==========================

JP 0000; [Start]
@LB43D3
LD HL,(400C); Get D-FILE
INC HL 
LD DE,00A5 
ADD HL,DE 
LD A,(HL) 
CP 9D 
JR Z  Lb43E2; [43E2:17378]
JR Lb43E5; [43E5:17381]
@LB43E2
JP Lb4415; [17429]
@LB43E5
CP 9E 
JR Z  Lb43EB; [43EB:17387]
JR Lb43EE; [43EE:17390]
@LB43EB
JP Lb4418; [17432]
@LB43EE
CP 9F 
JR Z  Lb43F4; [43F4:17396]
JR Lb43F7; [43F7:17399]
@LB43F4
JP Lb4435; [17461]
@LB43F7
CP A0 
JR Z  Lb43FD; [43FD:17405]
JR Lb4400; [4400:17408]
@LB43FD
JP 0000; [Start]
@LB4400
CP A1 
JR Z  Lb4406; [4406:17414]
JR Lb4409; [4409:17417]
@LB4406
JP 0000; [Start]
@LB4409
CP A2 
JR Z  Lb440F; [440F:17423]
JR Lb4412; [4412:17426]
@LB440F
JP 0000; [Start]
@LB4412
JP 0000; [Start]
@LB4415
JP Lb42FD; [17149]
@LB4418
LD A,29 
LD (4316),A 
LD A,29 
LD (432D),A 
LD A,28 
LD (4341),A 
LD A,26 
LD (4344),A 
LD A,39 
LD (4347),A 
JP Lb42FD; [17149]
NOP 
@LB4435
LD A,39 
LD (430D),A 
LD A,26 
LD (4310),A 
LD A,27 
LD (4313),A 
LD A,00 
LD (4316),A 
LD A,28 
LD (4327),A 
LD A,34 
LD (432A),A 
LD A,35 
LD (432D),A 
LD A,3E 
LD (4330),A 
JP Lb42FD; [17149]