- LunarLander_FX-180P.jpg (100.16 KiB) Visto 505 veces
EL PROGRAMA
Debemos alunizar con nuestra nave en la superficie de la luna Algol controlando los distintos indicadores del módulo lunar.
El ordenador de abordo nos muestra los siguientes valores:
1º - Distancia de la superficie.
2º - Velocidad del módulo lunar.
3º - Cantidad de combustible.
Para controlar la velocidad debemos ir activando los motores de frenado con inyecciones de cierta cantidad de combustible, lo que afectarán a la velocidad del descenso.
Si al aterrizar la velocidad es superior a 5 o durante el proceso de descenso el combustible tiene valores negativos, la misión habrá fracasado.
Si conseguimos aterrizar con una velocidad inferior a 5, misión cumplida...
...debiendo pronunciar la frase:
"Un pequeño paso para el hombre pero un gran salto para la Casio FX-180P".
(38 para ser más exactos)
COMO FUNCIONA
El programa ocupa 38 pasos de programación y usa cuatro registros.
En el registro K-1 se guarda la cantidad de combustible.
En el registro K-2 se guarda la velocidad.
En el registro K-3 se guarda la distancia.
En el registro K-4 se usa para guardar un resultado temporal.
El programa se ha dividido en dos partes:
P1 – Inicializa los valores de los registros.
P2 – Proceso de alunizaje.
El programa se divide en 4 bloques, que he dividido en franjas de colores:
1º - Se inicializan la partida, ejecutando el programa P1.
2º - Se muestran los valores del módulo.
3º - Se introduce el combustible y se realizan los cálculos necesarios.
4º - Comprueba si hay contacto con la superficie para finalizar la partida.
LISTADO LEARN
- Listado_LunarLander.png (15.86 KiB) Visto 505 veces
EJEMPLO
Para jugar hay que hacer lo siguiente:
P1 (Se inicializa los valores del juego)
P2
500 (Se muestra la distancia)
RUN
50 (Se muestra la velocidad)
RUN
120 (Se muestra el combustible)
10 (Se introduce el combustible para frenar)
RUN
452.5 (Se muestra la distancia)
RUN
45 (Se muestra la velocidad)
RUN
110 (Se muestra el combustible)
15 (Se introduce el combustible para frenar)
RUN
412.5 (Se muestra la distancia)
RUN
35 (Se muestra la velocidad)
RUN
95 (Se muestra el combustible)
18 (Se introduce el combustible para frenar)
RUN
…Repetir los pasos hasta el aterrizaje, y comprobar el resultado.
Para volver a jugar, repetir todo el proceso otra vez.
APUNTES FINALES
Hace mucho, mucho tiempo, apareció en mi casa un amigo de mi hermano mayor con un estuche, que contenía una calculadora un poco rara. Era "diferente" a las que había visto hasta entonces, o la que tenía en casa con dígitos rojos.
La sacó del estuche y por un pequeño orificio le introdujo una tira de cartón desde donde parece ser que cargó un programa en la calculadora. Curioso, porque la mía no permitía hacer esas cosas. A continuación estuvieron un buen rato introduciendo números para intentar "alunizar" con la calculadora. Bastantes años más tarde pensaba que esa calculadora era una HP-41c. Pero al escribir este post he descubierto que realmente era una Texas Instruments TI-59, que es programable y carga los programas de la misma forma.
Pero mucho antes, ahora hace 40 años, conseguí mi primer dispositivo programable: mi querida Casio FX-180P. No era una HP-41c o una TI-59, pero se podían hacer pequeños programas. Es lo que había, y gracias.
En esta calculadora programé unos cuantos programas, bastante cutrecillos, y siempre me había quedado con las ganas de programar algo parecido a ese primer juego que vi cuando no sabía ni que existían los ordenadores personales.
Como resultado del post de ron relativo al CP/M-68K en el Atari ST, me decidí a hacer una recopilación "bestia" de todo el software CP/M que podía funcionar correctamente en un Amstrad CPC-6128. Con el programa “CPCDiskXP.exe” introducía los ficheros en una imagen DSK, la montaba en un emulador y lo probaba. Configuraba el terminal y si todo funcionaba correctamente, a la colección.
El objetivo final es poder usar todos estos ficheros DSK en un simple ZX-UNO con el core del Amstrad CPC-6128, o en un emulador. Me he sorprendido de la cantidad de software conseguido, que he agrupado en cuatro categorías: Desarrollo, Ofimática, Utilidades y Juegos.
Pero... entre todo este software encontré un compilador de lenguaje Algol, y entre los códigos fuente que encontré había uno llamado "LANDER.ALG", que compilé y probé.
Eureka!!! Eso es lo que quería para mi Casio FX-180P.
Aquí la imagen DSK en CP/M del Algol-M para el Amstrad CPC-6128:
Es la primera vez que adapto el código fuente de un programa para ordenador a mi FX-180P y la verdad es que, con alguna pequeña limitación, el programa funciona igual en Algol que en la Casio. Dicho de otra forma, si introduces los mismos valores, el resultado es igual en los dos sistemas. La diferencia es que al aterrizar en Algol nos muestra un texto con el resultado de la misión, y en la Casio debemos interpretar el resultado en función de la cantidad de combustible y la velocidad al aterrizar. 38 pasos no dan para más.
- Listados.png (54.85 KiB) Visto 505 veces
Algo de Algol para alguien no iniciado
Algol, Algorithmic Language ('lenguaje algorítmico') fue un lenguaje muy popular en las universidades durante los años 1960, pero no llegó a cuajar como lenguaje de utilización comercial. Sin embargo, Algol influyó profundamente en varios lenguajes posteriores que sí alcanzaron gran difusión, como Pascal, C y Ada.
Probando el programa, lo primero que me sorprendió es que si introduces un "10", el programa lo interpreta como "0.10", haciendo los cálculos con este valor. Pero si quieres que realmente sea "10", has de introducir un "10.0".
La siguiente curiosidad es como procesa el resultado de la fórmula " D:=D-V+C/2.0". En principio debería calcular la división, y a continuación procesar la fórmula de izquierda a derecha, pero no. Aparentemente lo hace de derecha a izquierda, y en la Casio he tenido que rehacer la fórmula para que dé el mismo resultado que en Algol.
Por el resto, el programa es muy simple, cosa que me ha permitido hacer la adaptación a la Casio FX-180P, y posteriormente a otras calculadoras.
- Listado_Algol.png (16.53 KiB) Visto 505 veces
Pues nada más, me voy a alucinar alunizando !!!
Os invito a probarlo
Inicio del descenso
- Screen_1.jpg (57.02 KiB) Visto 505 veces
Aterrizaje fatal: Demasiado rápido !!!
- Screen_2.jpg (49.48 KiB) Visto 505 veces
IIcx 
800XL 65XE 130XE 520ST 
FX-802P 
1100RW