Le Topic des Vieux Cons (r)

[Pang]

En 1977, j'ai écrit des programmes en Cobol sur des cartes perforées...

 

En 1977 ??

Ah oui !!

 

En 1977, je jouais à ça :

 

[256JMAN]

des fois qu'il y en ai qui ne soit pas au courant il y a un musée de L'informatique sur Paris ...

[zebuntu]

J'passai dans l'coin... j'ai vu d'la lumière...

 

Ben, quoi !? Aucun Amigaïste ici ? comment ça s'fait ?

/me me sens un peu seul du coup...¹

 

Allez ! A la volée, à chaud, et de mémoire : strlen() en assembleur 68k² :

_strlen:
; en entrée :
;   A0 : pointeur sur le début de la chaîne (chaîne ASCII type C, se terminant par un '\0')
; sortie :
;   D0 : longueur de la chaîne en nombre de caractères
  move.l A0,D0
.repeat:
  tst.b (A0)+
  bne.s .repeat
  sub.l A0,D0
  not.l D0
  rts

Qui dit mieux ?

 

EDIT :

1: wooops ! j'avais raté une page à la lecture...

2: par bibi, et optimisé

Modifié le 18 avril 2008 par zebuntu