Accueil > Réalisations > Publications > Ouvrages > Ouvrage sur la HP28 c/s > Voyage au centre de la HP28 c/s : lire le livre en ligne

Voyage au centre de la HP28 c/s : lire le livre en ligne

mardi 27 juin 2006, par Paul Courbis

Si vous ne voulez pas télécharger l’ensemble de l’ouvrage, vous pouvez le lire en ligne ici...

Si vous désirez une version papier, un « reprint » est disponible via Amazon !

Voyage28 - page 133 - Courbis, acteur de l'Internet depuis 1988
Section précédente : Interfaces d Page précédente Sommaire Page suivante Section suivante : Des idées !

Interfaces d'entrées / sorties

(c) Courbis www.courbis.fr   Page 130  3] PROGRAMME D'EMISSION SUR APPLE (B1 est a` re'gler. C'est la longueur d'e'mission d'un bit long, si la sensibilite'de la machine est suffisamment bonne pour de'tecter la diffe'rence entre les longs et les courts, vous pouvez remplacer la boucle en 230 par unecommande plus courte en exe'cution: E=0 (par exemple)).  EMIAPPLE 5  B1=1 10 HOME: PRINT '28 LINK': print'(C) S.LALANDE & P.COURBIS' 15 PRINT 'EMSSION HP' 20 PRINT: PRINT 25 PRINT: PRINT '(* POUR CATALOG)' 30 INPUT 'NOM = ';N$ 35 IF N$='*' THEN PRINT CHR$(4)'CATALOG': GOTO 25 40 PRINT CHR$(4)'BLOAD';N$ 45 AD= 32 * 256 50 L=PEEK(AD)*100+PEEK(AD+1)*1600+PEEK(AD+2)+PEEK(AD+3)*16 55 PRINT 'LONGUEUR TOTALE = ';L 60 LE=2*L 65 PRINT 'DEMAREZ LE PROGRAMME `IN' SUR L'HP...' 70 PRINT 'PRESS A KEY TO START';: GET A$ 75 L=4: GOSUB 100 80 WAIT -16287,128 85 L=LE: GOSUB 100 90 GOTO 500  100 FOR X=0 TO L/2-1 110 T= PEEK(AD+2*X): GOSUB 200 120 T= PEEK(AD+2*X+1): GOSUB 200 130 NEXT 140 RETURN  200 FOR I=3 TO 0 STEP -1 210 W= INT( T / 2^I ): T= T - W * 2^I 220 IF W=0 THEN POKE -16295,0: POKE -16296,0: GOTO 240 230 POKE -16295,0: FOR E=1 TO B1: NEXT: POKE -16296,0 240 NEXT 250 RETURN  500 PRINT: PRINT 'THE END!' 510 PRINT 'ENCORE ? (O/N) ';: GET A$ 520 IF A$<>'N' THEN GOTO 10 530 END  V28 #3 (C) 2001 www.courbis.com 8/03/2001, 12:45130
Section précédente : Interfaces d Page précédente Sommaire Page suivante Section suivante : Des idées !
© Courbis 1988-2010
Tous droits réservés
Permalien
Faire un don avec Paypal Le livre est entièrement gratuit mais vous pouvez
avec Paypal pour participer aux frais d'hébergement de ce site... Merci !

Messages

Un message, un commentaire ?

modération a priori

Ce forum est modéré a priori : votre contribution n’apparaîtra qu’après avoir été validée par un administrateur du site.

Qui êtes-vous ?
Votre message

Pour créer des paragraphes, laissez simplement des lignes vides.

Les spams donneront systématiquement lieu à dépôt de plainte. Les messages peu aimables ou comportant trop de fautes d'orthographe seront purement et simplement supprimés sans publication. Aucune obligation de publication ne pourra être opposée au webmaster, sauf éventuel droit de réponse dûment justifié.
ipv6 ready ipv6 test
Suivre ce site :
Recommander cette page :
Bookmark and Share
Traduire :