AMSDOS : CHARGEMENT DES FICHIERS OPTION P Le programme suivant permet de charger en mémoire centrale des fichiers préalablement sauvés avec l'option P.
Le fichier à charger peut se trouver sur disque ou sur cassette. Remarque : si le fichier cassette est trop long, vous éprouverez quelques problèmes de chargement malheureusement insolubles.
— Lancez le programme. Celui-ci s'installe puis s'efface de la mémoire.
— Tapez CALL &A400 et le chargement commence. NOTE IMPORTANTE : ce programme est proposé en version 664 - 6128, les possesseurs de 464 doivent modifier la valeur : 66 de la ligne 230 en 83. Vous trouverez, à l'issue du programme Basic, la source de la routine en langage machine contenue dans ce programme.
Programme Basic 10 REM LECTURE PROGRAMME BASIC OPTION P
20 REM SUR DISQUE OU CASSETTE
30 REM DANIEL MARTIN LIEGE 1985
40 REM
50 MEMORY &9FFF
60 CLS
70 INPUT"source Cassette ou Disque (C/D) ";s$
80 s$=UPPER(s$)
90 IF s$="C" THEN |TAPE.IN : l=0 s GOTO 180
100 IF s$<>"D" THEN GOTO 60
110 |DISC
120 PRINT
130 INPUT"nom du -fichier " ;n$
140 l=LEN(n*)
150 FOR i=1 TO l
160 POKE &A430+I,ASC(MID*(n$,i, 1) >
170 NEXT i
180 FOR i =&A400 TO &A42B
190 READ a$
200 POKE i , VAL ("&"+a$>
210 NEXT i
220 POKE &A401,1
230 DATA 06,00,21,31,a4,11, 00,a0,cd,77,bc,30,18,c5,21, 70,01,cd,83,bc,c1,21,70,01,09,eb,21,66,ae,06,04,73,23, 72,23,10,fa,cd,7a,bc,c9
240 CLS
250 PRINT"tapez CALL &A400"
260 NEWListing Assembleur
Hisoft GENA3.1 Assembler- Page 1.
Pass 1 errors: 00
; 10 ; ROUTINE INTERNE DU PROGRAMME
; 20 ; LECBASP.BAS
; 30 ; DANIEL MARTIN LIEGE 19B5
; 40 ;
A400 ;50 ORG #A400
0170 ;60 BASIC: EQU #170
AE66 ;70 FINBAS: EQU #AE66
; 80 ; ;EQU #AE83 POUR 464
; 90 ; ;EQU #AE66 POUR 664-6128
A431 ; 100 NOMFIC: EQU #A431
A000 ; 110 TAMPON: EQU #A000
BC77 ; 120 OPEN: EQU #BC77
BC83 ; 130 READ: EQU #BCB3
BC7A ; 140 CLOSE: EQU #BC7A
A400 0600 150 LD B,0
A402 2131A4 160 LD HL,NOMFIC
A405 1100A0 170 LD DE,TAMPON
A408 CD77BC 180 CALL OPEN
A40B 3018 190 JR NC,FIN
A40D C5 ;200 PUSH BC
A40E 217001 210 LD HL,BASIC
A411 CD83BC 220 CALL READ
A414 Cl ;230 POP BC
A415 217001 240 LD HL,BASIC
A418 09 ;250 ADD HL,BC
A419 EB ;260 EX DE,HL
A41A 2166AE 270 LD HL,FINBAS
A41D 0604 280 LD B,4
A41F 73 ;290 BOUCLE: LD (HL),E
A420 23 ;300 INC HL
A421 72 ;310 LD (HL),D
A422 23 ;320 INC HL
A423 10FA 330 DJNZ BOUCLE
A425 CD7ABC 340 FIN: CALL CLOSE
A428 C9 ;350 RETCPCrulez[Content Management System] v8.7-desktop/c
Page créée en 294 millisecondes et consultée 1382 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. |
|
