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.73-desktop/c Page créée en 581 millisecondes et consultée 1441 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. |
|