uControl
Mayo 18, 2013, 07:15:20 *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Ingresar con nombre de usuario, contraseña y duración de la sesión
 
   Inicio   Ayuda Buscar Ingresar Registrarse  
Páginas: [1]   Ir Abajo
  Imprimir  
Autor Tema: El código fuente del Apollo 11 a tu disposición  (Leído 4010 veces)
0 Usuarios y 1 Visitante están viendo este tema.
Ariel
Global Moderator
dsPIC
***
Desconectado Desconectado

Sexo: Masculino
Mensajes: 10226



WWW
« : Julio 22, 2009, 11:52:24 »

El código fuente del Apollo 11 a tu disposición

Con esto del 40 aniversario de la llegada del hombre a la Luna no hacen más que sacar sorpresas relacionadas con el evento. Gracias a la colaboración de Google y de la NASA se ha publicado el código fuente del módulo de mando y del módulo lunar de la misión Apollo 11. Tienes la posibilidad de comprobar cómo se hacían las cosas antes. No es que vaya a acabar con la crisis o con el cáncer pero como curiosidad tecnológica no tiene precio.

La Luna está de moda, de eso no cabe la menor duda. El bombardeo constante por parte de los medios no admite réplica, ni las exigencias del guión tampoco, por tanto, aquí nos encontramos de nuevo ofreciendo una curiosa información referida a la misión del Apollo 11. Se trata de la publicación del código fuente de los programas del Módulo de Comandos(comanche054) y Módulo Lunar (Luminary099) utilizados en la famosa nave que todos estamos hartos de nombrar ya. Los más graciosos seguro que esperan ver algo de Microsoft oculto entre las líneas de código pero la prueba de que Bill no metió las manos en el diseño la tenemos en el hecho de que la misión concluyó con éxito. En eso y en que el código ha sido lanzado de manera pública para que cualquiera pueda verlo sin cobrar por ello. El código transcrito ahora se encuentra en los repositorios de Google Code y se puede ejecutar sobre Virtual AGC (Apollo Guidance Computer), un emulador del AGC que veréis en el video y que puede correr sobre Linux, MacOSX y Windows entre otros. La computadora y su software fueron desarrollados por el Laboratorio de Instrumentación de la MIT, también conocido como los Draper Labs.

Por restricciones de memoria no convenía escribir el código directamente en lenguaje ensamblador del AGC, razón por la cual se diseñó un intérprete que funcionaba algo más lento pero cumplía con las condiciones especiales de estas máquinas. El código interpretado contenía instrucciones para manejar vectores y funciones trigonométricas, algo de crucial importancia en sistemas de este tipo. Otra peculiaridad de este código fuente es que se grababa como firmware y sólo se le podían realizar modificaciones en caliente, aunque eso sí, las variaciones se podían ejecutar desde la Tierra y desde la propia nave por mano de los astronautas si lo consideraban necesario. Si alguno de vosotros entiende el lenguaje ensamblador de procesadores antiguos como el MOS6502 (Atari, Commodore, Apple) o Z80 (Spectrum, MSX) no tendrán problemas en entender el del Apollo.

Este código no tiene mucha utilidad a día de hoy pero resulta muy interesante observar cómo se programaba en aquellos sistemas considerados críticos y de alto riesgo. La calidad del código debía estar fuera de toda duda y depurado hasta el extremo. Fijarse en la limpieza conceptual del diseño y en la optimización de las instrucciones. Apenas necesitan 300 líneas para el Módulo de Comandos y 1400 líneas para el Módulo Lunar. Cualquier error hubiera sido catastrófico para la mision, sin embargo, la prueba de que todo se hizo correctamente la tenemos hoy en forma de 40 aniversario de la llegada del hombre a la Luna. La digitalización en PDF de todos los códigos la puedes encontrar haciendo click aquí.

Direccion del emulador

Video del emulador




En línea

