Si vous possédez un CPC6128+, nous vous conseillons de recourir au câble de transfert, car ce modèle possède un port parallèle de type "Centronics" ce qui facilite la tâche. Le matériel requis pour établir la liaison est le suivant: - un câble standard qui relie normalement un PC à une imprimante
- un connecteur DB25 mâle à souder (du côté du câble Amstrad)
- un connecteur DB25 femelle à souder (du côté du port imprimante PC)
Schéma du câble de transfert, PC vers CPC +
Le schéma explicite le câblage. Il faudra alors programmer le CPC pour lui indiquer la liaison au PC.
Ainsi, nous devrons exécuter le petit programme en Basic de la manière suivante: 100 REM CPCREC.BAS - program to receive a file from the PC
110 REM Marco Vieth, 26.7.1994
120 REM
130 CLEAR:DEFSTR a:DEFINT b-z
140 ladr=&A000:IF PEEK(ladr)=&FE THEN 180
150 PRINT"Please wait...":MEMORY ladr-1
160 sum=0:FOR i=&A000 TO &A0A6:READ t$:POKE i,VAL("&"+t$):sum=UNT(sum+PEEK(i))
170 NEXT:READ t$:IF VAL("&"+t$)<>sum THEN PRINT"Checksum ERROR !":STOP
180 CLOSEIN:CLOSEOUT
190 OUT &EF00,&FF:'inactive
200 MODE 2
210 PRINT"CPCREC v1.0 - program to receive files"
220 PRINT"from a PC using the parallel interface"
230 PRINT
240 a=SPACE$(255)
250 CALL ladr,@a:IF LEN(a)=0 THEN 250
260 IF a="TRM:" THEN PRINT"Terminal not supported.":STOP
270 PRINT"Receiving file ";a
280 OPENOUT "!"+a
290 CALL ladr,@a:IF LEN(a)>0 THEN PRINT#9,a;:GOTO 290
300 CLOSEOUT:PRINT"Ok.":PRINT:GOTO 210
310 DATA FE,01,C0,DD,6E,00,DD,66,01,E5,CD,7E,A0,E1,D0,36
320 DATA 00,C9,C5,D5,E5,11,20,4E,06,F5,ED,78,E6,40,6F,3E
330 DATA BF,06,EF,ED,79,06,F5,ED,78,4F,E6,40,AD,20,06,1B
340 DATA 7A,B3,20,F1,37,F5,3E,FF,06,EF,ED,79,F1,38,3A,1E
350 DATA 00,16,08,F3,21,10,27,06,F5,79,E6,40,4F,ED,78,E6
360 DATA 40,A9,20,08,2B,7C,B5,20,F4,37,18,1D,3E,DF,06,EF
370 DATA ED,79,ED,79,06,F5,ED,78,FB,4F,17,17,CB,1B,06,EF
380 DATA 3E,FF,ED,79,15,20,CC,A7,7B,E1,D1,C1,FB,C9,CD,12
390 DATA A0,38,23,77,B7,37,28,1E,47,23,7E,23,66,6F,04,18
400 DATA 12,11,0A,00,CD,12,A0,30,08,1B,7A,B3,20,F6,37,18
410 DATA 05,77,23,10,EC,A7,C9
420 DATA 4C94
430 ENDUne fois ce listing inscrit, nous brancherons le câble, allumerons le CPC et le PC, puis nous lancerons le programme sur l'Amstrad. Il faut en outre installer le programme Pcpara.exe sur le PC et copier le fichier cpcpara.bas. 
Lancement du transfert avec PCPARA v1.2, sous une fenetre DOS
Tapez à ce moment-là: "pcpara.exe /s cpcpara.bas". Cette opération qui dure quelques minutes va transférer le fichier "cpcpara.bas" sur le CPC ; Ainsi, nous nous verrons en mesure de lancer celui-ci, qui se révèle plus performant sur l'Amstrad. 100 REM CPCPARA.BAS (v1.2) -- receiving/sending with the parallel adapter
110 REM Marco Vieth, 3.6.1998 (9.8.1996, 21.2.1995)
120 REM
130 CLEAR:DEFSTR a:DEFINT b-z
140 OUT &EF00,&FF:'inactive
150 ladr=&A000
160 IF PEEK(ladr)=&C3 THEN 200
170 PRINT"Please wait...":MEMORY ladr-1
180 sum=0:FOR i=&A000 TO &A245:READ t$:POKE i,VAL("&"+t$):sum=UNT(sum+PEEK(i)):NEXT:READ t$:IF VAL("&"+t$)<>sum THEN PRINT"Checksum ERROR !":POKE ladr,0:STOP
190 'LOAD"!CPCPARA.BIN",ladr
200 MODE 2:PRINT"R)eceive or S)end ? ";
210 a=UPPER$(INKEY$):IF a<>"R" AND a<>"S" THEN 210
220 PRINT a
230 IF a="S" THEN GOTO 490
240 REM
250 REM Receiving Part
260 REM
270 ladr=&A000:rbyte=ladr:rstr=rbyte+3:rfile=rstr+3
280 MODE 2:PRINT"CPCPARA v1.2 - receiving part"
290 PRINT"This program allows you to receive files from a PC using the parallel adapter":PRINT
300 a=SPACE$(255)
310 CALL rstr,@a:IF LEN(a)=0 THEN 310
320 IF a="TRM:" THEN 410
330 PRINT"Receiving file ";a
340 OPENOUT "!"+a
350 CALL rstr,@a:IF LEN(a)>0 THEN PRINT#9,a;:GOTO 350
360 CLOSEOUT
370 PRINT"Ok.":PRINT:GOTO 300
380 END
390 '
400 'Receive-Terminal
410 CLS:PRINT"Terminal Mode"
420 CALL rstr,@a:IF LEN(a)=0 THEN 420
430 PRINT a;
440 GOTO 420
450 '
460 REM
470 REM Sending Part
480 REM
490 ladr=&A000:sbyte=ladr+9:sstr=sbyte+3:sfile=sstr+3:ec=sfile+3:fastf=ec+1
500 IF PEEK(ladr)<>&C3 THEN RUN
510 buffer=&9000:CLOSEIN:CLOSEOUT:MEMORY buffer-1
520 MODE 2:PRINT"CPCPARA v1.2 - sending part"
530 PRINT"This program allows you to send files to a PC using the parallel adapter"
531 PRINT:PRINT"F)ast sending (AMSDOS only) or S)low sending (tape, Vortex) ?";
532 a=UPPER$(INKEY$):IF a<>"F" AND a<>"S" THEN 532
533 PRINT a
534 IF a="F" THEN POKE fastf,1 ELSE POKE fastf,0
540 PRINT:PRINT"File to send (ret=Terminal, !=test): ":INPUT a
550 IF a="" THEN 760 ELSE IF a="!" THEN 880
560 PRINT"Sending a File ..."
570 CALL sfile,@a,buffer
580 IF PEEK(ec)=1 THEN PRINT"Error ! Press a key to retry ...":CALL &BB18:GOTO 570
590 PRINT"Ok.":PRINT:GOTO 540
600 '
610 'Sendfile in Basic (not used any more):
620 li=0
630 OPENIN "!"+a
640 i=INSTR(a,":"):IF i>0 THEN a=RIGHT$(a,LEN(a)-i)
650 CALL sstr,@a:IF PEEK(ec)=1 THEN 650
660 WHILE NOT EOF:LINE INPUT #9,a
670 PRINT"Line ";li;CHR$(13);: li=li+1
680 a=a+CHR$(13)+CHR$(10)
690 CALL sstr,@a:IF PEEK(ec)=1 THEN 690
700 WEND
710 CALL sbyte,0:'send end
720 CLOSEIN
730 END
740 '
750 'Terminal
760 CLS:PRINT"CPC-Terminal started."
770 PRINT"Exit with '#'."
780 a="TRM:":CALL sstr,@a:'terminal mode
790 IF PEEK(ec)=1 THEN GOTO 780
800 INPUT "> ",a
810 IF a="#" THEN 850
820 IF a="" THEN a=CHR$(13)
830 CALL sstr,@a:IF PEEK(ec)=1 THEN GOTO 830
840 GOTO 800
850 CALL sbyte,0:'send end
860 END
870 '
880 PRINT"test adapter"
890 PRINT"sending nibble..."
900 busy=INP(&F500) AND &40
910 FOR i=0 TO &FF STEP 8
920 PRINT HEX$(i8);" ";
930 OUT &EF00,i:IF (INP(&F500) AND &40)=busy THEN 930
940 busy=busy XOR &40
950 NEXT
960 GOTO 910
970 END
980 '
988 'Create DATA lines
989 LOAD"!CPCPARA.BIN",&A000
990 OPENOUT"!DATA.BAS":sum=0:li=2000:FOR i=&A000 TO &A245:IF (i AND &F) = 0 THEN PRINT#9:PRINT#9,li;"DATA ";:li=li+10
991 PRINT#9,HEX$(PEEK(i),2);:sum=UNT(sum+PEEK(i)):IF (i AND &F) <> 15 THEN PRINT#9,",";
993 NEXT:PRINT#9,HEX$(sum,4):CLOSEOUT:STOP
999 '
2000 DATA C3,A9,A0,C3,BC,A0,C3,CD,A0,C3,08,A2,C3,15,A2,C3
2010 DATA 25,A2,00,01,C5,D5,E5,11,20,4E,06,F5,ED,78,E6,40
2020 DATA 6F,3E,BF,06,EF,ED,79,06,F5,ED,78,4F,E6,40,AD,20
2030 DATA 06,1B,7A,B3,20,F1,37,F5,3E,FF,06,EF,ED,79,F1,38
2040 DATA 3A,1E,00,16,08,F3,21,10,27,06,F5,79,E6,40,4F,ED
2050 DATA 78,E6,40,A9,20,08,2B,7C,B5,20,F4,37,18,1D,3E,DF
2060 DATA 06,EF,ED,79,ED,79,06,F5,ED,78,FB,4F,17,17,CB,1B
2070 DATA 06,EF,3E,FF,ED,79,15,20,CC,A7,7B,E1,D1,C1,FB,C9
2080 DATA CD,14,A0,38,23,77,B7,37,28,1E,47,23,7E,23,66,6F
2090 DATA 04,18,12,11,0A,00,CD,14,A0,30,08,1B,7A,B3,20,F6
2100 DATA 37,18,05,77,23,10,EC,A7,C9,FE,01,C0,DD,6E,00,DD
2110 DATA 66,01,CD,14,A0,77,3E,00,8F,23,77,C9,FE,01,C0,DD
2120 DATA 6E,00,DD,66,01,E5,CD,80,A0,E1,D0,36,00,C9,F1,37
2130 DATA C9,F5,CD,DC,A0,38,F7,F1,0F,0F,0F,0F,C5,D5,E6,0F
2140 DATA 07,07,07,E6,7F,4F,11,30,75,06,F5,ED,78,E6,40,28
2150 DATA 0B,1B,7A,B3,20,F3,37,18,15,11,30,75,06,EF,ED,49
2160 DATA 06,F5,ED,78,E6,40,20,06,1B,7A,B3,20,F3,37,3E,FF
2170 DATA 06,EF,ED,79,D1,C1,C9,78,B1,C8,79,CD,D1,A0,D8,03
2180 DATA 18,06,7E,23,CD,D1,A0,D8,0B,78,B1,20,F5,C9,47,E5
2190 DATA C5,CD,77,BC,C1,E3,DD,E1,3F,D8,48,06,00,CD,17,A1
2200 DATA 38,79,DD,7E,12,FE,16,30,28,21,46,A2,54,5D,D5,13
2210 DATA 36,00,01,7F,00,ED,B0,D1,DD,E5,E1,01,45,00,ED,B0
2220 DATA 21,46,A2,01,80,00,CD,17,A1,38,50,3A,13,A0,B7,28
2230 DATA 5B,ED,5B,7D,BE,CD,80,BC,38,04,FE,0F,28,42,21,68
2240 DATA 00,19,4E,36,00,23,46,36,00,21,95,00,19,7E,91,77
2250 DATA 23,7E,98,77,23,7E,DE,00,77,21,53,00,19,7E,23,66
2260 DATA 6F,2B,03,59,50,7A,B3,28,C8,01,80,00,EB,B7,ED,42
2270 DATA 30,03,B7,09,4D,EB,CD,17,A1,30,EA,CD,7A,BC,37,C9
2280 DATA 3E,00,CD,D1,A0,38,F4,CD,7A,BC,3F,C9,21,46,A2,06
2290 DATA 80,CD,80,BC,77,23,38,04,FE,0F,28,0F,10,F3,01,80
2300 DATA 00,21,46,A2,CD,17,A1,38,D2,18,E1,3E,80,90,4F,06
2310 DATA 00,21,46,A2,CD,17,A1,38,C2,18,C5,DD,6E,00,DD,66
2320 DATA 01,7E,23,5E,23,56,EB,C9,FE,01,37,20,31,DD,7E,00
2330 DATA CD,D1,A0,18,29,FE,01,37,20,24,CD,FB,A1,4F,06,00
2340 DATA CD,17,A1,18,19,FE,02,37,20,14,DD,5E,00,DD,56,01
2350 DATA DD,23,DD,23,D5,CD,FB,A1,D1,CD,2E,A1,18,00,3E,00
2360 DATA CE,00,32,12,A0,C9, 0232Nous pourrons également déplacer le programme Turbo Transfer PC -> CPC v0.92 par Tino Longueira , appelé à nous servir ultérieurement.
Pour ceux qui possédent un CPC464 ou un CPC464+ , il reste une solutiorr: Cpc2tape.
Celui-ci désigne un programme qui permet de convertir un logiciel image (ie : *.dsk) en fichier audio *,wav ; par la suite, il nous faudra copier ce fichier audio sur une cassette.
D'autre part, nous devrons éventuellement changer la fréquence d'échantillonnage selon la vitesse du magnétophone que nous utiliserons; signalons également que le programme Cpc2tape fonctionne exclusivement en mode MSDOS, ce qui impose des manipulations en conséquence. 
Ici une version du cable pour CPC ancienne generation
https://cpcrulez.fr | ★ AMSTRAD CPC ★ DOWNLOAD ★ |
|
CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 850 millisecondes et consultée 5101 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
|
