Sin categoría

Test del estado de las calculadoras Casio FX-880p y FX-850p

Posted on by javitopo

En nuestras queridas calculadoras existen varios programas de la biblioteca (librerías) no documentados en el manual y que tampoco aparecen en el papelito adjunto de la lista de programas que viene con la calculadora.

Algunos de estos programas ocultos son :

0400 ->Programa de testeo de la calculadora

0800 ->Programa para la impresora

0900 -> Convertidor de PB100 a FX-850P

Para ejecutar el programa tienes que pulsar el número del programa y luego la tecla “LIB”

 

De esos 3, el que me parece a mi más interesante es el 0400, el programa de testeo.

Te informa de la memoria instalada en la Casio, también te dice cuanta memoria tienes instalada en el módulo de expansión.

Test casio 1

Testea la RAM y la ROM y te dice si están en buen estado

Test casio 2

Me muestra todos los pixeles de la calculadora encendidos en tres pantallas diferentes, para que puedas ver con facilidad si hay algún pixel que falla.

Test casio 3Test casio 4Test casio 5

Por último saca un “Printer CHECK” que no sé exactamente si se referirá a un chequeo del puerto o más bien a que conectes una impresora para chequearla.

Test casio 6

El código del programa exacto está en el famoso anexo al manual de Alquimista

 

Librería: 0400              Test de la calculadora

 

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:GOSUB1000:A1=A1*2:IF   A1<K*1024 THEN120
130 PRINT”   OK    RAM”;:GOSUB10000:PRINT:DEFSEG=&H4000
160 ROM=(PEEK(4)+1+PEEK(5)*256)*2
170 IF   PEEK(0)<>&H43 THENPRINT”NG ROM 1″;:GOTO1030
180 IF   ROM<>1024 THEN200
190 D1=PEEK(&H5955):D2=PEEK&HA6AA:D3=PEEK&HFFFF:DEFSEG=&H5000
191 D4=PEEK0:D5=PEEK&H5955:D6=PEEK&HA6AA
192 IF   PEEK&HFFFF<>&H20 THENPRINT”NG ROM 2″;:GOTO1030
193 PRINT”OK   512K*2 ROM?”;:PRINT
194 PRINTRIGHT$(HEX$(D1),2);”   “;RIGHT$(HEX$(D2),2);” “;RIGHT$(HEX$(D3),2);” “;RIGHT$(HEX$(D4),2);”   “;RIGHT$(HEX$(D5),2);” “;RIGHT$(HEX$(D6),2);””;:GOTO210
200 IF   PEEK(ROM*128-1)<>&H20 THENPRINT”NG ROM 1″;:GOTO1030
201 D1=PEEK&H5955:IF   ROM=256 THEND2=PEEK&H26AA ELSE D2=PEEK&HA6AA
202 PRINT”OK”;STR$(ROM);”K   ROM?”;:PRINT
203 PRINTRIGHT$(HEX$(D1),2);”   “;RIGHT$(HEX$(D2),2);” “;
210 GOSUB10000
220 CLS:FOR   I=0 TO 63:PRINTCHR$(&HFF);:NEXT:LOCATE 0,0
230 DEFCHR$(&HFF)=”FFFFFFFFFF”:GOSUB10000:DEFCHR$(&HFF)=”0000000000″:   GOSUB10000
250 DEFCHR$(&HFF)=”AA55AA55AA”:GOSUB10000:DEFCHR$(&HFF)=”55AA55AA55″:TRON:   GOSUB10000:TROFF
280 CLS:PRINT”Printer   CHECK”;:LPRINT:GOSUB10000
290 LPRINT”Main”;K1;”Kbyte   Option”;K2;”Kbyte”
320 FOR   I=32 TO 255:IF I=&H7F THENI=&H80
330 LPRINTCHR$(I);:NEXT:LPRINT
350 PRINT”RS   232C CHECK”;:PRINT:GOSUB10000
360 OPEN   “COM0:5,E,8,2,C,D,C,B,N” AS #1:PRINT#1,123:INPUT #1,D
390 CLOSE:IF   D<> 123 THENPRINT”NG RS 232C”;:GOTO1030
410 PRINT”OK   RS 232C”;:GOSUB10000:PRINT
420 PRINT”MT   CHECK    <REC>”;:PRINT:GOSUB10000
430 OPEN   “CAS0:TEST” FOR OUTPUT AS #1:PRINT#1,”ABC”:CLOSE
460 PRINT”MT   <REW> and <PLAY>”;:PRINT:GOSUB10000
470 OPEN   “CAS0:TEST” FOR INPUT AS #1:INPUT #1,A$:CLOSE
490 IF   A$<>”ABC” THENPRINT”NG MT”;:PRINT:GOTO1030
510 PRINT”OK   MT”;:PRINT
520 END
1000 POKE   A,D
1010 IF   PEEKA=D THENRETURN
1020 IF   A>=K1 THENPRINT”NG RAM 2″; ELSE PRINT “NG RAM 1”;
1030 BEEP:GOTO1030
10000 BEEP:IF   INPUT$(1,@)=CHR$(0) THEN10000ELSE RETURN
javitopo

27 comentarios de “Test del estado de las calculadoras Casio FX-880p y FX-850p”

    • javitopo dice:

      Gracias por tu comentario Daniel, quiero subir a la web los manuales oficiales y también subiré el manual secreto de Alquimista, en él hay muchas cosas pero a mi este del test me parece el más interesante.

  2. itamar dice:

    Estimado Javitopo muy buena información sobre los programas secretos de la calculadora,en mi calculadora ya no encuentro los programas de la librería ,por una mala practica en cambio de pilas .
    Pregunta es posible recuperarla?

    • javitopo dice:

      La respuesta corta es, no tiene solución ni reparación.

      La respuesta larga es, se ha dañado la conexión flexible entre la placa base y la pantalla, por eso salen pixeles muertos, repararla es muy complicado, yo nunca lo he hecho.

      Vi una vez una que se reparo con un soldador que acababa en una punta cuadrada grande, calentó muy ligeramente los contactos y se le fueron los pixeles muertos. Pero lo dicho, repararla es muy muy complicado porque ese conector flexible tiene muchísimos contactos y muy juntos. No te aconsejo ni intentarlo.

      Un saludo.

  5. Humberto dice:

    Urgente
    humberto jesus matos beceira
    11:15 p.m.
    Para: info@casio880.com
    Necesito ayuda porfavor!!! Mi calculadora fx-850p presenta una falla !! =(
    Resulta que me han regalado esta calculadora (Muy buena por cierto) cuando yo le daba al menu me arrojaba un menu de aplicacion ecuaciones de primero y segundo grados y tdas las aplicaciones … ahora tengo que colocarlas manualmente ( con el codigo de cada aplicacion y luego pulsar el boton LIB) ! Cuando le doy al boton de menu me aparece este mensaje “UL ERROR” ! Ayuda Quisiera saber como colocar de nuevo ese menu de aplicaciones

    PD: Pronta respuesta

  10. Andres Rivera dice:

    Excelente aporte , no lo sabia, he retomado mi calculador a, desde el 1995 al 2017..y funciona..luego de una buena limpieza.

    Alguien sabe donde puedo conseguir programas para hidraulica para esta calculadora ?
    Gracias

  12. Oscar Alarcón Arroyo dice:

    Hola. Consulta. Alguien sabe como soluciono esto: En mi calculadora fx880p ya no encuentro los programas de la librería. La tecla LIB no funciona. Ingreso el código por ejemplo 5050 y luego LIB y no responde.

Deja una respuesta