Si cualquier habilidad que aprende un niño será obsoleta antes de que la use, entonces, ¿qué es lo que tiene que aprender? La respuesta es obvia:
La única habilidad competitiva a largo plazo es la habilidad para aprender
“. Seymour Papert
Islagrande
Moderador
PIC18F
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 1001


« Respuesta #1 : Julio 22, 2009, 01:02:10 »

Los más graciosos seguro que esperan ver algo de Microsoft oculto entre las líneas de código pero la prueba de que Bill no metió las manos en el diseño la tenemos en el hecho de que la misión concluyó con éxito.



Jajajajajajajaja que buena te quedó esta parte  laugh  laugh  laugh  laugh
En línea

La tierra no es una herencia de nuestros padres; es un préstamo de nuestros hijos
Felixls
Moderador
PIC24F
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 3024



WWW
« Respuesta #2 : Julio 22, 2009, 04:03:31 »

Lo lamento, no vi estrellas....

En el colegio de mi hija (12 años) les hicieron analizar las pruebas (videos, fotos, etc) de la llegada del hombre a la luna, la finalidad determinar si fue o no un engaño.

Conclusión de la mayoría:  ENGAÑO.

Es un poco cómico que hasta un niño de 12 años se de cuenta de algo que la mayoría se lo creyó durante ya 40 años.
En línea
geronimox
Moderador
PIC18F
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 1176



WWW
« Respuesta #3 : Julio 22, 2009, 04:16:34 »

Para mi el hombre si llego a la luna, aqui comparto un vinculo donde intentan desmentir que fuese una conspiracion.
http://mangasverdes.es/2009/07/17/desmontando-la-conspiranoia-sobre-el-apolo-xi-en-8-puntos/
Salutes!
En línea

Gero. Divide & Conquer.>----.
^-------------------------------|
-'-------------------------------'
Leon Pic
Moderador
dsPIC
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 5099


Cumulonimbus


WWW
« Respuesta #4 : Julio 22, 2009, 04:58:07 »

Insisto.
No hablaron de como lograron pasar por la radiación de Van Allen. La radiación es tan alta que a la velocidad con que pasa la nave, la misma tendría que tener un espesor de 2 metros de plomo  :o Estamos hablando de la tecnología que había en esa época. Si ahora hay un material que resista mejor la radiación y es mucho más liviano, desconozco de su existencia.
En línea

Jesús dijo, yo soy el CAMINO, la VERDAD y la VIDA, nadie llega al PADRE si no es por mi.
Ariel
Global Moderator
dsPIC
***
Desconectado Desconectado

Sexo: Masculino
Mensajes: 10226



WWW
« Respuesta #5 : Julio 22, 2009, 05:28:48 »

Hola!
Es todo un tema, y genera polemicas.
Personalmente, si creo que llegaron a la Luna.
Todos los argumentos en contra de la llegada son refrutables, y la mayoria se basan en datos falsos. Tongue

Tengamos en cuenta que es muy facil buscar argumentos en contra de algo y dejar que la otra parte se encargue de probarlo.... De hecho, es lo que hacen (por ejemplo) los que dicen que vieron un OVNI (me refiero a tripulado y lleno de enanitos de color verde), los que dicen que los extraterrestres dibujan cosas en los campos de maiz, etc.

Es simple decir "Ese dibujo en el sembrado lo hizo ET" y esperar a que la otra parte diga "no, fijate que se hizo asi asa etc" para responder con alguna otra cosa y asi hasta el infinito. En realidad, los que sostienen que no se fue a la luna deberian (por ejemplo) mandar una camara robot a fotografiar los lugares de los supuestos aterrizajes y demostrar que alli no hay nada  Grin Grin

Yo creo que fueron a la Luna por una custion meramente politica en medio de la guerra fria, que fue un viaje tripulado absolutamente innecesario, y que cuando lograron su objetivo (ganarle a los rusos) dejaron de explorar por que no valia en absoluto la pena. Los riegos, el costo, etc no justificaba para nada eso. Las sondas LRO actuales van a traer mucha mas informacion que las misiones apolo.

