Côté bricolage :

Un crayon optique pour Amstrad CPC

TIREZ PLUS DE VOTRE SINCLAIR

Mis à Jour : Octobre 2007.

avec l'accord de l'auteur sous réserve de non utilisation mercantile, à titre pédagogique et pour sa contribution à l'histoire du CPC.

-

« Crayon Optique pour CPC »

Schéma:

Implantation:

PCB du montage monocarte:

Nomenclature des composants :

Références

Descriptif

Quantité

R1:

Résistance
1/4w

1

R2:

Résistance
1/4w

1

R3:

Résistance
1/4w

1

R4:

Résistance
1/4w

1

C1: 1nf.

Condensateur: (disque) – Non Polarisé.

1

Tr1: BC547

Transistor

1

Tr2: BPW42 (Telefunken)

Photo-Transistor

1

Prise Jack mono diamètre. 3.5mm
mâle et femelle.

Prise crayon optique.

1

Prise 2x25 broches femelle.

Port CPC

1

Plaque époxi: 70x32.

Support.

1

1] Programme de teste:

10 MEMORY &9FFF                    
20 LOAD"READXY.BIN",&A000          
30 DEFINT x,y                      
40 X=0:Y=0:INK 0,26:ink 1,0:MODE 1 
50 CALL &A000,@x,@y                
60 LOCATE 1,1:PRINT x,y            
70 GOTO 50       

Fichier « READXY.BIN » assembleur:
0001 A000 .ORG $A000
0002 A000 01 11 BC LD BC, $BC11
0003 A003 ED 49    OUT (C),C
0004 A005 06 BF    LD B,$BF
0005 A007 ED 60    IN H,(C)
0006 A009 01 10 BC LD BC,$BC10
0007 A00C ED 49    OUT (C),C
0008 A00E 06 BF    LD B,$BF
0009 A010 ED 68    IN L,(C)
0010 A012 C9       RET
HL donne en variable x: la colonne et en y: la ligne de la zone écran pointée.

2] Fichier basic: (pour les coordonnées X et Y)

10 INK 0,26:INK 1,0:MODE 1         
20 OUT &BC00,&11:P=INP(&BF00)      
30 OUT &BC00,&10:P=P*256+INP(&BF00)
40 LOCATE 1,1:PRINT HEX$(P)        
50 GOTO 20 

Conversion des donnée en colonnes :
45 P=P AND &3FF:X=P MOD 40:Y=INT(P/40)
48 LOCATE 1,10:PRINT x,y

Nota:

Ce crayon optique ne fonctionne pas sur un fond noir car la signal de synchronisation sera invisible au capteur (noir sur noir)

Brochage des composants :

Port d'extension CPC
(25X2 broches)

Vos astuces et vos réactions: