Merci Charo. Mais ça passe par le SIO, non ? En fait je cherchais s'il existait un moyen de le sauvegarder en tant que fichier sur la machine.charognard a écrit :pans ma grande bontée je te précise même la page
279
et même la syntaxe
W start address, end address
R
ou
R start address (Pour les relogeables)
Wow, je noteMarcus von Cube a écrit :Sur mon G850:
Ça marche.Code : Tout sélectionner
10 ORG 100H 20 JR START 30STR: DB 'TEXT' 35STREND: 40LEN EQU STREND-STR 50START: LD A,LEN 60 RET
Certainement que si, mais mes seuls souvenirs de l'assembleur viennent de magazines pour Amstrad CPC (et d'un bouquin sur l'asm d'Alice). Et dans mes souvenirs cette methode de push/pop était souvent utilisée. Je l'ai donc fait ici, en attendant d'en savoir plus (ce programme contient tout ce que je sais actuellement sur l'assembleur, càd pas grand chose encorecharognard a écrit :tu te fais bien chier avec push et pop ni a t'il pas suffisament d'autre registre ?
)Je ne savais pas non plus que l'on pouvait retirer une enchère, n'étant pas un habitué d'eBay.shlomolefebvre a écrit :Tiens, je n'avais pas vu ce fil.
Je vous avoue que je ne m'attendais absolument pas à ce que mon 850 monte autant. J'en ai d'ailleurs parlé avec mon ami Paul Tergeist : j'étais sidéré. J'en espérais 60-70, 100 maxi ! J'en avais fait venir 2 du Japon, dans le but d'en revendre un. Etant plus collectionneur que commerçant, je garde le second.
Concernant l'enchère qui est redescendue, j'aurai aussi appris un truc : je ne savais pas qu'on pouvait retirer une enchère. Le gars qui avait enchéri dans les 200 a mis comme excuse "mauvais montant saisi". Je ne le connais ni d'Eve ni d'Adam. De toute manière, le prix que tu as mis, febed, me comblait au-delà de toute espérance ! Joyeux anniversaire ! Vas-tu acheter le câble ?
Guillaume, qui se tâte pour un câble
)Code : Tout sélectionner
ORG 100H ; Début du source, on dit qu'on stockera le code machine à &H100 (soit 256)
PUTC EQU 0BE62H ; Pour afficher un caractère
PUTS EQU 0BFF1H ; Pour afficher une chaîne
WAITK EQU 0BCFDH ; Attendre l'appui d'une touche (renvoie le code DE LA TOUCHE et non le code ASCII)
K2ASC EQU 0BE56H ; Convertit un code de touche en code ASCII
CALL CLRSCR ; Appelle une routine plus bas pour effacer l'écran
LD DE,0102H ; DE contient les coordonnées sur l'écran : D->x, E->y
LD HL,STR1 ; HL contient l'adresse mémoire ou est stockée la chaîne de caractères
LD B,LSTR1 ; B contient la longueur de la chaîne de caractères
CALL PUTS ; On affiche la chaîne
CALL WAITK ; On attend l'appui sur une touche (code de la touche --> Registre A)
CALL K2ASC ; On convertit le code en ASCII (avec A en entrée, ça tombe bien on l'a eu juste avant)
LD DE,0115H ; On se positionne en (1,21)
CALL PUTC ; Et on affiche le caractère tapé
RET ; Et c'est fini
STR1: DB 'Tapez une touche :'
LSTR1 EQU 18 ; Longueur de STR1
; Là j'ai fait une petite routine pour effacer l'écran. J'imagine qu'on peut faire mieux que ça ;)
LGVIDE: DB ' ' ; (24 espaces)
CLRSCR: LD B,6 ; Il y a 6 lignes sur l'écran. On va boucler dessus
BCLSC: LD E,0 ; Début de la boucle. On se positionne sur la colonne 0
LD D,B ; Et sur la ligne indiquée par B
DEC D ; moins 1 pour que la 6e ligne soit bien notée "5"
LD HL,LGVIDE ; On dit quelle chaîne utiliser
PUSH BC ; On sauvegarde BC car B va servir juste après pour...
LD B,24 ; ... stocker la longueur de la chaîne
CALL PUTS ; On affiche la chaîne, soit la ligne blanche
POP BC ; On récupère BC pour retrouver notre B compteur de lignes
DJNZ BCLSC ; Fin de la boucle : DJNZ correspond en gros en BASIC à : B=B-1:IF B<>0 GOTO *BCLSC
RET ; Fin de la routine
END ; Fin du source
Code : Tout sélectionner
OPEN "DONNEES.DAT" FOR INPUT AS #1