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...

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

Interfaces d'entrées / sorties

(c) Courbis www.courbis.fr   Page 127  2] PROGRAMME DE RECEPTION SUR APPLE II ( Le programme en langage machine de l'apple 'REC..' est ne'cessaire).  RECAPPLE 10  PRINT CHR$(4)'BLOAD REC..'15  GOTO 1000  20  POKE 3*256+16*5+2,425  POKE 771,15: POKE 772,0 30  CALL 76840  L=0: W=1 50  FOR X=0 TO 460  L=L+W*PEEK(AD+X):W=W*16 70  NEXT75  PRINT 'SIZE= ';L 80  LE=2*L85  POKE 771,LE-256*INT(LE/256) 90  POKE 772,INT(LE/256)95  POKE -16295,0: POKE -16296,0 100 CALL 768110 RETURN  500 HOME: PRINT '28 LINK': PRINT '(C) S.LALANDE & P.COURBIS'505 PRINT: PRINT: PRINT 'PRET A RECEVOIR....' 510 AD=32*256: GOSUB 20515 N$= '' 520 A=PEEK(AD+4)+16*PEEK(AD+5)530 FOR X=0 TO A-1 540 N$= N$+ B$( PEEK(AD+6+2*X) + 16 * PEEK(AD+7+2*X) )550 NEXT 560 PRINT 'NAME= ';N$600 PRINT 'SAUVEGARDE' 610 D$=CHR$(4): PRINT D$;'BSAVE';N$;',A$2000,L'; STR$(LE)680 PRINT 'OBJET=' 690 AD= AD + 2 * A + 8700 FOR X=0 TO L-A-5 710 PRINT A$( PEEK(AD+2*X) + 16 * PEEK(AD+2*X+1) );720 NEXT 800 PRINT: PRINT810 PRINT 'ENCORE ? (O/N) ';: GET A$ 820 IF A$<>'N' THEN GOTO 500900 END  1000 DIM A$(256): RESTORE1010 FOR I=0 TO 255 1020 IF I=10 THEN A$(I)= CHR$(13): NEXT1030 IF I<32 THEN A$(I)= '.': NEXT 1040 IF I<96 THEN A$(I)= CHR$(I): NEXT1050 IF I=96 OR I>122 AND I < 148 THEN READ C$: A$(I)=C$: NEXT 1060 IF I<123 THEN A$(I)= CHR$(I-32): NEXT1070 IF I>148 THEN A$(I)= '.': NEXT 1100 DIM B$(256)1110 FOR I=O TO 255 1120 IF I>32 AND I<96 THEN B$(I)= CHR$(I): NEXT1130 IF I>96 AND I<123 THEN B$(I)= CHR$(I-32): NEXT 1140 B$(I)= ' ': NEXT1150 GOTO 500 1200 DATA '`','(','!',')','-','#',' ','/','*','V','S','E','D','#','&','=<','>=','#','A','->','<- ','U','LF',''',  '<<','>>'  V28 #3 (C) 2001 www.courbis.com 8/03/2001, 12:45127
Section prcdente : Interfaces d Page prcdente 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.
ipv6 ready ipv6 test
Suivre ce site :
Recommander cette page :
Bookmark and Share
Traduire :