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 230 - Courbis, acteur de l'Internet depuis 1988
Section prcdente : Programmes en langage-machine Page prcdente Sommaire Page suivante Section suivante : Programmes mathématiques

Programmes en langage-machine

(c) Courbis www.courbis.fr   Page 227  TELECRAN Ce programme utilise POKE, UNPIXEL, LCD-> et ->LCD Il simule un mini-te'le'cran sur la HP28. Les touches de commande sont: INS pour terminer la session (sauve l'e'cran dans la pile).DEL pour basculer entre le modes e'criture (indicateur Alpha allume') et effacement  (indicateur Alpha e'teint).Les quatres fle`ches pour se de'placer.  De'marrage du programme :  Lancer le programme TELECRAN pour travailler sur un e'cran vide, lancerTELE pour travailler sur l'e'cran actuel, ou TEL pour travailler sur l'e'cran sauve'  dans la pile... Listing des programmes (se placer en mode HEXADECIMAL pour les entrer) ALPHON Pour HP28c << #40008 'FFFFF000' POKE >>  Pour HP28s << #FF808 'FFFFF000' POKE >>  ALPHOFF Pour HP28c << #40008 '00000000' POKE >>  Pour HP28s << #FF808 '00000000' POKE >>  TELAFF <<X Y R->C IF DR 1 == THEN PIXEL ELSE UNPIXEL  END >>  TELINS <<TELAFF LCD-> {X Y DR PPAR} PURGE CLMF ABORT>> TELDEL <<1 DR - DUP `DR' STO IF  1 == THEN ALPHON ELSE  APLHOFF END>>  TELRIGHT <<TELAFF X 1 + X 137 == - `X' STO >> TELLEFT <<TELAFF X 1 - X 0 == + `X' STO >> TELDOWN <<TELAFF Y 1 - Y 0 == + `Y' STO >> TELUP <<TELAFF Y 1 + Y 32 == - `Y' STO >> TELE << (1,1) PMIN (137,32) PMAX 68 `X' STO 16 `Y'  STO 0 `DR' STO ALPHOFF DO 'TEL' 1 DO DROP '[INS[DEL[UP[RIGHT[DOWN[LEFT[' DO X Y R->C DUP PIXEL UNPIXEL UNTIL KEY END UNTIL '[' DUP2 + + ROT SWAP POS END + STR-> UNTIL 0 END >>  TEL << ->LCD TELE >> TELECRAN << CLLCD TELE >>  V28 #4 (C) 2001 www.courbis.com 8/03/2001, 12:46227
Section prcdente : Programmes en langage-machine Page prcdente Sommaire Page suivante Section suivante : Programmes mathématiques
© 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 :