A propósito, aca hay fotos de los modulos que quedaron en la luna, sacadas por LRO a baja resolucion. En un mes o asi deberia haber mejores fotos, cuando la sonda este en posicion.


(En el centro de la imagen, la sombra alargada es del modulo lunar del Apolo XI

PD: Leon, la radicion del cinturon de Van Allen no es tan fuerte!  Grin
En línea

Si cualquier habilidad que aprende un niño será obsoleta antes de que la use, entonces, ¿qué es lo que tiene que aprender? La respuesta es obvia:
La única habilidad competitiva a largo plazo es la habilidad para aprender
“. Seymour Papert
geronimox
Moderador
PIC18F
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 1176



WWW
« Respuesta #6 : Julio 22, 2009, 05:42:07 »

Insisto.
No hablaron de como lograron pasar por la radiación de Van Allen. La radiación es tan alta que a la velocidad con que pasa la nave, la misma tendría que tener un espesor de 2 metros de plomo  :o Estamos hablando de la tecnología que había en esa época. Si ahora hay un material que resista mejor la radiación y es mucho más liviano, desconozco de su existencia.

Desconozco el recorrido pero pudieron haber pasado por las zonas en que su efecto no es tan grande, como en los polos??
Ademas, como dijiste, pasaron tan rapido por alli, que la dosis de radiacion que recibieron pudo haber sido insignificante para un ser humano.

Cito una web que aparecio en cache de google:

Código:
Van Allen Belts

The Van Allen belts are a band of concentrated radiation around the Earth.  It's been estimated that you'd need a foot of lead casing to protect yourself from this, which the Apollo crafts didn't have.  Why didn't this kill the astronauts on the way to the moon?

Radiation is a big problem when it comes to space travel and the Earth's magnetic field concentrates this radiation into the Van Allen belts that surround the Earth.   No matter what, the Apollo crafts had to go through these belts and there was no way the Apollo crafts could afford to take all the weight of lead shielding with them.   So they were bound to be exposed.   The question is, just how serious would this exposure be?

What you have to realize that the radiation involved isn't the same kind or intensity as you might get from a nuclear bomb.  You don't fall sick and your hair doesn't all fall out.    It's been calculated that travelling at speed through the Van Allen belt would result in exposure of 1 rem.  Radiation sickness symptoms don't start to show until you get around 25.  Once you reach 100 you're going to be ill.   500 and you're probably dead.   So the exposure the astronauts received is pretty mild.

But that isn't to say either that it can't do you any harm.  Added to the exposure they got actually out on the moon, it is a risk that can't be fully quantified.   Who knows what cancers could result from it?   Given the choice most people would want to avoid this kind of exposure to radiation.  But the astronauts risked it because they thought it was worth it.   This, and all the other risks they faced, is what makes them remarkable people.

Edito para agregar un link muuuy interesante sobre los citurones de Van Allen:
http://intercosmos.iespana.es/reportajes/luna/luna_enlaces.htm
« Última modificación: Julio 22, 2009, 05:45:16 por geronimox » En línea

Gero. Divide & Conquer.>----.
^-------------------------------|
-'-------------------------------'
Leon Pic
Moderador
dsPIC
*****
Desconectado Desconectado

Sexo: Masculino
Mensajes: 5099


Cumulonimbus


WWW
« Respuesta #7 : Julio 22, 2009, 07:34:33 »

Ariel, como tu comentario me pareció muy razonable me puse a investigar un poco más cobre esta radiación a la que hago mención y efectivamente, al parecer me dejé llevar por los que intentan "aniquilar" a la NASA. Cito la parte más importante

Los cinturones de Van Allen fueron descubiertos por primera vez por el satélite Explorer 1, el primero lanzado por Estados Unidos (el 31 de enero de 1958). Este satélite fue diseñado por un grupo de científicos liderados por James Van Allen, de ahí el nombre. Estas regiones se crean como consecuencia de la interacción del viento solar (el flujo de protones y electrones proveniente del Sol) con el campo magnético de la Tierra, que retiene una gran cantidad de partículas cargadas y radiación en esa zona. Estos cinturones de radiación se extienden desde unos 1.000 kilómetros hasta más de 65.000 kilómetros de altura sobre la Tierra, alcanzando el máximo de radiación en torno a los 3.200 y 20.000 kilómetros.
La NASA conocía perfectamente los peligros derivados de la existencia de este cinturón de radiación. De hecho, llevó a cabo experimentos previos a las misiones Apollo para investigar su naturaleza. Por ejemplo, los astronautas de la misión Gémini 10 sobrevolaron la zona conocida como Anomalía Magnética del Atlántico Sur (Southern Atlantic Magnetic Anomaly, SAMA), una especie de prolongación a menor altura y de menor intensidad de los cinturones de Van Allen.

Antes de considerar la radiación absorbida por los astronautas, es conveniente adquirir una noción básica de la radiación y las unidades utilizadas para medirla. La unidad utilizada actualmente para cuantificar la dosis de radiación absorbida es el gray. Sin embargo, antes se utilizaba el rad (radiation absorbed dose, o dosis de radiación absorbida). 1 gray equivale a 100 rad.
El efecto biológico de la radiación depende de la región del cuerpo que haya sido expuesta, así como del tipo de radiación. Debido a esto, el gray se modifica mediante los conceptos llamados factor de ponderación tisular (wT) y factor de ponderación de la energía (wR). El resultado es una nueva unidad llamada Sievert (Sv), que equivale a 100 rem (roentgen equivalent for man, o equivalente roentgen para el hombre), unidad semejante antiguamente utilizada.

Niveles de radiación media de las misiones Apollo
Nº de
misión               Dosis recibida en la piel
(en rads)
    7                            0.16
    8                            0.16
    9                            0.20
   10                            0.48
   11                            0.18
   12                            0.58
   13                            0.24
   14                            1.14
   15                            0.30
   16                            0.51
   17                            0.55



Fuente: http://intercosmos.iespana.es/reportajes/luna/luna_enlaces.htm
En línea

Jesús dijo, yo soy el CAMINO, la VERDAD y la VIDA, nadie llega al PADRE si no es por mi.
Ariel
Global Moderator
dsPIC
***
Desconectado Desconectado

Sexo: Masculino
Mensajes: 10226



WWW
« Respuesta #8 : Julio 22, 2009, 08:06:40 »

Bien hecho!   bang

Si fuese tan alta, ni los satelites de comunicaciones durarian mucho tiempo en órbita. Ahhhh, eso me hace acordar de un articulo que escribi hace tiempo sobre las CPU que se usan en la NASA para las misiones a Marte, etc....y lo que son capaces de soportar. Lo busco y pego por aca.  Wink
En línea

Si cualquier habilidad que aprende un niño será obsoleta antes de que la use, entonces, ¿qué es lo que tiene que aprender? La respuesta es obvia:
La única habilidad competitiva a largo plazo es la habilidad para aprender
“. Seymour Papert
Ariel
Global Moderator
dsPIC
***
Desconectado Desconectado

Sexo: Masculino
Mensajes: 10226



WWW
« Respuesta #9 : Julio 22, 2009, 08:10:33 »

RAD6000, la CPU de IBM que viaja a Marte

IBM tiene honor de ser el líder indiscutido en materia de microprocesadores enviados a Marte. El RAD6000 se ha convertido en una especie de “estándar de facto” para diseñar los ordenadores de las sondas espaciales, incluida la Phoenix Polar Lander. Este microprocesador de 300.000 dólares es el único capaz de funcionar en el espacio.

En estos días hemos escrito bastante sobre la misión de la NASA destinada a investigar el polo norte marciano. Pero no hemos dicho nada sobre la tecnología que se ha empleado para construir el “cerebro” de la Phoenix Polar Lander.

La NASA ha utilizado como base para el ordenador de a bordo de la sonda el mismo microprocesador que ha empleado antes en el Mars Pathfinder, el Mars Climate Orbiter, el Mars Odyssey 2001 y los Mars Exploration Rovers (Spirit y Opportunity), entre otros: el RAD6000.

Se trata de un microprocesador que no difiere demasiado de un PowerPC como los que empleaba Apple en los iBook G4, aunque su estructura esta especialmente rediseñada de forma que pueda trabajar sin problemas con temperaturas extremas y sometido a la radiación del espacio. Efectivamente, fuera de la protección que brinda la atmósfera terrestre y los cinturones de Van Allen, las partículas de alta energía (rayos-X, rayos gamma, etc.) harían que un ordenador convencional “muriese” rápidamente.


Una placa similar a esta alberga el ordenador de las sondas espaciales.

Estos microprocesadores poseen una serie de resistores y condensadores en su interior que pueden derivar a “tierra” la radiación peligrosa, evitando que dañe alguno de sus 1.1000.000 transistores. Por supuesto, todo esto tiene un precio: cada uno de estos chips cuesta entre 180 y 220 mil euros. Actualmente son fabricados por BAE Systems, un desprendimiento de la misma IBM.

Una placa madre de solo 15x23 centímetros alberga al RAD6000 corriendo a una velocidad de hasta 35MHz (pueden bajar la velocidad si es necesario). También posee 128 MB de RAM, una EEPROM de 3MB y una memoria flash auxiliar de 256MB. No posee disco duro, ya que la información recogida se envía a Tierra para su procesamiento posterior. No parece ser un ordenador demasiado impresionante, pero basta para cumplir con las tareas que le demanda la misión.

Parte del éxito de estas misiones puede atribuirse también al sistema operativo elegido para gobernar el ordenador de a bordo. Se llama VxWorks, y es un “sistema operativo de tiempo real” (RTOS, por Real Time Operative System) basado en Linux y puesto a punto por la empresa Wind River. Entre sus características más sobresalientes se pueden mencionar su kernel multitarea, multitarea preferente, respuesta rápida a interrupciones externas, comunicaciones y herramientas de sincronización entre procesos.

VxWorks permite la actualización remota sin necesidad de ser reiniciado, y su robustez está más que probada. Se lo ha utilizado en las sondas Spirit y Opportunity, la Deep Impact, el Boing 787 y el helicóptero Apache.

Como puede verse, no hace falta un superordenador para llevar a buen término una misión espacial, pero resulta indispensable que sea 100% fiable.

Sitio oficial de Wind River
Sitio oficial de BAE Systems
En línea

Si cualquier habilidad que aprende un niño será obsoleta antes de que la use, entonces, ¿qué es lo que tiene que aprender? La respuesta es obvia:
La única habilidad competitiva a largo plazo es la habilidad para aprender
“. Seymour Papert
Meta
PIC12F
**
Desconectado Desconectado

Mensajes: 425


« Respuesta #10 : Julio 24, 2009, 06:29:57 »

Me dan ganas de ahcer un robot lunar como hacen estos de aquí http://www.youtube.com/watch?v=5Ci6fHHchV8

Hola:

Curiosamente he encontrado códigos de libre distribución de la época de Apolo 11 que usaron el día que fueron en la Luna (si es que realmente fueron) hace 40 años.



La verdad que nunca he visto en mi vida estos ASM. Abro este tema por curiosidad.

Código:
# Copyright:    Public domain.
# Filename:     ALARM_AND_ABORT.agc
# Purpose:      Part of the source code for Luminary 1A build 099.
#               It is part of the source code for the Lunar Module's (LM)
#               Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler:    yaYUL
# Contact:      Ron Burkey <info@sandroid.org>.
# Website:      www.ibiblio.org/apollo.
# Pages:        1381-1385
# Mod history:  2009-05-10 SN   (Sergio Navarro).  Started adapting
#                               from the Luminary131/ file of the same
#                               name, using Luminary099 page images.
#               2009-06-05 RSB  Fixed a type.
#
# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
#       Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
#       16:27 JULY 14, 1969

# Page 1381
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION.  IT MAY BE CALLED
# EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
#
# CALLING SEQUENCE IS AS FOLLOWS:
#               TC      ALARM
#               OCT     AAANN           # ALARM NO. NN IN GENERAL AREA AAA.
#                                       # (RETURNS HERE)

                BLOCK   02
                SETLOC  FFTAG7
                BANK

                EBANK=  FAILREG

                COUNT*  $$/ALARM

# ALARM TURNS ON THE PROGRAM ALARM LIGHT, BUT DOES NOT DISPLAY.

ALARM           INHINT

                CA      Q
ALARM2          TS      ALMCADR
                INDEX   Q
                CA      0
BORTENT         TS      L

PRIOENT         CA      BBANK
        +1      EXTEND
                ROR     SUPERBNK        # ADD SUPER BITS.
                TS      ALMCADR +1

LARMENT         CA      Q               # STORE RETURN FOR ALARM
                TS      ITEMP1

CHKFAIL1        CCS     FAILREG         # IS ANYTHING IN FAILREG
                TCF     CHKFAIL2        # YES TRY NEXT REG
                LXCH    FAILREG
                TCF     PROGLARM        # TURN ALARM LIGHT ON FOR FIRST ALARM

CHKFAIL2        CCS     FAILREG +1
                TCF     FAIL3
                LXCH    FAILREG +1
                TCF     MULTEXIT

FAIL3           CA      FAILREG +2
                MASK    POSMAX
                CCS     A
                TCF     MULTFAIL
                LXCH    FAILREG +2
                TCF     MULTEXIT

# Page 1382

PROGLARM        CS      DSPTAB +11D
                MASK    OCT40400
                ADS     DSPTAB +11D


MULTEXIT        XCH     ITEMP1          # OBTAIN RETURN ADDRESS IN A
                RELINT
                INDEX   A
                TC      1

MULTFAIL        CA      L
                AD      BIT15
                TS      FAILREG +2

                TCF     MULTEXIT

# PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND
# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4.  EXAMPLE FOLLOWS,
#               CAF     OCTXX           # ALARM CODE
#               TC      BANKCALL
#               CADR    PRIOLARM
#               ...     ...
#               ...     ...
#               ...     ...             # ASTRONAUT RETURN
#               TC      PHASCHNG        # IMMEDIATE RETURN TO USER.  RESTART
#               OCT     X.1             # PHASE CHANGE FOR PRIO DISPLAY

                BANK    10
                SETLOC  DISPLAYS
                BANK

                COUNT*  $$/DSPLA
PRIOLARM        INHINT                  # * * * KEEP IN DISPLAY ROUTINES BANK
                TS      L               # SAVE ALARM CODE

                CA      BUF2            # 2 CADR OF PRIOLARM USER
                TS      ALMCADR
                CA      BUF2 +1
                TC      PRIOENT +1      # * LEAVE L ALONE
-2SEC           DEC     -200            # *** DONT MOVE
                CAF     V05N09
                TCF     PRIODSPR

                BLOCK   02
                SETLOC  FFTAG7
                BANK

                COUNT*  $$/ALARM
BAILOUT         INHINT
                CA      Q
# Page 1383
                TS      ALMCADR

                INDEX   Q
                CAF     0
                TC      BORTENT
OCT40400        OCT     40400

                INHINT
WHIMPER         CA      TWO
                AD      Z
                TS      BRUPT
                RESUME
                TC      POSTJUMP        # RESUME SENDS CONTROL HERE
                CADR    ENEMA
P00DOO          INHINT
                CA      Q
ABORT2          TS      ALMCADR
                INDEX   Q
                CAF     0
                TC      BORTENT
OCT77770        OCT     77770           # DON'T MOVE

                CAF     OCT35           # 4.35SPOT FOR GOP00DOO
                TS      L
                COM
                DXCH    -PHASE4
GOP00DOO        INHINT
                TC      BANKCALL        # RESET STATEFLG, REINTFLG, AND NODOFLAG.
                CADR    FLAGS
                CA      FLAGWRD7        # IS SERVICER CURRENTLY IN OPERATION?
                MASK    V37FLBIT
                CCS     A
                TCF     STRTIDLE
                TC      BANKCALL        # TERMINATE GRPS 1, 3, 5, AND 6
                CADR    V37KLEAN
                TC      BANKCALL        # TERMINATE GRPS 2, 4, 1, 3, 5, AND 6
                CADR    MR.KLEAN        #       (I.E., GRP 4 LAST)
                TCF     WHIMPER
STRTIDLE        CAF     BBSERVDL
                TC      SUPERSW
                TC      BANKCALL        # PUT SERVICER INTO ITS "GROUND" STATE
                CADR    SERVIDLE        # AND PROCED TO GOTOP00H.
CCSHOLE         INHINT
                CA      Q
                TC      ABORT2
OCT21103        OCT     1103
CURTAINS        INHINT
                CA      Q
                TC      ALARM2
OCT217          OCT     00217
# Page 1384
                TC      ALMCADR         # RETURN TO USER

BAILOUT1        INHINT
                DXCH    ALMCADR
                CAF     ADR40400
BOTHABRT        TS      ITEMP1
                INDEX   Q
                CAF     0
                TS      L
                TCF     CHKFAIL1
P00DOO1         INHINT
                DXCH    ALMCADR
                CAF     ADR77770
                TCF     BOTHABRT

ALARM1          INHINT
                DXCH    ALMCADR
ALMNCADR        INHINT
                INDEX   Q
                CA      0
                TS      L
                TCF     LARMENT


ADR77770        TCF     OCT77770
ADR40400        TCF     OCT40400
DOALARM         EQUALS  ENDOFJOB
                EBANK=  DVCNTR
BBSERVDL        BBCON   SERVIDLE

# CALLING SEQUENCE FOR VARALARM
#               CAF     (ALARM)
#               TC      VARALARM
#
# VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY

VARALARM        INHINT

                TS      L               # SAVE USER'S ALARM CODE

                CA      Q               # SAVE USERS Q
                TS      ALMCADR

                TC      PRIOENT
OCT14           OCT     14              # DONT MOVE

                TC      ALMCADR         # RETURN TO USER

ABORT           EQUALS  WHIMPER
                BANK    13
                SETLOC  ABTFLGS
                BANK
# Page 1385
                COUNT*  $$/ALARM

FLAGS           CS      STATEBIT
                MASK    FLAGWRD3
                TS      FLAGWRD3
                CS      REINTBIT
                MASK    FLGWRD10
                TS      FLGWRD10
                CS      NODOBIT
                MASK    FLAGWRD2
                TS      FLAGWRD2
                TC      Q

Fuentes:
http://code.google.com/p/virtualagc/source/browse/trunk/Comanche055

http://code.google.com/p/virtualagc/source/browse/trunk/Luminary099/

http://softlibre.barrapunto.com/softlibre/09/07/21/148250.shtml
En línea
Páginas: [1]   Ir Arriba
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.18 | SMF © 2011, Simple Machines
SMFAds for Free Forums
XHTML 1.0 válido! CSS válido!
Página creada en 0.232 segundos con 30 consultas. (Pretty URLs adds 0.014s, 3q)