http://www.casiotheque.com/oisac/ 2008-11-12T01:11:35+01:00 http://www.casiotheque.com/oisac/ http://www.casiotheque.com/oisac/lib/images/favicon.ico text/html 2008-11-05T14:34:31+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=accueil&rev=1225892071&do=diff Considérations générales Le FX-850P est une calculatrice scientifique de la marque japonaise CASIO commercialisée en Europe fin 1986, début 1987. Programmable en langage BASIC, cet appareil est considéré à juste titre comme un véritable ordinateur de poche (en anglais ”Pocket Computer” ou “Pocket”), d'où l'emploi du masculin à son égard. text/html 2008-11-05T13:48:43+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=lib2p9&rev=1225889323&do=diff Le logiciel suivant vous permet de copier le code BASIC d'une librairie en P9, là ou les autres programmes du genre ne font que modifier les pointeurs de de la zone P9, rendant toute édition/modification impossible, et donc fatale (plantage grave avec ALL RESET obligatoire à la clé !). text/html 2008-11-04T23:40:55+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=scientific_library_116&rev=1225838455&do=diff La librairie scientifique présente dans le FX-850P est un ensemble de programmes BASIC stockés en ROM qui abordent les domaines suivants : * Mathématiques * Formules scientifiques * Statistiques Le principe des librairies est un véritable plus, apportant une forte valeur ajoutée à cette machine par rapport aux modèles des concurrents. text/html 2008-11-04T22:25:50+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=libcounter&rev=1225833950&do=diff Le logiciel suivant vous permet de connaitre le nombre exact de programmes contenus dans la librairie ainsi que la taille (en octets) de chacun d'entre eux. Listing 1 'OISAC' 10 CLEAR:DEFSEG=0 20 A=PEEK1718+PEEK1719*256+PEEK1720*65536 30 B=PEEK1724+PEEK1725*256+PEEK1726*65536 40 CLS:PRINT "THERE IS";(B-A)/15;"PROGRAM IN LIB0" 50 FOR I=A TO B-15 STEP 15 60 DEFSEG=I/16:C=I-INT(I/16)*16+6:SZ1=PEEK(C-1)*65536+PEEK(C-2)*256+PEEK(C-3):SZ1=SZ1-(PEEK(C-4)*65536+PEEK(C-5)*256+PEEK(C-6)):SZ=SZ+SZ1 70 $… text/html 2008-11-04T22:07:30+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=source_0400&rev=1225832850&do=diff Listing : FX-850P / FX-880P / FX-840P 10 CLEAR:CLS:DEFSEG=0:K=PEEK(&H6B4)/4+PEEK(&H6B5)*64 20 IF K<32 THENK1=8:K2=K-K1 30 IF K=32 OR K=64 THENK1=32:K2=K-K1 40 IF K=40THENPOKE&H8000,10:POKE0,0:IFPEEK&HA000=10THENK1=32:K2=8ELSEK1=8:K2=32 50 PRINT"Main";K1;TAB(8);"Kbyte Option";K2;"Kbyte";:PRINT:A=64:D=1:A1=0 70 GOSUB1000:A=A+A:D=(D+D)MOD256:IF A<K*1024 THEN70 80 FORI=1 TO9:A=K*1024-A1-1:IF I=5 OR I=9 THEND=&H80 ELSE D=&H20 100 GOSUB1010:IF A1=0 THENA1=1 ELSEA1=A1*2 110 NEXT 120 A=K*1024-A1-1:GOS… text/html 2008-11-04T21:57:11+01:00 chrix http://www.casiotheque.com/oisac/doku.php?id=source_0910&rev=1225832231&do=diff Listing 5 GOTO180 80 f=1: x=PEEK(&H673)*256+PEEK(&H672):FOR w=0 TO 4:a(w)=PEEK(&H65F+w*2)*256+PEEK(&H65E+w*2):NEXT w:a(5)=PEEK(&H668) 90 b$(0)="":FOR w=&H67E TO &H683:b$(0)=b$(0)+CHR$(PEEK(w)):NEXT w 95 CLS:IFp=1THEN LPRINT"Break point PC:";HEX$(x);" ";b$(0);TAB(0);" ";HEX$(a(0));" ";HEX$(a(1));" ";HEX$(a(2));" ";HEX$(a(3));" ";HEX$(a(4));" ";RIGHT$(HEX$(a(5)),1) 100 PRINT"Break point PC:";HEX$(x);" ";b$(0);TAB(0);" ";HEX$(a(0));" ";HEX$(a(1));" ";HEX$(a(2));" ";HEX$(a(3));" ";HEX$…