Merge branch 'chrislgarry:master' into master

This commit is contained in:
Chyanne Haugen 2021-10-17 09:17:58 -07:00 committed by GitHub
commit 0ffa756930
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
92 changed files with 2931 additions and 1529 deletions

View File

@ -5,6 +5,6 @@ jobs:
runs-on: ubuntu-latest runs-on: ubuntu-latest
steps: steps:
- name: Check out code - name: Check out code
uses: actions/checkout@master uses: actions/checkout@v2
- name: Run mdl - name: Run mdl
uses: actionshub/markdownlint@master uses: actionshub/markdownlint@2.0.2

View File

@ -8,10 +8,15 @@
[English][EN]، [English][EN]،
[Español][ES]، [Español][ES]،
[Français][FR]، [Français][FR]،
[Kurdi][KU], [Italiano][IT]،
[Kurdi][KU]،
[Lietuvių][LT]،
[Nederlands][NL]، [Nederlands][NL]،
[Norsk][NO]،
[Polski][PL]،
[Português][PT_BR]، [Português][PT_BR]،
[Türkçe][TR]، [Türkçe][TR]،
[Ελληνικά][GR]،
**العربية**، **العربية**،
[日本語][JA]، [日本語][JA]،
[正體中文][ZH_TW]، [正體中文][ZH_TW]،
@ -24,10 +29,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
@ -117,7 +127,7 @@ R0820
</div> </div>
```plain ```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT, 1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT،
GARPLY, WALDO. GARPLY, WALDO.
``` ```
@ -126,7 +136,7 @@ R0820
</div> </div>
```plain ```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT, 1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT،
GARPLY, WALDO. GARPLY, WALDO.
``` ```

View File

@ -1,15 +1,20 @@
# Contributing # Contributing
🎌 🎌
**Čeština** **Čeština**,
[Deutsch][DE], [Deutsch][DE],
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
**Español**, **Español**,
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
**Français**, **Français**,
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,23 +27,28 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md [ZH_TW]:CONTRIBUTING.zh_tw.md
Le code source de ce dépôt a été numérisé manuellement à partir dimprimés papier, de sorte que les fautes de frappe et autres anomalies ont été introduites accidentellement. Le code doit être modifié pour être cohérent avec les impressions numérisées: Le code source de ce dépôt a été numérisé manuellement à partir de papiers imprimés, les fautes de frappe et autres anomalies ont donc été introduites accidentellement. Le code doit être modifié pour être cohérent avec les impressions numérisées suivantes:
- [Impressions AGC pour Comanche][8] - [Impressions AGC pour Comanche][8]
- [Impressions AGC pour Luminary][9] - [Impressions AGC pour Luminary][9]
## Extensions utiles ## Extensions utiles
Github prend en charge nativement la syntaxe pour le langage assembleur AGC. Malheureusement, votre éditeur de texte ne laura pas. Mais il y a des extensions pour le langage AGC pour les éditeurs suivants: GitHub prend en charge nativement la syntaxe pour le langage assembleur AGC. Malheureusement, votre éditeur de texte ne laura pas. Mais il y a des extensions pour le langage AGC pour les éditeurs suivants:
- [Atom][Atom]† - [Atom][Atom]†
- [CodeBlocks][CodeBlocks] - [CodeBlocks][CodeBlocks]
@ -68,18 +78,36 @@ Github prend en charge nativement la syntaxe pour le langage assembleur AGC. Mal
**Note:** GitHub et les extensions marquées ci-dessus vous assureront d'utiliser automatiquement le bon formatage. **Note:** GitHub et les extensions marquées ci-dessus vous assureront d'utiliser automatiquement le bon formatage.
- Indenter avec tabulation - Utiliser tabulation (tab) pour l'indentation
- Les tabulations ont une taille de 8 - Utiliser une largeur de 8 caractères pour la tabulation
- Pas d'espace à la fin des ligne - Pas d'espace à la fin des ligne
## Comment vérifier ? ## Comment vérifier ?
Tout écart entre les scans et le code source dans ce référentiel, y compris : Tout écart entre les scans et le code source dans ce référentiel.
### Commentaires ### Commentaires
- Les commentaires dans le code transcrit doivent correspondre exactement aux scans - Les commentaires dans le code transcrit **doivent** correspondre **exactement** aux scans.
- Cela peut impliquer de créer délibérément une erreur de frappe ou de supprimer/ajouter un commentaire entier. - Les problèmes courants que vous devez rechercher lors de la vérification sont les suivants. Attention la liste n'est pas exhaustive!
#### Erreurs typographiques
À certains endroits, les développeurs originaux ont fait des erreurs typographiques en écrivant des commentaires. Certaines dentre elles ont été corrigées par erreur lors de la numérisation initiale, mais la numérisation a également introduit des erreurs typographiques qui nétaient pas présentes dans les scans.
Par exemple, si les commentaires numérisés contiennent `SPACECRAFT`, mais que `SPAECRAFT` a été imprimé dans les scans, la numérisation DOIT être corrigée en `SPAECRAFT` (C manquant).
De même, si un mot a une faute de frappe dans la numérisation mais est correctement orthographié dans les scans, alors la faute de frappe DOIT être corrigée.
#### Espaces
Les espaces entre deux caractères dans les commentaires **DEVRAIENT** correspondre aux scans. Dans la plupart des cas (voir la discussion dans [#316][10]), c'est:
- Espace unique pour les nouveaux mots.
- Double espace pour les nouvelles phrases.
- Triple espace pour les indentations.
Toutes les pages des scans ne suivent pas cette généralisation, si les scans n'ont qu'un seul espace au lieu d'un double espace, utiliser un seul espace.
### Sauts de ligne ### Sauts de ligne
@ -87,7 +115,7 @@ Tout écart entre les scans et le code source dans ce référentiel, y compris :
- Les sauts de ligne *sans* `R0000` dans la colonne 1 ne doivent contenir que 1 ou 2 lignes vides d'affilée. - Les sauts de ligne *sans* `R0000` dans la colonne 1 ne doivent contenir que 1 ou 2 lignes vides d'affilée.
- Si il y a plus de 2 lignes vides, supprimer les sauts de ligne supplémentaires. - Si il y a plus de 2 lignes vides, supprimer les sauts de ligne supplémentaires.
- Ne pas prendre en compte les lignes avecc `R0000` dans la cononne 1. - Ne pas prendre en compte les lignes avecc `R0000` dans la cononne 1.
- Dans les images sources, il y a digits non imprimés dans la colonne 8. Un 2 force un double espace (une seul ligne vide) et un 3 force une triple espace (double ligne vide). Les valeurs 4-8 ont été définies mais nont jamais été utilisées. Pour en savoir plus [#159][7] - Dans les images sources, ceux-ci ont été créés à cause d'un caractère non imprimé dans la colonne 8. Un 2 a forcé un double espace (une seul ligne vide) et un 3 a forcé un triple espace (double ligne vide). Les valeurs 4-8 ont été définies mais nont jamais été utilisées. Pour en savoir plus [#159][7]
Par exemple, ce qui suit: Par exemple, ce qui suit:
@ -110,30 +138,9 @@ R0820
0820 LAMPTEST CS IMODES33 0820 LAMPTEST CS IMODES33
``` ```
### Espaces
- Les espaces entre deux caractères doivent respecter la convention suivante (voir la discussion [#316][10]):
- Un seul espace pour un nouveau mot.
- Deux espaces pour une nouvelle phrase.
- Trois espaces pour l'indentations.
Par exemple, ce qui suit:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
Doit devenir:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
## Note ## Note
Avant de faire une PR, assurez-vous que vos modifications sont cohérentes avec les scans! Avant de faire un PR, assurez-vous que vos modifications sont cohérentes avec les scans!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master [0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/ [1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/

153
CONTRIBUTING.gr.md Normal file
View File

@ -0,0 +1,153 @@
# Συνεισφορά
🎌
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR],
[Türkçe][TR],
**Ελληνικά**,
[العربية][AR],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:CONTRIBUTING.ar.md
[CZ]:CONTRIBUTING.cz.md
[DE]:CONTRIBUTING.de.md
[EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Ο πηγαίος κώδικας σε αυτό το αποθετήριο ψηφιοποιήθηκε χειροκίνητα (με μη αυτόματο τρόπο) από εκτυπώσεις σε χαρτί, έτσι τυχαία λάθη και άλλες αποκλίσεις μπορεί να έχουν εισαχθεί κατά λάθος. Ο κώδικας πρέπει να τροποποιείται ώστε πάντα να είναι συνεπής με τις παρακάτω σαρωμένες εκτυπώσεις:
- [AGC printouts for Comanche][8]
- [AGC printouts for Luminary][9]
## Χρήσιμες Επεκτάσεις
Το GitHub διαθέτει υποστήριξη συντακτικού για τη γλώσσα assembly του AGC. Δυστυχώς, ο επεξεργαστής κώδικά σας μπορεί να μην την υποστηρίζει, ωστόσο, υπάρχουν επεκτάσεις για τη γλώσσα assembly AGC που παρέχουν επισήμανση σύνταξης για τους ακόλουθους επεξεργαστές κώδικα:
- [Atom][Atom]†
- [CodeBlocks][CodeBlocks]
- [Eclipse][Eclipse]
- [Kate][Kate]
- [ProgrammersNotepad][ProgrammersNotepad]
- [Sublime Text 3][Sublime Text]†
- [TextPad][TextPad]
- [Vim][Vim]
- [Visual Studio Code][VisualStudioCode]†
- [jEdit][jEdit]
† Υποστηρίζει αυτόματη μορφοποίηση
[Atom]:https://github.com/Alhadis/language-agc
[CodeBlocks]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/CodeBlocks
[Eclipse]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Eclipse
[Kate]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Kate
[ProgrammersNotepad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/ProgrammersNotepad
[Sublime Text]:https://github.com/jimlawton/AGC-Assembly
[TextPad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/TextPad
[Vim]:https://github.com/wsdjeg/vim-assembly
[VisualStudioCode]:https://github.com/wopian/agc-assembly
[jEdit]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/jEdit
## Mορφοποίηση
Σημείωση: Το GitHub και οι επεκτάσεις που σημειώνονται παραπάνω θα διασφαλίσουν ότι χρησιμοποιείτε τη σωστή μορφοποίηση αυτόματα.
- Χρήση εσοχής με tab
- 8 χαρακτήες κενού για εσοχή tab
- Περικοπή τελικών κενών χαρακτήρων γραμμής
## Τί να ελέγξω;
Τυχόν αποκλίσεις μεταξύ των σαρώσεων και του πηγαίου κώδικα σε αυτό το αποθετήριο.
### Σχόλια
Τα σχόλια στον μεταγραμμένο κώδικα **ΠΡΕΠΕΙ** να ταιριάζουν **ακριβώς** με τις σαρώσεις.
Συχνά προβλήματα που θα μπορούσατε να ψάξετε κατά τη διόρθωση περιλεμβάνουν αλλά δεν περιορίζονται σε:
#### Τυπογραφικά λάθη
Σε μερικά σημεία, οι αρχικοί προγραμματιστές έκαναν τυπογραφικά λάθη κατά τη σύνταξη σχολίων. Μερικά από αυτά διορθώθηκαν κατά λάθος κατά την αρχική ψηφιοποίηση, ωστόσο η ψηφιοποίηση έχει επίσης εισαγάγει τυπογραφικά λάθη που δεν υπήρχαν στις σαρώσεις.
Για παράδειγμα, εάν τα ψηφιοποιημένα σχόλια περιείχαν `SPACECRAFT`, αλλά `SPAECRAFT` ήταν γραμμένο στις σαρώσεις, τότε η ψηφιοποίηση **ΠΡΕΠΕΙ** να διορθωθεί σε `SPAECRAFT` (λείπει το `C`).
Αντίστοιχα, αν μια λέξη έχει κάποιο τυπογραφικό λάθος στην ψηφιοποίηση αλλά είναι γραμμένη σωστά στις σαρώσεις τότε αυτό το τυπογραφικό λάθος **ΠΡΕΠΕΙ** να διορθωθεί.
#### Κενά
Τα κενά μεταξύ χαρακτήρων στα σχόλια **ΘΑ ΕΠΡΕΠΕ** να ταιριάζουν με τις σαρώσεις. Τις περισσότερες φορές (δείτε τη συζήτηση στο [#316[10], αυτό σημαίνει:
- Ένα κενό για νέες λέξεις.
- Δύο κενά για νέες προτάσεις.
- Τρία κενά για εσοχές.
Αυτή η γενίκευση δεν ακολουθείτε από όλες τις σαρωμένες σελίδες, αν μια σάρωση έχει ένα κενό αντί για δύο, χρησιμοποιήστε ένα.
### Αλλαγές γραμμής
- Οι αλλαγές γραμμής με `R0000` στη στήλη 1 πρέπει να ταιριάζουν ακριβώς με τις σαρώσεις.
- Οι αλλαγές γραμμής *χωρίς* `R0000` στη στήλη 1 πρέπει να περιέχουν μόνο 1 ή 2 κενές γραμμές στη σειρά.
- Εάν υπάρχουν περισσότερες από 2 αλλαγές γραμμών, αφαιρέστε τις επιπλέον αλλαγές γραμμής.
- Οι γραμμές με `R0000` στη στήλη 1 δεν υπολογίζονται σε αυτό.
- Στις εικόνες προέλευσης, αυτές δημιουργήθηκαν από ένα μη τυπωμένο ψηφίο στη στήλη 8. Ένα 2 ανάγκαζε ένα διπλό διάστημα (μονή κενή γραμμή) και ένα 3 ανάγκαζε ένα τριπλό διάστημα (διπλή κενή γραμμή). Οι τιμές 4-8 ορίστηκαν αλλά δεν χρησιμοποιήθηκαν ποτέ. Διαβάστε περισσότερα σχετικά, στο [#159][7]
Για παράδειγμα το παρακάτω:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0821 LAMPTEST CS IMODES33
```
Πρέπει να γίνει:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0820 LAMPTEST CS IMODES33
```
## Σημείωση
Πριν κάνετε ένα PR, παρακαλώ βεβαιωθείτε ότι οι αλλαγές σας είναι σύμφωνες με τις σαρώσεις!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[2]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[6]:https://github.com/wopian/agc-assembly#user-settings
[7]:https://github.com/chrislgarry/Apollo-11/issues/159
[8]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[9]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[10]:https://github.com/chrislgarry/Apollo-11/pull/316#pullrequestreview-102892741

154
CONTRIBUTING.it.md Normal file
View File

@ -0,0 +1,154 @@
# Contribuire
🎌
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
**Italiano**
[Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR],
[Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:CONTRIBUTING.ar.md
[CZ]:CONTRIBUTING.cz.md
[DE]:CONTRIBUTING.de.md
[EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Il codice sorgente in questa repository è stato digitalizzato manualmente da stampe su carta, quindi errori di battitura e altre differenze sono state aggiunte accidentalmente. Il codice dovrebbe essere modificato per essere consistente con le seguenti scannerizzazioni:
- [AGC stampa per Comanche][8]
- [AGC stampa per Luminary][9]
## Estensioni utili
GitHub supporta la sintassi dell' assembly AGC nativamente. Se sfortunatamente il tuo editor di codice non dovesse farlo, sono presenti delle estensioni che aggiungono la colorazione della sintassi per i seguenti editor:
- [Atom][Atom]†
- [CodeBlocks][CodeBlocks]
- [Eclipse][Eclipse]
- [Kate][Kate]
- [ProgrammersNotepad][ProgrammersNotepad]
- [Sublime Text 3][Sublime Text]†
- [TextPad][TextPad]
- [Vim][Vim]
- [Visual Studio Code][VisualStudioCode]†
- [jEdit][jEdit]
† Supporta la formattazione automatica
[Atom]:https://github.com/Alhadis/language-agc
[CodeBlocks]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/CodeBlocks
[Eclipse]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Eclipse
[Kate]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Kate
[ProgrammersNotepad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/ProgrammersNotepad
[Sublime Text]:https://github.com/jimlawton/AGC-Assembly
[TextPad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/TextPad
[Vim]:https://github.com/wsdjeg/vim-assembly
[VisualStudioCode]:https://github.com/wopian/agc-assembly
[jEdit]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/jEdit
## Formattazione
**Nota:** GitHub e le estensioni riportate di sopra assicureranno che tu stia usando automaticamente la formattazione corretta.
- Indenta con le tabulazioni
- Usa una tabulazione di larghezza 8
- Elimina spazi a fine riga
## Che cosa devo controllare?
Qualsiasi differenza tra le scannerizzazioni e il codice sorgente in questa repository.
### Commenti
Commenti nel codice trascritto **DEVONO** coincidere **esattamente** con quelli delle scannerizzazioni.
Errori comuni a cui dovresti stare attento mentre verifichi includono, ma non sono limitati a:
#### Errori tipografici
Qualche volta, gli sviluppatori originali hanno fatto degli errori tipografici mentre scrivevano i commenti. Alcuni sono stati erroneamente corretti durante la digitalizzazione iniziale e anche la digitalizzazione stessa ha introdotto altri errori tipografici che non erano presenti nelle scannerizzazioni originali.
Per esempio, se i commenti digitalizzati contengono `SPACEFRAFT`, ma `SPAECRAFT` è stato stampato sulle scannerizzazioni, allora le digitalizzaioni **DEVONO** essere corrette in `SPAECRAFT` (senza `C`).
Analogamente, se una parola ha un errore di battitura ma è scritta correttamente nelle scannerizzazioni allora l'errore **DEVE** essere corretto.
#### Spazi
Spazi tra due caratteri nei commenti **DOVREBBERO** corrispondere alle scannerizzazioni. Nella maggior parte dei casi (Si guardi la discussione in [#316][10]), questo comprende:
- Spazio singolo tra parole.
- Doppio spazio tra frasi.
- Triplo spazio per l'indentazione.
Non tutte le pagine nelle scannerizzazioni seguono queste linee guida, se le scannerizzazioni hanno un solo uno spazio, usane uno solo.
### Ritorni a capo
- I ritorni a capo *con* `R0000` nella colonna 1 dovrebbero corrispondere alle scannerizzaioni esattamente.
- I ritorni a capo *senza* `R0000` nella colonna 1 dovrebbero contenere solo 1 o 2 linee vuote di seguito.
- Se ci sono più di 2 ritorni a capo, elimina quelli in eccesso.
- Righe con `R0000` nella colonna 1 non seguono questa regola.
- Nelle immagini originali, queste sono state create da un numero non stampato nella colonna 8. Un 2 ha forzato un doppio spazio (una singola riga vuota), invece un 3 ha forzato uno spazio triplo (due righe vuote). Valori da 4 a 8 sono
stati definiti ma non sono mai stati usati. Puoi leggere di più qui [#159][7]
Per esempio, il seguente:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0821 LAMPTEST CS IMODES33
```
Dovrebbe diventare:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0820 LAMPTEST CS IMODES33
```
## Note
Prima di fare una PR(Pull Request), per piacere controlla che i tuoi cambiamenti siano consistenti con le scannerizzazioni!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[2]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[6]:https://github.com/wopian/agc-assembly#user-settings
[7]:https://github.com/chrislgarry/Apollo-11/issues/159
[8]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[9]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[10]:https://github.com/chrislgarry/Apollo-11/pull/316#pullrequestreview-102892741

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
**日本語**, **日本語**,
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,16 +27,21 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md [ZH_TW]:CONTRIBUTING.zh_tw.md
このリポジトリのソースコードは紙の印刷物から手動でデジタル化された為、いくつかのタイプミスやその他の不一致が誤って導入されています。スキャンしたプリントアウトと一致する様にコードを変更する必要があります: このリポジトリのソースコードは紙の印刷物から手動でデジタル化された為、いくつかのタイプミスやその他の不一致が誤って導入されています。以下のスキャンしたプリントアウトと一致する様にコードを変更する必要があります:
- [AGC printouts for Comanche][8] - [AGC printouts for Comanche][8]
- [AGC printouts for Luminary][9] - [AGC printouts for Luminary][9]
@ -74,12 +84,30 @@ GitHubには、組み込みのAGCアセンブリ言語の構文サポートが
## 確認方法は? ## 確認方法は?
スキャンとこのリポジトリ内のソースコードとの間の不一致: スキャンとこのリポジトリ内のソースコードとの間の不一致がある場合。
### コメント ### コメント
- 文字起こしされたコードのコメントはスキャンと正確に一致する必要があります 文字起こしされたコードのコメントはスキャンと**正確**に一致**しなければなりません**。
- これには意図的なタイプミス、またはコメント全体の削除/追加が含まれる場合があります。
校正中に注意する必要がある一般的な問題には、次のものがありますが、これらに限定されません:
#### 誤植
いくつかの場所において、元の開発者がコメントを書いている中で誤植をしています。これらのいくつかは、最初のデジタル化の際に修正がされていますが、デジタル化によってスキャンに存在しなかった誤植も発生してしまいました。
例えば、デジタル化されたコメントに `SPACECRAFT` が含まれているが、 `SPAECRAFT` が印刷されたスキャンの場合、デジタル化は `SPAECRAFT` に修正**しなければなりません**(`C` が抜けている)。
同様に、単語のデジタル化にタイプミスがあるが、スキャンでスペルが正しい場合は、タイプミスを修正**しなければなりません**。
### スペース
- コメント内の2つの文字間のスペースは、スキャンと一致**すべきです**。多くの場合([#316][10]のディスカッションを参照)、次の規則に従う必要があります:
- 新しい単語の為の単一のスペース。
- 新しい文章の為の2個のスペース。
- インデントの為の3個のスペース。
スキャンのすべてのページがこの一般化に従っている訳ではありません。スキャンに2個のスペースではなく1個のスペースしかない場合、1個のスペースを使用して下さい。
### 改行 ### 改行
@ -110,27 +138,6 @@ R0820
0820 LAMPTEST CS IMODES33 0820 LAMPTEST CS IMODES33
``` ```
### スペース
- 文字列間内の2つの文字間のスペースは、次の規則に従う必要があります[#316][10]のディスカッションを参照):
- 新しい単語の為の単一のスペース。
- 新しい文章の為の2個のスペース。
- インデントの為の3個のスペース。
例えば、次の通りです:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
これになるはずです:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
## 注意 ## 注意
PRを作成する前に、変更がスキャンと一致していることを確認して下さい PRを作成する前に、変更がスキャンと一致していることを確認して下さい

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
@ -61,7 +71,7 @@ GitHub은 내장 에디터에서 AGC문법을 지원합니다. 그러나 불행
## 포매팅 ## 포매팅
**참고:** Github 내장 에디터와 위의 세 확장기능들은 이 문단에서 정의하는 포매팅을 자동으로 수행해줍니다. **참고:** GitHub 내장 에디터와 위의 세 확장기능들은 이 문단에서 정의하는 포매팅을 자동으로 수행해줍니다.
- 탭 들여쓰기를 사용하십시오. - 탭 들여쓰기를 사용하십시오.
- 들여쓰기 크기는 8입니다. - 들여쓰기 크기는 8입니다.

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
**Kurdî**, **Kurdî**,
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,14 +27,22 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md [ZH_TW]:CONTRIBUTING.zh_tw.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Koda xwerû di vê depoyê de ji kaxezek çapkirî bi awak destkî hat dîjîtîzkirin, ji ber vê yekê nakokî û cudahiyên din bi şaşî hatine danîn. Pêdivîye ku kod bêne guhertin da ku li gorî çapên şandî li hev bikin: Koda xwerû di vê depoyê de ji kaxezek çapkirî bi awak destkî hat dîjîtîzkirin, ji ber vê yekê nakokî û cudahiyên din bi şaşî hatine danîn. Pêdivîye ku kod bêne guhertin da ku li gorî çapên şandî li hev bikin:

152
CONTRIBUTING.lt.md Normal file
View File

@ -0,0 +1,152 @@
# Prisidėjimas
🎌
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
**Lietuvių**,
[Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR],
[Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:CONTRIBUTING.ar.md
[CZ]:CONTRIBUTING.cz.md
[DE]:CONTRIBUTING.de.md
[EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Šios saugyklos kodas buvo suskaitmenintas rankiniu būdu iš popierinių spausdinių, todėl galima tikėtis klaidų ir kiti neatitikimų. Kodas turi būti pakeistas taip, kad labiau atitiktų šiuos nuskaitytus spausdinius:
- [AGC spausdiniai Comache][8]
- [AGC spausdiniai Luminary][9]
## Naudingi plėtiniai
GitHub turi integruotą AGC assemblerio kalbos sintakės palaikymą. Dėja, jūsų kodo redaktorius šios assemblerio kalbos nepalaikys, tačiau yra AGC kalbos plėtinių, kurie suteikia sintakės paryškinimą šiems redaktoriams:
- [Atom][Atom]†
- [CodeBlocks][CodeBlocks]
- [Eclipse][Eclipse]
- [Kate][Kate]
- [ProgrammersNotepad][ProgrammersNotepad]
- [Sublime Text 3][Sublime Text]†
- [TextPad][TextPad]
- [Vim][Vim]
- [Visual Studio Code][VisualStudioCode]†
- [jEdit][jEdit]
† Palaiko automatinį formatavimą
[Atom]:https://github.com/Alhadis/language-agc
[CodeBlocks]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/CodeBlocks
[Eclipse]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Eclipse
[Kate]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Kate
[ProgrammersNotepad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/ProgrammersNotepad
[Sublime Text]:https://github.com/jimlawton/AGC-Assembly
[TextPad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/TextPad
[Vim]:https://github.com/wsdjeg/vim-assembly
[VisualStudioCode]:https://github.com/wopian/agc-assembly
[jEdit]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/jEdit
## Formatavimas
**Pastaba:** GitHub ir plėtiniai nurodyti viršuje automatiškai užtikrins, kad naudotumėte teisingą formatavimą.
- Naudokite skirtuko įtrauką
- Naudokite skirtuko plotį 8
- Ištrinkite galinius tarpus
## Ką aš turiu patikrinti?
Betkokius neatitikimus tarp skenuočių ir šaltinio kodo šioje saugykloje.
### Komentarai
- Komentarai perrašytame kode turi **tiksliai** atitikti skenuočių komentarus.
Dažnai pasikartojančios problemos, į kurias turėtumėte atkreipti dėmesį, jomis neapsiribojant:
#### Tipografinės klaidos
Kai kuriose vietose, rašant komentarus, originalūs kūrėjai paliko tipografinių klaidų. Kai kurios iš jų buvo klaidingai ištaisytos per pradinį skaitmenizavimą, tačiau skaitmenizavimas taip pat pridėjo tipografinių klaidų, kurių nebuvo skenuotėse.
Pavyzdžiui, jeigu skaitmenizuotas komentaras turėjo žodį `SPACECRAFT`, bet `SPAECRAFT` buvo išspausdintas skenuotėse, tai ši skaitmenizacija **turi** būti pataisyta į `SPAECRAFT` (be `C`).
Taip pat, jeigu žodis turi klaidą skaitmenizacijoje, bet yra parašytas teisingai skenuotėse, tai ta klaida **turi** būti pataisyta.
### Tarpai
- Tarpai tarp dviejų rašmenų komentaruose **turi** atitikti skenuotes. Dažnu atvėju (žiūrėti diskusiją [#316][10]), tai yra:
- Vienas tarpas naujiems žodžiams.
- Dvigubas tarpas naujiems sakiniams.
- Trigubas tarpas įtraukoms.
Nevisi puslapiai skenuotėse laikosi šių taisykių, jeigu skenuotės turi tik vieną tarpą vietoj dvigubo tarpo, reikia naudoti vieną tarpą.
### Eilučių lūžiai
- Linijų lūžiai su *pločiu* `R0000` pirmame stulpelyje turi tiksliai atitikti skenuotes.
- Linijų lūžiai su *pločiu**__out__* `R0000` pirmame stulpelyje gali turėti tik vieną arba dvi tuščias eilutes iš eilės.
- Jeigu yra daugiau negu dvi tuščios linijos, reikia ištrinti papildomas eilutes.
- Linijos su `R0000` pirmame stulpelyje nesiskaičiuoja.
- Šaltinių nuotraukose, šios buvo sukurtos nespausdintu skaitmeniu aštuntame stulpelyje. A 2 - ten buvo dvigubas tarpas (viena tuščia eilutė) ir a 3 buvo trigubas tarpas (dviguba tuščia eilutė). Reikšmės nuo 4-8 buvo apibrėžtos, bet niekada nenaudotos. Daugiau apie tai [#159][7]
Pavyzdžiui, šis tekstas:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0821 LAMPTEST CS IMODES33
```
Turėtų patapti:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0820 LAMPTEST CS IMODES33
```
## Pastabos
Prieš kuriant PR, prašome įsitikinti, kad jūsų pakeitimai atitinka skenuotes!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[2]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[6]:https://github.com/wopian/agc-assembly#user-settings
[7]:https://github.com/chrislgarry/Apollo-11/issues/159
[8]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[9]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[10]:https://github.com/chrislgarry/Apollo-11/pull/316#pullrequestreview-102892741

View File

@ -6,10 +6,15 @@
**English**, **English**,
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,16 +27,21 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md [ZH_TW]:CONTRIBUTING.zh_tw.md
The source code in this repository was digitized manually from paper printouts, so typos and other discrepancies have been introduced accidentally. The code shall be modified to be made consistent with the scanned printouts: The source code in this repository was digitized manually from paper printouts, so typos and other discrepancies have been introduced accidentally. The code shall be modified to be made consistent with the following scanned printouts:
- [AGC printouts for Comanche][8] - [AGC printouts for Comanche][8]
- [AGC printouts for Luminary][9] - [AGC printouts for Luminary][9]
@ -74,12 +84,31 @@ GitHub has syntax support for the AGC assembly language built-in. Unfortunately
## What do I check? ## What do I check?
Any discrepancies between the scans and the source code in this repository, including: Any discrepancies between the scans and the source code in this repository.
### Comments ### Comments
- Comments in the transcribed code should match the scans exactly Comments in the transcribed code **MUST** match the scans **exactly**.
- This could involve creating a deliberate typo or removing/adding an entire comment.
Common issues you should look out for while proofing include, but not limited to:
#### Typographic Errors
In some places, the original developers made typographic errors while writing comments. Some of these were mistakenly corrected during the initial digitisation, however the digitisation has also introduced typographic errors that were not present in the scans.
For example, if the digitised comments contained `SPACECRAFT`, but `SPAECRAFT` was printed in the scans, then the digitisation **MUST** be corrected to `SPAECRAFT` (missing `C`).
Likewise, if a word has a typo in the digitisation but is spelt correctly in the scans then the typo **MUST** be corrected.
#### Spaces
Spaces between two characters in comments **SHOULD** match the scans. In most cases (see the discussion in [#316][10]), this is:
- Single space for new words.
- Double space for new sentences.
- Triple space for indentations.
Not all pages in the scans follow this generalisation, if the scans only have a single space instead of a double space, use a single space.
### Line breaks ### Line breaks
@ -110,27 +139,6 @@ R0820
0820 LAMPTEST CS IMODES33 0820 LAMPTEST CS IMODES33
``` ```
### Spaces
- Spaces between two characters in the string should respect the following convention (see the discussion in [#316][10]):
- Single space for new words.
- Double space for new sentences.
- Triple space for indentations.
For example the following:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
Should become:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
## Note ## Note
Before you make a PR, please make sure your changes are consistent with the scans! Before you make a PR, please make sure your changes are consistent with the scans!

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
**Nederlands**, **Nederlands**,
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,14 +27,19 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md [ZH_TW]:CONTRIBUTING.zh_tw.md
[NL]:CONTRIBUTING.nl.md
De broncode in deze repository is handmatig gedigitalizeerd van papieren stukken. Typfouten en andere discrepanties kunnen per ongeluk zijn toegevoegd. De code zal worden aangepast om gelijk te worden gemaakt aan de gescande papieren: De broncode in deze repository is handmatig gedigitalizeerd van papieren stukken. Typfouten en andere discrepanties kunnen per ongeluk zijn toegevoegd. De code zal worden aangepast om gelijk te worden gemaakt aan de gescande papieren:
@ -38,7 +48,7 @@ De broncode in deze repository is handmatig gedigitalizeerd van papieren stukken
## Handige extensies ## Handige extensies
Github heeft syntax ondersteuning voor de AGC assembly taal ingebouwd. Helaas heeft jouw editor dit niet, gelukkig zijn er AGC extensies die de volgende editors kunnen voorzien van syntax ondersteuning: GitHub heeft syntax ondersteuning voor de AGC assembly taal ingebouwd. Helaas heeft jouw editor dit niet, gelukkig zijn er AGC extensies die de volgende editors kunnen voorzien van syntax ondersteuning:
- [Atom][Atom]† - [Atom][Atom]†
- [CodeBlocks][CodeBlocks] - [CodeBlocks][CodeBlocks]

153
CONTRIBUTING.no.md Normal file
View File

@ -0,0 +1,153 @@
# Bidra
🎌
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL],
**Norsk**,
[Polski][PL],
[Português][PT_BR],
[Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:CONTRIBUTING.ar.md
[CZ]:CONTRIBUTING.cz.md
[DE]:CONTRIBUTING.de.md
[EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Kilde koden I dette «repository» var digitalisert manuelt ifra papir utskrifter, om det finnes stavefeil og andre avvik skall koden reflektere dette. Skrivefeil og andre avvik kan ha blitt innført ved et uhell men skal allikevel være identisk med følgende digitalisert papir utskrifter:
- [AGC utskrift for Comanche][8]
- [AGC utskrift for Luminary][9]
## Nytteprogrammer
GitHub har kildekode støtte for «assembly» programmerings språket AGC ( innebygget ), og de følgene tekst redigerings programmene har også støtte for nøkkel ord fargesetting:
- [Atom][Atom]†
- [CodeBlocks][CodeBlocks]
- [Eclipse][Eclipse]
- [Kate][Kate]
- [ProgrammersNotepad][ProgrammersNotepad]
- [Sublime Text 3][Sublime Text]†
- [TextPad][TextPad]
- [Vim][Vim]
- [Visual Studio Code][VisualStudioCode]†
- [jEdit][jEdit]
† Supporterer automatisk formattering
[Atom]:https://github.com/Alhadis/language-agc
[CodeBlocks]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/CodeBlocks
[Eclipse]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Eclipse
[Kate]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Kate
[ProgrammersNotepad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/ProgrammersNotepad
[Sublime Text]:https://github.com/jimlawton/AGC-Assembly
[TextPad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/TextPad
[Vim]:https://github.com/wsdjeg/vim-assembly
[VisualStudioCode]:https://github.com/wopian/agc-assembly
[jEdit]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/jEdit
## Formattering
**Merk:** GitHub og redigerings programmene nevnt ovenfor vil sørge for at du bruker korrekt formattering av kilde koden.
- Bruk Tab for innrykk
- Bruk Tab med 8 mellomrom
- Ta bort mellomrom og annet som ikke er synlig på slutten av setninger
## Hva må jeg sjekke?
Eventuelle avvik ifra de innskannede bildene og kilde koden i dette «repository»
### Kommentarer
Kommentarer i denne koden **SKAL** stemme **eksakt** med den digitaliserte originalen.
Vanlige feil en bør se etter er blant annet:
#### Typografiske feil
Noen steder skrev original utvikleren feil i kode kommentarene. Noen av disse feilene ble rettet under digitaliseringen, og digitaliseringen har også introdusert nye typografiske feil som ikke kommer ifra papir utskriften.
For eksempel, om de originale dokumentene var feilstavet til SPAECRAFT og de digitaliserte dokumentene ble endret til SPACECRAFT**SKAL** dette rettes til og reflektere de originale dokumentene, altså uten C i ordet.
På samme måte, om digitaliseringen introduserte stavefeil som ikke var tilstede i de originale dokumentene **SKAL** dette rettes.
#### Mellomrom
Mellomrom mellom to karakterer i teksten **BØR** følge de digitaliserte dokumentene. I de fleste tilfeller (se diskusjon i [#316[10]) betyr dette:
- Enkelt mellomrom for nye ord
- Dobbelt mellomrom for nye linjer
- Trippel mellomrom for innrykk
Ikke alle sider i de digitaliserte dokumentene følger denne generaliseringen, så om de digitaliserte dokumentene bruker enkelt mellomrom i stedet for dobbelt mellomrom så skal enkelt mellomrom følges.
### Linje Skift
- Linje skift *med* `R0000` i kolonne 1 skal stemme helt med originalen.
- Linje skift *uten* `R0000` i kolonne 1 skal bare ha en eller to blanke linjer etter seg.
- Om det er flere enn to blanke linjer skal de fjernes
- Linjer med `R0000` i kolonne 1 regnes ikke i slike tilfeller
- I originalen ble disse skapt av et uskrevet tegn i kolonne 8. Sto det 2 der var der et dobbelt mellomrom ( enkel blank linje ) og om det var 3 så ble det et trippel mellomrom ( to dobble linjer ). Verdiene ifra 4 til 8 var definert, men er ikke i bruk. Les mer om dette i [#159][7]
For eksempel skal følgende kode:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0821 LAMPTEST CS IMODES33
```
Se slik ut:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0820 LAMPTEST CS IMODES33
```
## Noter
Før en gjør en «Pull Request» bør man være helt sikker på at forandringer er helt lik de digitaliserte bildene!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[2]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[6]:https://github.com/wopian/agc-assembly#user-settings
[7]:https://github.com/chrislgarry/Apollo-11/issues/159
[8]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[9]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[10]:https://github.com/chrislgarry/Apollo-11/pull/316#pullrequestreview-102892741

153
CONTRIBUTING.pl.md Normal file
View File

@ -0,0 +1,153 @@
# Contributing
🎌
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL],
[Norsk][NO],
**Polski**,
[Português][PT_BR],
[Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:CONTRIBUTING.ar.md
[CZ]:CONTRIBUTING.cz.md
[DE]:CONTRIBUTING.de.md
[EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md
[ZH_TW]:CONTRIBUTING.zh_tw.md
Kod źródłowy w tym repozytorium został zdigitalizowany ręcznie na podstawie wydruków papierowych, więc literówki i inne rozbieżności zostały wprowadzone przypadkowo. Kod należy zmodyfikować, aby był zgodny z zeskanowanymi wydrukami:
- [AGC printouts for Comanche][8]
- [AGC printouts for Luminary][9]
## Przydatne rozszerzenia
GitHub obsługuje składnię wbudowanego języka asemblera AGC. Niestety twój edytor kodu prawdopodobnie nie będzie go obsługiwał, jednak istnieją rozszerzenia języka AGC, które zapewniają obsługę składni tego języka dla następujących edytorów:
- [Atom][Atom]†
- [CodeBlocks][CodeBlocks]
- [Eclipse][Eclipse]
- [Kate][Kate]
- [ProgrammersNotepad][ProgrammersNotepad]
- [Sublime Text 3][Sublime Text]†
- [TextPad][TextPad]
- [Vim][Vim]
- [Visual Studio Code][VisualStudioCode]†
- [jEdit][jEdit]
† Wspiera automatyczne formatowanie
[Atom]:https://github.com/Alhadis/language-agc
[CodeBlocks]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/CodeBlocks
[Eclipse]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Eclipse
[Kate]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/Kate
[ProgrammersNotepad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/ProgrammersNotepad
[Sublime Text]:https://github.com/jimlawton/AGC-Assembly
[TextPad]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/TextPad
[Vim]:https://github.com/wsdjeg/vim-assembly
[VisualStudioCode]:https://github.com/wopian/agc-assembly
[jEdit]:https://github.com/virtualagc/virtualagc/tree/master/Contributed/SyntaxHighlight/jEdit
## Formatowanie
**Uwaga:** GitHub wraz z powyższymi rozszerzeniami zapewniają automatyczne użycie prawidłowego formatowana
- Tabulacja
- Szerokość tabulacji wynosząca 8
- Niepozostawianie spacji na końcu wierszy
## Co mam sprawdzać?
Wszelkie rozbieżności między skanami a kodem źródłowym tego repozytorium.
### Komentarze
Komentarze w transkrybowanym kodzie **MUSZĄ DOKŁADNIE** odpowiadać skanom.
Typowe problemy, na które należy zwrócić uwagę podczas sprawdzania, obejmują między innymi:
#### Literówki
W niektórych miejscach pierwotni programiści popełnili błędy typograficzne podczas pisania komentarzy. Niektóre z nich zostały błędnie poprawione podczas wstępnej digitalizacji, jednak digitalizacja wprowadziła również błędy typograficzne, których nie było w skanach.
Na przykład, jeśli zdigitalizowane komentarze zawierały słowo „SPACECRAFT”, ale na skanach odczytano „SPAECRAFT”, wówczas digitalizacja **MUSI** zostać poprawiona na „SPAECRAFT” (brakujące „C”).
Podobnie, jeśli słowo zawiera literówkę w digitalizacji, ale jest poprawnie napisane na skanach, wówczas literówka **MUSI** zostać poprawiona.
#### Spacje
Spacje pomiędzy dwoma znakami w danym ciągu powinny być zgodne z następującą konwencją (patrz na [#316][10]):
- Pojedyńcza spacja dla nowego słowa.
- Podwójna spacja dla nowego zdania.
- Potrójna spacja dla akapitu.
Nie wszystkie strony w skanach są zgodne z tym uogólnieniem, jeśli skany mają tylko jedną spację zamiast podwójnej, użyj jednej spacji.
### Rozdzielanie wierszy
- Wiersz *rozpoczynający się od* `R0000` w kolumnie 1 powinien dokładnie pasować do skanów.
- Wiersz *nierozpoczynający się od* `R0000` w kolumnie 1 powinien zawierać tylko 1 lub 2 puste wiersze z rzędu.
- Jeżeli są więcej niż 2 puste wiersze - usuń ich nadmiar.
- Wiersze rozpoczynające się od `R0000` w kolumnie 1 nie są zaliczane jako pusty wiersz.
- W obrazach źródłowych puste linie zostały utworzone przez niezadrukowaną cyfrę w kolumnie 8. 2 wymusiło podwójną spację (pojedyncza pusta linia), a 3 wymusiło potrójną spację (podwójna pusta linia). Wartości 4-8 zostały zdefiniowane, ale nigdy nie były używane. Więcej na ten temat w [#159][7]
Na przykład:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0821 LAMPTEST CS IMODES33
```
Zostaje zmienione na:
```plain
R0819 SUBROUTINE TO SKIP...
R0820
0820 LAMPTEST CS IMODES33
```
## Uwaga
Zanim utworzysz PR, upewnij się, że zmiany są zgodne ze skanami!
[0]:https://github.com/chrislgarry/Apollo-11/pull/new/master
[1]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[2]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[6]:https://github.com/wopian/agc-assembly#user-settings
[7]:https://github.com/chrislgarry/Apollo-11/issues/159
[8]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[9]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[10]:https://github.com/chrislgarry/Apollo-11/pull/316#pullrequestreview-102892741

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
**Português**, **Português**,
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
@ -38,7 +48,7 @@ O código-fonte neste repositório foi digitado manualmente a partir de impress
## Extensões úteis ## Extensões úteis
Github possui suporte de sintaxe nativo para a linguagem assembly AGC. GitHub possui suporte de sintaxe nativo para a linguagem assembly AGC.
Infelizmente, seu editor de texto não o terá. Portanto, existem extensões para a linguagem AGC que providenciam destaque de sintaxe para os seguintes editores: Infelizmente, seu editor de texto não o terá. Portanto, existem extensões para a linguagem AGC que providenciam destaque de sintaxe para os seguintes editores:
- [Atom][Atom]† - [Atom][Atom]†
@ -67,7 +77,7 @@ Infelizmente, seu editor de texto não o terá. Portanto, existem extensões par
## Formatando ## Formatando
**Nota:** Github e as três extensões listadas acima garantirão que você estará usando a formatação correta automaticamente. **Nota:** GitHub e as três extensões listadas acima garantirão que você estará usando a formatação correta automaticamente.
- Use indentação por tab - Use indentação por tab
- Use largura de tab em 8 - Use largura de tab em 8

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
**Türkçe**, **Türkçe**,
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
@ -38,7 +48,7 @@ Bu repodaki kaynak kodu kağıt çıktılarından elle dijitalleştirilmiştir.
## Yararlı Eklentiler ## Yararlı Eklentiler
Github, AGC assembly dili için sentaks desteği sağlıyor ama sizin kodu düzenlemek için kullandığınız editör sağlamayacaktır. Aşağıdaki editörler AGC dili sentaks vurgulaması için eklentiler sunmaktadır: GitHub, AGC assembly dili için sentaks desteği sağlıyor ama sizin kodu düzenlemek için kullandığınız editör sağlamayacaktır. Aşağıdaki editörler AGC dili sentaks vurgulaması için eklentiler sunmaktadır:
- [Atom][Atom]† - [Atom][Atom]†
- [CodeBlocks][CodeBlocks] - [CodeBlocks][CodeBlocks]
@ -74,12 +84,31 @@ Github, AGC assembly dili için sentaks desteği sağlıyor ama sizin kodu düze
## Neyi kontrol edeyim? ## Neyi kontrol edeyim?
Taratılmış çıktılar ve bu repodaki kaynak kodu arasındaki aşağıdakileri kapsayan herhangi bir tutarsızlığı: Taratılmış çıktılar ve bu repodaki kaynak kodu arasındaki herhangi bir tutarsızlığı.
### Yorumlar ### Yorumlar
- Uyarlanan koddaki yorum satırları, çıktılar ile tamamen eşleşmelidir Uyarlanan koddaki yorum satırları, çıktılar ile **tamamen** **eşleşmelidir**.
- Bu bilerek yazım hatası koymayı veya bir yorumun tamamını kaldırıp/eklemeyi içerebilir.
Düzeltmek için bakmanız gereken bazı temel sorunlar şunlardır:
#### Yazım Hataları
Bazı yerlerde, orijinal geliştiriciler yorum yazarken yazım hataları yapmış. Bunların bazıları dijitalleştirme sürecinin başlarında yanlışlıkla düzeltildi fakat dijitalleştirme süreci taratılmış çıktılarda olmayan yeni yazım hatalarına da sebep oldu.
Örneğin, dijitalleştirilmiş yorumlar `SPACECRAFT` kelimesini içeriyorsa ama taratılmış çıktılarda `SPAECRAFT` yazıyorsa, dijitalleştirilmiş yorum `SPAECRAFT` (`C` eksik) olarak **düzeltilmelidir**.
Aynı şekilde, eğer dijitalleştirmiş yorumlarda bir yazım hatası varsa ama taratılmış çıktılarda doğru yazılmışsa, yazım hatası **düzeltilmelidir**.
### Boşluklar
Yorumlar arasındaki iki karakterin arasındaki boşluklar taratılmış çıktılar ile **uyuşmalıdır**. Bir çok durumda ([#316][10]'daki tartışmayı inceleyin) boşluklar şu şekildedir:
- Yeni kelimeler arası tek boşluk.
- Yeni cümleler arası iki boşluk.
- Yeni girintiler için üç boşluk.
Taratılmış çıktılarda bütün sayfalar bu genellemelere uymaz. Eğer çıktılarda iki boşluk yerine bir boşluk varsa, bir boşluk kullanın.
### Satır sonları ### Satır sonları
@ -87,7 +116,7 @@ Taratılmış çıktılar ve bu repodaki kaynak kodu arasındaki aşağıdakiler
- Birinci sütunu `R0000` *__olmadan__* biten satır sonları arka arkaya sadece 1 ya da 2 boş satır içermelidir. - Birinci sütunu `R0000` *__olmadan__* biten satır sonları arka arkaya sadece 1 ya da 2 boş satır içermelidir.
- Eğer 2'den fazla satır sonu varsa ekstra olan satır sonlarını kaldırın. - Eğer 2'den fazla satır sonu varsa ekstra olan satır sonlarını kaldırın.
- Birinci sütunu `R0000` *ile* biten satırlar bu kural dahilinde değildir. - Birinci sütunu `R0000` *ile* biten satırlar bu kural dahilinde değildir.
- Kaynak resimlerde bunlar 8. satırındaki basamak bastırılmamış halde oluşturulmuştur. Bir 2 kullanımı iki boşluğu (tek boş satırı) temsil ederken, bir 3 kullanımı üç boşluğu (iki boş satırı) ifade eder. 4 ve 8 tanımlanmıştır fakat hiç kullanılmamıştır. Bunun hakkında daha fazla okumak için: [#159][7]. - Kaynak resimlerde bunlar 8. satırındaki basamak bastırılmamış halde oluşturulmuştur. Bir 2 kullanımı iki boşluğu (tek boş satırı) temsil ederken, bir 3 kullanımı üç boşluğu (iki boş satırı) ifade eder. 4 ve 8 tanımlanmıştır fakat hiç kullanılmamıştır. Bunun hakkında daha fazla okumak için: [#159][7]
Örneğin bu: Örneğin bu:
@ -110,27 +139,6 @@ R0820
0820 LAMPTEST CS IMODES33 0820 LAMPTEST CS IMODES33
``` ```
### Boşluklar
- Bir string'deki iki karakterin arasındaki boşluklar şu kurallara uymalıdır ([#316][10]'daki tartışmayı inceleyin):
- Yeni kelimeler arası tek boşluk.
- Yeni cümleler arası iki boşluk.
- Yeni girintiler için üç boşluk.
Örneğin bu:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
Buna dönüşmeli:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
## Not ## Not
PR yapmadan önce lütfen yaptığınız değişikliklerin çıktılar ile tutarlı olduğundan emin olun! PR yapmadan önce lütfen yaptığınız değişikliklerin çıktılar ile tutarlı olduğundan emin olun!

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
[正體中文][ZH_TW], [正體中文][ZH_TW],
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md

View File

@ -6,10 +6,15 @@
[English][EN], [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Lietuvių][LT],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[العربية][AR], [العربية][AR],
[日本語][JA], [日本語][JA],
**正體中文**, **正體中文**,
@ -22,10 +27,15 @@
[EN]:CONTRIBUTING.md [EN]:CONTRIBUTING.md
[ES]:CONTRIBUTING.es.md [ES]:CONTRIBUTING.es.md
[FR]:CONTRIBUTING.fr.md [FR]:CONTRIBUTING.fr.md
[GR]:CONTRIBUTING.gr.md
[IT]:CONTRIBUTING.it.md
[JA]:CONTRIBUTING.ja.md [JA]:CONTRIBUTING.ja.md
[KO_KR]:CONTRIBUTING.ko_kr.md [KO_KR]:CONTRIBUTING.ko_kr.md
[KU]:CONTRIBUTING.ku.md [KU]:CONTRIBUTING.ku.md
[LT]:CONTRIBUTING.lt.md
[NL]:CONTRIBUTING.nl.md [NL]:CONTRIBUTING.nl.md
[NO]:CONTRIBUTING.no.md
[PL]:CONTRIBUTING.pl.md
[PT_BR]:CONTRIBUTING.pt_br.md [PT_BR]:CONTRIBUTING.pt_br.md
[TR]:CONTRIBUTING.tr.md [TR]:CONTRIBUTING.tr.md
[ZH_CN]:CONTRIBUTING.zh_cn.md [ZH_CN]:CONTRIBUTING.zh_cn.md
@ -38,7 +48,7 @@
## 實用套件 ## 實用套件
GitHub 內建 AGC 組語語法支援,但你的編輯器本身並沒有。不過,某些編輯器有提供 AGC 語法突顯的語言套件: GitHub 內建 AGC 組語語法支援,但你的編輯器本身並沒有。不過,以下編輯器有提供 AGC 語法突顯的語言套件:
- [Atom][Atom]† - [Atom][Atom]†
- [CodeBlocks][CodeBlocks] - [CodeBlocks][CodeBlocks]
@ -66,7 +76,7 @@ GitHub 內建 AGC 組語語法支援,但你的編輯器本身並沒有。不
## 格式化 ## 格式化
**注意:**GitHub 與上面列出的套件,會自動確保您使用正確的格式。 **注意:** GitHub 與上面列出的套件,會自動確保您使用正確的格式。
- 用 tab 縮排 - 用 tab 縮排
- tab 寬度為 8 - tab 寬度為 8
@ -78,8 +88,27 @@ GitHub 內建 AGC 組語語法支援,但你的編輯器本身並沒有。不
### 註解 ### 註解
- 抄寫的註解要和掃描一模一樣。 抄寫的註解**必須**和掃描**一模一樣**。
- 這包括刻意的拼寫錯誤、或是刪除/增加整個註解。
在檢查程式時需要留心,但不限於的問題有:
#### 拼寫錯誤
有時候,原始程式的開發者會撰寫時,出現若干拼寫錯誤。有時可能會在初次數位化時,被錯誤地更正;不過數位化本身,也可能產出在原始稿沒出現的拼寫錯誤。
比方說,數位化的註解如果是 `SPACECRAFT`、但掃描原稿是 `SPAECRAFT` 的話,數位化就**必須**更正為沒有 C 的 `SPAECRAFT`
同樣地,如果是數位化的註解錯了、但掃描稿正確的話,就**必須**更正數位化的程式。
#### 空格
在字元內,兩個單字之間的空白**必須**與掃描相同。大多數時(請參閱 [#316][10] 的討論)慣例如下:
- 單字間空一格。
- 句子間空兩格。
- 縮排間空三格。
不是所有掃描都遵照這個慣例。如果不空兩格,而是空一格,那就空一格。
### 換行 ### 換行
@ -110,27 +139,6 @@ R0820
0820 LAMPTEST CS IMODES33 0820 LAMPTEST CS IMODES33
``` ```
### 空白
- 在字元內,兩個單字之間的空白必須遵照以下慣例(請參閱 [#316][10] 的討論):
- 單字間空一格。
- 句子間空兩格。
- 縮排間空三格。
例如以下程式:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
要改寫成:
```plain
1) FOO BAR BAZ QUX QUUX QUUZ. CORGE, GRAULT,
GARPLY, WALDO.
```
## 注意 ## 注意
在發 PR 前,請確保您的修改與掃描輸出一模一樣! 在發 PR 前,請確保您的修改與掃描輸出一模一樣!

View File

@ -10,7 +10,7 @@
# Website: http://www.ibiblio.org/apollo. # Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
# 2009-05-20 RSB Corrections: POODOO -> P00DOO, # 2009-05-20 RSB Corrections: POODOO -> P00DOO,
# GOTOPOOH -> GOTOP00H, added a couple of # GOTOPOOH -> GOTOPOOH, added a couple of
# missing instructions in Verb 96. # missing instructions in Verb 96.
# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
# CA FLAGWRD1. Added a variety of SBANK= # CA FLAGWRD1. Added a variety of SBANK=
@ -462,7 +462,7 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
COUNT 04/EXTVB COUNT 04/EXTVB
SYSTEST TC CHKP00H SYSTEST TC CHKPOOH
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
MASK NOP01BIT MASK NOP01BIT
EXTEND EXTEND
@ -524,7 +524,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
# 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
IMUATTCK TC CHKP00H IMUATTCK TC CHKPOOH
CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
EXTEND EXTEND
@ -586,7 +586,7 @@ CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
XACT0Q TC Q # YES XACT0Q TC Q # YES
OCTAL30 OCT 30 OCTAL30 OCT 30
VB64 TC CHKP00H # DEMAND PROGRAM 00. VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY. TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
INHINT INHINT
CAF PRIO4 CAF PRIO4
@ -675,7 +675,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
# C. ENTER # C. ENTER
# 1. REPEAT FLASHING V06,N22. # 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00 CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1004,7 +1004,7 @@ LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT
TC GOPIN TC GOPIN
# Page 261 # Page 261
CHKP00H CA MODREG CHKPOOH CA MODREG
EXTEND EXTEND
BZF TCQ BZF TCQ
TCF ALM/END TCF ALM/END
@ -1058,7 +1058,7 @@ IDLECADR 2CADR T5IDLOC
# TERMINATE- EXIT R63 ROUTINE # TERMINATE- EXIT R63 ROUTINE
# PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H # DEMAND P00 V89PERF TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
INHINT INHINT
CAF PRIO10 CAF PRIO10
@ -1078,7 +1078,7 @@ WMATRXNG TC DOWNFLAG # RESET RENDWFLG
GOSHOSUM EQUALS SHOWSUM GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H SHOWSUM TC CHKPOOH
TC TESTXACT # * TC TESTXACT # *
CAF S+1 # * CAF S+1 # *
TS SKEEP6 # * SHOWSUM OPTION TS SKEEP6 # * SHOWSUM OPTION

View File

@ -116,7 +116,7 @@
# CADR SLAP1 # CADR SLAP1
# ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** # ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT ***
# CADR ENEMA *** CONSULTING P00H PEOPLE *** # CADR ENEMA *** CONSULTING POOH PEOPLE ***
# B. OUTPUT # B. OUTPUT
@ -471,7 +471,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
# ******** ****** ****** # ******** ****** ******
# #
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
# #
GOPROG2 EQUALS ENEMA GOPROG2 EQUALS ENEMA
OCT10000 = BIT13 OCT10000 = BIT13
@ -945,12 +945,12 @@ DUMMYAD EXIT
TC DOWNFLAG TC DOWNFLAG
ADRES R21MARK ADRES R21MARK
CCS MMNUMBER # IS THIS A P00H REQUEST CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM TCF NOUVEAU # NO, PICK UP NEW PROGRAM
COUNT 04/P00 COUNT 04/P00
P00H TC RELDSP # RELEASE DISPLAY SYSTEM POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
TS PHSPRDT2 TS PHSPRDT2
@ -985,7 +985,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST.
GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6 GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6
CADR V37KLEAN CADR V37KLEAN
CCS MMNUMBER # IS IT P00H CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO TCF RENDV00 # NO
# Page 201 # Page 201
TC IBNKCALL TC IBNKCALL

View File

@ -742,13 +742,13 @@ DT/2COMP DLOAD DSU
GETMAXDT GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D 12D
P00HCHK POOHCHK
USEMAXDT DLOAD SIGN USEMAXDT DLOAD SIGN
12D 12D
DT/2 DT/2
# Page 1324 # Page 1324
STCALL DT/2 STCALL DT/2
P00HCHK POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX DT/2MAX
GOTO GOTO
@ -757,7 +757,7 @@ GETMAXDT RTB
SIGNMPAC SIGNMPAC
STCALL DT/2 STCALL DT/2
USEMAXDT USEMAXDT
P00HCHK DLOAD ABS POOHCHK DLOAD ABS
DT/2 DT/2
DSU BMN DSU BMN
DT/2MIN DT/2MIN

View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page # of the same name, using Comanche055 page
# images. # images.
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ, # 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND # GOTOPOOH -> GOTOPOOH, a duplicated EXTEND
# was fixed, P23.10 -> R23.10, # was fixed, P23.10 -> R23.10,
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, # S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
# S22DPP -> S22DSPP, changed some instructions in # S22DPP -> S22DSPP, changed some instructions in
@ -2685,7 +2685,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
# #
# CALLING SEQUENCE: V 89 E # CALLING SEQUENCE: V 89 E
# #
# SUBROUTINES CALLED: CHKP00H, R02BOTH, GOXDSPF, R63COMP, R60CSM # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
# #
# ALARMS 1. OPERATOR ERROR IF NOT IN P00 # ALARMS 1. OPERATOR ERROR IF NOT IN P00
# 2. PROGRAM ALARM IF IMU IS OFF # 2. PROGRAM ALARM IF IMU IS OFF

View File

@ -189,7 +189,7 @@
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
# Page 652 # Page 652
# VNP00H # VNPOOH
# GOFLASHR # GOFLASHR
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
@ -237,7 +237,7 @@ P32/P72A TC P20FLGON
STORE NN STORE NN
EXIT EXIT
CAF V06N11 # TCSI CAF V06N11 # TCSI
TC VNP00H TC VNPOOH
CAF V06N55 # NN. ELEV(RGL05) CAF V06N55 # NN. ELEV(RGL05)
# Page 653 # Page 653
TC BANKCALL TC BANKCALL
@ -246,7 +246,7 @@ P32/P72A TC P20FLGON
TC +2 TC +2
TC -5 TC -5
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TCSI TCSI
@ -295,7 +295,7 @@ P32/P72F STORE T2TOT3
P32/P72F P32/P72F
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET1 DELVEET1
@ -453,7 +453,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
# VNP00H # VNPOOH
# SELECTMU # SELECTMU
# ADVANCE # ADVANCE
# CDHMVR # CDHMVR
@ -476,7 +476,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP P73 TC AVFLAGP
P33/P73A TC P20FLGON P33/P73A TC P20FLGON
CAF V06N13 # TCDH CAF V06N13 # TCDH
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TTPIO TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3 STORE T2TOT3
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET2 DELVEET2
@ -578,7 +578,7 @@ P33/P73F ABS DSU
# SUBROUTINES USED # SUBROUTINES USED
# S32/33.X # S32/33.X
# VNP00H # VNPOOH
SETLOC CDHTAG3 SETLOC CDHTAG3
BANK BANK
@ -595,7 +595,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC STORE DELVLVC
EXIT EXIT
CA VERBNOUN CA VERBNOUN
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
NORMEX NORMEX

View File

@ -159,7 +159,7 @@
# AVFLAGA # AVFLAGA
# Page 463 # Page 463
# AVFLAGP # AVFLAGP
# VNP00H # VNPOOH
# DISPLAYE # DISPLAYE
# SELECTMU # SELECTMU
# PRECSET # PRECSET
@ -185,7 +185,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H # Onno: The scans look like O not zero TC VNPOOH # Onno: The scans look like O not zero
TC INTPRET TC INTPRET
SSP EXIT SSP EXIT
NN NN
@ -240,7 +240,7 @@ SWCHCLR BONCLR BON
TC P34/P74E TC P34/P74E
P34/P74D EXIT P34/P74D EXIT
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
P34/P74E TC INTPRET P34/P74E TC INTPRET
SETPD DLOAD SETPD DLOAD
0D 0D
@ -287,7 +287,7 @@ P34/P74E TC INTPRET
STORE TIG STORE TIG
EXIT EXIT
CAF V06N58 CAF V06N58
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CALL CALL
S34/35.5 S34/35.5
@ -821,7 +821,7 @@ ALLSET STOVL TET
# GOTOPOOH # GOTOPOOH
# S34/35.3 # S34/35.3
# S34.35.4 # S34.35.4
# VNP00H # VNPOOH
S34/35.5 STQ BON S34/35.5 STQ BON
SUBEXIT SUBEXIT
@ -835,7 +835,7 @@ FLAGON VLOAD
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
EXIT EXIT
CAF V06N81 CAF V06N81
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED
DELVLVC # DELTA V DELVLVC # DELTA V
@ -852,7 +852,7 @@ FLAGOFF CALL
S34/35.4 S34/35.4
EXIT EXIT
CAF V06N59 CAF V06N59
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
SUBEXIT SUBEXIT
@ -955,7 +955,7 @@ P3XORP7X CAF HIGH9
INCR Q INCR Q
RETURN RETURN
# ***** VNP00H ***** # ***** VNPOOH *****
# #
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
@ -965,7 +965,7 @@ P3XORP7X CAF HIGH9
SETLOC P30SUBS SETLOC P30SUBS
BANK BANK
VNP00H EXTEND VNPOOH EXTEND
QXCH RTRN QXCH RTRN
TS VERBNOUN TS VERBNOUN
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN

View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name, and Comanche 055 page images. # name, and Comanche 055 page images.
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT, # 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT, # GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT,
# V853 -> VB53, R56A -> R56A1 (some places # V853 -> VB53, R56A -> R56A1 (some places
# only), added missing R56A1 label, added a # only), added missing R56A1 label, added a
# missing CAF in COARSTYP, corrected a SETLOC # missing CAF in COARSTYP, corrected a SETLOC

View File

@ -447,7 +447,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
# MOD BY: R. HIRSCHKOP # MOD BY: R. HIRSCHKOP
# FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC # FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
# CALLING SEQUENCE: # CALLING SEQUENCE:
# EXIT: TO P00H # EXIT: TO POOH
# SUBROUTINE CALLS: GOFLASH # SUBROUTINE CALLS: GOFLASH
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.

View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page # of the same name, using Comanche055 page
# images. Finished through page 329. # images. Finished through page 329.
# 2009-05-09 RSB Finished first draft. # 2009-05-09 RSB Finished first draft.
# 2009-05-20 RSB Corrected a CHKPOOH to CHKP00H. # 2009-05-20 RSB Corrected a CHKPOOH to CHKPOOH.
# #
# This source code has been transcribed or otherwise adapted from digitized # This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed # images of a hardcopy from the MIT Museum. The digitization was performed
@ -3605,7 +3605,7 @@ PINTEST EQUALS LST2FAN
COUNT 41/PIN COUNT 41/PIN
VBTSTLTS TC BANKCALL VBTSTLTS TC BANKCALL
CADR CHKP00H CADR CHKPOOH
INHINT INHINT
CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T

View File

@ -476,7 +476,7 @@ P17 TC AVFLAGA # AVFLAG = CSM , SET TRACK + UPDATE FLAGS
P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS
P17.1 TC P20FLGON # SET UPDATE FLAG P17.1 TC P20FLGON # SET UPDATE FLAG
CAF V06N37 # DISPLAY TTPI TIME CAF V06N37 # DISPLAY TTPI TIME
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CLEAR CALL CLEAR CALL
UPDATFLG UPDATFLG

View File

@ -85,7 +85,7 @@
EBANK= AOSQ EBANK= AOSQ
# ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSIT WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB. # ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
# IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF # IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF
# NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED. # NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.

View File

@ -745,7 +745,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
TC BANKCALL TC BANKCALL
CADR CLOCPLAY CADR CLOCPLAY
TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO POOH
TCF COMFAIL1 TCF COMFAIL1
TCF COMFAIL2 TCF COMFAIL2

View File

@ -27,10 +27,9 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 1410 # Page 1410
# THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES # THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES
# PER SECOND UNTIL THE ASTRONAUT DESIRES THE DAP TO WAKE UP, AND THE IMU AND CDUS ARE READY FOR USE BY THE DAP. # PER SECOND UNTIL THE ASTRONAUT DESIRES THE DAP TO WAKE UP, AND THE IMU AND CDUS ARE READY FOR USE BY THE DAP.
# THE NECESSARY INITIALIZATION OF THE DAP IS DONE BY THE DAPIDLER PROGRAM. # THE NECESSARY INITIALIZATION OF THE DAP IS DONE BY THE DAPIDLER PROGRAM.
BANK 16 BANK 16
SETLOC DAPS1 SETLOC DAPS1
BANK BANK
@ -78,20 +77,20 @@ DAPIDLER LXCH BANKRUPT # INTERRUPT LEAD INS (CONTINUED)
ADS RCSFLAGS # BIT 13 IS 1. ADS RCSFLAGS # BIT 13 IS 1.
CAF PRIO27 CAF PRIO27
TC NOVAC # SET UP JOB TO DO A LITTLE INITIALIZATION TC NOVAC # SET UP JOB TO DO A LITTLE INITIALIZATION
EBANK= AOSQ # AND EXECUTE 1/ACCS. EBANK= AOSQ # AND EXECUTE 1/ACCS.
2CADR 1/ACCSET # (WILL BRANCH TO MOREIDLE ON ACCSOKAY) 2CADR 1/ACCSET # (WILL BRANCH TO MOREIDLE ON ACCSOKAY)
CHECKUP TC CHEKBITS # CHECK TO SEE IF LM DAP IS TO GO ON AND CHECKUP TC CHEKBITS # CHECK TO SEE IF LM DAP IS TO GO ON AND
# DO ERROR DISPLAY. # DO ERROR DISPLAY.
CAE DAPBOOLS # IF 1/ACCS HAS NOT BEEN COMPLETED, IDLE. CAE DAPBOOLS # IF 1/ACCS HAS NOT BEEN COMPLETED, IDLE.
MASK ACCSOKAY # NOTE: ONLY FRESH START AND RESTART MASK ACCSOKAY # NOTE: ONLY FRESH START AND RESTART
EXTEND # KNOCK THIS BIT DOWN. EXTEND # KNOCK THIS BIT DOWN.
BZF MOREIDLE BZF MOREIDLE
STARTDAP TC IBNKCALL # ZERO ATTITUDE ERROR AND DESIRED RATES. STARTDAP TC IBNKCALL # ZERO ATTITUDE ERROR AND DESIRED RATES.
FCADR ZATTEROR FCADR ZATTEROR
CAF ZERO # ************ INITIALIZE: ************* CAF ZERO # ********** INITIALIZE: **********
TS TJP TS TJP
TS TJU TS TJU
TS TJV TS TJV
@ -118,7 +117,7 @@ STARTDAP TC IBNKCALL # ZERO ATTITUDE ERROR AND DESIRED RATES.
TS COTROLER # DO TRYGTS ON FIRST PASS (WILL GO TO RCS) TS COTROLER # DO TRYGTS ON FIRST PASS (WILL GO TO RCS)
TS INGTS # RECOGNIZE FIRST GTS PASS AS SUCH. TS INGTS # RECOGNIZE FIRST GTS PASS AS SUCH.
TS QGIMTIMR # STOP GIMBAL DRIVES. (PROBABLY WOULD BE TS QGIMTIMR # STOP GIMBAL DRIVES. (PROBABLY WOULD BE
TS RGIMTIMR # GOOD ENOUGH JUST TO INACTIVATE TIMERS) TS RGIMTIMR # GOOD ENOUGH JUST TO INACTIVATE TIMERS)
TS OLDPMIN # MINIMUM IMPULSE MODE ERASABLES TS OLDPMIN # MINIMUM IMPULSE MODE ERASABLES
TS OLDQRMIN TS OLDQRMIN
TS PJETCTR # INITIALIZE DOCKED JET INHIBITION TS PJETCTR # INITIALIZE DOCKED JET INHIBITION
@ -212,36 +211,38 @@ DSPCADR 2CADR ALTDSPLY
BANK BANK
COUNT* $$/NEEDL COUNT* $$/NEEDL
# PROGRAM: ALTDSPLY # PROGRAM: ALTDSPLY
# MOD 0. 6 DEC 1967 #
# AUTHOR: CRAIG WORK, DON KEENE, MIT IL # MOD 0. 6 DEC 1967
# MOD 3 BY DON KEENE AUG 1, 1968 -- MOVED PROGRAM TO BANK 20 #
# AUTHOR: CRAIG WORK, DON KEENE, MIT IL
#
# MOD 3 BY DON KEENE AUG 1, 1968 MOVED PROGRAM TO BANK 20
# #
# PROGRAM DESCRIPTION: # PROGRAM DESCRIPTION:
# ALTDSPLY REVERSES THE DSPLYALT BIT OF RCSFLAGS EACH TIME IT IS CALLED, WHICH IS PRESUMABLY EVERY 100 MS.
# IF THE REVERSED BIT IS ONE, NEEDLER IS CALLED TO DISPLAY ATTITUDE ERRORS. IF THE BIT IS ZERO, THE ATTITUDE ERR-
# ORS ARE CALCULATED AS 1) DAP FOLLOWING ERRORS, IF NEEDLFLG = 0, AND 2) TOTAL ATTITUDE ERRORS FOR NEEDLFLG = 1.
# #
# ALTDSPLY REVERSES THE DSPLYALT BIT OF RCSFLAGS EACH TIME IT IS CALLED, WHICH IS PRESUMABLY EVERY 100 MS.
# IF THE REVERSED BIT IS ONE, NEEDLER IS CALLED TO DISPLAY ATTITUDE ERRORS. IF THE BIT IS ZERO, THE ATTITUDE ERR-
# ORS ARE CALCULATED AS 1) DAP FOLLOWING ERRORS, IF NEEDLFLG = 0, AND 2) TOTAL ATTITUDE ERRORS FOR NEEDLFLG = 1.
# #
# WARNING: ALTDSPLY MAY ONLY BE CALLED WITH INTERRUPT INHIBITED # WARNING: ALTDSPLY MAY ONLY BE CALLED WITH INTERRUPT INHIBITED.
# #
# WARNING: EBANK MUST BE SET TO 6 WHEN USING THIS ROUTINE. # WARNING: EBANK MUST BE SET TO 6 WHEN USING THIS ROUTINE.
# #
# INPUT: RCSFLAGS AND 1) IF NEEDLFLG = 0, INPUT PERROR, QERROR, RERROR. # INPUT: RCSFLAGS AND 1) IF NEEDLFLG=0, INPUT PERROR,QERROR,RERROR.
# 2) IF NEEDLFLG = 1, INPUT CPHI,CTHETA,CPSI,CDUX,CDUY,CDUZ,M11,M21,M32,M22,M32. (GPMATRIX) # 2) IF NEEDLFLG=1, INPUT CPHI,CTHETA,CPSI,CDUX,CDUY,CDUZ,M11,M21,M32,M22,M32. (GPMATRIX)
# #
# OUTPUTS: RCSFLAGS WITH DSPLYALT REVERSED,AK,AK1,AK2,+ NEEDLER OUTPUTS.
# #
# OUTPUTS: RCSFLAGS WITH DSPLYALT REVERSED, AK, AK1, AK2, + NEEDLER OUTPUTS. # ENTRY: TCF ALTDSPLY
# #
# ENTRY: TCF ALTDSPLY # EXIT: TCF CHEKMORE
# #
# EXIT: TCF CHEKMORE # ALARM OR ABORT EXITS: NONE
# #
# ALARM OR ABORT EXITS: NONE # SUBPROGRAMS CALLED: NEEDLER, OVERSUB2
# #
# SUBPROGRAMS CALLED: NEEDLER, OVERSUB2 # DEBRIS: A,L,AND NEEDLER DEBRIS.
#
# DEBRIS: A, L, AND NEEDLER DEBRIS.
ALTDSPLY CA RCSFLAGS # INVERT THE DISPLAY ALTERNATION BIT. ALTDSPLY CA RCSFLAGS # INVERT THE DISPLAY ALTERNATION BIT.
TS L TS L
@ -258,9 +259,9 @@ ALTDSPLY CA RCSFLAGS # INVERT THE DISPLAY ALTERNATION BIT.
# Page 1415 # Page 1415
MASK NEEDLBIT # TITUDE ERROR DISPLAY REQUEST. MASK NEEDLBIT # TITUDE ERROR DISPLAY REQUEST.
CCS A CCS A
TCF DSPLYTOT # TOTAL ERROR IS NEEDED IN AK, AK +1, AK +2 TCF DSPLYTOT # TOTAL ERROR IS NEEDED IN AK,AK +1,AK +2
CS QERROR # YES. DISPLAY ATT ERRORS ON THE -BALL. CS QERROR # YES. DISPLAY ATT ERRORS ON THE ,-BALL.
TS AK +1 # ERROR COMPLEMENTS ARE INPUT TO NEEDLER. TS AK +1 # ERROR COMPLEMENTS ARE INPUT TO NEEDLER.
CS RERROR CS RERROR
TS AK +2 TS AK +2
@ -279,9 +280,9 @@ DSPLYTOT EXTEND
MSU CDUY # DIFFERENCE SCALED AT PI, 1'S COMP. MSU CDUY # DIFFERENCE SCALED AT PI, 1'S COMP.
TS AK # SAVE FOR R-ERROR CALCULATION. TS AK # SAVE FOR R-ERROR CALCULATION.
EXTEND EXTEND
MP M21 # (CTHETA-CDUY)*M21 SCALED AT PI RADIANS. MP M21 # (CHTETA-CDUY)*M21 SCALED AT PI RADIANS.
XCH AK +1 # STORE FIRST TERM OF Q ERROR. XCH AK +1 # STORE FIRST TERM OF Q ERROR.
CA CPSI # DESIRED ATTITUDE, Z-AXIS, 2'S COMP. CA CPSI # DESIRED ATTITUDE,Z-AXIS, 2'S COMP.
EXTEND # SUBTRACT CURRENT ATTITUDE. EXTEND # SUBTRACT CURRENT ATTITUDE.
MSU CDUZ # DIFFERENCE SCALED AT PI, 1'S COMP. MSU CDUZ # DIFFERENCE SCALED AT PI, 1'S COMP.
TS AK +2 # SAVE Z-AXIS TERM FOR R ERROR CALCULATION TS AK +2 # SAVE Z-AXIS TERM FOR R ERROR CALCULATION
@ -316,7 +317,7 @@ DSPLYTOT EXTEND
# M13 = 1, SO BYPASS THE MULTIPLICATION. # M13 = 1, SO BYPASS THE MULTIPLICATION.
# EXTEND # EXTEND
# MP M13 # (CPHI-CDUX)*M13 SCALED AT PI RADIANS. # MP M13 (CPHI-CDUX)*M13 SCALED AT PI RADIANS.
AD AK # P ERROR COMPLETE , SCALED AT PI RAD AD AK # P ERROR COMPLETE , SCALED AT PI RAD
TC OVERSUB2 # PIN NEEDLES IN CASE OF OVERFLOW. TC OVERSUB2 # PIN NEEDLES IN CASE OF OVERFLOW.
@ -330,55 +331,67 @@ DSPLYTOT EXTEND
# Page 1417 # Page 1417
# FDAI ATTITUDE ERROR DISPLAY SUBROUTINE # FDAI ATTITUDE ERROR DISPLAY SUBROUTINE
# #
# PROGRAM DESCRIPTION: D. KEENE 5/24/67 # PROGRAM DESCRIPTION: D. KEENE 5/24/67
# MOD 1 BY CRAIG WORK, 12 DEC 67
# MOD 2 BY CRAIG WORK, 6 APRIL 68, CONVERTS ATTITUDE ERROR DISPLAY SCALING FROM 16 7/8 DEG. TO 42 3/16 DEGREES.
# #
# THIS SUBROUTINE IS USED TO DISPLAY ATTITUDE ERRORS ON THE FDAI VIA THE DIGITAL TO ANALOG CONVERTERS (DACS) # MOD 1 BY CRAIG WORK, 12 DEC 67
#
# MOD 2 BY CRAIG WORK, 6 APRIL 68 CONVERTS ATTITUDE ERROR DISPLAY SCALING FROM 16 7/8 DEG. TO 42 3/16 DEGREES.
#
# THIS SUBROUTINE IS USED TO DISPLAY ATTITUDE ERRORS ON THE FDAI VIA THE DIGITAL TO ANALOG CONVERTERS (DACS)
# IN THE CDUS. CARE IS TAKEN TO METER OUT THE APPROPRIATE NUMBER OF PULSES TO THE IMU ERROR COUNTERS AND PREVENT # IN THE CDUS. CARE IS TAKEN TO METER OUT THE APPROPRIATE NUMBER OF PULSES TO THE IMU ERROR COUNTERS AND PREVENT
# OVERFLOW, TO CONTROL THE RELAY SEQUENCING, AND TO AVOID INTERFERENCE WITH THE COARSE ALIGN LOOP WHICH ALSO USES # OVERFLOW, TO CONTROL THE RELAY SEQUENCING, AND TO AVOID INTERFERENCE WITH THE COARSE ALIGN LOOP WHICH ALSO USES
# THE DACS. # THE DACS.
# #
# CALLING SEQUENCE:
# DURING THE INITIALIZATION SECTION OF THE USER'S PROGRAM, BIT3 OF RCSFLAGS SHOULD BE SET TO INITIATE THE
# TURN-ON SEQUENCE WITHIN THE NEEDLES PROGRAM:
# CS RCSFLAGS # IN EBANK6
# MASK BIT3
# ADS RCSFLAGS
# THEREAFTER, THE ATTITUDE ERRORS GENERATED BY THE USER SHOULD BE TRANSFERRED TO THE FOLLOWING LOCATIONS IN EBANK6:
# AK SCALED 180 DEGREES NOTE: THESE LOCATIONS ARE SUBJECT
# AK1 SCALED 180 DEGREES TO CHANGE
# AK2 SCALED 180 DEGREES
# FULL SCALED DEFLECTION OF THE NEEDLES CORRESPONDS TO 5 1/16 DEGREES, WHILE 384 BITS IN THE IMU ERROR COUNTER
# CORRESPONDS TO 42 3/16 DEGREES. (DAC MAXIMUM CAPACITY IS 384 BITS.) 46 BITS EFFECTIVELY PIN THE NEEDLES.
# #
# A CALL TO NEEDLER WILL THE UPDATE THE DISPLAY: # CALLING SEQUENCE:
# INHINT #
# TC IBNKCALL # NOTE: EBANK SHOULD BE SET TO E6 # DURING THE INITIALIZATION SECTION OF THE USER'S PROGRAM, BIT3 OF RCSFLAGS SHOULD BE SET TO INITIATE THE
# CADR NEEDLER # TURN-ON SEQUENCE WITHIN THE NEEDLES PROGRAM:
# RELINT #
# THIS PROCESS SHOULD BE REPEATED EACH TIME THE ERRORS ARE UPDATED. AT LEAST 3 PASSES THRU THE PROGRAM ARE # CS RCSFLAGS IN EBANK6
# REQUIRED BEFORE ANYTHING IS ACTUALLY DISPLAYED ON THE ERROR METERS. # MASK BIT3
# NOTE: EACH CALL TO NEEDLER MUST BE SEPARATED BY AT LEAST 50 MS. TO ASSURE PROPER RELAY SEQUENCING. # ADS RCSFLAGS
#
# THEREAFTER, THE ATTITUDE ERRORS GENERATED BY THE USER SHOULD BE TRANSFERRED TO THE FOLLOWING LOCATIONS IN EBANK6:
#
# AK SCALED 180 DEGREES NOTE: THESE LOCATIONS ARE SUBJECT
# AK1 SCALED 180 DEGREES TO CHANGE
# AK2 SCALED 180 DEGREES
#
# FULL SCALED DEFLECTION OF THE NEEDLES CORRESPONDS TO 5 1/16 DEGREES, WHILE 384 BITS IN THE IMU ERROR COUNTER
# CORRESPONDS TO 42 3/16 DEGREES. (DAC MAXIMUM CAPACITY IS 384 BITS.) 46 BITS EFFECTIVELY PIN THE NEEDLES.
#
# A CALL TO NEEDLER WILL THEN UPDATE THE DISPLAY:
#
# INHINT
# TC IBNKCALL NOTE: EBANK SHOULD BE SET TO E6
# CADR NEEDLER
# RELINT
#
# THIS PROCESS SHOULD BE REPEATED EACH TIME THE ERRORS ARE UPDATED. AT LEAST 3 PASSES THRU THE PROGRAM ARE
# REQUIRED BEFORE ANYTHING IS ACTUALLY DISPLAYED ON THE ERROR METERS.
# NOTE: EACH CALL TO NEEDLER MUST BE SEPARATED BY AT LEAST 50MS TO ASSURE PROPER RELAY SEQUENCING.
# #
# ERASABLES USED: # ERASABLES USED:
# AK CDUXCMD # AK CDUXCMD
# AK1 CDUYCMD # AK1 CDUYCMD
# AK2 CDUZCMD # AK2 CDUZCMD
# EDRIVEX A,L,Q # EDRIVEX A,L,Q
# EDRIVEY T5TEMP # EDRIVEY T5TEMP
# EDRIVEZ DINDX # EDRIVEZ DINDX
# Page 1418 # Page 1418
# #
# SWITCHES: RCSFLAGS BITS 3,2 # SWITCHES: RCSFLAGS BITS 3,2
# #
# I/O CHANNELS: CHAN12 BIT 4 (COARSE ALIGN -- READ ONLY) # I/O CHANNELS: CHAN12 BIT 4 (COARSE ALIGN - READ ONLY)
# CHAN12 BIT 6 (IMU ERROR COUNTER ENABLE) # CHAN12 BIT 6 (IMU ERROR COUNTER ENABLE)
# CHAN14 BIT 13,14,15 (DAC ACTIVITY) # CHAN14 BIT 13,14,15 (DAC ACTIVITY)
# #
# SIGN CONVENTION: AK = THETAC - THETA #
# WHERE THETAC = COMMAND ANGLE # SIGN CONVENTION< AK = THETAC - THETA
# THETA = PRESENT ANGLE # WHERE THETAC = COMMAND ANGLE
# THETA = PRESENT ANGLE
NEEDLER CA RCSFLAGS NEEDLER CA RCSFLAGS
MASK SIX MASK SIX
@ -411,8 +424,8 @@ NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
EXTEND EXTEND
WOR CHAN12 WOR CHAN12
CS SIX # RESET RCSFLAGS TO DISPLAY ATTITUDE CS SIX # RESET RCSFLAGS TO DISPLAY ATTITUDE
MASK RCSFLAGS # ERRORS. WAIT AT LEAST 4 MS FOR MASK RCSFLAGS # ERRORS WAIT ATLEAST 4 MS FOR
TS RCSFLAGS # RELAY CLOSURE. TS RCSFLAGS # RELAY CLOSURE
TCF RETNMORE TCF RETNMORE
NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER
@ -465,11 +478,11 @@ DACLIMIT DEC 16000
ONETENTH OCT 03146 # DECIMAL +0.1, SCALED AT 1. ONETENTH OCT 03146 # DECIMAL +0.1, SCALED AT 1.
DSPLYALT EQUALS BIT4 # 100 MS ALTERNATION BIT IN RCSFLAGS DSPLYALT EQUALS BIT4 # 100 MS ALTERNATION BIT IN RCSFLAGS
OVERSUB2 TS 7 # RETURNS A UNCHANGED OR LIMITED TO OVERSUB2 TS 7 # RETURNS A UNCHANGED OR LIMITED TO
TC Q # POSMAX OR NEGMAX IF A HAS OVERFLOW TC Q # POSMAX OR NEGMAX IF A HAS OVERFLOW
INDEX A INDEX A
# Page 1420 # Page 1420
CS LIMITS # DUPLICATE CODING IN BANK 16 CS LIMITS # DUPLICATE CODING IN BANK 16
TC Q TC Q
RETNMORE EXTEND # RETURN TO CHEKMORE RETNMORE EXTEND # RETURN TO CHEKMORE

View File

@ -146,7 +146,7 @@ ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
GOPIN TC POSTJUMP GOPIN TC POSTJUMP
CADR PINBRNCH CADR PINBRNCH
CHKP00H CA MODREG # CHECK FOR P00 OR P00-. CHKPOOH CA MODREG # CHECK FOR P00 OR P00-.
EXTEND EXTEND
BZF TCQ BZF TCQ
TC ALM/END TC ALM/END
@ -827,7 +827,7 @@ DEC22 DEC 22
COUNT* $$/EXTVB COUNT* $$/EXTVB
VB64 TC CHKP00H # DEMAND PROGRAM 00. VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
CAF PRIO4 CAF PRIO4
TC FINDVAC TC FINDVAC
@ -846,7 +846,7 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
# 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED). # 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
# 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES. # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS IMUATTCK TC CHKPOOH # VB 76 -- LOAD IMU ATT. ERROR METERS
CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
EXTEND # CDUS BITS ARE ON EXTEND # CDUS BITS ARE ON
@ -1002,7 +1002,7 @@ V83PERF TC TESTXACT
# TERMINATE -- EXIT R63. # TERMINATE -- EXIT R63.
# PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER. # PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H V89PERF TC CHKPOOH
TC TESTXACT TC TESTXACT
CAF PRIO10 CAF PRIO10
TC FINDVAC TC FINDVAC
@ -1080,7 +1080,7 @@ NOMINIMP INHINT
# C. ENTER # C. ENTER
# 1. REPEAT FLASHING V06,N22. # 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00 CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1096,7 +1096,7 @@ CREWMANU TC CHKP00H # DEMAND P00
# TERMINATE TRACKING (P20 AND P25). # TERMINATE TRACKING (P20 AND P25).
# #
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
# 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00). # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOPOOH (REQUEST PROGRAM 00).
# 3. SCHEDULE V56TOVAC WITH PRIORITY 30. # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
# #
# V56TOVAC # V56TOVAC
@ -1223,7 +1223,7 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
EBANK= QPLACE EBANK= QPLACE
SYSTEST TC CHKP00H # DEMAND P00 SYSTEST TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1246,7 +1246,7 @@ WMATRXNG INHINT
GOSHOSUM EQUALS SHOWSUM GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H # * SHOWSUM TC CHKPOOH # *
TC TESTXACT # * TC TESTXACT # *
CAF PRIO7 # * ALLOW OTHER CHARINS. CAF PRIO7 # * ALLOW OTHER CHARINS.
TC PRIOCHNG # * TC PRIOCHNG # *

View File

@ -28,9 +28,9 @@
# Page 1095 # Page 1095
BLOCK 02 BLOCK 02
COUNT* $$/FCONS
# THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES COUNT* $$/FCONS
# THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES
DPOSMAX OCT 37777 # MUST PRECEDE POSMAX DPOSMAX OCT 37777 # MUST PRECEDE POSMAX
POSMAX OCT 37777 POSMAX OCT 37777
@ -71,7 +71,7 @@ SEVEN OCT 7
# BIT4 OCT 00010 # BIT4 OCT 00010
# R2D1 OCT 11 # PINBALL # R2D1 OCT 11 # PINBALL
OCT11 = R2D1 # P20S OCT11 = R2D1 # P20S
# BINCON DEC 10 # PINBALL (OCTAL 12) # BINCON DEC 10 # PINBALL (OCTAL 12)
ELEVEN DEC 11 ELEVEN DEC 11
# OCT14 OCT 14 # ALARM AND ABORT (FILLER) # OCT14 OCT 14 # ALARM AND ABORT (FILLER)
OCT15 OCT 15 OCT15 OCT 15
@ -79,21 +79,21 @@ OCT15 OCT 15
LOW4 OCT 17 LOW4 OCT 17
# Page 1096 # Page 1096
# BIT5 OCT 00020 # BIT5 OCT 00020
# NC1 OCT 21 # PINBALL # ND1 OCT 21 # PINBALL
# VD1 OCT 23 # PINBALL # VD1 OCT 23 # PINBALL
# OCT24 OCT 24 # SERVICE ROUTINES # OCT24 OCT 24 # SERVICE ROUTINES
# MD1 OCT 25 # PINBALL # MD1 OCT 25 # PINBALL
BITS4&5 OCT 30 BITS4&5 OCT 30
# OCT31 OCT 31 # SERVICE ROUTINES # OCT31 OCT 31 # SERVICE ROUTINES
OCT33 OCT 33 OCT33 OCT 33
# DEC27 = OCT33 DEC27 = OCT33
OCT35 OCT 35 OCT35 OCT 35
# DEC29 = OCT35 DEC29 = OCT35
CALLCODE OCT 00032 CALLCODE OCT 00032
# LOW5 OCT 37 # PINBALL # LOW5 OCT 37 # PINBALL
# 33DEC DEC 33 # PINBALL (OCTAL 41) # 33DEC DEC 33 # PINBALL (OCTAL 41)
# 34DEC DEC 34 # PINBALL (OCTAL 42) # 34DEC DEC 34 # PINBALL (OCTAL 42)
TBUILDFX DEC 37 # BUILDUP FOR CONVENIENCE IN DAPTESTING TBUILDFX DEC 37 # BUILDUP FOR CONVIENCE IN DAPTESTING
TDECAYFX DEC 38 # CONVENIENCE FOR DAPTESTING TDECAYFX DEC 38 # CONVENIENCE FOR DAPTESTING
# BIT6 OCT 00040 # BIT6 OCT 00040
OCT50 OCT 50 OCT50 OCT 50
@ -108,7 +108,7 @@ SUPER101 OCT 120 # BITS FOR SUPERBNK SETTING 101
# OCT121 OCT 121 # SERVICE ROUTINES # OCT121 OCT 121 # SERVICE ROUTINES
# (FIRST 8K OF ACM) # (FIRST 8K OF ACM)
SUPER110 OCT 140 # BITS FOR SUPERBNK SETTING 110. SUPER110 OCT 140 # BITS FOR SUPERBNK SETTING 110.
# (LAST BK OF ACM) # (LAST 8K OF ACM)
1SEC DEC 100 1SEC DEC 100
# LOW7 OCT 177 # INTERPRETER # LOW7 OCT 177 # INTERPRETER
# BIT8 OCT 00200 # BIT8 OCT 00200
@ -122,9 +122,9 @@ GN/CCODE OCT 00401 # SET S/C CONTROL SWITCH TO G/N
4SECS DEC 400 4SECS DEC 400
LOW9 OCT 777 LOW9 OCT 777
# BIT10 OCT 01000 # BIT10 OCT 01000
# 5.5DEGS DEC .03056 # P20-P25 SUNDANCE (OCTAL 00765) # 5.5DEGS DEC .03056 # P20-P25 SUNDANCE (OCTAL 00765)
# OCT1103 OCT 1103 # ALARM AND ABORT # OCT1103 OCT 1103 # ALARM AND ABORT
C5/2 DEC .0363551 # (OCTAL 01124) C5/2 DEC .0363551 # (OCTAL 01124)
V05N09 VN 0509 # (SAME AS OCTAL 1211) V05N09 VN 0509 # (SAME AS OCTAL 1211)
OCT1400 OCT 01400 OCT1400 OCT 01400
V06N22 VN 0622 V06N22 VN 0622
@ -134,7 +134,7 @@ BITS2-10 OCT 1776
LOW10 OCT 1777 LOW10 OCT 1777
# BIT11 OCT 02000 # BIT11 OCT 02000
# 2K+3 OCT 2003 # PINBALL # 2K+3 OCT 2003 # PINBALL
LOW7+2K OCT 2177 # OP CODE MASK + BANK 1 FBANK SETTING LOW7+2K OCT 2177 # OP CODE MASK + BANK 1 FBANK SETTING.
EBANK5 OCT 02400 EBANK5 OCT 02400
PRIO3 OCT 03000 PRIO3 OCT 03000
EBANK7 OCT 03400 EBANK7 OCT 03400
@ -146,20 +146,20 @@ PRIO6 OCT 06000
PRIO7 OCT 07000 PRIO7 OCT 07000
# BIT13 OCT 10000 # BIT13 OCT 10000
# OCT 10003 # T4RUPT RELTAB +1D # OCT 10003 # T4RUPT RELTAB +1D
# 13,7,2 OCT 10102 # P20-P25 SUNDANCE # 13,7,2 OCT 10102 # P20-P25 SUNDANCE
PRIO11 OCT 11000 PRIO11 OCT 11000
# PRIO12 OCT 12000 # BANKCALL # PRIO12 OCT 12000 # BANKCALL
PRIO13 OCT 13000 PRIO13 OCT 13000
PRIO14 OCT 14000 PRIO14 OCT 14000
# OCT 14031 # T4RUPT RELTAB +2D # OCT 14031 # T4RUPT RELTAB +2D
PRIO15 OCT 15000 PRIO15 OCT 15000
PRIO16 OCT 16000 PRIO16 OCT 16000
# 85DEGS DEC .45556 # P20-P25 SUNDANCE (OCTAL 16450) # 85DEGS DEC .45556 # P20-P25 SUNDANCE (OCTAL 16450)
PRIO17 OCT 17000 PRIO17 OCT 17000
OCT17770 OCT 17770 OCT17770 OCT 17770
# BIT14 OCT 20000 # BIT14 OCT 20000
# OCT 20033 # T4RUPT RELTAB +3D # OCT 20033 # T4RUPT RELTAB +3D
PRIO21 OCT 21000 PRIO21 OCT 21000
BLOCK 03 BLOCK 03
COUNT* $$/FCONS COUNT* $$/FCONS
@ -167,18 +167,18 @@ PRIO22 OCT 22000 # SERVICE ROUTINES
PRIO23 OCT 23000 PRIO23 OCT 23000
PRIO24 OCT 24000 PRIO24 OCT 24000
# 5/8+1 OCT 24001 # SINGLE PRECISION SUBROUTINES # 5/8+1 OCT 24001 # SINGLE PRECISION SUBROUTINES
# OCT 24017 # T4RUPT RELTAB +4D # OCT 24017 # T4RUPT RELTAB +4D
PRIO25 OCT 25000 PRIO25 OCT 25000
PRIO26 OCT 26000 PRIO26 OCT 26000
PRIO27 OCT 27000 PRIO27 OCT 27000
# CHRPRIO OCT 30000 # PINBALL # CHRPRIO OCT 30000 # PINBALL
# OCT 30036 # T4RUPT RELTAB +5D # OCT 30036 # T4RUPT RELTAB +5D
PRIO31 OCT 31000 PRIO31 OCT 31000
C1/2 DEC .7853134 # (OCTAL 31103) C1/2 DEC .7853134 # (OCTAL 31103)
PRIO32 OCT 32000 PRIO32 OCT 32000
PRIO33 OCT 33000 PRIO33 OCT 33000
PRIO34 OCT 34000 PRIO34 OCT 34000
# OCT 34034 # T4RUPT RELTAB +6D # OCT 34034 # T4RUPT RELTAB +6D
# Page 1098 # Page 1098
PRIO35 OCT 35000 PRIO35 OCT 35000
PRIO36 OCT 36000 PRIO36 OCT 36000
@ -190,27 +190,27 @@ OCT37774 OCT 37774
OCT37776 OCT 37776 OCT37776 OCT 37776
# DPOSMAX OCT 37777 # DPOSMAX OCT 37777
# BIT15 OCT 40000 # BIT15 OCT 40000
# OCT40001 OCT 40001 # INTERPRETER (CS 1 INSTRUCTION) # OCT40001 OCT 40001 # INTERPRETER ( CS 1 INSTRUCTION)
DLOADCOD OCT 40014 DLOADCOD OCT 40014
DLOAD* OCT 40015 DLOAD* OCT 40015
# OCT 40023 # T4RUPT RELTAB +7D # OCT 40023 # T4RUPT RELTAB +7D
BIT15+6 OCT 40040 BIT15+6 OCT 40040
OCT40200 OCT 40200 OCT40200 OCT 40200
# OCT 44035 # T4RUPT RELTAB +8D # OCT 44035 # T4RUPT RELTAB +8D
# OCT 50037 # T4RUPT RELTAB +9D # OCT 50037 # T4RUPT RELTAB +9D
# OCT 54000 # T4RUPT RELTAB +10D # OCT 54000 # T4RUPT RELTAB +10D
-BIT14 OCT 57777 -BIT14 OCT 57777
# RELTAB11 OCT 60000 # T4RUPT # RELTAB11 OCT 60000 # T4RUPT
C3/2 DEC -.3216147 # (OCTAL 65552) C3/2 DEC -.3216147 # (OCTAL 65552)
13,14,15 OCT 70000 13,14,15 OCT 70000
-1/8 OCT 73777 -1/8 OCT 73777
HIGH4 OCT 74000 HIGH4 OCT 74000
-ENDERAS DEC -2001 # (OCTAL 74056) -ENDERAS DEC -2001 # (OCTAL 74056)
# HI5 OCT 76000 # PINBALL # HI5 OCT 76000 # PINBALL
HIGH9 OCT 77700 HIGH9 OCT 77700
# -ENDVAC DEC -45 # INTERPRETER (OCTAL 77722) # -ENDVAC DEC -45 # INTERPRETER (OCTAL 77722)
# -OCT10 OCT -10 # (OCTAL 77767) # -OCT10 OCT -10 # (OCT 77767)
# NEG4 DEC -4 # (OCTAL 77773) # NEG4 DEC -4 # (OCTAL 77773)
NEG3 DEC -3 NEG3 DEC -3
NEG2 OCT 77775 NEG2 OCT 77775
NEGONE DEC -1 NEGONE DEC -1
@ -254,7 +254,7 @@ PRIO20 = BIT14
HALF = BIT14 HALF = BIT14
PRIO30 = CHRPRIO PRIO30 = CHRPRIO
BIT13-14 = PRIO30 # INTERPRETER USES IN PROCESSING STORECODE BIT13-14 = PRIO30 # INTERPRETER USES IN PROCESSING STORECODE
OCT30002 = TLOAD +1 OCT30002 = TLOAD +1
B12T14 = PRIO34 B12T14 = PRIO34
NEGMAX = BIT15 NEGMAX = BIT15
VLOADCOD = BIT15 VLOADCOD = BIT15

View File

@ -350,7 +350,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
TCF DOFSTRT1 TCF DOFSTRT1
#******** ****** ****** #******** ****** ******
# Page 218 # Page 218
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
OCT10000 = BIT13 OCT10000 = BIT13
OCT30000 = PRIO30 OCT30000 = PRIO30
@ -844,10 +844,10 @@ DUMMYAD EXIT
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE. TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
ADRES XOVINFLG ADRES XOVINFLG
CCS MMNUMBER # IS THIS A P00H REQUEST CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM TCF NOUVEAU # NO, PICK UP NEW PROGRAM
P00H TC RELDSP # RELEASE DISPLAY SYSTEM POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
TS PHSPRDT2 # P00 INTEGRATION. TS PHSPRDT2 # P00 INTEGRATION.
@ -887,7 +887,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TC IBNKCALL # KILL GROUPS 1,3,5,6 TC IBNKCALL # KILL GROUPS 1,3,5,6
CADR V37KLEAN CADR V37KLEAN
CCS MMNUMBER # IS IT P00H CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO TCF RENDV00 # NO
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
CADR P00KLEAN CADR P00KLEAN

View File

@ -25,75 +25,75 @@
# Notations on the hardcopy document read, in part: # Notations on the hardcopy document read, in part:
# #
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061 # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14, 1969 # 16:27 JULY 14,1969
# Page 651 # Page 651
# GENERAL LAMBERT AIMPOINT GUIDANCE ** # GENERAL LAMBERT AIMPOINT GUIDANCE **
# WRITTEN BY RAMA M AIYAWAR # WRITTEN BY RAMA M AIYAWAR
# PROGRAM P-31 DESCRIPTION ** # PROGRAM P-31 DESCRIPTION **
# #
# 1. TO ACCEPT TARGETING PARAMETERS OBTAINED FROM A SOURCE EXTERNAL # 1. TO ACCEPT TARGETING PARAMETERS OBTAINED FROM A SOURCE EXTERNAL
# TO THE LEM AND COMPUTE THERE FROM THE REQUIRED-VELOCITY AND # TO THE LEM AND COMPUTE THERE FROM THE REQUIRED-VELOCITY AND
# OTHER INITIAL CONDITIONS REQUIRED BY LM FOR DESIRED MANEUVER. # OTHER INITIAL CONDITIONS REQUIRED BY LM FOR DESIRED MANEUVER.
# THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET # THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
# VECTOR (RTARG), AND THE TIME FROM TIG UNTIL THE TARGET IS # VECTOR (RTARG), AND THE TIME FROM TIG UNTIL THE TARGET IS
# REACHED (DELLT4), DESIRED TIME OF FLIGHT FROM RINIT TO RTARG. # REACHED(DELLT4),DESIRED TIME OF FLIGHT FROM RINIT TO RTARG..
# ASSUMPTIONS ** # ASSUMPTIONS **
# #
# 1. THE TARGET PARAMETERS MAY HAVE BEEN LOADED PRIOR TO THE # 1. THE TARGET PARAMETERS MAY HAVE BEEN LOADED PRIOR TO THE
# EXECUTION OF THIS PROGRAM. # EXECUTION OF THIS PROGRAM.
# 2. THIS PROGRAM IS APPLICABLE IN EITHER EARTH OR LUNAR ORBIT. # 2. THIS PROGRAM IS APPLICABLE IN EITHER EARTH OR LUNAR ORBIT.
# 3. THIS PROGRAM IS DESIGNED FOR ONE-MAN OPERATION, AND SHOULD # 3. THIS PROGRAM IS DESIGNED FOR ONE-MAN OPERATION, AND SHOULD
# BE SELECTED BY THE ASTRONAUT BY DSKY ENTRY V37 E31. # BE SELECTED BY THE ASTRONAUT BY DSKY ENTRY V37 E31.
# SUBROUTINES USED ** # SUBROUTINES USED **
# #
# MANUPARM, TTG/N35, R02BOTH, MIDGIM, DISPMGA, FLAGDOWN, BANKCALL, # MANUPARM, TTG/N35, R02BOTH, MIDGIM, DISPMGA, FLAGDOWN, BANKCALL,
# GOTOPOOH, ENDOFJOB, PHASCHNG, GOFLASHR, GOFLASH. # GOTOPOOH, ENDOFJOB, PHASCHNG, GOFLASHR, GOFLASH.
# #
# MANUPARM CALCULATES APOGEE, PERIGEE ALTITUDES AND DELTAV DESIRED # MANUPARM CALCULATES APOGEE, PERIGEE ALTITUDES AND DELTAV DESIRED
# FOR THE MANEUVER. # FOR THE MANEUVER.
# #
# TTG/N35 CLOCKTASK - UPDATES CLOCK. # TTG/N35 CLOCKTASK - UPDATES CLOCK.
# #
# MIDGIM CALCULATES MIDDLE GIMBAL ANGLE FOR DISPLAY. # MIDGIM CALCULATES MIDDLE GIMBAL ANGLE FOR DISPLAY.
# #
# R02BOTH IMU - STATUS CHECK ROUTINE. # R02BOTH IMU - STATUS CHECK ROUTINE.
# DISPLAYS USED IN P-31LM ** # DISPLAYS USED IN P-31LM **
# #
# V06N33 DISPLAY SOTRED TIG (IN HRS. MINS. SECS.) # V06N33 DISPLAY SOTRED TIG (IN HRS. MINS. SECS)
# V06N42 DISPLAY APOGEE, PERIGEE, DELTAV. # V06N42 DISPLAY APOGEE, PERIGEE, DELTAV.
# V16N35 DISPLAY TIME FROM TIG. # V16N35 DISPLAY TIME FROM TIG.
# V06N45 TIME FROM IGNITION AND MIDDLE GIMBAL ANGLE. # V06N45 TIME FROM IGNITION AND MIDDLE GIMBAL ANGLE.
# ERASABLE INITIALIZATION REQUIRED ** # ERASABLE INITIALIZATION REQUIRED **
# #
# TIG TIME OF IGNITION DP (B+28) CS. # TIG TIME OF IGNITION DP (B+28) CS.
# #
# DELLT4 DESIRED TIME OF FLIGHT DP (B+28) CS # DELLT4 DESIRED TIME OF FLIGHT DP (B+28) CS
# FROM RINIT TO RTARG. # FROM RINIT TO RTARG .
# #
# RTARG RADIUS VECTOR OF TARGET POSITION VECTOR # RTARG RADIUS VECTOR OF TARGET POSITION VECTOR
# RADIUS VECTOR SCALED TO (B+29)METERS IF EARTH ORBIT # RADIUS VECTOR SCALED TO (B+29)METERS IF EARTH ORBIT
# Page 652 # Page 652
# RADIUS VECTOR SCALED TO (B+27)METERS IF MOON ORBIT # RADIUS VECTOR SCALED TO (B+27)METERS IF MOON ORBIT
# OUTPUT ** # OUTPUT **
# #
# HAPO APOGEE ALTITUDE # HAPO APOGEE ALTITUDE
# HPER PERIGEE ALTITUDE # HPER PERIGEE ALTITUDE
# VGDISP MAG. OF DELTAV FOR DISPLAY, SCALING B+7 M/CS EARTH # VGDISP MAG.OF DELTAV FOR DISPLAY ,SCALING B+7 M/CS EARTH
# MAG. OF DELTAV FOR DISPLAY, SCALING B+5 M/CS MOON # MAG.OF DELTAV FOR DISPLAY,SCALING B+5 M/CS MOON
# MIDGIM MIDDLE GIMBAL ANGLE # MIDGIM MIDDLE GIMBAL ANGLE
# XDELVFLG RESETS XDELVFLG FOR LAMBERT VG COMPUTATIONS # XDELVFLG RESETS XDELVFLG FOR LAMBERT VG COMPUTATIONS
# ALARMS OR ABORTS NONE ** # ALARMS OR ABORTS NONE **
# RESTARTS ARE VIA GROUP 4 ** # RESTARTS ARE VIA GROUP 4 **
SETLOC GLM SETLOC GLM
BANK BANK
@ -102,8 +102,8 @@
COUNT* $$/P31 COUNT* $$/P31
P31 TC P20FLGON P31 TC P20FLGON
CAF V06N33 # T16 CAF V06N33 # TIG
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CLEAR DLOAD CLEAR DLOAD
UPDATFLG UPDATFLG
@ -154,9 +154,9 @@ P31 TC P20FLGON
STORE HAPO STORE HAPO
EXIT EXIT
CAF V06N81 # DELVLVC CAF V06N81 # DELVLVC
TC VNP00H TC VNPOOH
CAF V06N42 # HAPO, HPER, VGDISP CAF V06N42 # HAPO, HPER, VGDISP
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA
FINALFLG FINALFLG
@ -166,4 +166,3 @@ REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA
# *** END OF LEMP30S .103 *** # *** END OF LEMP30S .103 ***

View File

@ -45,34 +45,34 @@
TCF IRIG1 # RETURN TCF IRIG1 # RETURN
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX 1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF +2 TS BUF +2
INDEX BUF +2 INDEX BUF +2
CA PIPASCF # (P.P.M.) X 2(-9) CA PIPASCF # (P.P.M.) X 2(-9)
EXTEND EXTEND
INDEX BUF +2 INDEX BUF +2
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5) MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
TS Q # SAVE MAJOR PART TS Q # SAVE MAJOR PART
CA L # MINOR PART CA L # MINOR PART
EXTEND EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2 INDEX BUF +2
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14) TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
CA Q # MAJOR PART CA Q # MAJOR PART
EXTEND EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9 MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2 INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SF) DAS DELVX # (PIPAI) + (PIPAI)(SFE)
INDEX BUF +2 INDEX BUF +2
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-5) * * CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-5) *
EXTEND EXTEND
MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+5) * MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+3)*
EXTEND EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 * MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 *
INDEX BUF +2 INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT) DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
CCS BUF +2 # PIPAZ, PIPAY, PIPAX CCS BUF +2 # PIPAZ, PIPAY, PIPAX
@ -83,79 +83,79 @@
# Page 328 # Page 328
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS. IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ. TS BUF # INDEX COUNTER . IRIGX, IRIGY, IRIGZ.
TC IRIGX # COMPENSATE ACCELERATION TERMS TC IRIGX # COMPENSATE ACCELERATION TERMS
CS NBDX # (GYRO PULSES)/(CS) X 2(-5) CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14) TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
TC IRIGY # COMPENSATE ACCELERATION TERMS TC IRIGY # COMPENSATE ACCELERATION TERMS
CS NBDY # (GYRO PULSES)/(CS) X 2(-5) CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDY)(DELTAT) (GYRO PULSES) X 2(+14) TC DRIFTSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
TC IRIGZ # COMPENSATE ACCELERATION TERMS TC IRIGZ # COMPENSATE ACCELERATION TERMS
CA NBDZ # (GYRO PULSES)/(CS) X 2(-5) CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14) TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS. TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS.
TCF IRIG1 # NO RETURN TCF IRIG1 # NO RETURN
CA PRIO21 # PRIO GREATER THAN SERVICER. CA PRIO21 # PRIO GREATER THAN SERVICER
TC NOVAC # SEND OUT GYRO TORQUING COMMANDS. TC NOVAC # SEND OUT GYRO TORQUING COMMANDS.
EBANK= NBDX EBANK= NBDX
2CADR 1/GYRO 2CADR 1/GYRO
RELINT RELINT
IRIG1 CA MODE # RESTORE CALLER'S EBANK IRIG1 CA MODE # RESTORE CALLERS EBANK
TS EBANK TS EBANK
TCF SWRETURN TCF SWRETURN
# Page 329 # Page 329
IRIGX EXTEND IRIGX EXTEND
QXCH MPAC +2 # SAVE Q QXCH MPAC +2 # SAVE Q
EXTEND EXTEND
DCS DELVX # (PIPA PULSES) X 2(+14) DCS DELVX # (PIPA PULSES) X 2(+14)
DXCH MPAC DXCH MPAC
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14) TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
EXTEND # EXTEND #
DCS DELVY # (PIPA PULSES) X 2(+14) DCS DELVY # (PIPA PULSES) X 2(+14)
DXCH MPAC # DXCH MPAC #
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14) TC GCOMPSUB # +(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
# EXTEND # *** # EXTEND # ***
# DCS DELVY # *** (PIPA PULSES) X 2(+14) # DCS DELVZ # *** (PIPA PULSES) X 2(+14)
# DXCH MPAC # *** # DXCH MPAC # ***
# CA ADOAX # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) * # CA ADOAX # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# TC GCOMPSUB # *** -(ADOAX)(PIPAZ) (GYRO PULSES) X 2(+14) # TC GCOMPSUB # *** -(ADOAX)(PIPAZ) (GYRO PULSES) X 2(+14)
TC MPAC +2 TC MPAC +2
IRIGY EXTEND IRIGY EXTEND
QXCH MPAC +2 # SAVE Q QXCH MPAC +2 # SAVE Q
EXTEND EXTEND
DCS DELVY # (PIPA PULSES) X 2(+14) DCS DELVY # (PIPA PULSES) X 2(+14)
DXCH MPAC DXCH MPAC
CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14) TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14)
EXTEND EXTEND
DCS DELVZ # (PIPA PULSES) X 2(+14) DCS DELVZ # (PIPA PULSES) X 2(+14)
DXCH MPAC DXCH MPAC
CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14) TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14)
# EXTEND # *** # EXTEND # ***
# DCS DELVX # *** (PIPA PULSES) X 2(+14) # DCS DELVX # *** (PIPA PULSES) X 2(+14)
# DXCH MPAC # *** # DXCH MPAC # ***
# CA ADOAY # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) * # CA ADOAY # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# TC GCOMPSUB # *** -(ADOAY)(/PIPAX) (GYRO PULSES) X 2(+14) # TC GCOMPSUB # *** -(ADOAY)(PIPAX) (GYRO PULSES) X 2(+14)
TC MPAC +2 TC MPAC +2
@ -164,46 +164,46 @@ IRIGZ EXTEND
EXTEND EXTEND
DCS DELVY # (PIPA PULSES) X 2(+14) DCS DELVY # (PIPA PULSES) X 2(+14)
DXCH MPAC DXCH MPAC
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# Page 330 # Page 330
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14) TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
EXTEND EXTEND
DCS DELVZ # (PIPA PULSES) X 2(+14) DCS DELVZ # (PIPA PULSES) X 2(+14)
DXCH MPAC DXCH MPAC
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14) TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
# EXTEND # *** # EXTEND # ***
# DCS DELVX # *** (PIPA PULSE) X 2(+14) # DCS DELVX # *** (PIPA PULSE) X 2(+14)
# DXCH MPAC # *** # DXCH MPAC # ***
# CS ADOAZ # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) * # CS ADOAZ # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# TC GCOMPSUB # *** +(ADOAZ)(PIPAX) (GYRO PULSES) X 2(+14) # TC GCOMPSUB # *** +(ADOAZ)(PIPAX) (GYRO PULSES) X 2(+14)
TC MPAC +2 TC MPAC +2
# Page 331 # Page 331
GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14) EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14)
MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-6) * MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
DXCH VBUF # NOW = (GYRO PULSES) X 2(+8) * DXCH VBUF # NOW = (GYRO PULSES) X 2(+8) *
CA MPAC +1 # MINOR PART OF PIPA PULSES CA MPAC +1 # MINOR PART OF PIPA PULSES
EXTEND EXTEND
MP MPAC # ADIA OR ADSRA MP MPAC # ADIA OR ADSRA
TS L TS L
CAF ZERO CAF ZERO
DAS VBUF # NOW = (GYRO PULSES) X 2(+8) * DAS VBUF # NOW = (GYRO PULSES) X 2(+8) *
CA VBUF # PARTIAL RESULT -- MAJOR CA VBUF # PARTIAL RESULT - MAJOR
EXTEND EXTEND
MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 * MP BIT9 # SCALE 2(+6) SHIFT RIGHT *
INDEX BUF # RESULT = (GYRO PULSES) X 2(+14) INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI) DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI)
CA VBUF +1 # PARTIAL RESULT -- MINOR CA VBUF +1 # PARTIAL RESULT - MINOR
EXTEND EXTEND
MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 * MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 *
TS L TS L
CAF ZERO CAF ZERO
INDEX BUF # RESULT = (GYRO PULSES) X 2(+14) INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
@ -213,23 +213,23 @@ GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
# Page 332 # Page 332
DRIFTSUB EXTEND DRIFTSUB EXTEND
QXCH BUF +1 QXCH BUF +1
EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5) EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5)
MP 1/PIPADT # (CS) X 2(+8) NO (GYRO PULSES) X 2(+3) MP 1/PIPADT # (CS) X 2(+8) NOW (GYRO PULSES) X 2(+3)
LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION
EXTEND EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
INDEX BUF INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14) DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA MPAC +1 # NO MINOR PART CA MPAC +1 # NOW MINOR PART
EXTEND EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
TS L TS L
CAF ZERO CAF ZERO
INDEX BUF # ADD IN FRACTIONAL COMPENSATION INDEX BUF # ADD IN FRACTIONAL COMPENSATION
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14) DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
AD BUF AD BUF
@ -237,23 +237,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
INDEX A INDEX A
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
TCF +2 # YES TCF +2 # YES
TC BUF +1 # NO TC BUF +1 # NO
MASK COMPCHK # DEC -1 MASK COMPCHK # DEC -1
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE TS GCOMPSW # YES - SET GCOMPSW POSITIVE
TC BUF +1 # NO TC BUF +1 # NO
# Page 333 # Page 333
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX 1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF TS BUF
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
CA GCOMP +1 # FRACTIONAL PULSES CA GCOMP +1 # FRACTIONAL PULSES
EXTEND EXTEND
MP BIT8 # SHIFT RIGHT 7 MP BIT8 # SHIFT RIGHT 7
INDEX BUF INDEX BUF
TS GCOMP +1 # FRACTIONAL PULSES SCALED TS GCOMP +1 # FRACTIONAL PULSES SCALED
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
INDEX BUF INDEX BUF
@ -265,7 +265,7 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
CCS BUF # PIPAZ, PIPAY, PIPAX CCS BUF # PIPAZ, PIPAY, PIPAX
AD NEG1 AD NEG1
TCF 1/GYRO +1 TCF 1/GYRO +1
LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
CAF LGCOMP CAF LGCOMP
@ -281,7 +281,7 @@ GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
INDEX BUF # RESCALE INDEX BUF # RESCALE
CA GCOMP +1 CA GCOMP +1
EXTEND EXTEND
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0 MP BIT8 # SHIFT MINOR PART LEFT 7 - MAJOR PART = 0
INDEX BUF INDEX BUF
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0 LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
@ -319,16 +319,16 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
AD 1/PIPADT # PRESENT TIME - PREVIOUS TIME AD 1/PIPADT # PRESENT TIME - PREVIOUS TIME
NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK
AD HALF AD HALF
XCH L # IF TIME1 DID NOT DICK, REMOVE RESULTING XCH L # IF TIME1 DID NOT TICK, REMOVE RESULTING
XCH L # OVERFLOW. XCH L # OVERFLOW.
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14) NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
MP BIT10 # SHIFT RIGHT 5 MP BIT10 # SHIFT RIGHT 5
DXCH VBUF +2 DXCH VBUF +2
CA ZERO CA ZERO
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS. TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX X, Y, Z. TS BUF # INDEX X, Y, Z.
CCS TEM1 # IF SURFACE FLAG IS SET, CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGX # COMPENSATE ACCELERATION TERMS. TC IRIGX # COMPENSATE ACCELERATION TERMS.
@ -338,7 +338,7 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19) DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
CS NBDX # (GYRO PULSES)/(CS) X 2(-5) CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14) TC FBIASSUB # -(NBDX)(DELTAT) (GYRO PULSES) X 2(+14)
CCS TEM1 # IF SURFACE FLAG IS SET, CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGY # COMPENSATE ACCELERATION TERMS. TC IRIGY # COMPENSATE ACCELERATION TERMS.
@ -347,16 +347,16 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
DCS VBUF +2 DCS VBUF +2
DXCH MPAC # DELTAT SCALED (CS) X 2(+19) DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CA NBDY # (GYRO PULSES)/(CS) X 2(-5) CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14) TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
CCS TEM1 # IF SURFACE FLAG IS SET, CCS TEM1 # IF SURFACE FLAG IS SET.
TC IRIGZ # COMPENSATE ACCELERATION TERMS TC IRIGZ # COMPENSATE ACCELERATION TERMS
EXTEND EXTEND
DCS VBUF +2 DCS VBUF +2
DXCH MPAC # DELTAT SCALED (CS) X 2(+19) DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5) CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14) TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF 1/GYRO # YES TCF 1/GYRO # YES
@ -370,7 +370,7 @@ FBIASSUB XCH Q
EXTEND EXTEND
MP MPAC # DELTAT SCALED (CS) X 2(+19) MP MPAC # DELTAT SCALED (CS) X 2(+19)
INDEX BUF INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14) DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA Q # NOW FRACTIONAL PART CA Q # NOW FRACTIONAL PART
EXTEND EXTEND
@ -378,7 +378,7 @@ FBIASSUB XCH Q
TS L TS L
CAF ZERO CAF ZERO
INDEX BUF INDEX BUF
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14) DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
@ -415,4 +415,3 @@ GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
TS GCOMP +5 TS GCOMP +5
TCF IRIG1 # RESTORE EBANK AND RETURN TCF IRIG1 # RESTORE EBANK AND RETURN

View File

@ -26,199 +26,198 @@
# Page 54 # Page 54
# *** CHANNEL DESCRIPTION WORDS ARE ALLOCATED IN ERASABLE ASSIGNMENTS *** # *** CHANNEL DESCRIPTIONSF WORDS ARE ALLOCATED IN ERASABLE ASSIGNMENTS ***
# CHANNEL 1 IDENTICAL TO COMPUTER REGISTER L (0001) # CHANNEL 1 IDENTICAL TO COMPUTER REGISTER L (0001)
# CHANNEL 2 IDENTICAL TO COMPUTER REGISTER Q (0002) # CHANNEL 2 IDENTICAL TO COMPUTER REGISTER Q (0002)
# CHANNEL 3 HISCALAR: INPUT CHANNEL; MOST SIGNIFICANT 14 BITS FROM 33 STAGE BINARY COUNTER. SCALE # CHANNEL 3 HISCALAR; INPUT CHANNEL; MOST SIGNIFICANT 14 BITS FROM 33 STAGE BINARY COUNTER. SCALE
# FACTOR IS B23 IN CSEC, SO MAX VALUE ABOUT 23.3 HOURS AND LEAST SIGNIFICANT BIT 5.12 SECS. # FACTOR IS B23 IN CSEC, SO MAX VALUE ABOUT 23.3 HOURS AND LEAST SIGNIFICANT BIT 5.12 SECS.
# CHANNEL 4 LOSCALAR: INPUT CHANNEL; NEXT MOST SIGNIFICANT 14 BITS FROM THE 33 STAGE BINARY COUNTER # CHANNEL 4 LOSCALAR; INPUT CHANNEL; NEXT MOST SIGNIFICANT 14 BITS FROM THE 33 STAGE BINARY COUNTER
# ASSOCIATED WITH CHANNEL 3. SCALE FACTOR IS B9 IN CSEC. SO MAX VAL IS 5.12 SEC AND LEAST # ASSOCIATED WITH CHANNEL 3. SCALE FACTOR IS B9 IN CSEC. SO MAX VAL IS 5.12 SEC AND LEAST
# SIGNIFICANT BIT IS 1/3200 SEC. SCALE FACTOR OF D.P. WORD WITH CHANNEL 3 IS B23 CSEC. # SIGNIFICANT BIT IS 1/3200 SEC. SCALE FACTOR OF D.P. WORD WITH CHANNEL 3 IS B23 CSEC.
# CHANNEL 5 PYJETS: OUTPUT CHANNEL; PITCH RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BITS 1-8. # CHANNEL 5 PYJETS; OUTPUT CHANNEL; PITCH RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BITS 1-8.
# CHANNEL 6 ROLLJETS: OUTPUT CHANNEL; ROLL RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BIT 1-8. # CHANNEL 6 ROLLJETS; OUTPUT CHANNEL; ROLL RCS JET CONTROL. (REACTION CONTROL SYSTEM) USES BIT 1-8.
# CHANNEL 7 SUPERBNK: OUTPUT CHANNEL; NOT RESET BY RESTART; FIXED EXTENSION BITS USED TO SELECT THE # CHANNEL 7 SUPERBNK; OUTPUT CHANNEL; NOT RESET BY RESTART; FIXED EXTENSION BITS USED TO SELECT THE
# APPROPRIATE FIXED MEMORY BANK IF FBANK IS 30 OCTAL OR MORE. USES BITS 5-7. # APPROPRIATE FIXED MEMORY BANK IF FBANK IS 30 OCTAL OR MORE. USES BITS 5-7.
# CHANNEL 10 OUT0: OUTPUT CHANNEL; REGISTER USED TO TRANSMIT LATCHING-RELAY DRIVING INFORMATION FOR # CHANNEL 10 OUT0; OUTPUT CHANNEL; REGISTER USED TO TRANSMIT LATCHING-RELAY DRIVING INFORMATION FOR
# THE DISPLAY SYSTEM. BITS 15-12 ARE SET TO THE ROW NUMBER (1-14 OCTAL) OF THE RELAY TO BE # THE DISPLAY SYSTEM. BITS 15-12 ARE SET TO THE ROW NUMBER (1-14 OCTAL) OF THE RELAY TO BE
# CHANGED AND BITS 11-1 CONTAIN THE REQUIRED SETTINGS FOR THE RELAYS IN THE ROW. # CHANGED AND BITS 11-1 CONTAIN THE REQUIRED SETTINGS FOR THE RELAYS IN THE ROW.
# CHANNEL 11 DSALMOUT: OUTPUT CHANNEL; REGISTER WHOSE BITS ARE USED FOR ENGINE ON-OFF CONTROL AND TO # CHANNEL 11 DSALMOUT; OUTPUT CHANNEL; REGISTER WHOSE BITS ARE USED FOR ENGINE ON-OFF CONTROL AND TO
# DRIVE INDIVIDUAL INDICATORS OF THE DISPLAY SYSTEM. BITS 1-7 ARE A RELAYS. # DRIVE INDIVIDUAL INDICATORS OF THE DISPLAY SYSTEM. BITS 1-7 ARE A RELAYS.
# #
# BIT 1 ISS WARNING # BIT 1 ISS WARNING
# BIT 2 LIGHT COMPUTER ACTIVITY LAMP # BIT 2 LIGHT COMPUTER ACTIVITY LAMP
# BIT 3 LIGHT UPLINK ACTIVITY LAMP # BIT 3 LIGHT UPLINK ACTIVITY LAMP
# BIT 4 LIGHT TEMP CAUTION LAMP # BIT 4 LIGHT TEMP CAUTION LAMP
# BIT 5 LIGHT KEYBOARD RELEASE LAMP # BIT 5 LIGHT KEYBOARD RELEASE LAMP
# BIT 6 FLASH VERB AND NOUN LAMPS # BIT 6 FLASH VERB AND NOUN LAMPS
# BIT 7 LIGHT OPERATOR ERROR LAMP # BIT 7 LIGHT OPERATOR ERROR LAMP
# Page 55 # Page 55
# BIT 8 SPARE # BIT 8 SPARE
# BIT 9 TEST CONNECTOR OUTBIT # BIT 9 TEST CONNECTOR OUTBIT
# BIT 10 CAUTION RESET # BIT 10 CAUTION RESET
# BIT 11 SPARE # BIT 11 SPARE
# BIT 12 SPARE # BIT 12 SPARE
# BIT 13 ENGINE ON # BIT 13 ENGINE ON
# BIT 14 ENGINE OFF # BIT 14 ENGINE OFF
# BIT 15 SPARE # BIT 15 SPARE
# CHANNEL 12 CHAN12: OUTPUT CHANNEL; BITS USED TO DRIVE NAVIGATION AND SPACECRAFT HARDWARE. # CHANNEL 12 CHAN12; OUTPUT CHANNEL; BITS USED TO DRIVE NAVIGATION AND SPAECRAFT HARDWARE
# #
# BIT 1 ZERO RR CDU; CDU'S GIVE RRADAR INFORMATION FOR LM # BIT 1 ZERO RR CDU; CDU'S GIVE RRADAR INFORMATION FOR LM
# BIT 2 ENABLE CDU RADAR ERROR COUNTERS # BIT 2 ENABLE CDU RADAR ERROR COUNTERS
# BIT 3 NOT USED # BIT 3 NOT USED
# BIT 4 COARSE ALIGN ENABLE OF IMU # BIT 4 COARSE ALIGN ENABLE OF IMU
# BIT 5 ZERO IMU CDU'S # BIT 5 ZERO IMU CDU'S
# BIT 6 ENABLE IMU ERROR COUNTER, CDU ERROR COUNTER. # BIT 6 ENABLE IMU ERROR COUNTER, CDU ERROR COUNTER.
# BIT 7 SPARE # BIT 7 SPARE
# BIT 8 DISPLAY INERTIAL DATA # BIT 8 DISPLAY INERTIAL DATA
# BIT 9 -PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE # BIT 9 -PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
# BIT 10 +PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE # BIT 10 +PITCH GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
# BIT 11 -ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE # BIT 11 -ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
# BIT 12 +ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE # BIT 12 +ROLL GIMBAL TRIM (BELL MOTION) DESCENT ENGINE
# BIT 13 LR POSITION 2 COMMAND # BIT 13 LR POSITION 2 COMMAND
# BIT 14 ENABLE RENDEZVOUS RADAR LOCK-ON; AUTO ANGLE TRACK'G # BIT 14 ENABLE RENDESVOUS RADAR LOCK-ON;AUTO ANGLE TRACK'G
# BIT 15 ISS TURN ON DELAY COMPLETE # BIT 15 ISS TURN ON DELAY COMPLETE
# Page 56 # Page 56
# CHANNEL 13 CHAN13: OUTPUT CHANNEL. # CHANNEL 13 CHAN13; OUTPUT CHANNEL.
# #
# BIT 1 RADAR C PROPER SETTING OF THE A,B,C MATRIX # BIT 1 RADAR C PROPER SETTING OF THE A,B,C MATRIX
# BIT 2 RADAR B SELECTS CERTAIN RADAR # BIT 2 RADAR B SELECTS CERTAIN RADAR
# BIT 3 RADAR A PARAMETERS TO BE READ. # BIT 3 RADAR A PARAMETERS TO BE READ.
# BIT 4 RADAR ACTIVITY # BIT 4 RADAR ACTIVITY
# BIT 5 NOT USED (CONNECTS AN ALTERNATE INPUT TO UPLINK) # BIT 5 NOT USED (CONNECTS AN ALTERNATE INPUT TO UPLINK)
# BIT 6 BLOCK INPUTS TO UPLINK CELL # BIT 6 BLOCK INPUTS TO UPLINK CELL
# BIT 7 DOWNLINK TELEMETRY WORD ORDER CODE BIT # BIT 7 DOWNLINK TELEMETRY WORD ORDER CODE BIT
# BIT 8 RHC COUNTER ENABLE (READ HAND CONTROLLER ANGLES) # BIT 8 RHC COUNTER ENABLE (READ HAND CONTROLLER ANGLES)
# BIT 9 START RHC READ INTO COUNTERS IS BIT 8 SET # BIT 9 START RHC READ INTO COUNTERS IF BIT 8 SET
# BIT 10 TEST ALARMS, TEST DSKY LIGHTS # BIT 10 TEST ALARMS, TEST DSKY LIGHTS
# BIT 11 ENABLE STANDBY # BIT 11 ENABLE STANDBY
# BIT 12 RESET TRAP 31-A ALWAYS APPEAR TO BE SET TO 0 # BIT 12 RESET TRAP 31-A ALWAYS APPEAR TO BE SET TO 0
# BIT 13 RESET TRAP 31-B ALWAYS APPEAR TO BE SET TO 0 # BIT 13 RESET TRAP 31-B ALWAYS APPEAR TO BE SET TO 0
# BIT 14 RESET TRAP 32 ALWAYS APPEAR TO BE SET TO 0 # BIT 14 RESET TRAP 32 ALWAYS APPEAR TO BE SET TO 0
# BIT 15 ENABLE T6 RUPT # BIT 15 ENABLE T6 RUPT
# CHANNEL 14 CHAN14: OUTPUT CHANNEL; USED TO CONTROL COMPUTER COUNTER CELLS (CDU, GYRO, SPACECRAFT FUNC). # CHANNEL 14 CHAN14; OUTPUT CHANNEL; USED TO CONTROL COMPUTER COUNTER CELLS (CDU,GYRO,SPACECRAFT FUNC.
# #
# BIT 1 OUTLINK ACTIVITY (NOT USED) # BIT 1 OUTLINK ACTIVITY (NOT USED)
# BIT 2 ALTITUDE RATE OR ALTITUDE SELECTOR # BIT 2 ALTITUDE RATE OR ALTITIDE SELECTOR
# BIT 3 ALTITUDE METER ACTIVITY # BIT 3 ALTITUDE METER ACTIVITY
# BIT 4 THRUST DRIVE ACTIVITY FOR DESCENT ENGINE # BIT 4 THRUST DRIVE ACTIVITY FOR DESCENT ENGINE
# BIT 5 SPARE # BIT 5 SPARE
# BIT 6 GYRO ENABLE POWER FOR PULSES # BIT 6 GYRO ENABLE POWER FOR PULSES
# BIT 7 GYRO SELECT B PAIR OF BITS IDENTIFIES AXIS OF # BIT 7 GYRO SELECT B PAIR OF BITS IDENTIFIES AXIS OF -
# BIT 8 GYRO SELECT A GYRO SYSTEM TO BE TORQUED. # BIT 8 GYRO SELECT A GYRO SYSTEM TO BE TORQUED.
# BIT 9 GYRO TORQUING COMMAND IN NEGATIVE DIRECTION. # BIT 9 GYRO TORQUING COMMAND IN NEGATIVE DIRECTION
# Page 57 # Page 57
# BIT 10 GYRO ACTIVITY # BIT 10 GYRO ACTIVITY
# BIT 11 DRIVE CDU S # BIT 11 DRIVE CDU S
# BIT 12 DRIVE CDU T # BIT 12 DRIVE CDU T
# BIT 13 DRIVE CDU Z # BIT 13 DRIVE CDU Z
# BIT 14 DRIVE CDU Y # BIT 14 DRIVE CDU Y
# BIT 15 DRIVE CDU X # BIT 15 DRIVE CDU X
# CHANNEL 15 MNKEYIN: INPUT CHANNEL; KEY CODE INPUT FROM KEYBOARD OF DSKY, SENSED BY PROGRAM WHEN # CHANNEL 15 MNKEYIN; INPUT CHANNEL;KEY CODE INPUT FROM KEYBOARD OF DSKY, SENSED BY PROGRAM WHEN
# PROGRAM INTERRUPT #5 IS RECEIVED. USED BITS 5-1 # PROGRAM INTERRUPT #5 IS RECEIVED. USES BITS 5-1
# CHANNEL 16 NAVKEYIN: INPUT CHANNEL; OPTICS MARK INFORMATION AND NAVIGATION PANEL DSKY (CM) OR THRUST # CHANNEL 16 NAVKEYIN; INPUT CHANNEL; OPTICS MARK INFORMATION AND NAVIGA ION PANEL DSKY (CM) OR THRUST
# CONTROL (LM) SENSED BY PROGRAM THEN PROGRAM INTERRUPT #6 IS RECEIVED. USES BITS 3-7 ONLY. # CONTROL (LM) SENSED BY PROGRAM WHEN PROGRAM INTER-RUPT #6 IS RECEIVED. USES BITS 3-7 ONLY.
# #
# BIT 1 NOT ASSIGNED # BIT 1 NOT ASSIGNED
# BIT 2 NOT ASSIGNED # BIT 2 NOT ASSIGNED
# BIT 3 OPTICS X-AXIS MARK SIGNAL FOR ALIGN OPTICAL TSCOPE # BIT 3 OPTICS X-AXIS MARK SIGNAL FOR ALIGN OPTICAL TSCOPE
# BIT 4 OPTICS Y-AXIS MARK SIGNAL FOR AOT # BIT 4 OPTICS Y-AXIS MARK SIGNAL FOR AOT
# BIT 5 OPTICS MARK REJECT SIGNAL # BIT 5 OPTICS MARK REJECT SIGNAL
# BIT 6 DESCENT+ ; CREW DESIRED SLOWING RATE OF DESCENT # BIT 6 DESCENT+ ; CREW DESIRED SLOWING RATE OF DESCENT
# BIT 7 DESCENT- ; CREW DESIRED SPEEDING UP RATE OF D'CENT # BIT 7 DESCENT- ; CREW DESIRED SPEEDING UP RATE OF D'CENT
# NOTE: ALL BITS IN CHANNELS 30-33 ARE INVERTED AS SENSED BY THE PROGRAM, SO THAT A VALUE OF ZERO MEANS # NOTE: ALL BITS IN CHANNELS 30-33 ARE INVERTED AS SENSED BY THE PROGRAM, SO THAT A VALUE OF ZERO MEANS
# THAT THE INDICATED SIGNAL IS PRESENT. # THAT THE INDICATED SIGNAL IS PRESENT.
# CHANNEL 30 INPUT CHANNEL # CHANNEL 30 INPUT CHANNEL
# #
# BIT 1 ABORT WITH DESCENT STAGE # BIT 1 ABORT WITH DESCENT STAGE
# BIT 2 UNUSED # BIT 2 UNUSED
# BIT 3 ENGINE ARMED SIGNAL # BIT 3 ENGINE ARMED SIGNAL
# BIT 4 ABORT WITH ASCENT ENGINE STAGE # BIT 4 ABORT WITH ASCENT ENGINE STAGE
# BIT 5 AUTO THROTTLE; COMPUTER CONTROL OF DESCENT ENGINE # BIT 5 AUTO THROTTLE; COMPUTER CONTROL OF DESCENT ENGINE
# Page 58 # Page 58
# BIT 6 DISPLAY INERTIAL DATA # BIT 6 DISPLAY INERTIAL DATA
# BIT 7 RR CDU FAIL # BIT 7 RR CDU FAIL
# BIT 8 SPARE # BIT 8 SPARE
# BIT 9 IMU OPERATE WITH NO MALFUNCTION # BIT 9 IMU OPERATE WITH NO MALFUNCTION
# BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM. # BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM
# BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0. # BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0.
# BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S) # BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S)
# BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS) # BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS)
# BIT 14 ISS TURN ON REQUESTED # BIT 14 ISS TURN ON REQUESTED
# BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS # BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS
# CHANNEL 31 INPUT CHANNEL; BITS ASSOCIATED WITH THE ATTITUDE CONTROLLER, TRANSLATIONAL CONTROLLER, # CHANNEL 31 INPUT CHANNEL; BITS ASSOCIATED WITH THE ATTITUDE CONTROLLER, TRANSLATIONAL CONTROLLER,
# AND SPACECRAFT ATTITUDE CONTROL; USED BY RCS DAP. # AND SPACECRAFT ATTITUDE CONTROL; USED BY RCS DAP
# #
# BIT 1 ROTATION (BY RHC) COMMANDED IN POSITIVE PITCH DIRECTION; MUST BE IN MINIMUM IMPULSE MODE. # BIT 1 ROTATION (BY RHC) COMMANDED IN POSITIVE PITCH DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
# ALSO POSITIVE ELEVATION CHANGE FOR LANDING POINT DESIGNATOR # ALSO POSITIVE ELEVATION CHANGE FOR LANDING POINT DESIGNATOR
# BIT 2 AS BIT 1 EXCEPT NEGATIVE PITCH AND ELEVATION. # BIT 2 AS BIT 1 EXCEPT NEGATIVE PITCH AND ELEVATION
# BIT 3 ROTATION (BY RHC) COMMANDED IN POSITIVE YAW DIRECTION; MUST BE IN MINIMUM IMPULSE MODE. # BIT 3 ROTATION (BY RHC) COMMANDED IN POSITIVE YAW DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
# BIT 4 AS BIT 3 EXCEPT NEGATIVE YAW # BIT 4 AS BIT 3 EXCEPT NEGATIVE YAW
# BIT 5 ROTATION (BY RHC) COMMANDED IN POSITIVE ROLL DIRECTION; MUST BE IN MINIMUM IMPULSE MODE. # BIT 5 ROTATION (BY RHC) COMMANDED IN POSITIVE ROLL DIRECTION; MUST BE IN MINIMUM IMPULSE MODE.
# ALSO POSITIVE AZIMUTH CHANGE FOR LANDING POINT DESIGNATOR. # ALSO POSITIVE AZIMUTH CHANGE FOR LANDING POINT DESIGNATOR
# BIT 6 AS BIT 5 EXCEPT NEGATIVE ROLL AND AZIMUTH # BIT 6 AS BIT 5 EXCEPT NEGATIVE ROLL AND AZIMUTH
# BIT 7 TRANSLATION IN +X DIRECTION COMMANDED BY THC # BIT 7 TRANSLATION IN +X DIRECTION COMMANDED BY THC
# BIT 8 TRANSLATION IN -X DIRECTION COMMANDED BY THC # BIT 8 TRANSLATION IN -X DIRECTION COMMANDED BY THC
# BIT 9 TRANSLATION IN +Y DIRECTION COMMANDED BY THC # BIT 9 TRANSLATION IN +Y DIRECTION COMMANDED BY THC
# BIT 10 TRANSLATION IN -Y DIRECTION COMMANDED BY THC # BIT 10 TRANSLATION IN -Y DIRECTION COMMANDED BY THC
# BIT 11 TRANSLATION IN +Z DIRECTION COMMANDED BY THC # BIT 11 TRANSLATION IN +Z DIRECTION COMMANDED BY THC
# BIT 12 TRANSLATION IN -Z DIRECTION COMMANDED BY THC # BIT 12 TRANSLATION IN -Z DIRECTION COMMANDED BY THC
# Page 59 # Page 59
# BIT 13 ATTITUDE HOLD MODE ON SCS MODE CONTROL SWITCH # BIT 13 ATTITUDE HOLD MODE ON SCS MODE CONTROL SWITCH
# BIT 14 AUTO STABILIZATION OF ATTITUDE ON SCS MODE SWITCH # BIT 14 AUTO STABILIZATION OF ATTITUDE ON SCS MODE SWITCH
# BIT 15 ATTITUDE CONTROL OUT OF DETENT (RHC NOT IN NEUTRAL) # BIT 15 ATTITUDE CONTROL OUT OF DETENT (RHC NOT IN NEUTRAL
# CHANNEL 32 INPUT CHANNEL. # CHANNEL 32 INPUT CHANNEL.
# #
# BIT 1 THRUSTERS 2 & 4 DISABLED BY CREW # BIT 1 THRUSTERS 2 & 4 DISABLED BY CREW
# BIT 2 THRUSTERS 5 & 8 DISABLED BY CREW # BIT 2 THRUSTERS 5 & 8 DISABLED BY CREW
# BIT 3 THRUSTERS 1 & 3 DISABLED BY CREW # BIT 3 THRUSTERS 1 & 3 DISABLED BY CREW
# BIT 4 THRUSTERS 6 & 7 DISABLED BY CREW # BIT 4 THRUSTERS 6 & 7 DISABLED BY CREW
# BIT 5 THRUSTERS 14 & 16 DISABLED BY CREW # BIT 5 THRUSTERS 14 & 16 DISABLED BY CREW
# BIT 6 THRUSTERS 13 & 15 DISABLED BY CREW # BIT 6 THRUSTERS 13 & 15 DISABLED BY CREW
# BIT 7 THRUSTERS 9 & 12 DISABLED BY CREW # BIT 7 THRUSTERS 9 & 12 DISABLED BY CREW
# BIT 8 THRUSTERS 10 & 11 DISABLED BY CREW # BIT 8 THRUSTERS 10 & 11 DISABLED BY CREW
# BIT 9 DESCENT ENGINE DISABLED BY CREW # BIT 9 DESCENT ENGINE GIMBALS DISABLED BY CREW
# BIT 10 APPARENT DESCENT ENGINE GIMBAL FAILURE # BIT 10 APPARENT DESCENT ENGINE GIMBAL FAILURE
# BIT 14 INDICATES PROCEED KEY IS DEPRESSED # BIT 14 INDICATES PROCEED KEY IS DEPRESSED
# CHANNEL 33 CHAN33: INPUT CHANNEL; FOR HARDWARE STATUS AND COMMAND INFORMATION. BITS 15-11 ARE FLIP- # CHANNEL 33 CHAN33; INPUT CHANNEL; FOR HARDWARE STATUS AND COMMAND INFORMATION. BITS 15-11 ARE FLIP-
# FLOP BITS RESET BY A CHANNEL "WRITE" COMMAND THAT ARE RESET BY A RESTART & BY T4RUPT LOOP. # FLOP BITS RESET BY A CHANNEL "WRITE" COMMAND THAT ARE RESET BY A RESTART & BY T4RUPT LOOP.
# #
# BIT 1 SPARE # BIT 1 SPARE
# BIT 2 RR AUTO-POWER ON # BIT 2 RR AUTO-POWER ON
# BIT 3 RR RANGE LOW SCALE # BIT 3 RR RANGE LOW SCALE
# BIT 4 RR DATA GOOD # BIT 4 RR DATA GOOD
# BIT 5 LR RANGE DATA GOOD # BIT 5 LR RANGE DATA GOOD
# BIT 6 LR POS1 # BIT 6 LR POS1
# BIT 7 LR POS2 # BIT 7 LR POS2
# Page 60 # Page 60
# BIT 8 LR VEL DATA GOOD # BIT 8 LR VEL DATA GOOD
# BIT 9 LR RANGE LOW SCALE # BIT 9 LR RANGE LOW SCALE
# BIT 10 BLOCK UPLINK INPUT # BIT 10 BLOCK UPLINK INPUT
# BIT 11 UPLINK TOO FAST # BIT 11 UPLINK TOO FAST
# BIT 12 DOWNLINK TOO FAST # BIT 12 DOWNLINK TOO FAST
# BIT 13 PIPA FAIL # BIT 13 PIPA FAIL
# BIT 14 WARNING OF REPEATED ALARMS: RESTART, COUNTER FAIL, VOLTAGE FAIL, AND SCALAR DOUBLE. # BIT 14 WARNING OF REPEATED ALARMS: RESTART,COUNTER FAIL, VOLTAGE FAIL,AND SCALAR DOUBLE.
# BIT 15 LGC OSCILLATOR STOPPED # BIT 15 LGC OSCILLATOR STOPPED
# CHANNEL 34 DNT M1: OUTPUT CHANNEL; DOWNLINK 1: FIRST OF TWO WORDS SERIALIZATION.
# CHANNEL 35 DNT M2: OUTPUT CHANNEL; DOWNLINK 2: SECOND OF TWO WORDS SERIALIZATION.
# CHANNEL 34 DNT M1; OUTPUT CHANNEL; DOWNLINK 1 FIRST OF TWO WORDS SERIALIZATION.
# CHANNEL 35 DNT M2; OUTPUT CHANNEL DOWNLINK 2 SOCOND OF TWO WORDS SERIALIZATION.

View File

@ -729,13 +729,13 @@ DT/2COMP DLOAD DSU
GETMAXDT GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D 12D
P00HCHK POOHCHK
USEMAXDT DLOAD SIGN USEMAXDT DLOAD SIGN
12D 12D
DT/2 DT/2
# Page 1219 # Page 1219
STCALL DT/2 STCALL DT/2
P00HCHK POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX DT/2MAX
GOTO GOTO
@ -744,7 +744,7 @@ GETMAXDT RTB
SIGNMPAC SIGNMPAC
STCALL DT/2 STCALL DT/2
USEMAXDT USEMAXDT
P00HCHK DLOAD ABS POOHCHK DLOAD ABS
DT/2 DT/2
DSU BMN DSU BMN
DT/2MIN DT/2MIN

View File

@ -28,8 +28,8 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 998 # Page 998
# THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE # THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE
# CADR OF THE SUBROUTINE IMMEDIATELY FOLLOWS THE TC BANKCALL INSTRUCTION, WITH C(A) AND C(L) PRESERVED. # CADR OF THE SUBROUTINE IMMEDIATELY FOLLOWS THE TC BANKCALL INSTRUCTION, WITH C(A) AND C(L) PRESERVED.
BLOCK 02 BLOCK 02
COUNT* $$/BANK COUNT* $$/BANK
@ -38,7 +38,7 @@ BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
CA 0 CA 0
INCR Q # SO WE RETURN TO THE LOC. AFTER THE CADR. INCR Q # SO WE RETURN TO THE LOC. AFTER THE CADR.
# SWCALL IS IDENTICAL TO BANKCALL, EXCEPT THAT THE CADR ARRIVES IN A. # SWCALL IS IDENTICAL TO BANKCALL, EXCEPT THAT THE CADR ARRIVES IN A.
SWCALL TS L SWCALL TS L
LXCH FBANK # SWITCH BANKS, SAVING RETURN. LXCH FBANK # SWITCH BANKS, SAVING RETURN.
@ -53,23 +53,23 @@ SWRETURN XCH BUF2 +1 # COMES HERE TO RETURN TO CALLER. C(A,L)
XCH BUF2 +1 XCH BUF2 +1
TC BUF2 TC BUF2
# THE FOLLOWING ROUTINE CAN BE USED AS A UNILATERAL JUMP WITH C(A,L) PRESERVED AND THE CADR IMMEDIATELY # THE FOLLOWING ROUTINE CAN BE USED AS A UNILATERAL JUMP WITH C(A,L) PRESERVED AND THE CADR IMMEDIATELY
# FOLLOWING THE TC POSTJUMP INSTRUCTION. # FOLLOWING THE TC POSTJUMP INSTRUCTION.
POSTJUMP XCH Q # SAVE INCOMING C(A). POSTJUMP XCH Q # SAVE INCOMING C(A).
INDEX A # GET CADR. INDEX A # GET CADR.
CA 0 CA 0
# BANKJUMP IS THE SAME AS POSTJUMP, EXCEPT THAT THE CADR ARRIVES IN A. # BANKJUMP IS THE SAME AS POSTJUMP, EXCEPT THAT THE CADR ARRIVES IN A.
BANKJUMP TS FBANK BANKJUMP TS FBANK
MASK LOW10 MASK LOW10
XCH Q # RESTORING INPUT C(A) IF THIS WAS A XCH Q # RESTORING INPUT C(A) IF THIS WAS A
Q+10000 INDEX Q # POSTJUMP. Q+10000 INDEX Q # POSTJUMP.
PRIO12 TCF 10000 # PRIO12 = TCF 10000 = 12000 PRIO12 TCF 10000 # PRIO12 = TCF 10000 = 12000
# Page 999 # Page 999
# THE FOLLOWING ROUTINE GETS THE RETURN CADR SAVED BY SWCALL OR BANKCALL AND LEAVES IT IN A. # THE FOLLOWING ROUTINE GETS THE RETURN CADR SAVED BY SWCALL OR BANKCALL AND LEAVES IT IN A.
MAKECADR CAF LOW10 MAKECADR CAF LOW10
MASK BUF2 MASK BUF2
@ -80,9 +80,9 @@ SUPDACAL TS MPTEMP
XCH FBANK # SET FBANK FOR DATA. XCH FBANK # SET FBANK FOR DATA.
EXTEND EXTEND
ROR SUPERBNK # SAVE FBANK IN BITS 15-11, AND ROR SUPERBNK # SAVE FBANK IN BITS 15-11, AND
XCH MPTEMP # SUPERBANK IN BITS 7-5. XCH MPTEMP # SUPERBANK IN BITS 7-5.
MASK LOW10 MASK LOW10
XCH L # SAVE REL. ADR. IN BANK, FETCH SUPERBITS XCH L # SAVE REL. ADR. IN BANK, FETCH SUPERBITS.
INHINT # BECAUSE RUPT DOES NOT SAVE SUPERBANK. INHINT # BECAUSE RUPT DOES NOT SAVE SUPERBANK.
EXTEND EXTEND
WRITE SUPERBNK # SET SUPERBANK FOR DATA. WRITE SUPERBNK # SET SUPERBANK FOR DATA.
@ -97,7 +97,7 @@ SUPDACAL TS MPTEMP
RETURN # 24 WDS. DATACALL 516 MU, SUPDACAL 432 MU RETURN # 24 WDS. DATACALL 516 MU, SUPDACAL 432 MU
# Page 1000 # Page 1000
# THE FOLLOWING ROUTINES ARE IDENTICAL TO BANKCALL AND SWCALL EXCEPT THAT THEY ARE USED IN INTERRUPT. # THE FOLLOWING ROUTINES ARE IDENTICAL TO BANKCALL AND SWCALL EXCEPT THAT THEY ARE USED IN INTERRUPT.
IBNKCALL DXCH RUPTREG3 # USES RUPTREG3,4 FOR DP RETURN ADDRESS. IBNKCALL DXCH RUPTREG3 # USES RUPTREG3,4 FOR DP RETURN ADDRESS.
INDEX Q INDEX Q
@ -118,9 +118,10 @@ ISWRETRN XCH RUPTREG4
TC RUPTREG3 TC RUPTREG3
# 2. USPRCADR ACCESSES INTERPRETIVE CODING IN OTHER THAN THE USER'S FBANK. THE CALLING SEQUENCE IS AS FOLLOWS: # 2. USPRCADR ACCESSES INTERPRETIVE CODING IN OTHER THAN THE USER'S FBANK. THE CALLING SEQUENCE IS AS FOLLOWS:
# L TC USPRCADR
# L+1 CADR INTPRETX # INTPRETX IS THE INTERPRETIVE CODING # L TC USPRCADR
# # RETURN IS TO L+2 # L+1 CADR INTPRETX INTPRETX IS THE INTERPRETIVE CODING
# RETURN IS TO L+2
USPRCADR TS LOC # SAVE A USPRCADR TS LOC # SAVE A
CA BIT8 CA BIT8
@ -136,40 +137,41 @@ USPRCADR TS LOC # SAVE A
TCF Q+10000 TCF Q+10000
# Page 1001 # Page 1001
# THERE ARE FOUR POSSIBLE SETTINGS FOR CHANNEL 07. (CHANNEL 07 CONTAINS SUPERBANK SETTING.) # THERE ARE FOUR POSSIBLE SETTINGS FOR CHANNEL 07. (CHANNEL 07 CONTAINS SUPERBANK SETTING.)
# PSEUDO-FIXED OCTAL PSEUDO
# SUPERBANK SETTING S-REG. VALUE BANK NUMBERS ADDRESSES
# ---------- ------- ------------ ------------ ------------
# #
# PSEUDO-FIXED OCTAL PSEUDO # SUPERBANK 3 OXX 2000 - 3777 30 - 37 70000 - 107777 (WHERE XX CAN BE ANYTHING AND
# SUPERBANK SETTING S-REG. VALUE BANK NUMBERS ADDRESSES
# --------- ------- ------------ ------------ ---------
# SUPERBANK 3 OXX 2000 - 3777 30 - 37 70000 - 107777 (WHERE XX CAN BE ANYTHING AND
# WILL USUALLY BE SEEN AS 11) # WILL USUALLY BE SEEN AS 11)
# SUPERBANK 4 100 2000 - 3777 40 - 47 110000 - 127777 (AS FAR AS IT CAN BE SEEN, # SUPERBANK 4 100 2000 - 3777 40 - 47 110000 - 127777 (AS FAR AS IT CAN BE SEEN,
# ONLY BANKS 40-43 WILL EVER BE # ONLY BANKS 40-43 WILL EVER BE
# AND ARE PRESENTLY AVAILABLE) # AND ARE PRESENTLY AVAILABLE)
# SUPERBANK 5 101 2000 - 3777 50 - 57 130000 - 147777 (PRESENTLY NOT AVAILABLE TO # SUPERBANK 5 101 2000 - 3777 50 - 57 130000 - 147777 (PRESENTLY NOT AVAILABLE TO
# THE USER) # THE USER)
# SUPERBANK 6 110 2000 - 3777 60 - 67 150000 - 167777 (PRESENTLY NOT AVAILABLE TO # SUPERBANK 6 110 2000 - 3777 60 - 67 150000 - 167777 (PRESENTLY NOT AVAILABLE TO
# THE USER) # THE USER)
# *** THIS ROUTINE MAY BE CALLED BY ANY PROGRAM LOCATED IN BANKS 00 - 27. I.E., NO PROGRAM LIVING IN ANY # *** THIS ROUTINE MAYBE CALLED BY ANY PROGRAM LOCATED IN BANKS 00 - 27. I.E., NO PROGRAM LIVING IN ANY
# SUPERBANK SHOULD USE SUPERSW. *** # SUPERBANK SHOULD USE SUPERSW. ***
# #
# SUPERSW MAY BE CALLED IN THIS FASHION: # SUPERSW MAYBE CALLED IN THIS FASHION:
# CAF ABBCON WHERE -- ABBCON BBCON SOMETHING -- #
# TCR SUPERSW (THE SUPERBNK BITS ARE IN THE BBCON) # CAF ABBCON WHERE -- ABBCON BBCON SOMETHIN --
# ... ... # TCR SUPERSW (THE SUPERBNK BITS ARE IN THE BBCON)
# . . # ... ...
# . . # . .
# OR IN THIS FASHION: # . .
# CAF SUPERSET WHERE SUPERSET IS ONE OF THE FOUR AVAILABLE # OR IN THIS FASHION :
# TCR SUPERSW SUPERBANK BIT CONSTANTS: # CAF SUPERSET WHERE SUPERSET IS ONE OF THE FOUR AVAILABLE
# ... ... SUPER011 OCTAL 60 # TCR SUPERSW SUPERBANK BIT CONSTANTS:
# . . SUPER100 OCTAL 100 # ... ... SUPER011 OCTAL 60
# . . SUPER101 OCTAL 120 # . . SUPER100 OCTAL 100
# SUPER110 OCTAL 140 # . . SUPER101 OCTAL 120
# SUPER110 OCTAL 140
SUPERSW EXTEND SUPERSW EXTEND
WRITE SUPERBNK # WRITE BITS 7-6-5 OF THE ACCUMULATOR INTO WRITE SUPERBNK # WRITE BITS 7-6-5 OF THE ACCUMULATOR INTO
# CHANNEL 07 # CHANNEL 07
TC Q # TC TO INSTRUCTION FOLLOWING TC Q # TC TO INSTRUCTION FOLLOWING
# TC SUPERSW # TC SUPERSW

View File

@ -39,7 +39,7 @@
DCA T6ADR DCA T6ADR
DTCB DTCB
DXCH ARUPT # T5RUPT -- AUTOPILOT DXCH ARUPT # T5RUPT - AUTOPILOT
EXTEND EXTEND
DCA T5ADR DCA T5ADR
DTCB DTCB

View File

@ -37,7 +37,7 @@
NEWDELHI TC BANKCALL # CHECK FOR AUTO STABILIZATION NEWDELHI TC BANKCALL # CHECK FOR AUTO STABILIZATION
CADR ISITAUTO # ONLY CADR ISITAUTO # ONLY
CCS A CCS A
TCF NOGO -2 TCF NOGO -2
NEWANGL TC INTPRET NEWANGL TC INTPRET
AXC,1 AXC,2 AXC,1 AXC,2
MIS # COMPUTE THE NEW MATRIX FROM S/C TO MIS # COMPUTE THE NEW MATRIX FROM S/C TO
@ -45,9 +45,9 @@ NEWANGL TC INTPRET
CALL CALL
MXM3 MXM3
VLOAD STADR VLOAD STADR
STOVL MIS +12D # CALCULATE NEW DESIRED CDU ANGLES STOVL MIS +12D # CALCULATE NEW DESIRED CDU ANGLES
STADR STADR
STOVL MIS +6D STOVL MIS +6D
STADR STADR
STORE MIS STORE MIS
AXC,1 CALL AXC,1 CALL
@ -59,7 +59,7 @@ NEWANGL TC INTPRET
BONCLR EXIT BONCLR EXIT
CALCMAN2 CALCMAN2
MANUSTAT # TO START MANEUVER MANUSTAT # TO START MANEUVER
CAF TWO # +0 OTHERWISE CAF TWO # +0 OTHERWISE
INCRDCDU TS SPNDX INCRDCDU TS SPNDX
INDEX SPNDX INDEX SPNDX
CA BCDU # INITIAL CDU ANGLES CA BCDU # INITIAL CDU ANGLES
@ -67,16 +67,10 @@ INCRDCDU TS SPNDX
INDEX SPNDX INDEX SPNDX
MSU NCDU MSU NCDU
EXTEND EXTEND
SETLOC KALCMON1
# The following 2 lines seem to have no purpose at all. BANK
# I am removing them because they only serve to confuse
# the assembler by getting in between EXTEND and MP.
# --- RSB 2009.
#SETLOC KALCMON1
#BANK
MP DT/TAU MP DT/TAU
CCS A # CONVERT TO 2'S COMPLEMENT CCS A # CONVERT TO 2S COMPLEMENT
AD ONE AD ONE
TCF +2 TCF +2
COM COM
@ -94,7 +88,7 @@ INCRDCDU TS SPNDX
RELINT RELINT
# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER # COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
TMANUCHK TC TIMECHK TMANUCHK TC TIMECHK
TCF CONTMANU TCF CONTMANU
@ -117,11 +111,11 @@ TIMECHK EXTEND
TC Q TC Q
TCF +2 TCF +2
TCF 2NDRETRN TCF 2NDRETRN
CCS TTEMP +1 CCS TTEMP +1
TC Q TC Q
TCF MANUOFF TCF MANUOFF
COM COM
MANUOFF AD ONESEK +1 MANUOFF AD ONESEK +1
EXTEND EXTEND
BZMF 2NDRETRN BZMF 2NDRETRN
INCR Q INCR Q
@ -134,7 +128,7 @@ MANUSTAT EXIT # INITIALIZATION ROUTINE
EXTEND # FOR AUTOMATIC MANEUVERS EXTEND # FOR AUTOMATIC MANEUVERS
DCA TIME2 DCA TIME2
# Page 367 # Page 367
DAS TM # TM+TO MANEUVER COMPLETION TIME DAS TM # TM+TO MANEUVER COMPLETION TIME
EXTEND EXTEND
DCS ONESEK DCS ONESEK
DAS TM # (TM+TO)-1 DAS TM # (TM+TO)-1
@ -157,14 +151,14 @@ RATEBIAS TS KSPNDX
MP BRATE MP BRATE
EXTEND EXTEND
INDEX KSPNDX INDEX KSPNDX
DV 1JACC # = AJX $ 90 DEG/SEC-SEC DV 1JACC # =AJX $ 90 DEG/SEC-SEC
INDEX KSPNDX INDEX KSPNDX
TS DELPEROR # $ 180 DEG TS DELPEROR # $ 180 DEG
CCS KSPNDX CCS KSPNDX
TCF RATEBIAS TCF RATEBIAS
CA TIME1 CA TIME1
AD ONESEK +1 AD ONESEK +1
XCH NEXTIME XCH NEXTIME
TCF INCRDCDU -1 TCF INCRDCDU -1
@ -185,7 +179,7 @@ MANUCALL INHINT # CALL FOR NEXT UPDATE VIA WAITLIST
EBANK= TTEMP EBANK= TTEMP
2CADR UPDTCALL 2CADR UPDTCALL
# Page 368 # Page 368
CAF ONESEK +1 # INCREMENT TIME FOR NEXT UPDATE CAF ONESEK +1 # INCREMENT TIME FOR NEXT UPDATE
ADS NEXTIME ADS NEXTIME
TCF ENDOFJOB TCF ENDOFJOB
@ -213,7 +207,7 @@ MANUSTOP CAF ZERO # ZERO MANEUVER RATES
ENDROLL CA CPHI # NO FINAL YAW ENDROLL CA CPHI # NO FINAL YAW
TS CDUXD TS CDUXD
CAF ZERO CAF ZERO
TS OMEGAPD # I.E., MANEUVER DID NOT GO THRU TS OMEGAPD # I.E. MANEUVER DID NOT GO THRU
TS DELDCDU # GIMBAL LOCK ORIGINALLY TS DELDCDU # GIMBAL LOCK ORIGINALLY
TS DELPEROR TS DELPEROR
GOODMANU CA ATTPRIO # RESTORE USERS PRIO GOODMANU CA ATTPRIO # RESTORE USERS PRIO
@ -225,5 +219,3 @@ GOODMANU CA ATTPRIO # RESTORE USERS PRIO
TC SPVAC # RETURN TO USER TC SPVAC # RETURN TO USER
TC TASKOVER TC TASKOVER

View File

@ -68,7 +68,7 @@ LOOPRATE EXTEND
EXTEND EXTEND
BZMF NEGTORK BZMF NEGTORK
STORTORK INDEX Q # INCREMENT DOWNLIST REGISTER. STORTORK INDEX Q # INCREMENT DOWNLIST REGISTER.
ADS DOWNTORK # NOTE: NOT INITIALIZED; OVERFLOWS. ADS DOWNTORK # NOTE: NOT INITIALIZED; OVERFLOWS.
CCS DAPTEMP6 CCS DAPTEMP6
TCF RATELOOP +1 TCF RATELOOP +1

View File

@ -51,7 +51,7 @@ ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1)
CA RUPTREG4 CA RUPTREG4
INDEX LOCCTR INDEX LOCCTR
TS MPAC # LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
TC RESUME TC RESUME
# Page 1339 # Page 1339
@ -83,9 +83,9 @@ UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
COM COM
TC UPTEST TC UPTEST
UPCK CS ELRCODE # CODE IS GOOD. IF CODE = `ERROR RESET', UPCK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET',
AD KEYTEMP1 # CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0) AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
EXTEND # IF CODE DOES NOT = `ERROR RESET', ACCEPT EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0). BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).
CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1 CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1
@ -94,7 +94,7 @@ UPCK CS ELRCODE # CODE IS GOOD. IF CODE = `ERROR RESET',
TC RESUME # UPLOCKFL = 1 TC RESUME # UPLOCKFL = 1
TC ACCEPTUP # UPLOCKFL = 0 TC ACCEPTUP # UPLOCKFL = 0
CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E., SET BIT 4 OF CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E.,SET BIT 4 OF )
MASK FLAGWRD7 # FLAGWRD7 = 0) MASK FLAGWRD7 # FLAGWRD7 = 0)
TS FLAGWRD7 TS FLAGWRD7
TC ACCEPTUP TC ACCEPTUP
@ -102,7 +102,7 @@ CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E., SET BIT 4 OF
# CODE IS BAD # CODE IS BAD
TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY
MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL
ADS FLAGWRD7 # `ERROR RESET' IS SENT VIA UPLINK. ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK.
TC RESUME TC RESUME
UPTEST AD KEYTEMP1 UPTEST AD KEYTEMP1
# Page 1340 # Page 1340
@ -114,19 +114,17 @@ HI10 OCT 77740
ELRCODE OCT 22 ELRCODE OCT 22
# `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY ..... # 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
# 1. VBRELDSP # 1. VBRELDSP
# 2. ERROR RESET # 2. ERROR RESET
# 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73. # 3. UPDATE PROGRAM(P27) ENTERED BY V70,V71,V72,AND V73.
# _
# THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
# WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND `ERROR RESET' CODE.
# (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
# BY 15 ZEROS. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
# FAILURE).
# #
# UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0. # _
# THE RECEPTION OF A BAD CODE(I.E CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
# WHEN UPLINK ACTIVITY IS LOCKED OUT ,IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
# (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
# BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
# FAILURE)
# UPLINK ACTIVITY IS ALSO ALLOWED(UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
CS XDSPBIT CS XDSPBIT

View File

@ -53,10 +53,10 @@ ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE. CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
EXTEND EXTEND
WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0). WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-6). ARCOMP CA RUNIT # COMPUTE ALTRATE=RUNIT.VVECT M/CS *2(-6).
EXTEND EXTEND
MP VVECT # MULTIPLY X-COMPONENTS. MP VVECT # MULTIPLY X-COMPONENTS.
XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6) XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
CA RUNIT +1 # MULTIPLY Y-COMPONENTS. CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
EXTEND EXTEND
MP VVECT +1 MP VVECT +1
@ -80,10 +80,10 @@ ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-6).
# Page 899 # Page 899
EXTEND # CHECK POLARITY OF ALTITUDE RATE. EXTEND # CHECK POLARITY OF ALTITUDE RATE.
BZMF +2 BZMF +2
TCF DATAOUT # NEGATIVE -- SEND POS. PULSES TO ALTM REG. TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
CA ALTRATE # POSITIVE OR ZERO -- SET SIGN BIT = 1 AND CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0* AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
CAF BIT3 CAF BIT3
EXTEND EXTEND
WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER. WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
@ -96,13 +96,13 @@ ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
CS BIT2 CS BIT2
EXTEND EXTEND
WAND CHAN14 WAND CHAN14
CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED. CCS ALTBITS # =-1 IF OLD ALT. DATA TOBE EXTRAPOLATED.
TCF +4 TCF +4
TCF +3 TCF +3
TCF OLDDATA TCF OLDDATA
TS ALTBITS # SET ALTBITS FROM -0 TO +0. TS ALTBITS # SET ALTBITS FROM -0 TO +0.
CS ONE CS ONE
DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS. DXCH ALTBITS # SET ALTBITS=-1 FOR SWITCH USE NEXT PASS.
DXCH ALTSAVE DXCH ALTSAVE
CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE. CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
XCH Q XCH Q
@ -150,11 +150,11 @@ DISINDAT EXTEND
RAND CHAN30 # DISPLAYS? I.E., RAND CHAN30 # DISPLAYS? I.E.,
CCS A # IS THE MODE SELECT SWITCH IN PGNCS? CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG. CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
MASK DIDFLBIT MASK DIDFLBIT
EXTEND EXTEND
BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE. BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS. CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
MASK DIDFLBIT MASK DIDFLBIT
ADS FLAGWRD1 # SET DIDFLAG. ADS FLAGWRD1 # SET DIDFLAG.
CS BIT7 CS BIT7
@ -262,24 +262,24 @@ SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
CA DELVS # HI X OF VELOCITY CORRECTION TERM. CA DELVS # HI X OF VELOCITY CORRECTION TERM.
AD VVECT # HI X OF UPDATED VELOCITY VECTOR. AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
TS ITEMP1 # = VX - DVX M/CS *2(-5). TS ITEMP1 # = VX - DVX M/CS*2(-5).
CA DELVS +2 # Y CA DELVS +2 # Y
AD VVECT +1 # Y AD VVECT +1 # Y
TS ITEMP2 # = VY - DVY M/CS *2(-5) TS ITEMP2 # = VY - DVY M/CS*2(-5).
CA DELVS +4 # Z CA DELVS +4 # Z
AD VVECT +2 # Z AD VVECT +2 # Z
TS ITEMP3 # = VZ - DVZ M/CS *2(-5) TS ITEMP3 # = VZ - DVZ M/CS*2(-5).
CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
EXTEND # Y-COORDINATE. EXTEND # Y-COORDINATE.
MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
XCH RUPTREG1 XCH RUPTREG1
CA ITEMP2 CA ITEMP2
EXTEND EXTEND
MP UHYP +2 # Y MP UHYP +2 # Y
ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS. ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP UHYP +4 # Z MP UHYP +4 # Z
ADS RUPTREG1 ADS RUPTREG1
# Page 903 # Page 903
CA RUPTREG1 CA RUPTREG1
@ -291,11 +291,11 @@ SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
XCH RUPTREG1 XCH RUPTREG1
CA ITEMP2 CA ITEMP2
EXTEND EXTEND
MP UHZP +2 # Y MP UHZP +2 # Y
ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS. ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP UHZP +4 # Z MP UHZP +4 # Z
ADS RUPTREG1 ADS RUPTREG1
CA RUPTREG1 CA RUPTREG1
DOUBLE DOUBLE
@ -317,7 +317,7 @@ LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP VHZ MP VHZ
ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5) ADS RUPTREG1 # =VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS. CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
EXTEND EXTEND
MP RUPTREG1 MP RUPTREG1
@ -344,7 +344,7 @@ LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
CAF ONE # LOOP TWICE. CAF ONE # LOOP TWICE.
VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
INDEX ITEMP5 # ANALOG DISPLAYS MONITOR. INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
CCS LATVEL CCS LATVEL
TCF +4 TCF +4
TCF LVLIMITS TCF LVLIMITS
@ -427,7 +427,6 @@ LVLIMITS INDEX ITEMP5
BZMF +2 BZMF +2
TCF NEGLMLV TCF NEGLMLV
INDEX ITEMP5 INDEX ITEMP5
CS LATVEL CS LATVEL
EXTEND EXTEND
BZMF LVMINLM BZMF LVMINLM
@ -500,11 +499,11 @@ ZEROLSTY INDEX ITEMP5
EXTEND EXTEND
WOR CHAN14 WOR CHAN14
TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
TS L # NO NEGATIVE ALTITUDES ALLOWED. TS L # NO NEGATIVE ALTITUDES ALLOWED.
TCF ZDATA2 TCF ZDATA2
# **************************************************************************** # ************************************************************************
DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY? DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
MASK R10FLBIT MASK R10FLBIT
@ -514,7 +513,7 @@ DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED. MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
CCS A CCS A
CAF BIT2 # YES. DISABLE RR ERROR COUNTER CAF BIT2 # YES. DISABLE RR ERROR COUNTER
AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
COM COM
EXTEND EXTEND
WAND CHAN12 WAND CHAN12
@ -525,12 +524,10 @@ ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
MASK FLAGWRD1 MASK FLAGWRD1
TS FLAGWRD1 # RESET DIDFLAG. TS FLAGWRD1 # RESET DIDFLAG.
TCF TASKOVER TCF TASKOVER
# ************************************************************************
# ******************************************************************************
BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS. BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
BITSET = PRIO6 BITSET = PRIO6
# ************************************************************************
# ******************************************************************************

View File

@ -29,24 +29,24 @@
# SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT # SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L-1 CALL
# L LAT-LONG
# #
# L-1 CALL
# L LAT-LONG
# SUBROUTINES USED # SUBROUTINES USED
# R-TO-RP, ARCTAN, SFTGAMMA, SETRE
# #
# R-TO-RP,ARCTAN,SETGAMMA,SETRE
# ERASABLE INIT. REQ. # ERASABLE INIT. REQ.
# AXO, -AYO, AZO, TEPHEM (SET AT LAUNCH TIME)
# ALPHAV = POSITION VECTOR METERS B-29
# MPAC -- TIME (CSECS B-28)
# ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH, 1 FOR MOON
# #
# AXO,-AYO,AZO,TEPHEM (SET AT LAUNCH TIME)
# ALPHAV = POSITION VECTOR METERS B-29
# MPAC-- TIME (CSECS B-28)
# ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON
# OUTPUT # OUTPUT
# LATITUDE IN LAT (REVS. B-0) #
# LONGITUDE IN LONG (REVS. B-0) # LATITUDE IN LAT (REVS. B-0)
# ALTITUDE IN ALT METERS B-29 # LONGITUDE IN LONG (REVS. B-0)
# ALTITUDE IN ALT METERS B-29
BANK 30 BANK 30
SETLOC LATLONG SETLOC LATLONG
BANK BANK
@ -60,16 +60,16 @@ LAT-LONG STQ SETPD
ALPHAV ALPHAV
PUSH ABVAL # 0-5D= R FOR R-TO-RP PUSH ABVAL # 0-5D= R FOR R-TO-RP
STODL ALPHAM # ABS. VALUE OF R FOR ALT FORMULA BELOW STODL ALPHAM # ABS. VALUE OF R FOR ALT FORMULA BELOW
ZEROVEC # SET MPAC=0 FOR EARTH, NON-ZERO FOR MOON ZEROVEC # SET MPAC=0 FOR EARTH,NON-ZERO FOR MOON
BOFF COS # USE COS(0) TO GET NON-ZERO IN MPAC BOFF COS # USE COS(0) TO GET NON-ZERO IN MPAC
LUNAFLAG # 0=EARTH, 1=MOON LUNAFLAG # 0=EARTH,1=MOON
CALLRTRP CALLRTRP
CALLRTRP CALL CALLRTRP CALL
R-TO-RP # RP VECTOR CONVERTED FROM R B-29 R-TO-RP # RP VECTOR CONVERTED FROM R B-29
UNIT # UNIT RP B-1 UNIT # UNIT RP B-1
STCALL ALPHAV # U2= 1/2 SINL FOR SETRE SUBR BELOW STCALL ALPHAV # U2= 1/2 SINL FOR SETRE SUBR BELOW
SETGAMMA # SET GAMMA=B2/A2 FOR EARTH, =1 FOR MOON SETGAMMA # SET GAMMA=B2/A2 FOR EARTH,=1 FOR MOON
CALL # SCALED B-1 CALL # SCALED B-1
SETRE # CALC RE METERS B-29 SETRE # CALC RE METERS B-29
DLOAD DSQ DLOAD DSQ
ALPHAV ALPHAV
@ -96,49 +96,48 @@ CALLRTRP CALL
STCALL ALT # EXIT WITH ALT METERS B-29 STCALL ALT # EXIT WITH ALT METERS B-29
INCORPEX INCORPEX
# Page 1135 # Page 1135
# SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR # SUBROUTINE TO CONVERT LAT,LONG,ALT AT GIVEN TIME TO RADIUS VECTOR
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L-1 CALL
# L LALOTORV
# #
# L-1 CALL
# L LALOTORV
# SUBROUTINES USED # SUBROUTINES USED
# SETGAMMA, SETRE, RP-TO-R
# #
# SETGAMMA,SETRE,RP-TO-R
# ERASABLE INIT. REQ. # ERASABLE INIT. REQ.
# AXO, AYO, AZO, TEPHEM SET AT LAUNCH TIME
# LAT -- LATITUDE (REVS B0)
# LONG -- LONGITUDE (REVS B0)
# ALT -- ALTITUDE (METERS) B-29
# MPAC -- TIME (CSECS B-28)
# ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH, 1 FOR MOON
# #
# AXO,AYO,AZO,TEPHEM SET AT LAUNCH TIME
# LAT-- LATITUDE (REVS B0)
# LONG-- LONGITUDE (REVS B0)
# ALT--ALTITUDE (METERS) B-29
# MPAC-- TIME (CSECS B-28)
# ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON
# OUTPUT # OUTPUT
# R-VECTOR IN ALPHAV (METERS B-29) #
# R-VECTOR IN ALPHAV (METERS B-29)
LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR
INCORPEX INCORPEX
0D 0D
STCALL 6D # 6-7D= TIME FOR RP-TO-R STCALL 6D # 6-7D= TIME FOR RP-TO-R
SETGAMMA # GAMMA=B2/A2 FOR EARTH, 1 FOR MOON B-1 SETGAMMA # GAMMA=B2/A2 FOR EARTH,1 FOR MOON B-1
DLOAD SIN # COS(LONG)COS(LAT) IN MPAC DLOAD SIN # COS(LONG)COS(LAT) IN MPAC
LAT # UNIT RP = SIN(LONG)COS(LAT) 2-3D LAT # UNIT RP= SIN(LONG)COS(LAT) 2-3D
DMPR PDDL # PD 2 GAMMA*SIN(LAT) 0-1D DMPR PDDL # PD 2 GAMMA*SIN(LAT) 0-1D
GAMRP GAMRP
LAT # 0-1D = GAMMA*SIN(LAT) B-2 LAT # 0-1D= GAMMA*SIN(LAT) B-2
COS PDDL # PD4 2-3D = COS(LAT) B-1 TEMPORARILY COS PDDL # PD4 2-3D=COS(LAT) B-1 TEMPORARILY
LONG LONG
SIN DMPR # PD 2 SIN DMPR # PD 2
PDDL COS # PD 4 2-3D = SIN(LONG)COS(LAT) B-2 PDDL COS # PD 4 2-3D=SIN(LONG)COS(LAT) B-2
LAT LAT
PDDL COS # PD 6 4-5D = COS(LAT) B-1 TEMPORARILY PDDL COS # PD 6 4-5D=COS(LAT) B-1 TEMPORARILY
LONG LONG
DMPR VDEF # PD 4 MPAC = COS(LONG)COS(LAT) B-2 DMPR VDEF # PD 4 MPAC= COS(LONG)COS(LAT) B-2
UNIT PUSH # 0-5D= UNIT RP FOR RP-TO-R SUBR. UNIT PUSH # 0-5D= UNIT RP FOR RP-TO-R SUBR.
STCALL ALPHAV # ALPHAV +4= SINL FOR SETRE SUBR. STCALL ALPHAV # ALPHAV +4= SINL FOR SETRE SUBR.
SETRE # RE METERS B-29 SETRE # RE METERS B-29
DLOAD BOFF # SET MPAC=0 FOR EARTH, NON-ZERO FOR MOON DLOAD BOFF # SET MPAC=0 FOR EARTH,NON-ZERO FOR MOON
ZEROVEC ZEROVEC
LUNAFLAG LUNAFLAG
CALLRPRT CALLRPRT
@ -154,14 +153,15 @@ CALLRPRT CALL
VSL1 # R METERS B-29 VSL1 # R METERS B-29
STCALL ALPHAV # EXIT WITH R IN METERS B-29 STCALL ALPHAV # EXIT WITH R IN METERS B-29
INCORPEX INCORPEX
# SUBROUTINE TO COMPUTE EARTH RADIUS # SUBROUTINE TO COMPUTE EARTH RADIUS
# #
# INPUT # INPUT
# 1/2 SIN LAT IN ALPHAV +4 #
# 1/2 SIN LAT IN ALPHAV +4
# #
# OUTPUT # OUTPUT
# EARTH RADIUS IN ERADM AND MPAC (METERS B-29) #
# EARTH RADIUS IN ERADM AND MPAC (METERS B-29)
GETERAD DLOAD DSQ GETERAD DLOAD DSQ
ALPHAV +4 # SIN**2(L) ALPHAV +4 # SIN**2(L)
@ -176,11 +176,10 @@ GETERAD DLOAD DSQ
STORE ERADM STORE ERADM
RVQ RVQ
# THE FOLLOWING CONSTANTS WERE COMPUTED WITH A=6378166, B=6356784 METERS # THE FOLLOWING CONSTANTS WERE COMPUTED WITH A=6378166,B=6356784 METERS
# B2XSC = B**2 SCALED B-51 # B2XSC= B**2 SCALED B-51
# B2/A2 = B**2/A**2 SCALED B-1 # B2/A2= B**2/A**2 SCALED B-1
# EE = (1-B**2/A**2) SCALED B-0 # EE=(1-B**2/A**2) SCALED B-0
B2XSC 2DEC .0179450689 # B**2 SCALED B-51 B2XSC 2DEC .0179450689 # B**2 SCALED B-51
DP1/2 = XUNIT DP1/2 = XUNIT
B2/A2 2DEC .9933064884 B-1 # GAMMA= B**2/A**2 B-1 B2/A2 2DEC .9933064884 B-1 # GAMMA= B**2/A**2 B-1
@ -190,12 +189,13 @@ EE 2DEC 6.6935116 E-3 # (1-B**2/A**2) B-0
# ARCTAN SUBROUTINE # ARCTAN SUBROUTINE
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# SIN THETA IN SINTH B-1 #
# COS THETA IN COSTH B-1 # SIN THETA IN SINTH B-1
# CALL ARCTAN # COS THETA IN COSTH B-1
# CALL ARCTAN
# #
# OUTPUT # OUTPUT
# ARCTAN THETA IN MPAC AND THETA B-0 IN RANGE -1/2 TO +1/2 # ARCTAN THETA IN MPAC AND THETA B-0 IN RANGE -1/2 TO +1/2
ARCTAN BOV ARCTAN BOV
CLROVFLW CLROVFLW
@ -234,21 +234,21 @@ ATAN=90 DLOAD SIGN
2DZERO = DPZERO 2DZERO = DPZERO
# Page 1138 # Page 1138
# ***** SETGAMMA SUBROUTINE ***** # ..... SETGAMMA SUBROUTINE .....
# SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES # SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES
# #
# GAMMA = B**2/A**2 FOR EARTH (B-1) # GAMMA = B**2/A**2 FOR EARTH (B-1)
# GAMMA = 1 FOR MOON (B-1) # GAMMA = 1 FOR MOON (B-1)
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 SETGAMMA # L+1 SETGAMMA
# #
# INPUT # INPUT
# LUNAFLAG=0 FOR EARTH, =1 FOR MOON # LUNAFLAG=0 FOR EARTH,=1 FOR MOON
# #
# OUTPUT # OUTPUT
# GAMMA IN GAMRP (B-1) # GAMMA IN GAMRP (B-1)
SETGAMMA DLOAD BOFF # BRANCH FOR EARTH SETGAMMA DLOAD BOFF # BRANCH FOR EARTH
B2/A2 # EARTH GAMMA B2/A2 # EARTH GAMMA
@ -261,27 +261,27 @@ SETGMEX STORE GAMRP
GAMRP = 8D GAMRP = 8D
# Page 1139 # Page 1139
# ***** SETRE SUBROUTINE ***** # .....SETRE SUBROUTINE .....
# SUBROUTINE TO SET RE (EARTH OR MOON RADIUS) # SUBROUTINE TO SET RE (EARTH OR MOON RADIUS)
# #
# RE = RM FOR MOON # RE= RM FOR MOON
# RE = RREF FOR FIXED EARTH RADIUS OR COMPUTED RF FOR FISCHER ELLIPSOID # RE= RREF FOR FIXED EARTH RADIUS OR COMPUTED RF FOR FISCHER ELLIPSOID
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 SETRE # L+1 SETRE
# #
# SUBROUTINES USED # SUBROUTINES USED
# GETERAD # GETERAD
# #
# INPUT # INPUT
# ERADFLAG = 0 FOR FIXED RE, 1 FOR COMPUTED RE # ERADFLAG=0 FOR FIXED RE, 1 FOR COMPUTED RE
# ALPHAV +4 = 1/2 SINL IF GETERAD IS CALLED # ALPHAV +4= 1/2 SINL IF GETERAD IS CALLED
# LUNAFLAG = 0 FOR EARTH, =1 FOR MOON # LUNAFLAG=0 FOR EARTH,=1 FOR MOON
# #
# OUTPUT # OUTPUT
# ERADM = 504RM FOR MOON (METERS B-29) # ERADM= 504RM FOR MOON (METERS B-29)
# ERADM = ERAD OR COMPUTED RE FOR EARTH (METERS B-29) # ERADM= ERAD OR COMPUTED RE FOR EARTH (METERS B-29)
SETRE STQ DLOAD SETRE STQ DLOAD
SETREX SETREX
@ -290,19 +290,17 @@ SETRE STQ DLOAD
LUNAFLAG LUNAFLAG
TSTRLSRM TSTRLSRM
ERAD ERAD
BOFF CALL # ERADFLAG=0 FOR FIXED RE, 1 FOR COMPUTED BOFF CALL # ERADFLAG=0 FOR FIXED RE,1 FOR COMPUTED
ERADFLAG ERADFLAG
SETRXX SETRXX
GETERAD GETERAD
SETRXX STCALL ERADM # EXIT WITH RE OR RM METERS B-29 SETRXX STCALL ERADM # EXIT WITH RE OR RM METERS B-29
SETREX SETREX
TSTRLSRM BON VLOAD # ERADFLAG=0, SET R0=RLS TSTRLSRM BON VLOAD # ERADFLAG=0,SET R0=RLS
ERADFLAG # =1 R0=RM ERADFLAG # =1 R0=RM
SETRXX SETRXX
RLS RLS
ABVAL SR2R # SCALE FROM B-27 TO B-29 ABVAL SR2R # SCALE FROM B-27 TO B-29
GOTO GOTO
SETRXX SETRXX
SETREX = S2 SETREX = S2

View File

@ -35,22 +35,22 @@
EBANK= XSM EBANK= XSM
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING
# THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO # THE CONIC R,V AND THE DEVIATIONSR,V. THE STATE VECTORS ARE CONVERTED TO
# METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
# R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE # R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
# OTHER VEHICLES COMPUTER. # OTHER VEHICLES COMPUTER.
# #
# INPUT # INPUT
# STATE VECTOR IN TEMPORARY STORAGE AREA # STATE VECTOR IN TEMPORARY STORAGE AREA
# IF STATE VECTOR IS SCALED POS B27 AND VEL B5 # IF STATE VECTOR IS SCALED POS B27 AND VEL B5
# SET X2 TO +2 # SET X2 TO +2
# IF STATE VECTOR IS SCALED POS B29 AND VEL B7 # IF STATE VECTOR IS SCALED POS B29 AND VEL B7
# SET X2 TO 0 # SET X2 TO 0
# #
# OUTPUT # OUTPUT
# R(T) IN RN, V(T) IN VN, T IN PIPTIME # R(T) IN RN, V(T) IN VN, T IN PIPTIME
# OR # OR
# R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER) # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER)
COUNT* $$/GEOM COUNT* $$/GEOM
SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG. SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
@ -58,14 +58,14 @@ SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
+1 +1
VLOAD VSL* VLOAD VSL*
TDELTAV TDELTAV
0 -7,2 0 -7,2
VAD VSL* VAD VSL*
RCV RCV
0,2 0,2
STOVL RN STOVL RN
TNUV TNUV
VSL* VAD VSL* VAD
0 -4,2 0 -4,2
VCV VCV
VSL* VSL*
0,2 0,2
@ -76,14 +76,14 @@ SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
# Page 321 # Page 321
SVDWN1 VLOAD VSL* SVDWN1 VLOAD VSL*
TDELTAV TDELTAV
0 -7,2 0 -7,2
VAD VSL* VAD VSL*
RCV RCV
0,2 0,2
STOVL R-OTHER STOVL R-OTHER
TNUV TNUV
VSL* VAD VSL* VAD
0 -4,2 0 -4,2
VCV VCV
VSL* VSL*
0,2 0,2
@ -91,32 +91,32 @@ SVDWN1 VLOAD VSL*
RVQ RVQ
# Page 322 # Page 322
# THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH # THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH
# GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE # GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE
# ARE LEFT IN MODEA AND THOSE WHICH WOULD BE USED AFTER A REMODE IN MODEB. THIS ROUTINE ASSUMES MODE 1 IS TRUNNION # ARE LEFT IN MODEA AND THOSE WHICH WOULD BE USED AFTER A REMODE IN MODEB. THIS ROUTINE ASSUMES MODE 1 IS TRUNNION
# ANGLE LESS THAN 90 DEGS IN ABS VALUE WITH ARBITRARY SHAFT, WITH A CORRESPONDING DEFINITION FOR MODE 2. MODE # ANGLE LESS THAN 90 DEGS IN ABS VALUE WITH ARBITRARY SHAFT, WITH A CORRESPONDING DEFINITION FOR MODE 2. MODE
# SELECTION AND LIMIT CHECKING ARE DONE ELSEWHERE. # SELECTION AND LIMIT CHECKING ARE DONE ELSEWHERE.
# #
# THE MODE 1 CONFIGURATION IS CALCULATED FROM THE VECTOR AND THEN MODE 2 IS FOUND USING THE RELATIONS # THE MODE 1 CONFIGURATION IS CALCULATED FROM THE VECTOR AND THEN MODE 2 IS FOUND USING THE RELATIONS
# #
# S(2) = 180 + S(1) # S(2) = 180 + S(1)
# T(2) = 180 - T(1) # T(2) = 180 - T(1)
# #
# THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNG OR *SMNB* WILL HAVE LEFT IT. # THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNB OR *SMNB* WILL HAVE LEFT IT.
RRANGLES STORE 32D RRANGLES STORE 32D
DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT
34D # ANGLE LATER, WE CAN FIND THE MODE 1 34D # ANGLE LATER, WE CAN FIND THE MODE 1
SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF
0 # THE Y COMPONENT, THE ASIN GIVIN AN 0 # THE Y COMPONENT, THE ASIN GIVIN AN
PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG. PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG
LODPHALF LODPHALF
STODL 4 # MODE 2 TRUNNION TO 4. STODL 4 # MODE 2 TRUNNION TO 4.
LO6ZEROS LO6ZEROS
STOVL 34D # UNIT THE PROJECTION OF THE VECTOR STOVL 34D # UNIT THE PROJECTION OF THE VECTOR
32D # IN THE X-Z PLANE 32D # IN THE X-Z PLANE
UNIT BOVB # IF OVERFLOW, TARGET VECTOR IS ALONG Y UNIT BOVB # IF OVERFLOW,TARGET VECTOR IS ALONG Y
LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF
STODL 32D # PROJECTION VECTOR. STODL 32D # PROJECTION VECTOR.
32D 32D
@ -154,7 +154,7 @@ RRANGLES STORE 32D
GOTO GOTO
S2 S2
# Page 324 # Page 324
# GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1, FIND THE ASSOCIATED # GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1,FIND THE ASSOCIATED
# LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T), # LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T),
# -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D. # -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D.
@ -190,7 +190,7 @@ RRNB1 PUSH COS # SHAFT ANGLE TO 2
RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21. RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
MPAC # SET MODE TO DP. (THE PRECEEDING STORE MPAC # SET MODE TO DP. (THE PRECEEDING STORE
# MAY BE DP, TP OR VECTOR.) # MAY BE DP. TP OR VECTOR.)
RTB SETPD RTB SETPD
CDULOGIC CDULOGIC
0 0
@ -203,7 +203,4 @@ RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
CDULOGIC CDULOGIC
GOTO GOTO
RRNB1 RRNB1
# Page 325 # Page 325 (empty page)
# (This page has nothing on it.)

View File

@ -25,104 +25,91 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 984 # Page 984
# NAME -- LSPOS -- LOCATE SUN AND MOON DATE -- 25 OCT 67 # NAME - LSPOS - LOCATE SUN AND MOON DATE - 25 OCT 67
# MOD NO. 1 # MOD NO.1
# MOD BY NEVILLE ASSEMBLY SUNDANCE # MOD BY NEVILLE ASSEMBLY SUNDANCE
# #
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# #
# COMPUTES UNIT POSITION VECTOR OF THE SUN AND MOON IN THE BASIC REFERENCE SYSTEM. THE SUN VECTOR S IS # COMPUTES UNIT POSITION VECTOR OF THE SUN AND MOON IN THE BASIC REFERENCE SYSTEM. THE SUN VECTOR S IS
# LOCATED VIA TWO ANGLES. THE FIRST ANGLE (OBLIQUITY) IS THE ANGLE BETWEEN THE EARTH EQUATOR AND THE ECLIPTIC. THE # LOCATED VIA TWO ANGLES. THE FIRST ANGLE(OBLIQUITY) IS THE ANGLE BETWEEN THE EARTH EQUATOR AND THE ECLIPTIC. THE
# POSITION VECTOR OF THE SUN IS # SECOND ANGLE IS THE LONGITUDE OF THE SUN MEASURED IN THE ECLIPTIC.
# _ # THE POSITION VECTOR OF THE SUN IS
# S = (COS(LOS), COS(OBL)*SIN(LOS), SIN(OBL)*SIN(LOS)), WHERE # -
# S=(COS(LOS), COS(OBL)*SIN(LOS), SIN(OBL)*SIN(LOS)), WHERE
# #
# LOS = LOS +LOS *T-(C *SIN(2PI*T)/365.24 +C *COS(2PI*T)/365.24) # LOS=LOS +LOS *T-(C *SIN(2PI*T)/365.24 +C *COS(2PI*T)/365.24)
# 0 R 0 1 # 0 R 0 1
# LOS (RAD) IS THE LONGITUDE OF THE SUN FOR MIGNIGHT JUNE 30TH OF THE PARTICULAR YEAR. # LOS (RAD) IS THE LONGITUDE OF THE SUN FOR MIGNIGHT JUNE 30TH OF THE PARTICULAR YEAR.
# 0 # 0
# LOS (RAD/DAY) IS THE MEAN RATE FOR THE PARTICULAR YEAR. # LOS (RAD/DAY) IS THE MEAN RATE FOR THE PARTICULAR YEAR.
# R # R
# # LOS AND LOS ARE STORED AS LOSO AND LOSR IN RATESP.
# LOS AND LOS ARE STORED AS LOSC AND LOSR IN RATESP.
# 0 R # 0 R
# COS(OBL) AND SIN(OBL) ARE STORED IN THE MATRIX KONMAT. # COS(OBL) AND SIN(OBL) ARE STORED IN THE MATRIX KONMAT.
# # T, TIME MEASURED IN DAYS(24 HOURS), IS STORED IN TIMEP.
# T, TIME MEASURED IN DAYS (24 HOURS) IS STORED IN TIMEP. # C AND C ARE FUDGE FACTORS TO MINIMIZE THE DEVIATION. THEY ARE STORED AS ONE CONSTANT(CMOD), SINCE
#
# C AND C ARE FUDGE FACTORS TO MINIMIZE THE DEVIATION. THEY ARE STORED AS ONE CONSTANT (CMOD), SINCE
# 0 1 2 2 1/2 # 0 1 2 2 1/2
# C *SIN(X)+C *COS(X) CAN BE WRITTEN AS (C +C ) *SIN(X+PHI), WHERE PHI=ARCTAN(C /C ). # C *SIN(X)+C *COS(X) CAN BE WRITTEN AS (C +C ) *SIN(X+PHI), WHERE PHI=ARCTAN(C /C ).
# 0 1 1 0 # 0 1 0 1 1 0
# #
# THE MOON IS LOCATED VIA FOUR ANGLES, THE FIRST IS THE OBLIQUITY. THE SECOND IS THE MEAN LONGITUDE OF THE MOON, # THE MOON IS LOCATED VIA FOUR ANGLES. THE FIRST IS THE OBLIQUITY. THE SECOND IS THE MEAN LONGITUDE OF THE MOON,
# MEASURED IN THE ECLIPTIC FROM THE MEAN EQUINOX TO THE MEAN ASCENDING NODE OF THE LUNAR ORBIT, AND THEN ALONG THE # MEASURED IN THE ECLIPTIC FROM THE MEAN EQUINOX TO THE MEAN ASCENDING NODE OF THE LUNAR ORBIT, AND THEN ALONG THE
# ORBIT. THE THIRD ANGLE IS THE ANGLE BETWEEN THE ECLIPTIC AND THE LUNAR ORBIT. THE FOURTH ANGLE IS THE LONGITUDE # ORBIT. THE THIRD ANGLE IS THE ANGLE BETWEEN THE ECLIPTIC AND THE LUNAR ORBIT. THE FOURTH ANGLE IS THE LONGITUDE
# OF THE NODE OF THE MOON, MEASURED IN THE LUNAR ORBIT. LET THESE ANGLES BE OBL,LOM,IM, AND LON RESPECTIVELY. # OF THE NODE OF THE MOON, MEASURED IN THE LUNAR ORBIT. LET THESE ANGLES BE OBL,LOM,IM, AND LON RESPECTIVELY.
# #
# THE SIMPLIFIED POSITION VECTOR OF THE MOON IS # THE SIMPLIFIED POSITION VECTOR OF THE MOON IS
# _ # -
# M=(COS(LOM), COS(OBL)*SIN(LOM)-SIN(OBL)*SIN(IM)*SIN(LOM-LON), SIN(OBL)*SIN(LOM)+COS(OBL)*SIN(IM)*SIN(LOM-LON)) # M=(COS(LOM), COS(OBL)*SIN(LOM)-SIN(OBL)*SIN(IM)*SIN(LOM-LON), SIN(OBL)*SIN(LOM)+COS(OBL)*SIN(IM)*SIN(LOM-LON))
# #
# WHERE # WHERE
# LOM=LOM +LOM *T-(A *SIN(2PI*T/27.5545)+A *COS(2PI*T/27.5545)+B *SIN(2PI*T/32)+B *COS(2PI*T/32)), AND # LOM=LOM +LOM *T-(A *SIN(2PI*T/27.5545)+A *COS(2PI*T/27.5545)+B *SIN(2PI*T/32)+B *COS(2PI*T/32)), AND
# 0 R 0 1 0 1 # 0 R 0 1 0 1
# LON=LON +LON # LON=LON +LON
# 0 R # 0 R
# A , A , B AND B ARE STORE AS AMOD AND BMOD (SEE DESCRIPTION OF CMOD, ABOVE). COS(OBL), SIN(OBL)*SIN(IM), # A , A , B AND B ARE STORED AS AMOD AND BMOD (SEE DESCRIPTION OF CMOD, ABOVE). COS(OBL), SIN(OBL)*SIN(IM),
# 0 1 0 1 # 0 1 0 1
# SIN(OBL), AND COS(OBL)*SIN(IM) ARE STORED IN KONMAT AS K1, K2, K3, AND K4, RESPECTIVELY. LOM , LOM , LON , LON # SIN(OBL), AND COS(OBL)*SIN(IM) ARE STORED IN KONMAT AS K1, K2, K3 AND K4, RESPECTIVELY. LOM , LOM , LON , LON
# 0 R 0 R # ARE STORED AS LOMO, LOMR, LONO, AND LONR IN RATESP. 0 R 0 R
# ARE STORED AS LOM0, LOMR, LON0, AND LONR IN RATESP.
#
# THE THREE PHIS ARE STORED AS AARG, BARG, AND CARG(SUN). ALL CONSTANTS ARE UPDATED BY YEAR. # THE THREE PHIS ARE STORED AS AARG, BARG, AND CARG(SUN). ALL CONSTANTS ARE UPDATED BY YEAR.
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# Page 985 # Page 985
# CALL LSPOS. RETURN IS VIA CPRET. # CALL LSPOS. RETURN IS VIA QPRET.
#
# ALARMS OR ABORTS # ALARMS OR ABORTS
# NONE # NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# TEPHEM -- TIME FROM MIGNIGHT 1 JULY PRECEDING THE LAUNCH TO THE TIME OF THE LAUNCH (WHEN THE AGC CLOCK WENT # TEPHEM - TIME FROM MIGNIGHT 1 JULY PRECEDING THE LAUNCH TO THE TIME OF THE LAUNCH (WHEN THE AGC CLOCK WENT
# TO ZERO). TEPHEM IS TP WITH UNITS OF CENTI-SECONDS. # TO ZERO). TEPHEM IS TP WITH UNITS OF CENTI-SECONDS.
# # TIME2 AND TIME1 ARE IN MPAC AND MPAC +1 WHEN PROGRAM IS CALLED.
# TIME2 AND TIME1 ARE IN MPAC AND MPAC +1 WHEN PROGRAM IS CALLED.
#
# OUTPUT # OUTPUT
# UNIT POSITIONAL VECTOR OF SUN IN VSUN. (SCALED B-1) # UNIT POSITIONAL VECTOR OF SUN IN VSUN. (SCALED B-1)
# UNIT POSITIONAL VECTOR OF MOON IN VMOON. (SCALED B-1) # UNIT POSITIONAL VECTOR OF MOON IN VMOON. (SCALED B-1)
#
# SUBROUTINES USED # SUBROUTINES USED
# NONE # NONE
#
# DEBRIS # DEBRIS
# CURRENT CORE SET, WORK AREA AND FREEFLAG # CURRENT CORE SET,WORK AREA AND FREEFLAG
BANK 04 BANK 04
SETLOC EPHEM SETLOC EPHEM
BANK BANK
EBANK= VSUN EBANK= VSUN
COUNT* $$/EPHEM COUNT* $$/EPHEM
LUNPOS EQUALS LSPOS LUNPOS EQUALS LSPOS
LSPOS SETPD SR LSPOS SETPD SR
0 0
14D # TP 14D # TP
TAD DDV TAD DDV
# HG comments in [...] are hand written comments in original listing ## Comments in [...] are hand-written notations in original listing
TEPHEM # TIME OF LAUNCH [IN CENTISEC B 42] TEPHEM # TIME OF LAUNCH [in centisec B 42]
CSTODAY # 24 HOURS -- 8640000 CENTI-SECS/DAY B-33 CSTODAY # 24 HOURS-8640000 CENTI-SECS/DAY B-33
STORE TIMEP # T IN DAYS [@ B 9 = 512 DAYS] STORE TIMEP # T IN DAYS [@ B 9 = 512 days]
AXT,1 AXT,2 # [GRANULRITY = 0.164 SEC] AXT,1 AXT,2 # [∴ granularity ≈ 0.164 sec]
0 0
0 0
CLEAR CLEAR
FREEFLAG # SWITCH BIT FREEFLAG # SWITCH BIT
POSITA DLOAD POSITA DLOAD
KONMAT +2 # ZEROS KONMAT +2 # ZERO$
STORE GTMP STORE GTMP
POSITB DLOAD DMP* POSITB DLOAD DMP*
TIMEP # T TIMEP # T
@ -132,11 +119,11 @@ POSITB DLOAD DMP*
8D 8D
VAL67 +2,1 # AARG VAL67 +2,1 # AARG
SIN DMP* # SIN(T/27+PHI) OR T/32 OR T/365 SIN DMP* # SIN(T/27+PHI) OR T/32 OR T/365
VAL67,1 # (A0**2+A1**2)**1/2 SIN(X+PHIA) VAL67,1 # (A0**2+A1**2)**1/2SIN(X+PHIA)
DAD INCR,1 # PLUS DAD INCR,1 # PLUS
GTMP # (B0**2+B1**2)**1/2 SIN(X+PHIB) GTMP # (B0**2+B1**2)**1/2SIN(X+PHIB)
DEC -6 DEC -6
STORE GTMP # OR (C0**2+C1**2)**1/2 SIN(X+PHIC) STORE GTMP # OR (C0**2+C1**2)**1/2SIN(X+PHIC)
BOFSET BOFSET
FREEFLAG FREEFLAG
POSITB POSITB
@ -145,7 +132,7 @@ POSITD DLOAD DMP*
RATESP,2 # LOMR,LOSR,LONR RATESP,2 # LOMR,LOSR,LONR
SL DAD* SL DAD*
5D 5D
RATESP +6,2 # LOM0,LOS0,LON0 RATESP +6,2 # LOMO,LOSO,LONO
DSU DSU
GTMP GTMP
STORE STMP,2 # LOM,LOS,LON STORE STMP,2 # LOM,LOS,LON
@ -184,7 +171,7 @@ POSITE DLOAD
STORE GTMP STORE GTMP
GOTO GOTO
POSITD POSITD
LUNVEL RVQ LUNVEL RVQ # TO FOOL INTEGRATION
SETLOC EPHEM1 SETLOC EPHEM1
BANK BANK

View File

@ -1100,7 +1100,7 @@ OUTOFLIM RELINT
CAF OCT501PV CAF OCT501PV
TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN
CADR PRIOLARM # LIMITS CADR PRIOLARM # LIMITS
TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO P00H) TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO POOH)
TC OUTOFLIM +1 # PROCEED ILLEGAL TC OUTOFLIM +1 # PROCEED ILLEGAL
TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER
TC ENDOFJOB TC ENDOFJOB

View File

@ -32,9 +32,8 @@
# PROGRAM DESCRIPTION P30 DATE 3-6-67 # PROGRAM DESCRIPTION P30 DATE 3-6-67
# #
# MOD.1 BY RAMA AIYAWAR # MOD.1 BY RAMA AIYAWAR
# # FUNCTIONAL DESCRIPTION
# FUNCTIONAL DESCRIPTIONS # ACCEPT ASTRONAUT INPUTS OF TIG.DELV(LV)
# ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV)
# CALL IMU STATUS CHECK ROUTINE (R02) # CALL IMU STATUS CHECK ROUTINE (R02)
# DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN # DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
# REQUEST BURN PROGRAM # REQUEST BURN PROGRAM
@ -43,16 +42,16 @@
# #
# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E) # EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
# #
# SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR # SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1, # GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
# TIG/N35, MIDGIM, DISPMGA # TIG/N35, MIDGIM, DISPMGA
# #
# ERASABLE INITIALIZATION -- STATE VECTOR # ERASABLE INITIALIZATION- STATE VECTOR
# #
# OUTPUT -- RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO, # OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
# HPER, TTOGO # HPER, TTOGO
# #
# DEBRIS -- A, L, MPAC, PUSHLIST # DEBRIS- A,L, MPAC, PUSHLIST
BANK 32 BANK 32
SETLOC P30S SETLOC P30S
@ -65,10 +64,10 @@ P30 TC UPFLAG # SET UPDATE FLAG
ADRES TRACKFLG ADRES TRACKFLG
P30N33 CAF V06N33 # T OF IGN P30N33 CAF V06N33 # T OF IGN
TC VNP00H # RETURN ON PROCEED, P00H ON TERMINATE TC VNPOOH # RETURNS ON PROCEED, POOH ON TERMINATE
CAF V06N81 # DISPLAY DELTA V (LV) CAF V06N81 # DISPLAY DELTA V (LV)
TC VNP00H # REDISPLAY ON RECYCLE TC VNPOOH # REDISPLAY ON RECYCLE
TC DOWNFLAG # RESET UPDATE FLAG TC DOWNFLAG # RESET UPDATE FLAG
ADRES UPDATFLG ADRES UPDATFLG
@ -77,8 +76,8 @@ P30N33 CAF V06N33 # T OF IGN
S30.1 S30.1
SET EXIT SET EXIT
UPDATFLG UPDATFLG
PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE ,DELTA V
TC VNP00H TC VNPOOH
# Page 615 # Page 615
TC INTPRET TC INTPRET
@ -93,46 +92,40 @@ V06N42 VN 0642
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
# MOD NO 1 LOG SECTION P30,P37 # MOD NO 1 LOG SECTION P30,P37
# MOD BY RAMA AIYAWAR ** # MOD BY RAMA AIYAWAR **
#
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF # BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
# IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE # IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE
# APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN). # APOGEE ALTITUDE AND DELTAV REQUIRED(DELVSIN).
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 s30.1 # L+1 s30.1
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# AT L+2 OR CALLING SEQUENCE (GOTO L+2) # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
#
# SUBROUTINES CALLED # SUBROUTINES CALLED
# LEMPREC # LEMPREC
# PERIAPO # PERIAPO
#
# ALARM OR ABORT EXIT MODES # ALARM OR ABORT EXIT MODES
# NONE # NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# TIG TIME OF IGNITION DP B28CS # TIG TIME OF IGNITION DP B28CS
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
# COORDS. OF ACTIVE VEHICLE AT # COORDS. OF ACTIVE VEHICLE AT
# TIME OF IGNITION VECTOR B+7 METERS/CS # TIME OF IGNITION VECTOR B+7 METERS/CS
# #
# OUTPUT # OUTPUT
# RTIG POSITION AT TIG VECTOR B+29 METERS # RTIG POSITION AT TIG VECTOR B+29 METERS
# VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS # VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS
# PDL 4D APOGEE ALTITUDE DP B+29 M, B+27 METERS. # PDL 4D APOGEE ALTITUDE DP B+29 M , B+27 METERS.
# HAPO APOGEE ALTITUDE DP B+29 METERS # HAPO APOGEE ALTITUDE DP B+29 METERS
# PDL 8D PERIGEE ALTITUDE DP B+29 M, B+27 METERS. # PDL 8D PERIGEE ALTITUDE DP B+29 M , B+27 METERS.
# HPER PERIGEE ALTITUDE DP B+29 METERS # HPER PERIGEE ALTITUDE DP B+29 METERS
# DELVSIN SPECIFIED DELTA-V IN INTERTIAL # DELVSIN SPECIFIED DELTA-V IN INTERTIAL
# COORD. OF ACTIVE VEHICLE AT # COORD. OF ACTIVE VEHICLE AT
# TIME OF IGNITION VECTOR B+7 METERS/CS # TIME OF IGNITION VECTOR B+7 METERS/CS
# DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS # DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS
# #
# DEBRIS QTEMP TEMP.ERASABLE # DEBRIS QTEMP TEMP. ERASABLE
# QPRET, MPAC # QPRET,MPAC
# PUSHLIST # PUSHLIST
SETLOC P30S1 SETLOC P30S1
@ -160,7 +153,7 @@ S30.1 STQ DLOAD
SETPD SXA,1 SETPD SXA,1
0 0
RTX1 RTX1
PUSH VXV # YRF/LV PDL 0 SCALED AT 2 PUSH VXV # YRF/LV PDL 0 SCALED AT 2
DELVSIN DELVSIN
VSL1 PDVL VSL1 PDVL
PDVL PDVL # YRF/LV PDL 6 SCALED AT 2 PDVL PDVL # YRF/LV PDL 6 SCALED AT 2
@ -181,13 +174,12 @@ S30.1 STQ DLOAD
SHIFTR1 # RESCALE IF NEEDED SHIFTR1 # RESCALE IF NEEDED
CALL # LIMIT DISPLAY TO 9999.9 N. MI. CALL # LIMIT DISPLAY TO 9999.9 N. MI.
MAXCHK MAXCHK
STODL HPER # PERIGEE ALT 2(29) METERS FOR DISPLAY STODL HPER # PERIGEE ALT 2(29) METERS, FOR DISPLAY
4D 4D
CALL CALL
SHIFTR1 # RESCALE IF NEEDED SHIFTR1 # RESCALE IF NEEDED
CALL # LIMIT DISPLAY TO 9999.9 N. MI. CALL # LIMIT DISPLAY TO 9999.9 N. MI.
MAXCHK MAXCHK
STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY STCALL HAPO # APOGEE ALT 2(29) METERS, FOR DISPLAY
QTEMP QTEMP

View File

@ -182,7 +182,7 @@
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
# Page 621 # Page 621
# VNP00H # VNPOOH
# GOFLASHR # GOFLASHR
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
@ -226,7 +226,7 @@ P32/P72A TC P20FLGON
TS TCSI TS TCSI
TS TCSI +1 TS TCSI +1
VN0611 CAF V06N11 # TCSI VN0611 CAF V06N11 # TCSI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DCOMP DLOAD DCOMP
TCSI TCSI
@ -261,7 +261,7 @@ VN0655 EXIT
TC +2 TC +2
TC -5 TC -5
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TCSI TCSI
@ -303,7 +303,7 @@ P32/P72F STORE T2TOT3
P32/P72F P32/P72F
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET1 DELVEET1
@ -462,7 +462,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
# VNP00H # VNPOOH
# SELECTMU # SELECTMU
# ADVANCE # ADVANCE
# CDHMVR # CDHMVR
@ -484,7 +484,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP P73 TC AVFLAGP
P33/P73A TC P20FLGON P33/P73A TC P20FLGON
CAF V06N13 # TCDH CAF V06N13 # TCDH
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TTPIO TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3 STORE T2TOT3
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET2 DELVEET2
@ -602,7 +602,7 @@ P20FLGON EXTEND
# SUBROUTINES USED # SUBROUTINES USED
# #
# S32/33.X # S32/33.X
# VNP00H # VNPOOH
DISDVLVC STORE DELVLVC DISDVLVC STORE DELVLVC
STQ CALL STQ CALL
@ -616,7 +616,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC STORE DELVLVC
EXIT EXIT
CA VERBNOUN CA VERBNOUN
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
NORMEX NORMEX

View File

@ -184,7 +184,7 @@
# AVFLAGA # AVFLAGA
# Page 661 # Page 661
# AVFLAGP # AVFLAGP
# VNP00H # VNPOOH
# DISPLAYE # DISPLAYE
# SELECTMU # SELECTMU
# PRECSET # PRECSET
@ -209,7 +209,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
EXTEND EXTEND
DCA 130DEG DCA 130DEG
DXCH CENTANG DXCH CENTANG
@ -265,7 +265,7 @@ SWCHCLR BONCLR BON
TC P34/P74E TC P34/P74E
P34/P74D EXIT P34/P74D EXIT
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
P34/P74E TC INTPRET P34/P74E TC INTPRET
SETPD DLOAD SETPD DLOAD
0D 0D
@ -312,7 +312,7 @@ P34/P74E TC INTPRET
STORE TIG STORE TIG
EXIT EXIT
CAF V06N58 CAF V06N58
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CALL CALL
S34/35.5 S34/35.5
@ -856,7 +856,7 @@ ALLSET STOVL TET
# GOTOPOOH # GOTOPOOH
# S34/35.3 # S34/35.3
# S34.35.4 # S34.35.4
# VNP00H # VNPOOH
S34/35.5 STQ BON S34/35.5 STQ BON
SUBEXIT SUBEXIT
@ -909,7 +909,7 @@ FLAGOFF CALL
S34/35.4 S34/35.4
EXIT EXIT
CAF V06N59 CAF V06N59
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
SUBEXIT SUBEXIT
@ -1012,14 +1012,14 @@ P3XORP7X CAF HIGH9
INCR Q INCR Q
RETURN RETURN
# ***** VNP00H ***** # ***** VNPOOH *****
# #
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
VNP00H EXTEND VNPOOH EXTEND
QXCH RTRN QXCH RTRN
TS VERBNOUN TS VERBNOUN
CA VERBNOUN CA VERBNOUN

View File

@ -52,7 +52,7 @@ R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
EXTEND EXTEND
BZF 10,11 BZF 10,11
FLASHH? MASK FLGWRD11 # C(A) = 1 - HFLASH BIT FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
EXTEND EXTEND
BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
@ -72,7 +72,7 @@ FLASHV? CA VFLSHBIT # VLASHBIT MUST BE BIT 2.
10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ? 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
MASK LETABBIT MASK LETABBIT
EXTEND EXTEND
BZF LANDISP # NO. PROCEED TO R10. BZF LANDISP # NO. PROCEED TO R10.
P71NOW? CS MODREG # YES. ARE WE IN P71 NOW? P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
# Page 830 # Page 830
@ -80,7 +80,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
EXTEND EXTEND
BZF LANDISP # YES. PROCEED TO R10. BZF LANDISP # YES. PROCEED TO R10.
EXTEND # NO. IS AN ABORT STAGE COMMANDED? EXTEND # NO. IS AN ABORT STAGE COMMANDED?
READ CHAN30 READ CHAN30
COM COM
TS L TS L
@ -88,7 +88,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
CCS A CCS A
TCF P71A # YES. TCF P71A # YES.
P70NOW? CS MODREG # NO. ARE WE IN P70 NOW? P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
AD 1DEC70 AD 1DEC70
EXTEND EXTEND
BZF LANDISP # YES. PROCEED TO R10. BZF LANDISP # YES. PROCEED TO R10.
@ -146,7 +146,7 @@ ABRTJASK CAF OCTAL27
MASK APSFLBIT MASK APSFLBIT
ADS FLGWRD10 ADS FLGWRD10
CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
MASK DAPBOOLS # (TURN OFF ULLAGE, DRIFT, AND XOVINHIB MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
TS DAPBOOLS TS DAPBOOLS
CS FLAGWRD5 # SET ENGONFLG. CS FLAGWRD5 # SET ENGONFLG.
@ -167,6 +167,7 @@ ABRTJASK CAF OCTAL27
MASK R10FLBIT # CROSS-POINTER DISPLAY. MASK R10FLBIT # CROSS-POINTER DISPLAY.
ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
# DISPLAY INERTIAL DATA OUTBIT. # DISPLAY INERTIAL DATA OUTBIT.
TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29. TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
EXTEND # LOAD TEVENT FOR THE DOWNLINK. EXTEND # LOAD TEVENT FOR THE DOWNLINK.
@ -195,7 +196,6 @@ ABRTJASK CAF OCTAL27
COM COM
DXCH -PHASE4 DXCH -PHASE4
# the 3 in OCT37774 could be something else, garbled
CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
TS TIME5 # 40 MILLISECONDS. TS TIME5 # 40 MILLISECONDS.
@ -272,20 +272,20 @@ P70INIT TC INTPRET
SET CALL SET CALL
FLAP FLAP
COMMINIT COMMINIT
AXC,1 GOTO # RETURN HERE IN P70, SET X1 FOR DPS COEFF. AXC,1 GOTO # RETURN HERE IN P70, SE X1 FOR DPS COEFF.
0D 0D
BOTHPOLY BOTHPOLY
INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF. INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF
8D 8D
BOTHPOLY DLOAD* DMP # TGO D BOTHPOLY DLOAD* DMP # TGO D
ABTCOF,1 ABTCOF,1
TGO TGO
# Page 834 # Page 834
DAD* DMP DAD* DMP
ABTCOF +2,1 # TGO(C+TGO ) ABTCOF +2,1 # TGO(C+TGO D)
TGO TGO
DAD* DMP DAD* DMP
ABTCOF +4,1 # TGO(B+TGO d)) ABTCOF +4,1 # TGO(B+TGO(C+TGO D))
TGO TGO
DAD* DAD*
ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D)) ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
@ -295,7 +295,7 @@ BOTHPOLY DLOAD* DMP # TGO D
UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS . UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
DLOAD DLOAD
VMIN VMIN
STORE ZDOTD # IF TOO SMALL, REPLCAE WITH MINIMUM. STORE ZDOTD # IF TOO SMALL, REPLACE WITH MINIMUM.
UPRATE DLOAD UPRATE DLOAD
ABTRDOT ABTRDOT
STCALL RDOTD # INITIALZE RDOTD. STCALL RDOTD # INITIALZE RDOTD.
@ -303,7 +303,7 @@ UPRATE DLOAD
ABS DSU ABS DSU
YLIM # /Y/-DYMAX YLIM # /Y/-DYMAX
BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
YOK # IF >0, FIX SIGN OF DEFICIT. THIS IS YCO. YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
Y Y
STORE YCO STORE YCO
YOK DLOAD DSU YOK DLOAD DSU
@ -323,7 +323,7 @@ UPTHROT SET EXIT
TC PHASCHNG TC PHASCHNG
OCT 04024 OCT 04024
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
CADR P40AUTO # ARE PROPERLY SET. CADR P40AUTO # ARE PROPERLY SET.
TC THROTUP TC THROTUP
@ -371,6 +371,7 @@ TGO1 = VGBODY
BANK 21 BANK 21
SETLOC R11 SETLOC R11
BANK BANK
COUNT* $$/P70 COUNT* $$/P70
LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS? LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
@ -387,7 +388,7 @@ LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
CA FLAGWRD7 # IS SERVICER ON THE AIR? CA FLAGWRD7 # IS SERVICER ON THE AIR?
MASK AVEGFBIT MASK AVEGFBIT
CCS A CCS A
TC Q # YES. ALL IS WELL. TC Q # YES. ALL IS WELL.
ABORTALM TC FALTON ABORTALM TC FALTON
TC RELDSP TC RELDSP
TC POSTJUMP TC POSTJUMP
@ -399,7 +400,7 @@ ABORTALM TC FALTON
COUNT* $$/P70 COUNT* $$/P70
# ********************************************************************** # ************************************************************************
TGOCOMP RTB DSU TGOCOMP RTB DSU
LOADTIME LOADTIME
@ -421,14 +422,18 @@ THROTUP CAF BIT13
# ************************************************************************ # ************************************************************************
10SECS 2DEC 1000 10SECS 2DEC 1000
HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS. HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
(TGO)A 2DEC 37000 B-17 (TGO)A 2DEC 37000 B-17
K(AT) 2DEC .02 # SCALING CONSTANT K(AT) 2DEC .02 # SCALING CONSTANT
WHICHADR REMADR ABRTABLE WHICHADR REMADR ABRTABLE
# ************************************************************************ # ************************************************************************
# Page 837 # Page 837
EBANK= DVCNTR EBANK= DVCNTR
ATMAGAD 2CADR ATMAG ATMAGAD 2CADR ATMAG
ORBMANAD ADRES ORBMANUV
ORBMANAD ADRES ORBMANUV

View File

@ -25,32 +25,31 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 1140 # Page 1140
# ***** RP-TO-R SUBROUTINE ***** # ..... RP-TO-R SUBROUTINE .....
# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
# EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM) # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
# #
# R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE # R=MT(T)*(RP+LPXRP) MT= M MATRIX TRANSPOSE
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 RP-TO-R # L+1 RP-TO-R
# #
# SUBROUTINES USED # SUBROUTINES USED
# EARTHMX, MOONMX, EARTHL # EARTHMX,MOONMX,EARTHL
#
# ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
# #
# ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
# ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.) # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
# #
# INPUT # INPUT
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON # MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
# 0-5D = RP VECTOR # 0-5D= RP VECTOR
# 6-7D = TIME # 6-7D= TIME
# #
# OUTPUT # OUTPUT
# MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON # MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
SETLOC PLANTIN1 SETLOC PLANTIN1
BANK BANK
@ -84,32 +83,31 @@ RPTORA CALL # EARTH COMPUTATIONS
COUNT* $$/LUROT COUNT* $$/LUROT
# Page 1142 # Page 1142
# ***** R-TO-RP SUBROUTINE ***** # ..... R-TO-RP SUBROUTINE .....
# SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
# (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
# #
# RP = M(T) * (R - L X R) # RP=M(T)*(R-LXR)
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 R-TO-RP # L+1 R-TO-RP
# #
# SUBROUTINES USED # SUBROUTINES USED
# EARTHMX, MOONMX, EARTHL # EARTHMX,MOONMX,EARTHL
# #
# INPUT # INPUT
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON # MPAC= 0 FOR EARTH, NON-ZERO FOR MOON
# 0-5D = R VECTOR # 0-5D= R VECTOR
# 6-7D = TIME # 6-7D= TIME
#
# ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
# #
# ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
# ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.) # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
# #
# OUTPUT # OUTPUT
# MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON # MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
R-TO-RP STQ BHIZ R-TO-RP STQ BHIZ
RPREXIT RPREXIT
@ -119,11 +117,11 @@ R-TO-RP STQ BHIZ
VLOAD VXM VLOAD VXM
504LM # LP=LM 504LM # LP=LM
MMATRIX MMATRIX
VSL1 # L = MT(T)*LP RADIANS B0 VSL1 # L=MT(T)*LP RADIANS B0
RTORPB VXV BVSU RTORPB VXV BVSU
504RPR 504RPR
504RPR 504RPR
MXV # M(T)*(R-LXR) B-2 MXV # M(T)*(R-LXR) B-2
MMATRIX MMATRIX
RPRPXXXX VSL1 SETPD RPRPXXXX VSL1 SETPD
0D 0D
@ -133,74 +131,73 @@ RTORPA CALL # EARTH COMPUTATIONS
EARTHMX EARTHMX
CALL CALL
EARTHL EARTHL
GOTO # MPAC=L=(-AX,-AY,0) RAD B-0 GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
RTORPB RTORPB
# Page 1143 # Page 1143
# ***** MOONMX SUBROUTINE ***** # ..... MOONMX SUBROUTINE .....
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 MOONMX # L+1 MOONMX
# #
# SUBROUTINES USED # SUBROUTINES USED
# NEWANGLE # NEWANGLE
# #
# INPUT # INPUT
# 6-7D = TIME # 6-7D= TIME
# # ITEMS AVAILABLE FROM LAUNCH DATA
# ITEMS AVAILABLE FROM LAUNCH DATA # BSUBO,BDOT
# BSUBO, BDOT # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
# TIMSUBO, NODIO, NODDOT, FSUBO, FDOT # COSI= COS(I) B-1
# COSI = COS(I) B-1 # SINI= SIN(I) B-1
# SINI = SIN(I) B-1 # I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
# I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE # PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
# PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
# #
# OUTPUT # OUTPUT
# MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA) # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
MOONMX STQ SETPD MOONMX STQ SETPD
EARTHMXX EARTHMXX
8D 8D
AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
5 5
DLOAD PDDL # PD 10D 8-9D=BSUBO DLOAD PDDL # PD 10D 8-9D=BSUBO
BSUBO # 10-11D=BDOT BSUBO # 10-11D= BDOT
BDOT BDOT
PUSH CALL # PD 12D PUSH CALL # PD 12D
NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0 NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
PUSH COS # PD 10D PUSH COS # PD 10D
STODL COB # PD 8D COS(B) B-1 STODL COB # PD 8D COS(B) B-1
SIN # SIN(B) B-1 SIN # SIN(B) B-1
STODL SOB # SETUP INPUT FOR NEWANGLE STODL SOB # SETUP INPUT FOR NEWANGLE
FSUBO # 8-9D=FSUBO FSUBO # 8-9D=FSUBO
PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
FDOT FDOT
AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE. AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
4 4
NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
STODL AVECTR +2 # SAVE F TEMP STODL AVECTR +2 # SAVE F TEMP
NODIO # 8-9D=NODIO NODIO # 8-9D=NODIO
PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
NODDOT # MPAC=T NODDOT # MPAC=T
AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
5 5
NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0 NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
# Page 1144 # Page 1144
PUSH COS # PD 10D 8-9D= NODI REVS B0 PUSH COS # PD 10D 8-9D= NODI REVS B0
PUSH # PD 12D 10-11D= COS(NODI) B-1 PUSH # PD 12D 10-11D= COS(NODI) B-1
STORE AVECTR STORE AVECTR
DMP SL1R DMP SL1R
COB # COS(NODI) B-1 COB # COS(NODI) B-1
STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI) STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
DMP SL1R # SOB*SIN(NODI) DMP SL1R # SOB*SIN(NODI)
SOB SOB
STODL BVECTR +4 # PD 8D STODL BVECTR +4 # PD 8D
SIN PUSH # PD 10D -SIN(NODI) B-1 SIN PUSH # PD 10D -SIN(NODI) B-1
DCOMP # 26-31D=BVECTR= COB*COS(NODI) DCOMP # 26-31D=BVECTR= COB*COS(NODI)
STODL BVECTR # PD 8D SOB*COS(NODI) STODL BVECTR # PD 8D SOB*COS(NODI)
AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
STODL 504F STODL 504F
DMP SL1R DMP SL1R
@ -214,30 +211,30 @@ MOONMX STQ SETPD
COUNT* $$/LUROT COUNT* $$/LUROT
MOONMXA STODL AVECTR +2 MOONMXA STODL AVECTR +2
SINNODI # 8-9D=SIN(NODI) B-1 SINNODI # 8-9D=SIN(NODI) B-1
DMP SL1R DMP SL1R
SOB SOB
STODL AVECTR +4 # 0 STODL AVECTR +4 # 0
HI6ZEROS # 8-13D= CVECTR= -SOB B-1 HI6ZEROS # 8-13D= CVECTR= -SOB B-1
PDDL DCOMP # PD 10D COB PDDL DCOMP # PD 10D COB
SOB SOB
PDDL PDVL # PD 12D THEN PD 14D PDDL PDVL # PD 12D THEN PD 14D
COB COB
BVECTR BVECTR
VXSC PDVL # PD 20D BVECTR*SINI B-2 VXSC PDVL # PD 20D BVECTR*SINI B-2
SINI SINI
CVECTR CVECTR
VXSC VAD # PD 14D CVECTR*COSI B-2 VXSC VAD # PD 14D CVECTR*COSI B-2
COSI COSI
VSL1 VSL1
STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1 STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
VXSC PDVL # PD 14D VXSC PDVL # PD 14D
SINI # CVECTR*SINI B-2 SINI # CVECTR*SINI B-2
BVECTR BVECTR
VXSC VSU # PD 8D BVECTR*COSI B-2 VXSC VSU # PD 8D BVECTR*COSI B-2
COSI COSI
VSL1 PDDL # PD 14D VSL1 PDDL # PD 14D
504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1 504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
COS VXSC COS VXSC
# Page 1145 # Page 1145
DVECTR DVECTR
@ -256,13 +253,12 @@ MOONMXA STODL AVECTR +2
VSL1 VCOMP VSL1 VCOMP
STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
EARTHMXX EARTHMXX
# COMPUTE X=X0+(XDOT)(T+T0) # COMPUTE X=X0+(XDOT)(T+T0)
# 8-9D= X0 (REVS B-0), PUSHLOC SET AT 12D # 8-9D= X0 (REVS B-0),PUSHLOC SET AT 12D
# 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
# AND B+27 FOR FDOT # AND B+27 FOR FDOT
# X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
# BDOT AND 4 FOR FDOT # BDOT AND 4 FOR FDOT
# 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.) # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
NEWANGLE DLOAD SR # ENTER PD 12D NEWANGLE DLOAD SR # ENTER PD 12D
@ -273,58 +269,58 @@ NEWANGLE DLOAD SR # ENTER PD 12D
MPAC MPAC
STODL TIMSUBM # T+T0 CSEC B-42 STODL TIMSUBM # T+T0 CSEC B-42
TIMSUBM +1 TIMSUBM +1
DMP # PD 10D MULT BY XDOT IN 10-11D DMP # PD 10D MULT BY XDOT IN 10-11D
SL* DAD # PD 8D ADD X0 IN 8-9D AFTER SHIFTING SL* DAD # PD 8D ADD X0 IN 8-9D AFTER SHIFTING
5,1 # SUCH THAT SCALING IS B-0 5,1 # SUCH THAT SCALING IS B-0
PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
TIMSUBM TIMSUBM
SL DMP SL DMP
9D 9D
10D # XDOT 10D # XDOT
SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
10D,1 # IS SCALED REVS/CSEC B-0 10D,1 # IS SCALED REVS/CSEC B-0
BOV # TURN OFF OVERFLOW IF SET BY SHIFT BOV # TURN OFF OVERFLOW IF SET BY SHIFT
+1 # INSTRUCTION BEFORE EXITING. +1 # INSTRUCTION BEFORE EXITING
RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
# Page 1146 # Page 1146
# ***** EARTHMX SUBROUTINE ***** # ..... EARTHMX SUBROUTINE .....
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 EARTHMX # L+1 EARTHMX
# #
# SUBROUTINE USED # SUBROUTINE USED
# NEWANGLE # NEWANGLE
# #
# INPUT # INPUT
# INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0 # INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
# TEPHEM CSEC B-42 # TEPHEM CSEC B-42
# 6-7D= TIME CSEC B-28 # 6-7D= TIME CSEC B-28
# #
# OUTPUT # OUTPUT
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA) # MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
BANK 26 BANK 26
SETLOC PLANTIN1 SETLOC PLANTIN1
BANK BANK
COUNT* $$/LUROT COUNT* $$/LUROT
EARTHMX STQ SETPD # SET 8-9D=AZO EARTHMX STQ SETPD # SET 8-9D=AZO
EARTHMXX EARTHMXX
8D # 10-11D=WEARTH 8D # 10-11D=WEARTH
AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
0 0
DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
AZO AZO
WEARTH WEARTH
PUSH CALL PUSH CALL
NEWANGLE NEWANGLE
SETPD PUSH # 18-19D=504AZ SETPD PUSH # 18-19D=504AZ
18D # COS(AZ) SIN(AZ) 0 18D # COS(AZ) SIN(AZ) 0
COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1 COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
504AZ # 0 0 1 504AZ # 0 0 1
SIN PDDL SIN PDDL
HI6ZEROS HI6ZEROS
PDDL SIN PDDL SIN
@ -339,20 +335,20 @@ EARTHMX STQ SETPD # SET 8-9D=AZO
EARTHMXX EARTHMXX
# Page 1147 # Page 1147
# ***** EARTHL SUBROUTINE ***** # ..... EARTHL SUBROUTINE .....
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 EARTHL # L+1 EARTHL
# #
# INPUT # INPUT
# AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE # AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
# #
# OUTPUT # OUTPUT
# -AX # -AX
# MPAC= -AY RADIANS B-0 # MPAC= -AY RADIANS B-0
# 0 # 0
BANK 06 BANK 06
SETLOC EARTHLOC SETLOC EARTHLOC
@ -371,21 +367,19 @@ EARTHL DLOAD DCOMP
# Page 1148 # Page 1148
# CONSTANTS AND ERASABLE ASSIGNMENTS # CONSTANTS AND ERASABLE ASSIGNMENTS
1B1 = DP1/2 # 1 SCALED B-1 1B1 = DP1/2 # 1 SCALED B-1
RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
504RPR = 0D # 6 REGS R OR RP VECTOR 504RPR = 0D # 6 REGS R OR RP VECTOR
SINNODI = 8D # 2 SIN(NODI) SINNODI = 8D # 2 SIN(NODI)
DVECTR = 8D # 6 D VECTOR MOON DVECTR = 8D # 6 D VECTOR MOON
CVECTR = 8D # 6 C VECTR MOON CVECTR = 8D # 6 C VECTR MOON
504AZ = 18D # 2 AZ 504AZ = 18D # 2 AZ
TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
504LPL = 14D # 6 L OR LP VECTOR 504LPL = 14D # 6 L OR LP VECTOR
AVECTR = 20D # 6 A VECTOR (MOON) AVECTR = 20D # 6 A VECTOR (MOON)
BVECTR = 26D # 6 B VECTOR (MOON) BVECTR = 26D # 6 B VECTOR (MOON)
MMATRIX = 20D # 18 M MATRIX MMATRIX = 20D # 18 M MATRIX
COB = 32D # 2 COS(B) B-1 COB = 32D # 2 COS(B) B-1
SOB = 34D # 2 SIN(B) B-1 SOB = 34D # 2 SIN(B) B-1
504F = 6D # 2 F(MOON) 504F = 6D # 2 F (MOON)

View File

@ -40,51 +40,51 @@
# USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
# #
# 1. IF AVERAGE G IS OFF: # 1. IF AVERAGE G IS OFF:
# FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
# TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
# CAN CHANGE TO OTHER SHIP BY V22E XE. WHERE X IS NOT EQ 1. # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
# SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC). # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
# CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
# RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
# HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HARD (APOGEE # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HARD (APOGEE
# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
# INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
# ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
# DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
# ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
# 2. IF AVERAGE G IS ON:
# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
# FLASH MONITOR V16N44 (HAPO, HPER, TFF).
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
# ABOVE REMARKS.
# #
# CALLING SEQUENCE: VERB 82 ENTER. # 2. IF AVERAGE G IS ON:
# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
# FLASH MONITOR V16N44 (HAPO, HPER, TFF).
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
# ABOVE REMARKS.
# #
# SUBROUTINES CALLED: SR30.1, GOXDSPF # CALLING SEQUENCE: VERB 82 ENTER.
# MAYBE -- THISPREC, OTHPREC, LOADTIME, DELRSPL
# #
# SUBROUTINES CALLED: SR30.1, GOXDSPF
# MAYBE - THISPREC , OTHPREC, LOADTIME, DELRSPL
# NORMAL EXIT MODES: TC ENDEXT # NORMAL EXIT MODES: TC ENDEXT
# #
# ALARMS: NONE # ALARMS: NONE
# #
# OUTPUT: HAPOX (-29) M # OUTPUT: HAPOX (-29) M
# HPERX (-29) M # HPERX (-29) M
# RAPO (-29) M EARTH # RAPO (-29) M EARTH
# (-27) M MOON # (-27) M MOON
# RPER (-29) M EARTH # RPER (-29) M EARTH
# (-27) M MOON # (-27) M MOON
# TFF (-28) CS CONTAINS NEGATIVE QUANTITY # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
# -TPER (-28) CS CONTAINS NEGATIVE QUANTITY # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
#
# Page 713 # Page 713
# ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
# #
# DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG. # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
# MAYBE: TSTART82, V82FLAGS, TDEC1. #
# DEBRIS: QPRET, RONE, VONE,TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
# MAYBE: TSTART82, V82FLAGS, TDEC1.
EBANK= HAPOX EBANK= HAPOX
BANK 31 BANK 31
@ -108,8 +108,8 @@ V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
CADR GOXDSPF CADR GOXDSPF
TC ENDEXT # TERMINATE TC ENDEXT # TERMINATE
TC +2 # PROCEED TC +2 # PROCEED
TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE.
# UNEQ 1 FOR OTHER VEHICLE # UNEQ 1 FOR OTHER VEHICLE.
CAF BIT4 # 80 MS CAF BIT4 # 80 MS
TC WAITLIST TC WAITLIST
EBANK= TFF EBANK= TFF
@ -140,9 +140,9 @@ V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF. FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
TC BANKCALL TC BANKCALL
CADR GOXDSPF CADR GOXDSPF
TC B5OFF # TERM. THIS TELLS TICKTEST TO KILL ITSELF TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
TC B5OFF # PROCEED. DITTO TC B5OFF # PROCEED DITTO
TC V82GOFLP # RECYCLE. RECOMPUTE STATE VECT + DISPLAY TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
OPTIONVN VN 412 OPTIONVN VN 412
V16N44 VN 1644 V16N44 VN 1644
@ -162,16 +162,16 @@ OTHSHIP TC INTPRET
CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP. CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
OTHPREC OTHPREC
BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
RATT # TO BE CALLED BY SR30.1. RATT # TO BE CALLED BY SR30.1.
STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON. STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
VATT VATT
STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
DLOAD* DLOAD*
1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
STORE TFF/RTMU # X2 IS 2 FOR MOON STORE TFF/RTMU # X2 IS 2 FOR MOON
DLOAD* # AS LEFT BY THISPREC OR OTHPREC. DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
MINPERE,2 MINPERE,2
STORE HPERMIN # TFFRTMU, HPERMIN, AND RPADTEM ARE ALL STORE HPERMIN # TFFRTMU, HPERMIN AND RPADTEM ARE ALL
SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE. SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
X2 X2
EARTHPAD EARTHPAD
@ -184,41 +184,41 @@ THISSHIP TC INTPRET
GOTO GOTO
BOTHSHIP BOTHSHIP
# THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS. # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M.
RPAD RPAD
V82EMFLG # INDICATE EARTH SCALING FOR SR30.1 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
BOTHPAD BOTHPAD
MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR. MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
RLS # SCALED AT (-27)M RLS # SCALED AT (-27)M.
SET SET
V82EMFLG # INDICATE MOON SCALILNG FOR SR30.1 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
BOTHPAD STCALL RPADTEM BOTHPAD STCALL RPADTEM
SR30.1 # CALCULATE ORBITAL PARAMETERS SR30.1 # CALCULATE ORBITAL PARAMETERS
RTB DSU RTB DSU
LOADTIME LOADTIME
TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
STORE TSTART82 # SAVE IT STORE TSTART82 # SAVE IT
DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/ DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
-TPER # HPERMIN (300 OR 35) KFT. -TPER # HPERMIN (300 OR 35) KFT.
TICKTIFF # (-TPER = 0) TICKTIFF # (-TPER = 0)
TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED.
-TPER # BUT WAS SET TO 59M59S. DON'T DICK TFF, DO -TPER # BUT WAS SET TO 59M59S.DONT TICK TFF, DO
TSTART82 # TICK -TPER. DISPLAY BOTH. TSTART82 # TICK -TPER. DISPLAY BOTH.
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
EXIT # BEGAN EXIT # BEGAN.
CAF BIT1 CAF BIT1
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
TC ENDOFJOB TC ENDOFJOB
TICKTIFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF. TICKTIFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF.
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
TSTART82 # -TPER. TSTART82 # -TPER.
STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
EXIT # BEGAN. EXIT # BEGAN.
@ -232,7 +232,7 @@ TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
CCS A CCS A
TC DOTICK TC DOTICK
CAF PRIO25 CAF PRIO25
TC NOVAC # TERMINATE V 82. CAN'T CALL ENDEXT IN RUPT. TC NOVAC # TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
EBANK= EXTVBACT EBANK= EXTVBACT
2CADR ENDEXT 2CADR ENDEXT
@ -246,10 +246,10 @@ DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
MASK V82FLAGS MASK V82FLAGS
INDEX A INDEX A
TC +1 TC +1
TC TASKOVER # IF NO FLAGBITS SET DONT' CHANGE TFF OR TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
# -TPER, BUT CONTINUE LOOP. # -TPER, BUT CONTINUE LOOP.
TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC. TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
TS L TS L
CAF ZERO CAF ZERO
DAS TFF DAS TFF
@ -261,7 +261,7 @@ TPERTICK CAF 1SEC
TC TASKOVER TC TASKOVER
# Page 717 # Page 717
V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
# FOR ORBITAL PARAMETER CALCULATIONS. # FOR ORBITAL PARAMETER CALCULATIONS.
CAF PRIO7 # LESS THAN LAMBERT CAF PRIO7 # LESS THAN LAMBERT
TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
@ -270,7 +270,7 @@ V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
RELINT RELINT
CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
# JOB) IS COMPLETED BEFORE V82GON (PRIO7, # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
# NOVAC JOB). # NOVAC JOB).
V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
@ -283,23 +283,23 @@ V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
# ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
RN # VN FETCH SO RN, VN ARE FROM SAME RN # VN FETCH SO RN , VN ARE FROM SAME
NEXTLINE # STATE VECTOR UPDATE. NEXTLINE # STATE VECTOR UPDATE.
NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
VN VN
STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
BON GOTO BON GOTO
MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL
MOONGON # CALCULATIONS ARE TO BE PERFORMED. MOONGON # CALCULATIONS ARE TO BE PERFORMED.
EARTHGON # IF SET -- MOON, IF RESET --EARTH. EARTHGON # IF SET - MOON , IF RESET - EARTH.
MOONGON SET DLOAD MOONGON SET DLOAD
V82EMFLG # FLAG MOON SCALING FOR SR30.1 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
STODL TFF/RTMU STODL TFF/RTMU
MINPERM MINPERM
STOVL HPERMIN STOVL HPERMIN
RLS # SCALED AT (-27)M RLS # SCALED AT (-27)M.
ABVAL GOTO ABVAL GOTO
V82GON2 V82GON2
EARTHGON CLEAR DLOAD EARTHGON CLEAR DLOAD
@ -319,7 +319,7 @@ V82GON3 CAF BIT5
BZF ENDEXT # YES, TERMINATE VB 82 LOOP BZF ENDEXT # YES, TERMINATE VB 82 LOOP
CAF 1SEC CAF 1SEC
TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION. CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
TC V82GON1 TC V82GON1
SPLRET = V82GON3 SPLRET = V82GON3
@ -433,9 +433,9 @@ STORHAPO STODL HAPOX
STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX. STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
MPAC +4 MPAC +4
DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
HPERMIN # IF HPER L/ HPERMIN (300 OR 35) KFT, HPERMIN # IF HPER L/ HPERMIN (300 OR 35)KFT,
DOTPER # THEN ZERO INTO -TPER. DOTPER # THEN ZERO INTO -TPER.
DLOAD GOTO # OTHERWISE CALCULATE TPER. DLOAD GOTO # OTHERWISE CALCULATE TPER.
HI6ZEROS HI6ZEROS
SKIPTPER SKIPTPER
DOTPER DLOAD CALL DOTPER DLOAD CALL
@ -447,19 +447,18 @@ SKIPTPER STODL -TPER
DAD CALL DAD CALL
RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
CALCTFF # GIVES 59M59S FOR TFF IF HPER G/ CALCTFF # GIVES 59M59S FOR TFF IF HPER G/
DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO) DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO) STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
S2 S2
MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM. MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM.
MAXNM MAXNM
+3 # OTHERWISE C(MPAC) - B(MPAC). +3 # OTHERWISE C(MPAC) = B(MPAC).
DAD RVQ DAD RVQ
MAXNM MAXNM
+3 DLOAD RVQ # (USED BY P30 -- P37 ALSO) +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
MAXNM MAXNM
MAXNM 2OCT 0106505603 MAXNM 2OCT 0106505603
# Page 722 (empty page) # Page 722 (empty page)

View File

@ -67,12 +67,12 @@ DISPN5X CAF V16N54
V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
MASK AVEGFBIT MASK AVEGFBIT
EXTEND EXTEND
BZF MUNG? # ON. TEST MUNFLAG BZF MUNG? # ON - TEST MUNFLAG
CS FLAGWRD8 CS FLAGWRD8
MASK SURFFBIT MASK SURFFBIT
EXTEND EXTEND
BZF ONEBASE # ON SURFACE -- BYPASS LEMPREC BZF ONEBASE # ON SURFACE - BYPASS LEMPREC
TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
RTB RTB
@ -104,7 +104,7 @@ REV83 CS FLAGWRD7
CS FLAGWRD8 CS FLAGWRD8
MASK SURFFBIT MASK SURFFBIT
EXTEND EXTEND
BZF R31SURF # IF ON SURFACE, USE LEMAREC BZF R31SURF # IF ON SURFACE,USE LEMAREC
TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
RTB RTB
@ -125,13 +125,13 @@ REV83 CS FLAGWRD7
SET SET
INTYPFLG # CONIC EXTRAP. INTYPFLG # CONIC EXTRAP.
STCALL TET STCALL TET
INTEGRVS # INTEGRATION --- AT LAST --- INTEGRVS # INTEGRATION --- AT LAST---
OTHCONIC VLOAD OTHCONIC VLOAD
# Page 705 # Page 705
RATT RATT
STOVL RONE STOVL RONE
VATT VATT
STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER. STCALL VONE # GET SET FOR CONIC EXTRAP.,OTHER.
INTSTALL INTSTALL
SET DLOAD SET DLOAD
INTYPFLG INTYPFLG
@ -160,7 +160,7 @@ COMPDISP VLOAD VSU
0,1 0,1
STOVL RANGE # SCALED 2(29)M STOVL RANGE # SCALED 2(29)M
VATT VATT
VSU DOT # (VCM-VLM).UNIT(LOS), PD=0 VSU DOT # (VCM- VLM).UNIT(LOS). PD=0
VONE VONE
SL1 # SCALED 2(7)M/CS SL1 # SCALED 2(7)M/CS
STOVL RRATE STOVL RRATE
@ -169,9 +169,9 @@ COMPDISP VLOAD VSU
UNITZ UNITZ
CALL CALL
CDU*NBSM CDU*NBSM
VXM PUSH # UNIT(Z)/4 TO PD 6-11 VXM PUSH # UNIT (Z)/4 TO PD 6-11
REFSMMAT REFSMMAT
VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR)) VPROJ VSL2 # UNIT(P)=UNIT(UZ -(UZ)PROJ(UR))
0D 0D
BVSU UNIT BVSU UNIT
6D 6D
@ -179,10 +179,10 @@ COMPDISP VLOAD VSU
0D # UNIT(RL) 0D # UNIT(RL)
VONE VONE
# Page 706 # Page 706
VXV DOT # (UR * VL) * UR . U(P) VXV DOT # (UR * VL)*UR . U(P)
0D 0D
12D 12D
PDVL # SIGN TO 12-13, LOAD U(P) PDVL # SIGN TO 12-13 , LOAD U(P)
DOT SIGN DOT SIGN
6D 6D
12D 12D
@ -190,7 +190,7 @@ COMPDISP VLOAD VSU
STOVL RTHETA STOVL RTHETA
0D 0D
DOT BPL # IF UR.UZ NEG, DOT BPL # IF UR.UZ NEG,
6D # RTHETA = 1 - RTHETA 6D # RTHETA = 1 - RTHETA
+5 +5
DLOAD DSU DLOAD DSU
DPPOSMAX DPPOSMAX
@ -201,7 +201,7 @@ COMPDISP VLOAD VSU
CA BIT5 CA BIT5
MASK EXTVBACT MASK EXTVBACT
EXTEND # IF ANSWERED, EXTEND # IF ANSWERED,
BZF ENDEXT # TERMINATE BZF ENDEXT # TERMINATE
CS EXTVBACT CS EXTVBACT
MASK BIT12 MASK BIT12
@ -212,12 +212,12 @@ GETRVN CA PRIO22 # INHIBIT SERVICER
TC PRIOCHNG TC PRIOCHNG
TC INTPRET TC INTPRET
VLOAD SETPD VLOAD SETPD
RN # LM STATE VECTOR IN RN,VN. RN # LM STATE VECTOR IN RN,VN
0 0
STOVL RONE STOVL RONE
VN VN
STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
V(CSM) # (TO INSURE TIME COMPATIBILITY) V(CSM) # (TO INSURE TIME COMPATABILITY)
PDVL PDDL PDVL PDDL
R(CSM) R(CSM)
PIPTIME PIPTIME
@ -246,7 +246,7 @@ GETRVN2 CALL
OTHINT OTHINT
R31SURF TC INTPRET R31SURF TC INTPRET
RTB # LM IS ON SURFACE, SO PRECISION RTB # LM IS ON SURFACE, SO PRECISION
LOADTIME # INTEGRATION USED PLANETARY INERTIAL LOADTIME # INTEGRATION USES PLANETARY INERTIAL
STCALL TDEC1 # ORIENTATION SUBROUTINE STCALL TDEC1 # ORIENTATION SUBROUTINE
LEMPREC LEMPREC
GOTO # DO CSM CONIC GOTO # DO CSM CONIC
@ -264,4 +264,3 @@ ONEBASE TC INTPRET # GET CSM BASE VECTOR
V16N54 VN 1654 V16N54 VN 1654
# Page 708 (empty page) # Page 708 (empty page)

View File

@ -27,8 +27,8 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 472 # Page 472
# MOD NO: 0 DATE: 1 MAY 1968 # MOD NO: 0 DATE: 1 MAY 1968
# MOD BY: DIGITAL DEVEL GROUP LOG SECTION R60,R62 # MOD BY: DIGITAL DEVEL GROUP LOG SECTION R60,R62
# #
# FUNCTIONAL DESCRIPTION: # FUNCTIONAL DESCRIPTION:
# #
@ -42,21 +42,21 @@
# #
# 3. REQUEST FLASHING DISPLAY V50 N18 PLEASE PERFORM AUTO MANEUVER. # 3. REQUEST FLASHING DISPLAY V50 N18 PLEASE PERFORM AUTO MANEUVER.
# #
# 4. IF PRIORITY DISPLAY FLAG IS SET DO A PHASECHANGE. THEN AWAIT # 4. IF PRIORITY DISPLAY FLAG IS SET DO A PHASECHANGE. THEN AWAIT
# ASTRONAUT RESPONSE. # ASTRONAUT RESPONSE.
# #
# 5. DISPLAY RESPONSE RETURNS. # 5. DISPLAY RESPONSE RETURNS:
# #
# A. ENTER -- RESET 3-AXIS FLAG AND RETURN TO CLIENT. # A. ENTER - RESET 3-AXIS FLAG AND RETURN TO CLIENT.
# #
# B. TERMINATE -- IF IN P00 GO TO STEP 5A. OTHERWISE CHECK IF R61 IS # B. TERMINATE - IF IN P00 GO TO STEP 5A. OTHERWISE CHECK IF R61 IS
# THE CALLING PROGRAM. IF IN R61 AN EXIT IS MADE TO GOTOV56. IF # THE CALLING PROGRAM. IF IN R61 AN EXIT IS MADE TO GOTOV56. IF
# NOT IN R61 AN EXIT IS DONE VIA GOTOPOOH. # NOT IN R61 AN EXIT IS DONE VIA GOTOPOOH.
# #
# C. PROCEED -- CONTINUE WITH PROGRAM AT STEP 6. # C. PROCEED - CONTINUE WITH PROGRAM AT STEP 6.
# #
# 6. IF THE 3-AXISFLAG IS NOT SET, THE FINAL CDU ANGLES ARE CALCULATED # 6. IF THE 3-AXISFLAG IS NOT SET, THE FINAL CDU ANGLES ARE CALCULATED
# (VECPOINT). # (VECPOINT).
# #
# 7. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS). # 7. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS).
# #
@ -64,32 +64,32 @@
# #
# 9. IF THE AUTO SWITCH IS NOT SET GO BACK TO STEP 3. # 9. IF THE AUTO SWITCH IS NOT SET GO BACK TO STEP 3.
# #
# 10. NON-FLASHING DISPLAY V06N18 (FDAI ANGLES). # 10. NONFLASHING DISPLAY V06N18 (FDAI ANGLES).
# #
# 11. DO A PHASE-CHANGE. # 11. DO A PHASECHANGE.
# #
# 12. DO A MANEUVER CALCULATION AND ICDU DRIVE ROUTINE TO ACHIEVE FINAL # 12. DO A MANEUVER CALCULATION AND ICDU DRIVE ROUTINE TO ACHIEVE FINAL
# GIMBAL ANGLES (GOMANUR).
# #
# 13. AT END OF MANEUVER TO TO STEP 3. # GIMBAL ANGLES (GOMANUR).
# 13. AT END OF MANEUVER GO TO STEP 3.
# #
# IF SATISFACTORY MANEUVER STEP 5A EXITS R60. # IF SATISFACTORY MANEUVER STEP 5A EXITS R60.
# FOR FURTHER ADJUSTMENT OF THE VEHICLE ATTITUDE ABOUT THE # FOR FURTHER ADJUSTMENT OF THE VEHICLE ATTITUDE ABOUT THE
# DESIRED VECTOR, THE ROUTINE MAY BE PERFORMED AGAIN STARTING AT # DESIRED VECTOR, THE ROUTINE MAY BE PERFORMED AGAIN STARTING AT
# Page 473 # Page 473
# STEP 5C. # STEP 5C.
# #
# CALLING SEQUENCE: TC BANKCALL # CALLING SEQUENCE: TC BANKCALL
# CADR R60LEM # CADR R60LEM
# #
# ERASABLE INITIALIZATION REQUIRED: SCAXIS, POINTVSM (FOR VECPOINT) # ERASABLE INITIALIZATION REQUIRED : SCAXIS, POINTVSM (FOR VECPOINT)
# 3AXISFLG. # 3AXISFLG.
# #
# SUBROUTINES CALLED: VECPOINT, BALLANGS, GOPERF24, LINUS, GODSPER, # SUBROUTINES CALLED: VECPOINT, BALLANGS, GOPERF2R, LINUS, GODSPER,
# GOMANUR, DOWNFLAG, PHASCHNG, UPFLAG # GOMANUR, DOWNFLAG, PHASCHNG, UPFLAG
# #
# NORMAL EXIT MODES: CAE TEMPR60 (CALLER'S RETURN ADDRESS) # NORMAL EXIT MODES: CAE TEMPR60 (CALLERS RETURN ADDRESS)
# TC BANKJUMP # TC BANKJUMP
# #
# ALARMS: NONE # ALARMS: NONE
# #
@ -114,7 +114,7 @@ REDOMANN CAF 3AXISBIT
TC INTPRET TC INTPRET
CALL CALL
VECPOINT # TO COMPUTE FINAL ANGLES VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI STORE CPHI # STORE FINAL ANGLES - CPHI,CTHETA,CPSI
EXIT EXIT
TOBALL TC BANKCALL TOBALL TC BANKCALL
@ -124,7 +124,7 @@ TOBALLA CAF V06N18
CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
TC R61TEST TC R61TEST
TC REDOMANC # PROCEED TC REDOMANC # PROCEED
TC ENDMANU1 # ENTER I.E., FINISHED WITH R60 TC ENDMANU1 # ENTER I.E. FINISHED WITH R60
# Page 474 # Page 474
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
TC ENDOFJOB TC ENDOFJOB
@ -162,11 +162,11 @@ ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
CHKLINUS CS FLAGWRD4 CHKLINUS CS FLAGWRD4
MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET? MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET?
CCS A CCS A
TC Q # NO -- EXIT TC Q # NO - EXIT
CA Q CA Q
TS MPAC +2 # SAVE RETURN TS MPAC +2 # SAVE RETURN
CS THREE # OBTAIN LOCATION FOR RESTART CS THREE # OBTAIN LOCATION FOR RESTART
AD BUF2 # HOLD Q OF LAST DISPLAY AD BUF2 # HOLDS Q OF LAST DISPLAY
TS TBASE2 TS TBASE2
TC PHASCHNG TC PHASCHNG
@ -208,7 +208,7 @@ R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
EXTEND EXTEND
BZF ENDMANU1 # THUS WE GO TO ENDEXT VIA USER BZF ENDMANU1 # THUS WE GO TO ENDEXT VIA USER
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25) CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
MASK PDSPFBIT MASK PDSPFBIT
EXTEND EXTEND
BZF GOTOPOOH # NO BZF GOTOPOOH # NO
@ -218,69 +218,62 @@ BIT14+7 OCT 20100
OCT203 OCT 203 OCT203 OCT 203
V06N18 VN 0618 V06N18 VN 0618
# SUBROUTINE TO CHECK FOR G+N CONTROL, AUTO STABILIZATION # SUBROUTINE TO CHECK FOR G+N CONTROL. AUTO STABILIZATION
# #
# RETURNS WITH C(A) = + IF NOT SET FOR G+N, AUTO # RETURNS WITH C(A) = + IF NOT SET FOR G+N, AUTO
# RETURNS WITH C(A) = +0 IF SWITCHES ARE SET # RETURNS WITH C(A) = +0 IF SWITCHES ARE SET
G+N,AUTO EXTEND G+N,AUTO EXTEND
READ CHAN30 READ CHAN30
MASK BIT10 MASK BIT10
CCS A CCS A
TC Q # NOT IN G+N C(A) = + TC Q # NOT IN G+N C(A) = +
# Page 476 # Page 476
ISITAUTO EXTEND # CHECK FOR AUTO MODE ISITAUTO EXTEND # CHECK FOR AUTO MODE
READ CHAN31 READ CHAN31
MASK BIT14 MASK BIT14
TC Q # (+) = NOT IN AUTO, (+0) = AOK TC Q # (+) = NOT IN AUTO, (+0) = AOK
# Page 477 # Page 477
# PROGRAM DESCRIPTION BALLANGS # PROGRAM DESCRIPTION BALLANGS
# MOD NO. LOG SECTION R60,R62 # MOD NO. LOG SECTION R60,R62
#
# WRITTEN BY RAMA M. AIYAWAR
# #
# WRITTEN BY RAMA M.AIYAWAR
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# #
# COMPUTES LM FDAI BALL DISPLAY ANGLES # COMPUTES LM FDAI BALL DISPLAY ANGLES
#
# CALLING SEQUENCE # CALLING SEQUENCE
# #
# TC BALLANGS # TC BALLANGS
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# #
# TC BALLEXIT # (SAVED Q) # TC BALLEXIT # (SAVED Q)
#
# ALARM OR EXIT MODE: NIL
# #
# ALARM OR EXIT MODE NIL
# SUBROUTINES CALLED # SUBROUTINES CALLED
# # CD*TR*G
# CD*TR*G # ARCTAN
# ARCTAN
# #
# INPUT # INPUT
# #
# CPHI,CTHETA,CPSI ARE THE ANGLES CORRESPONDING TO AOG, AIG, AMG. THEY ARE # CPHI,CTHETA,CPSI ARE THE ANGLES CORRESPONDING TO AOG,AIG,AMG. THEY ARE
# SP,2'S COMPLEMENT SCALED TO HALF REVOLUTION. # SP,2S COMPLIMENT SCALED TO HALF REVOLUTION.
#
# OUTPUT # OUTPUT
# #
# FDAIX, FDAIY, FDAIZ ARE THE REQUIRED BALL ANGLES SCALED TO HALF REVOLUTION # FDAIX,FDAIY,FDAIZ ARE THE REQUIRED BALL ANGLES SCALED TO HALF REVOLUTION
# SP,2'S COMPEMENT. # SP,2S COMPLIMENT.
# # THESE ANGLES WILL BE DISPLAYED AS DEGREES AND HUNDREDTHS. IN THE ORDER ROLL, PITCH, YAW, USING NOUNS 18 & 19.
# THESE ANGLES WILL BE DISPLAYED AS DEGREES AND HUNDREDTHS, IN THE ORDER ROLL, PITCH, YAW, USING NOUNS 18 & 19.
# #
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# #
# CPHI, CTHETA, CPSI EACH AN SP REGISTER # CPHI,CTHETA,CPSI EACH A SP REGISTER
#
# DEBRIS # DEBRIS
# #
# A,L,Q,MPAC,SINCDU,COSCDU,PUSHLIST,BALLEXIT # A,L,Q,MPAC,SINCDU,COSCDU,PUSHLIS,BALLEXIT
# #
# NOMENCLATURE: CPHI, CTHETA, & CPSI REPRESENT THE OUTER, INNER, AND MIDDLE GIMBAL ANGLES, RESPECTIVELY; OR #
# EQUIVALENTLY, CDUX, CDUY, AND CDUZ. # NOMENCLATURE: CPHI, CTHETA, & CPSI REPRESENT THE OUTER, INNER, & MIDDLE GIMBAL ANGLES, RESPECTIVELY; OR
# EQUIVALENTLY, CDUX, CDUY, & CDUZ.
# #
# NOTE: ARCTAN CHECKS FOR OVERFLOW AND SHOULD BE ABLE TO HANDLE ANY SINGULARITIES. # NOTE: ARCTAN CHECKS FOR OVERFLOW AND SHOULD BE ABLE TO HANDLE ANY SINGULARITIES.
@ -314,7 +307,7 @@ BALLANGS TC MAKECADR
COSCDUZ COSCDUZ
DMP SL1 # RESCALE DMP SL1 # RESCALE
COSCDUX COSCDUX
STCALL COSTH # (COSTH = 16D IN PD) STCALL COSTH # (COSTH= 16D IN PD)
ARCTAN ARCTAN
PDDL DMP # ROLL = ARCTAN(SZ/CZCX) INTO 2 PD PDDL DMP # ROLL = ARCTAN(SZ/CZCX) INTO 2 PD
SINCDUZ SINCDUZ
@ -327,15 +320,15 @@ BALLANGS TC MAKECADR
COSCDUX COSCDUX
DMP SL1 # CXCY DMP SL1 # CXCY
COSCDUY COSCDUY
DSU STADR # PULL UP FORM 6 PD DSU STADR # PULL UP FROM 6 PD
STODL COSTH # COSTH = CXCY - SXSZSY STODL COSTH # COSTH = CXCY - SXSZSY
SINCDUY SINCDUY
DMP SL1 DMP SL1
COSCDUX # CXSY COSCDUX # CXSY
DAD STADR # PULL UP FORM 4 PD DAD STADR # PULL UP FROM 4 PD
STCALL SINTH # SINTH = CXSY + SXSZCY STCALL SINTH # SINTH = CXSY + SXSZCY
ARCTAN # RETURNS WITH D(MPAC) = PITCH ARCTAN # RETURNS WITH D(MPAC) = PITCH
PDDL VDEF # PITCH INTO 2 PD, ROLL INTO MPAC FROM 2 PD PDDL VDEF # PITCH INTO 2 PD, ROLL INTO MPAC FROM 2PD
RTB # VDEF MAKES V(MPAC) = ROLL, PITCH, YAW RTB # VDEF MAKES V(MPAC) = ROLL, PITCH, YAW
V1STO2S V1STO2S
STORE FDAIX # MODE IS TP STORE FDAIX # MODE IS TP
@ -347,53 +340,51 @@ ENDBALL CA BALLEXIT
TC BANKJUMP TC BANKJUMP
# Page 480 # Page 480
# PROGRAM DESCRIPTION -- VECPOINT # PROGRAM DESCRIPTION - VECPOINT
# #
# THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS #
# THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS
# TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY # TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY
# BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES. # BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES.
# THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN # THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN
# SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS # SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS
# VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMTION VECPOINT COMPUTES A SET OF THREE GIMBAL # VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMATION VECPOINT COMPUTES A SET OF THREE GIMBAL
# ANGLES (2'S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM # ANGLES (2S COMPLEMENT) CORESPONDING TO THE CROSS-PRODUCT ROTATION BETWE EN SCAXIS AND POINTVSM AND STORES THEM
# IN T(MPAC) BEFORE RETURNING TO THE CALLER. # IN T(MPAC) BEFORE RETURNING TO THE CALLER.
# # THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE,
# THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE,
# THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROBLEM BY ROTATING THE CROSS- # THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROBLEM BY ROTATING THE CROSS-
# PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL # PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL
# LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR -X) AXIS, # LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR-X) AXIS,
# THE ADDITIONAL ROTATION TO AVOID GIMBAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGREES FROM +X (OR -X) # THE ADDITIONAL ROTATION TO AVOID GIMAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGEES FROM +X (OR -X)
# THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND # THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND
# STORED AS 2'S COMPLEMENT ANGLES IN T(MPAC) BEFORE RETURNING TO THE CALLER. # STORED AS 2S COMPLIMENT ANGLES IN T(MPAC) BEFORE RETURNING TO THE CALLER.
# # WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT
# WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT
# CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE # CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE
# REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION # REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION
# EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES. # EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES.
# #
# CALLING SEQUENCE # CALLING SEQUENCE -
# 1) LOAD SCAXIS, POINTVSM
# 2) CALL
# VECPOINT
# #
# 1) LOAD SCAXIS, POINTVSM # RETURNS WITH
# 2) CALL
# VECPOINT
# #
# RETURNS WITH # 1) DESIRED OUTER GIMBAL ANGLE IN MPAC
# 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1
# 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2
# #
# 1) DESIRED OUTER GIMBAL ANGLE IN MPAC # ERASABLES USED -
# 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1
# 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2
# #
# ERASABLES USED -- # 1) SCAXIS 6
# 2) POINTVSM 6
# 3) MIS 18
# 4) DEL 18
# 5) COF 6
# 6) VECQTEMP 1
# 7) ALL OF VAC AREA 43
# #
# 1) SCAXIS 6 # TOTAL 99
# 2) POINTVSM 6
# 3) MIS 18
# 4) DEL 18
# 5) COF 6
# 6) VECQTEMP 1
# 7) ALL OF VAC AREA 43
#
# TOTAL 99
SETLOC VECPT SETLOC VECPT
BANK BANK
@ -403,7 +394,7 @@ ENDBALL CA BALLEXIT
EBANK= BCDU EBANK= BCDU
VECPNT1 STQ BOV # THIS ENTRY USES DESIRED CDUS VECPNT1 STQ BOV # THIS ENTRY USES DESIRED CDUS
VECQTEMP # NOT PRESENT -- ENTER WITH CDUD'S IN MPAC VECQTEMP # NOT PRESENT-ENTER WITH CDUD'S IN MPAC
VECPNT2 VECPNT2
VECPNT2 AXC,2 GOTO VECPNT2 AXC,2 GOTO
MIS MIS
@ -418,7 +409,7 @@ STORANG STCALL 25D
CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS) CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS)
VLOAD VXM VLOAD VXM
POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO
MIS # INITIAL S/C AXES (VF = POINTVSM) MIS # INITIAL S/C AXES ( VF = POINTVSM)
UNIT UNIT
STORE 28D STORE 28D
# PD 28 29 30 31 32 33 # PD 28 29 30 31 32 33
@ -431,12 +422,12 @@ STORANG STCALL 25D
DSU BMN # VECTOR, IF LESS DSU BMN # VECTOR, IF LESS
DPB-14 # THAN B-14 ASSUME DPB-14 # THAN B-14 ASSUME
PICKAXIS # UNIT OPERATION PICKAXIS # UNIT OPERATION
VLOAD DOT # INVALID. VLOAD DOT # INVALID.
SCAXIS SCAXIS
28D 28D
SL1 ARCCOS SL1 ARCCOS
COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI
AXC,1 AXC,2 AXC,1 AXC,2
MIS # COMPUTE THE TRANSFORMATION FROM FINAL MIS # COMPUTE THE TRANSFORMATION FROM FINAL
KEL # S/C AXES TO STABLE MEMBER AXES KEL # S/C AXES TO STABLE MEMBER AXES
@ -444,34 +435,34 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
MXM3 # (IN PD LIST) MXM3 # (IN PD LIST)
DLOAD ABS DLOAD ABS
6 # MFS6 = SIN(CPSI) $2 6 # MFS6 = SIN(CPSI) $2
DSU BMN DSU BMN
SINGIMLC # = SIN(59 DEGS) $2 SINGIMLC # = SIN(59 DEGS) $2
FINDGIMB # /CPSI/ LESS THAN 59 DEGS. FINDGIMB # /CPSI/ LESS THAN 59 DEGS
# Page 482 # Page 482
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK # I.E. DESIRED ATTITUDE NOT IN GIMBAL LOCK
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
SCAXIS # THE THRUST AXIS SCAXIS # THE THRUST AXIS
DSU BPL DSU BPL
SINVEC1 # SIN 49.4 DEGS $2 SINVEC1 # SIN 49.4 DEGS $2
FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO
VLOAD # GIMBAL LOCK, ABORT COULD GO HERE VLOAD # GIMBAL LOCK, ABORT COULD GO HERE
STADR STADR
STOVL MIS +12D STOVL MIS +12D
STADR # STORE MFS (IN PD LIST) IN MIS STADR # STORE MFS (IN PD LIST) IN MIS
STOVL MIS +6 STOVL MIS +6
STADR STADR
STOVL MIS STOVL MIS
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
IGSAMEX # FINAL X S/C AXIS IGSAMEX # FINAL X S/C AXIS
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3) U=SCAXIS # ABOUT +- SCAXIS, I.E. IF (IG (SGN MFS3)
# X SCAXIS . XF) LESS THAN 0, U = SCAXIS # X SCAXIS . XF) LESS THAN 0, U = SCAXIS
# OTHERWISE U = -SCAXIS. # OTHERWISE U = -SCAXIS
VLOAD VCOMP VLOAD VCOMP
SCAXIS SCAXIS
@ -483,14 +474,14 @@ U=SCAXIS VLOAD
CHEKAXIS DLOAD ABS CHEKAXIS DLOAD ABS
SCAXIS # SEE IF WE ARE POINTING THE AOT SCAXIS # SEE IF WE ARE POINTING THE AOT
DSU BPL DSU BPL
SINVEC2 # SIN 29.5 DEGS $2 SINVEC2 # SIN 29.5 DEGS $2
PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS
DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER
VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE
COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT
# OF GIMBAL LOCK (VECANG2 $360) # OF GIMBAL LOCK (VECANG2 $360)
PICKANG1 DLOAD PICKANG1 DLOAD
VECANG1 # = 50 DEGS. $360 VECANG1 # = 50 DEGS $ 360
COMPMFSN CALL COMPMFSN CALL
DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO
AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK
@ -505,12 +496,12 @@ FINDGIMB AXC,1 CALL
0 # EXTRACT THE COMMANDED CDU ANGLES FROM 0 # EXTRACT THE COMMANDED CDU ANGLES FROM
DCMTOCDU # THIS MATRIX DCMTOCDU # THIS MATRIX
RTB SETPD RTB SETPD
V1STO2S # CONVERT TO 2'S COMPLEMENT V1STO2S # CONVERT TO 2:S COMPLEMENT
0 0
GOTO GOTO
VECQTEMP # RETURN TO CALLER VECQTEMP # RETURN TO CALLER
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF . VI
28D 28D
SCAXIS SCAXIS
BMN TLOAD BMN TLOAD
@ -523,11 +514,11 @@ PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
SETLOC MANUVER1 SETLOC MANUVER1
BANK BANK
ROT180 VLOAD VXV # IF VF, VI ANTIPARALLEL, 180 DEG ROTATION ROT180 VLOAD VXV # IF VF, VI ANTIPARALLEL, 180 DEG ROTATION
MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
HIDPHALF # INITIAL S/C AXES. HIDPHALF # INITIAL S/C AXES.
UNIT VXV # FIND Y(SM) X X(I) UNIT VXV # FIND Y(SM) X X(I)
SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I))) SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I)))
UNIT BOV # I.E., PICK A VECTOR IN THE PLANE OF X(I), UNIT BOV # I.E. PICK A VECTOR IN THE PLANE OF X(I),
PICKX # Y(SM) PERPENDICULAR TO VI PICKX # Y(SM) PERPENDICULAR TO VI
STODL COF STODL COF
36D # CHECK MAGNITUDE 36D # CHECK MAGNITUDE
@ -543,17 +534,17 @@ XROT STODL COF
PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE
HIDPHALF HIDPHALF
XROT XROT
SINGIMLC 2DEC .4285836003 # = SIN(59) $2 SINGIMLC 2DEC .4285836003 # =SIN(59) $2
SINVEC1 2DEC .3796356537 # = SIN(49.4) $2 SINVEC1 2DEC .3796356537 # =SIN(49.4) $2
SINVEC2 2DEC .2462117800 # = SIN(29.5) $2 SINVEC2 2DEC .2462117800 # =SIN(29.5) $2
VECANG1 2DEC .1388888889 # = 50 DEGREES $360 VECANG1 2DEC .1388888889 # = 50 DEGREES $360
# Page 484 # Page 484
VECANG2 2DEC .09722222222 # = 35 DEGREES $360 VECANG2 2DEC .09722222222 # = 35 DEGREES $360
1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) ************ 1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) *********
DPB-14 OCT 00001 DPB-14 OCT 00001
OCT 00000 OCT 00000
@ -577,11 +568,10 @@ R62FLASH CAF V06N22 # FLASH V06N22 AND
TCF R62FLASH # ENTER TCF R62FLASH # ENTER
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS # ASTRONAUT MAY LOAD NEW ICDUS AT THIS
# POINT. # POINT
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
ADRES 3AXISFLG ADRES 3AXISFLG
TC BANKCALL TC BANKCALL
CADR R60LEM CADR R60LEM
TCF ENDEXT # END R62 TCF ENDEXT # END R62

View File

@ -83,12 +83,12 @@ DORSAMP2 INHINT
CA RTSTLOC CA RTSTLOC
AD TWO # STORAGE IS DP AD TWO # STORAGE IS DP
TS RTSTLOC TS RTSTLOC
TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE. TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
# VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY. # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
TS BUF2 # SWCALL TS BUF2 # SWCALL.
INDEX RTSTDEX INDEX RTSTDEX
CAF RDRLOCS CAF RDRLOCS
TCF SWCALL # NOT TOUCHING Q. TCF SWCALL # NOT TOUCHING Q.

View File

@ -25,25 +25,25 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 190 # Page 190
# PROGRAM DESCRIPTION: # PROGRAM DESCRIPTION
# #
# AUTHOR: J. S. MILLER # AUTHOR: J S MILLER
# #
# MODIFIED 6 MARCH 1968 BY P. S. WEISSMAN TO SET UP JOB FOR 1/ACCS WHEN THE MASKS ARE CHANGED. # MODIFIED 6 MARCH 1968 BY P S WEISSMAN TO SET UP JOB FOR 1/ACCS WHEN THE MASKS ARE CHANGED.
# #
# THIS ROUTINE IS ATTACHED TO T4RUPT, AND IS ENTERED EVERY 480 MS. ITS FUNCTION IS TO EXAMINE THE LOW 8 BITS # THIS ROUTINE IS ATTACHED TO T4RUPT, AND IS ENTERED EVERY 480 MS. ITS FUNCTION IS TO EXAMINE THE LOW 8 BITS
# OF CHANNEL 32 TO SEE IF ANY ISOLATION-VALVE CLOSURE BITS HAVE APPEARED OR DISAPPEARED (THE CREW IS WARNED OF JET # OF CHANNEL 32 TO SEE IF ANY ISOLATION-VALVE CLOSURE BITS HAVE APPEARED OR DISAPPEARED (THE CREW IS WARNED OF JET
# FAILURES BY LAMPS LIT BY THE GRUMMAN FAILURE-DETECTION CIRCUITRY; THEY MAY RESPOND BY OPERATING SWITCHES WHICH # FAILURES BY LAMPS LIT BY THE GRUMMAN FAILURE-DETECTION CIRCUITRY; THEY MAY RESPOND BY OPERATING SWITCHES WHICH
# ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). IN THE EVENT THAT CHANNEL 32 BITS # ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). IN THE EVENT THAT CHANNEL 32 BITS
# DIFFER FROM `PVALVEST', THE RECORD OF ACTIONS TAKEN BY THIS ROUTINE, THE APPROPRIATE BITS IN `CH5MASK' & # DIFFER FROM 'PVALVEST', THE RECORD OF ACTIONS TAKEN BY THIS ROUTINE, THE APPROPRIATE BITS IN 'CH5MASK' &
# `CH6MASK', USED BY THE DAP JET-SELECTION LOGIC, ARE UPDATED, AS IS `PVALVEST'. TO SPEED UP & SHORTEN THE # 'CH6MASK', USED BY THE DAP JET-SELECTION LOGIC, ARE UPDATED, AS IS 'PVALVEST'. TO SPEED UP & SHORTEN THE
# ROUTINE, NO MORE THAN ONE CHANGE IS ACCEPTED PER ENTRY. THE HIGHEST-NUMBERED BIT IN CHANNEL 32 WHICH REQUIRES # ROUTINE, NO MORE THAN ONE CHANGE IS ACCEPTED PER ENTRY. THE HIGHEST-NUMBERED BIT IN CHANNEL 32 WHICH REQUIRES
# ACTION IS THE ONE PROCESSED. # ACTION IS THE ONE PROCESSED.
# #
# THE CODING IN THE FAILURE MONITOR HAS BEEN WRITTEN SO AS TO HAVE ALMOST COMPLETE RESTART PROTECTION. FOR # THE CODING IN THE FAILURE MONITOR HAS BEEN WRITTEN SO AS TO HAVE ALMOST COMPLETE RESTART PROTECTION. FOR
# EXAMPLE, NO ASSUMPTION IS MADE WHEN SETTING A `CH5MASK' BIT TO 1 THAT THE PREVIOUS STATE IS 0, ALTHOUGH IT OF # EXAMPLE, NO ASSUMPTION IS MADE WHEN SETTING A 'CH5MASK' BIT TO 1 THAT THE PREVIOUS STATE IS 0, ALTHOUGH IT OF
# COURSE SHOULD BE. ONE CASE WHICH MAY BE SEEN TO EVADE PROTECTION IS THE OCCURRENCE OF A RESTART AFTER UPDATING # COURSE SHOULD BE. ONE CASE WHICH MAY BE SEEN TO EVADE PROTECTION IS THE OCCURRENCE OF A RESTART AFTER UPDATING
# ONE OR BOTH DAP MASK-WORDS BUT BEFORE UPDATING `PVALVEST', COUPLED WITH A CHANGE IN THE VALVE-BIT BACK TO ITS # ONE OR BOTH DAP MASK-WORDS BUT BEFORE UPDATING 'PVALVEST', COUPLED WITH A CHANGE IN THE VALVE-BIT BACK TO ITS
# FORMER STATE. THE CONSEQUENCE OF THIS IS THAT THE NEXT ENTRY WOULD NOT SEE THE CHANGE INCOMPLETELY INCORP- # FORMER STATE. THE CONSEQUENCE OF THIS IS THAT THE NEXT ENTRY WOULD NOT SEE THE CHANGE INCOMPLETELY INCORP-
# ORATED BY THE LAST PASS (BECAUSE IT WENT AWAY AT JUST THE RIGHT TIME), BUT THE DAP MASK-WORDS WILL BE INCORRECT. # ORATED BY THE LAST PASS (BECAUSE IT WENT AWAY AT JUST THE RIGHT TIME), BUT THE DAP MASK-WORDS WILL BE INCORRECT.
# THIS COMBINATION OF EVENTS SEEMS QUITE REMOTE, BUT NOT IMPOSSIBLE UNLESS THE CREW OPERATES THE SWITCHES AT HALF- # THIS COMBINATION OF EVENTS SEEMS QUITE REMOTE, BUT NOT IMPOSSIBLE UNLESS THE CREW OPERATES THE SWITCHES AT HALF-
@ -52,22 +52,21 @@
# #
# CALLING SEQUENCE: # CALLING SEQUENCE:
# #
# TCF RCSMONIT # (IN INTERRUPT MODE, EVERY 480 MS.) # TCF RCSMONIT (IN INTERRUPT MODE, EVERY 480 MS.)
# #
# EXIT: TCF RCSMONEX (ALL PATHS EXIT VIA SUCH AN INSTRUCTION) # EXIT: TCF RCSMONEX (ALL PATHS EXIT VIA SUCH AN INSTRUCTION)
RCSMONEX EQUALS RESUME RCSMONEX EQUALS RESUME
# ERASABLE INITIALIZATION REQUIRED: # ERASABLE INITIALIZATION REQUIRED:
# #
# VIA FRESH START: PVALVEST = +0 (ALL JETS ENABLED) # VIA FRESH START: PVALVEST = +0 (ALL JETS ENABLED)
# CH5MASK,CH6MASK = +0 (ALL JETS OK) # CH5MASK, CH6MASK = +0 (ALL JETS OK)
# #
# OUTPUT: CH5MASK & CH6MASK UPDATED (1'S WHERE JETS NOT TO BE USED, IN CHANNEL 5 & 6 FORMAT) # OUTPUT: CH5MASK & CH6MASK UPDATED (1'S WHERE JETS NOT TO BE USED, IN CHANNEL 5 & 6 FORMAT)
# PVALTEST UPDATED (1'S WHEN VALVE CLOSURES HAVE BEEN TRANSLATED INTO CH5MASK & CH6MASK; CHAN 32 FORMAT) # PVALTEST UPDATED (1.5 WHEN VALVE CLOSURES HAVE BEEN TRANSLATED INTO CH5MASK & CH6MASK; CHAN 32 FORMAT)
# JOB TO DO 1/ACCS. # JOB TO DO 1/ACCS.
# #
# DEBRIS: A, L, AND Q AND DEBRIS OF NOVAC. # DEBRIS: A, L, Q AND DEBRIS OF NOVAC.
# #
# SUBROUTINE CALLED: NOVAC. # SUBROUTINE CALLED: NOVAC.
@ -83,91 +82,92 @@ RCSMONIT EQUALS RCSMON
RCSMON CS ZERO RCSMON CS ZERO
EXTEND EXTEND
RXOR CHAN32 # PICK UP + INVERT INVERTED CHANNEL 32. RXOR CHAN32 # PICK UP + INVERT INVERTED CHANNEL 32.
MASK LOW8 # KEEP JET-FAIL BITS ONLY. MASK LOW8 # KEEP JET-FAIL BITS ONLY.
TS Q TS Q
CS PVALVEST # _ _ CS PVALVEST # - -
MASK Q # FORM PC + PC. MASK Q # FORM PC + PC.
TS L # (P = PREVIOUS ISOLATION VALVE STATE, TS L # (P = PREVIOUS ISOLATION VALVE STATE,
CS Q # C = CURRENT VALVE STATE (CH32)). CS Q # C = CURRENT VALVE STATE (CH 32)).
MASK PVALVEST MASK PVALVEST
ADS L # RESULT NZ INDICATES ACTION REQUIRED. ADS L # RESULT NZ INDICATES ACTION REQUIRED.
EXTEND EXTEND
BZF RCSMONEX # QUIT IF NO ACTION REQUIRED. BZF RCSMONEX # QUIT IF NO ACTION REQUIRED.
EXTEND EXTEND
MP BIT7 # MOVE BITS 8-1 OF A TO 14-7 OF L. MP BIT7 # MOVE BITS 8 - 1 OF A TO 14 - 7 OF L.
XCH L # ZERO TO L IN THE PROCESS. XCH L # ZERO TO L IN THE PROCESS.
-3 INCR L -3 INCR L
DOUBLE # BOUND TO GET OVERFLOW IN THIS LOOP, DOUBLE # BOUND TO GET OVERFLOW IN THIS LOOP.
OVSK # SINCE WE ASSURED INITIAL NZ IN A. OVSK # SINCE WE ASSURED INITIAL NZ IN A.
TCF -3 TCF -3
INDEX L INDEX L
CA BIT8 -1 # SAVE THE RELEVANT BIT (8-1). CA BIT8 -1 # SAVE THE RELEVANT BIT (8 - 1).
TS Q TS Q
MASK PVALVEST # LOOK AT PREVIOUS VALVE STATE BIT. MASK PVALVEST # LOOK AT PREVIOUS VALVE STATE BIT.
CCS A CCS A
TCF VOPENED # THE VALVE HAS JUST BEEN OPENED. TCF VOPENED # THE VALVE HAS JUST BEEN OPENED.
CS CH5MASK # THE VALVE HAS JUST BEEN CLOSED. CS CH5MASK # THE VALVE HAS JUST BEEN CLOSED.
INDEX L INDEX L
MASK 5FAILTAB MASK 5FAILTAB
ADS CH5MASK # SET INHIBIT BIT FOR CHANNEL 5 JET. ADS CH5MASK # SET INHIBIT BIT FOR CHANNEL 5 JET.
CS CH6MASK CS CH6MASK
INDEX L INDEX L
MASK 6FAILTAB MASK 6FAILTAB
ADS CH6MASK # SET INGIBIT BIT FOR CHANNEL 6 JET ADS CH6MASK # SET INGIBIT BIT FOR CHANNEL 6 JET.
CA Q CA Q
ADS PVALVEST # RECORD ACTION TAKEN. ADS PVALVEST # RECORD ACTION TAKEN.
TCF 1/ACCFIX # SET UP 1/ACCJOB AND EXIT. TCF 1/ACCFIX # SET UP 1/ACCJOB AND EXIT.
# Page 192 # Page 192
VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED. VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
CS 5FAILTAB CS 5FAILTAB
MASK CH5MASK MASK CH5MASK
TS CH5MASK # REMOVE INHIBIT BIT FOR CHANNEL 5 JET. TS CH5MASK # REMOVE INHIBIT BIT FOR CHANNEL 5 JET.
INDEX L INDEX L
CS 6FAILTAB CS 6FAILTAB
MASK CH6MASK MASK CH6MASK
TS CH6MASK # REMOVE INHIBIT BIT FOR CHANNEL 6 JET. TS CH6MASK # REMOVE INHIBIT BIT FOR CHANNEL 6 JET.
CS Q CS Q
MASK PVALVEST MASK PVALVEST
TS PVALVEST # RECORD ACTION TAKEN. TS PVALVEST # RECORD ACTION TAKEN.
1/ACCFIX CAF PRIO27 # SET UP 1/ACCS SO THAT THE SWITCH CURVES 1/ACCFIX CAF PRIO27 # SET UP 1/ACCS SO THAT THE SWITCH CURVES
TC NOVAC # FOR TJETLAW CAN BE MODIFIED IF CH5MASK TC NOVAC # FOR TJETLAW CAN BE MODIFIED IF CH5MASK
EBANK= AOSQ # HAS BEEN ALTERED. EBANK= AOSQ # HAS BEEN ALTERED.
2CADR 1/ACCJOB 2CADR 1/ACCJOB
TCF RCSMONEX # EXIT. TCF RCSMONEX # EXIT.
5FAILTAB EQUALS -1 # CH 5 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00040 # 8 5FAILTAB EQUALS -1 # CH 5 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00020 # 7 OCT 00040 # 8
OCT 00100 # 6 OCT 00020 # 7
OCT 00200 # 5 OCT 00100 # 6
OCT 00010 # 4 OCT 00200 # 5
OCT 00001 # 3 OCT 00010 # 4
OCT 00004 # 2 OCT 00001 # 3
OCT 00002 # 1 OCT 00004 # 2
OCT 00002 # 1
6FAILTAB EQUALS -1 # CH 6 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00010 # 8 6FAILTAB EQUALS -1 # CH 6 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00020 # 7 OCT 00010 # 8
OCT 00004 # 6 OCT 00020 # 7
OCT 00200 # 5 OCT 00004 # 6
OCT 00001 # 4 OCT 00200 # 5
OCT 00002 # 3 OCT 00001 # 4
OCT 00040 # 2 OCT 00002 # 3
OCT 00100 # 1 OCT 00040 # 2
OCT 00100 # 1

View File

@ -67,7 +67,7 @@ What follows is simply a bunch of file-includes for the individual code chunks.
| [P20-P25.agc] | 492-614 | | [P20-P25.agc] | 492-614 |
| [P30_P37.agc] | 615-617 | | [P30_P37.agc] | 615-617 |
| [P32-P35_P72-P75.agc] | 618-650 | | [P32-P35_P72-P75.agc] | 618-650 |
| [LAMBERT_AIMPOINT_GUIDANCE.agc] | 651-653 | | [GENERAL_LAMBERT_AIMPOINT_GUIDANCE.agc] | 651-653 |
| [GROUND_TRACKING_DETERMINATION_PROGRAM.agc] | 654-657 | | [GROUND_TRACKING_DETERMINATION_PROGRAM.agc] | 654-657 |
| [P34-35_P74-75.agc] | 658-702 | | [P34-35_P74-75.agc] | 658-702 |
| [R31.agc] | 703-708 | | [R31.agc] | 703-708 |
@ -164,7 +164,7 @@ What follows is simply a bunch of file-includes for the individual code chunks.
[P20-P25.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P20-P25.agc [P20-P25.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P20-P25.agc
[P30_P37.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P30_P37.agc [P30_P37.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P30_P37.agc
[P32-P35_P72-P75.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P32-P35_P72-P75.agc [P32-P35_P72-P75.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P32-P35_P72-P75.agc
[LAMBERT_AIMPOINT_GUIDANCE.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc [GENERAL_LAMBERT_AIMPOINT_GUIDANCE.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/GENERAL_LAMBERT_AIMPOINT_GUIDANCE.agc
[GROUND_TRACKING_DETERMINATION_PROGRAM.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc [GROUND_TRACKING_DETERMINATION_PROGRAM.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
[P34-35_P74-75.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P34-35_P74-75.agc [P34-35_P74-75.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/P34-35_P74-75.agc
[R31.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/R31.agc [R31.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Luminary099/R31.agc

View File

@ -28,56 +28,57 @@
# Page 238 # Page 238
# RESTART TABLES # RESTART TABLES
# -------------- # ------------------
# #
# THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
# RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
# EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
# WAY THINGS ARE PUT IN TO THE TABLES. # WAY THINGS ARE PUT INTO THE TABLES.
# # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
# A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A
# FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB. # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
# FOR EXAMPLE, # FOR EXAMPLE,
# #
# 5.7SPOT OCT 23000 # 5.7SPOT OCT 23000
# 2CADR SOMEJOB # 2CADR SOMEJOB
# #
# A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23. # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
# #
# 5.5SPOT OCT -23000 # 5.5SPOT OCT -23000
# 2CADR ANYJOB # 2CADR ANYJOB
# #
# HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23. # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
# A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
# PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
# WITH. EXAMPLE, # WITH. EXAMPLE,
# #
# 3.6SPOT GENADR DELTAT # 3.6SPOT GENADR DELTAT
# -GENADR LONGTASK # -GENADR LONGTASK
# BBCON LONGTASK # BBCON LONGTASK
# OCT 31000
# 2CADR JOBAGAIN
# #
# THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD # OCT 31000
# BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE # 2CADR JOBAGAIN
# TASK. FROM ABOVE, WE SEE THAT THE SECOND PART O THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
# #
# WAITLIST CALLS ARE IDENTIFIED BY THE FCT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
# BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
# TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
#
# WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
# IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
# LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
# IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
# WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
# TASK. EXAMPLES, # TASK. EXAMPLES,
# #
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART # OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
# -2CADR ATASK # OF THE TASK :ATASK: # -2CADR ATASK # OF THE TASK :ATASK:
# #
# DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY # DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
# -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN # -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
# # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN # # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
# # IT NORMALLY WOULD HAVE BEGUN. # # IT NORMALLY WOULD HAVE BEGUN.
# Page 239 # Page 239
# -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME # -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME
# -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE # -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE
# #
# ***** NOW THE TABLES THEMSELVES ***** # ***** NOW THE TABLES THEMSELVES *****
@ -85,11 +86,11 @@
SETLOC RESTART SETLOC RESTART
BANK BANK
PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
# RESTART 2CADR # RESTART 2CADR
COUNT* $$/RSTAB # TABLES IN BANK 1. COUNT* $$/RSTAB # TABLES IN BANK 1.
SIZETAB TC 1.2SPOT -12006 SIZETAB TC 1.2SPOT -12006
TC 1.3SPOT -12004 TC 1.3SPOT -12004
TC 2.2SPOT -12006 TC 2.2SPOT -12006
@ -102,29 +103,27 @@ SIZETAB TC 1.2SPOT -12006
TC 5.3SPOT -12004 TC 5.3SPOT -12004
TC 6.2SPOT -12006 TC 6.2SPOT -12006
TC 6.3SPOT -12004 TC 6.3SPOT -12004
1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
EBANK= STATE EBANK= STATE
2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
DEC 100 DEC 100
EBANK= STATE EBANK= STATE
2CADR TASKOVER 2CADR TASKOVER
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE. # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
1.3SPOT -GENADR SAVET-30 1.3SPOT -GENADR SAVET-30
EBANK= DVCNTR EBANK= DVCNTR
-2CADR ULLGTASK -2CADR ULLGTASK
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE. # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
2.2SPOT EQUALS 1.2SPOT 2.2SPOT EQUALS 1.2SPOT
# ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
2.3SPOT GENADR 600SECS 2.3SPOT GENADR 600SECS
-GENADR STATEINT
-GENADR STATEINT
EBANK= RRECTCSM EBANK= RRECTCSM
BBCON STATEINT BBCON STATEINT
@ -135,7 +134,7 @@ SIZETAB TC 1.2SPOT -12006
2.7SPOT DEC 1500 2.7SPOT DEC 1500
EBANK= LOSCOUNT EBANK= LOSCOUNT
-2CADR P20LEMC1 -2CADR P20LEMC1
2.11SPOT OCT 14000 2.11SPOT OCT 14000
EBANK= P21TIME EBANK= P21TIME
@ -151,21 +150,20 @@ SIZETAB TC 1.2SPOT -12006
2.17SPOT OCT 77777 2.17SPOT OCT 77777
EBANK= VGPREV EBANK= VGPREV
-2CADR REDO2.17 -2CADR REDO2.17
2.21SPOT DEC 25 2.21SPOT DEC 25
EBANK= DVCNTR EBANK= DVCNTR
-2CADR R10,R11 -2CADR R10,R11
# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE. # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
3.2SPOT EQUALS 1.2SPOT 3.2SPOT EQUALS 1.2SPOT
# ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
3.3SPOT -GENADR ZOOMTIME 3.3SPOT -GENADR ZOOMTIME
EBANK= DVCNTR EBANK= DVCNTR
-2CADR ZOOM -2CADR ZOOM
3.5SPOT OCT 20000 3.5SPOT OCT 20000
EBANK= TTOGO EBANK= TTOGO
@ -175,13 +173,12 @@ SIZETAB TC 1.2SPOT -12006
4.2SPOT DEC 2500 4.2SPOT DEC 2500
EBANK= TTOGO EBANK= TTOGO
-2CADR TIG-5
-2CADR TIG-5
OCT 77777 OCT 77777
EBANK= TTOGO EBANK= TTOGO
# Page 241 # Page 241
-2CADR REDO4.2 -2CADR REDO4.2
# ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
@ -191,15 +188,15 @@ SIZETAB TC 1.2SPOT -12006
4.5SPOT DEC 50 4.5SPOT DEC 50
EBANK= TTOGO EBANK= TTOGO
-2CADR ULLAGOFF -2CADR ULLAGOFF
4.7SPOT DEC 500 4.7SPOT DEC 500
EBANK= DVCNTR EBANK= DVCNTR
-2CADR TIG-0 -2CADR TIG-0
4.11SPOT -GENADR TGO +1 4.11SPOT -GENADR TGO +1
EBANK= DVCNTR EBANK= DVCNTR
-2CADR ENGOFTSK -2CADR ENGOFTSK
4.13SPOT OCT 12000 4.13SPOT OCT 12000
EBANK= TRKMKCNT EBANK= TRKMKCNT
@ -207,11 +204,11 @@ SIZETAB TC 1.2SPOT -12006
4.15SPOT DEC 500 4.15SPOT DEC 500
EBANK= TTOGO EBANK= TTOGO
-2CADR TIG-30 -2CADR TIG-30
4.17SPOT OCT 77777 4.17SPOT OCT 77777
EBANK= DVCNTR EBANK= DVCNTR
-2CADR TIG-5 -2CADR TIG-5
4.21SPOT OCT 13000 4.21SPOT OCT 13000
EBANK= STAR EBANK= STAR
@ -219,17 +216,17 @@ SIZETAB TC 1.2SPOT -12006
4.23SPOT OCT 77777 4.23SPOT OCT 77777
EBANK= DVCNTR EBANK= DVCNTR
-2CADR IGNITION -2CADR IGNITION
4.25SPOT GENADR SAVET-30 4.25SPOT GENADR SAVET-30
-GENADR TIG-35 -GENADR TIG-35
EBANK= SAVET-30 EBANK= SAVET-30
BBCON TIG-35 BBCON TIG-35
4.27SPOT OCT 52777 4.27SPOT OCT 52777
EBANK= DVCNTR EBANK= DVCNTR
2CADR P70A 2CADR P70A
# Page 242 # Page 242
4.31SPOT OCT 52777 4.31SPOT OCT 52777
EBANK= DVCNTR EBANK= DVCNTR
@ -248,17 +245,18 @@ SIZETAB TC 1.2SPOT -12006
2CADR COMFAIL 2CADR COMFAIL
# ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE. # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
5.2SPOT OCT 22000 5.2SPOT OCT 22000
EBANK= DVCNTR EBANK= DVCNTR
2CADR NORMLIZE 2CADR NORMLIZE
DEC 200 DEC 200
EBANK= DVCNTR EBANK= DVCNTR
-2CADR REREADAC -2CADR REREADAC
5.4SPOT DEC 200 5.4SPOT DEC 200
EBANK= DVCNTR EBANK= DVCNTR
-2CADR REREADAC -2CADR REREADAC
OCT 20000 OCT 20000
EBANK= DVCNTR EBANK= DVCNTR
@ -268,30 +266,28 @@ SIZETAB TC 1.2SPOT -12006
5.3SPOT DEC 200 5.3SPOT DEC 200
EBANK= DVCNTR EBANK= DVCNTR
-2CADR REREADAC -2CADR REREADAC
5.5SPOT OCT 77777 5.5SPOT OCT 77777
EBANK= DVCNTR EBANK= DVCNTR
-2CADR REDO5.5 -2CADR REDO5.5
5.7SPOT OCT 77777 5.7SPOT OCT 77777
EBANK= DVCNTR EBANK= DVCNTR
# Page 243 # Page 243
-2CADR BIBIBIAS -2CADR BIBIBIAS
# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
6.2SPOT EQUALS 1.2SPOT 6.2SPOT EQUALS 1.2SPOT
6.3SPOT DEC 100 6.3SPOT DEC 100
EBANK= TIG EBANK= TIG
-2CADR CLOKTASK -2CADR CLOKTASK
6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73. EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
2CADR TIMEDIDR 2CADR TIMEDIDR
6.7SPOT OCT 17000 6.7SPOT OCT 17000
EBANK= VGPREV EBANK= VGPREV
2CADR REDO6.7 2CADR REDO6.7

View File

@ -43,8 +43,8 @@
# GTS IS THE ENTRY TO THE GIMBAL TRIM SYSTEM FOR CONTROLLING ATTITUDE ERRORS AND RATES AS WELL AS ACCELERATIONS. # GTS IS THE ENTRY TO THE GIMBAL TRIM SYSTEM FOR CONTROLLING ATTITUDE ERRORS AND RATES AS WELL AS ACCELERATIONS.
GTS CAF NEGONE # MAKE THE NEXT PASS THROUGH THE DAP BE GTS CAF NEGONE # MAKE THE NEXT PASS THROUGH THE DAP BE
TS COTROLER # THROUGH RCS CONTROL, TS COTROLER # THROUGH RCS CONTROL,
CAF FOUR # AND ENSURE THAT IT IS NOT A SKIP. CAF FOUR # AND ENSURE THAT IT IS NOT A SKIP.
TS SKIPU TS SKIPU
TS SKIPV TS SKIPV
@ -55,27 +55,27 @@ GTS CAF NEGONE # MAKE THE NEXT PASS THROUGH THE DAP BE
# THE DRIVE SETTING ALGORITHM # THE DRIVE SETTING ALGORITHM
# #
# DEL = SGN(OMEGA + ALPHA*ABS(ALPHA)/(2*K)) # DEL = SGN(OMEGA + ALPHA*ABS(ALPHA)/(2*K))
# 2 1/2 2 3/2 # 2 1/2 2 3/2
# NEGUSUM = ERROR*K + ALPHA*(DEL*OMEGA + ALPHA /(3*K)) + DEL*K (DEL*OMEGA + ALPHA /(2*K)) # NEGUSUM = ERROR*K + ALPHA*(DEL*OMEGA + ALPHA /(3*K)) + DEL*K (DEL*OMEGA + ALPHA /(2*K))
# #
# DRIVE = -SGN(NEGUSUM) # DRIVE = -SGN(NEGUSUM)
CA SR # SAVE THE SR. SHIFT IT LEFT TO CORRECT CA SR # SAVE THE SR. SHIFT IT LEFT TO CORRECT
AD A # FOR THE RIGHT SHIFT DUE TO EDITING. AD A # FOR THE RIGHT SHIFT DUE TO EDITING.
TS SAVESR TS SAVESR
GTSGO+DN CAF TWO # SET INDEXER FOR R-AXIS CALCULATIONS. GTSGO+ON CAF TWO # SET INDEXER FOR R-AXIS CALCULATIONS.
TCF GOQTRIMG +1 TCF GOQTRIMG +1
GOQTRIMG CAF ZERO # SET INDEXER FOR Q-AXIS CALCULATIONS GOQTRIMG CAF ZERO # SET INDEXER FOR Q-AXIS CALCULATIONS
TS QRCNTR TS QRCNTR
# Page 1473 # Page 1473
# RSB 2009 --------------------------------------------------------------------- # RSB 2009 -----------------------------------------------------------------------
# Everything between this line and the similar line below was simply filled-in # Everything between this line and the similar line below was simply filled-in
# as-is from Luminary 131, and then verified to assemble to the proper binary # as-is from Luminary 131, and then verified to assemble to the proper binary
# values. This area is blank on the Luminary 099 print-out, as if the # values. This area is blank on the Luminary 099 print-out, as if the printer
# printer ribbon had run out. # ribbon had run out.
INDEX QRCNTR # AOS SCALED AT PI/2 INDEX QRCNTR # AOS SCALED AT PI/2
CA AOSQ CA AOSQ
EXTEND EXTEND
@ -124,7 +124,7 @@ ALGORTHM EXTEND # Q(R)DIFF IS THETA (ERROR) SCALED AT PI.
EXTEND EXTEND
DCS A # ALPHA(2)/2 - K DCS A # ALPHA(2)/2 - K
AD KCENTRAL AD KCENTRAL
# RSB 2009 --------------------------------------------------------------------- # RSB 2009 -----------------------------------------------------------------------
EXTEND EXTEND
DV KCENTRAL # HIGH ORDER OF QUOTIENT. DV KCENTRAL # HIGH ORDER OF QUOTIENT.
XCH A2CNTRAL XCH A2CNTRAL
@ -133,7 +133,7 @@ ALGORTHM EXTEND # Q(R)DIFF IS THETA (ERROR) SCALED AT PI.
EXTEND EXTEND
# Page 1474 # Page 1474
DV KCENTRAL DV KCENTRAL
XCH A2CNTRAL +1 # QUOTIENT STORED AT 16*PI, D.P. XCH A2CNTRAL +1 # QUOTIENT STORED AT 16*PI , D.P.
TCF HAVEQUOT TCF HAVEQUOT
HUGEQUOT CA POSMAX HUGEQUOT CA POSMAX
@ -191,7 +191,7 @@ NEGFNCT2 EXTEND
FUNCT2 EXTEND FUNCT2 EXTEND
DCA A2CNTRAL DCA A2CNTRAL
DAS K2CNTRAL # DEL*OMEGA + ALPHA(2)/(2*K) AT 16*PI, D.P. DAS K2CNTRAL # DEL*OMEGA + ALPHA(2)/(2*K) AT 16*PI,D.P.
FUNCT3 CA A2CNTRAL FUNCT3 CA A2CNTRAL
EXTEND EXTEND
@ -202,7 +202,7 @@ FUNCT3 CA A2CNTRAL
MP NEG1/3 MP NEG1/3
ADS A2CNTRAL +1 ADS A2CNTRAL +1
TS L TS L
TCF +2 # A2CNTRAL NOW CONTAINS -ALPHA(2)/(6*K), TCF +2 # A2CNTRAL NOW CONTAINS -ALPHA(2)/(6*K),
ADS A2CNTRAL # SCALED AT 16*PI, IN D.P. ADS A2CNTRAL # SCALED AT 16*PI, IN D.P.
EXTEND EXTEND
@ -300,38 +300,38 @@ ACDT+C12 CS NEGUQ
# #
# TIMEGMBL COMPUTES THE DRIVE TIME NEEDED FOR THE TRIM GIMBAL TO POSITION THE DESCENT ENGINE NOZZLE SO AS TO NULL # TIMEGMBL COMPUTES THE DRIVE TIME NEEDED FOR THE TRIM GIMBAL TO POSITION THE DESCENT ENGINE NOZZLE SO AS TO NULL
# THE OFFSET ANGULAR ACCELERATION ABOUT THE Q (OR R) AXIS. INSTEAD OF USING AOSQ(R), TIMEGMBL USES .4*AOSQ(R), # THE OFFSET ANGULAR ACCELERATION ABOUT THE Q (OR R) AXIS. INSTEAD OF USING AOSQ(R), TIMEGMBL USES .4*AOSQ(R),
# SCALED AT PI/8. FOR EACH AXIS, THE DRIVE TIME IS COMPUTED AS ABS(ALPHA/ACCDOT). A ZERO # SCALED AT PI/8. FOR EACH AXIS, THE DRIVE TIME IS COMPUTED AS ABS(ALPHA/ACCDOT). A ZERO
# ALPHA OR ACCDOT OR A ZERO QUOTIENT TURNS OFF THE GIMBAL DRIVE IMMEDIATELY. OTHERWISE, THE GIMBAL IS TURNED ON # ALPHA OR ACCDOT OR A ZERO QUOTIENT TURNS OFF THE GIMBAL DRIVE IMMEDIATELY. OTHERWISE, THE GIMBAL IS TURNED ON
# DRIVING IN THE CORRECT DIRECTION. THE Q(R)GIMTIMR IS SET TO TERMINATE THE DRIVE AND Q(R)ACCDOT # DRIVING IN THE CORRECT DIRECTION. THE Q(R)GIMTIMR IS SET TO TERMINATE THE DRIVE AND Q(R)ACCDOT
# IS STORED TO REFLECT THE NEW ACCELERATION DERIVATIVE. NEGUQ(R) WILL CONTAIN +1,+0,-1 FOR A Q(R)ACCDOT VALUE # IS STORED TO REFLECT THE NEW ACCELERATION DERIVATIVE. NEGUQ(R) WILL CONTAIN +1,+0,-1 FOR A Q(R)ACCDOT VALUE
# WHICH IS NEGATIVE, ZERO, OR POSITIVE. # WHICH IS NEGATIVE, ZERO, OR POSITIVE.
# #
# INPUTS: AOSQ,AOSR, SCALED AT P1/2, AND ACCDOTQ, ACCDOTR AT PI/2(7). PI/2(7). # INPUTS: AOSQ,AOSR, SCALED AT P1/2, AND ACCDOTQ, ACCDOTR AT PI/2(7). PI/2(7).
# #
# OUTPUTS: NEW GIMBAL DRIVE BITS IN CHANNEL 12, NEGUQ, NEGUR, QACCDOT, AND RACCDOT, THE LAST SCALED AT PI/2(7). # OUTPUTS: NEW GIMBAL DRIVE BITS IN CHANNEL 12,NEGUQ,NEGUR,QACCDOT AND RACCDOT, THE LAST SCALED AT PI/2(7).
# Q(R)GIMTIMR WILL BE SET TO TIME AND TERMINATE GIMBAL DRIVE(S). # Q(R)GIMTIMR WILL BE SET TO TIME AND TERMINATE GIMBAL DRIVE(S)
# #
# DEBRIS: A, L, Q, ITEMPS 2, 3, 6, AND RUPTREG2 AND ACDT+C12 DEBRIS. # DEBRIS: A,L,Q, ITEMPS 2,3,6, RUPTREG2 AND ACDT+C12 DEBRIS.
# #
# EXITS: VIA TC Q. # EXITS: VIA TC Q.
# #
# ALARMS, ABORTS: NONE. # ALARMS, ABORTS, : NONE
# #
# SUBROUTINES: ACDT+C12, IBNKCALL # SUBROUTINES: ACDT+C12, IBNKCALL
# #
# WARNING: THIS SUBROUTINE WRITES INTO CHANNEL 12 AND USES THE ITEMPS. THEREFORE IT MAY ONLY BE CALLED WITH # WARNING: THIS SUBROUTINE WRITES INTO CHANNEL 12 AND USES THE ITEMPS. THEREFORE IT MAY ONLY BE CALLED WITH
# INTERRUPT INHIBITED. # INTERRUPT INHIBITED.
# #
# ERASABLE STORAGE CONFIGURATION (NEEDED BY THE INDEXING METHODS): # ERASABLE STORAGE CONFIGURATION (NEEDED BY THE INDEXING METHODS):
# NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE # NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE
# (SPWORD) EQUALS NEGUQ +1 # ANY S.P. ERASABLE NUMBER, NOW THRSTCMD # (SPWORD) EQUALS NEGUQ +1 # ANY S.P. ERASABLE NUMBER, NOW THRSTCMD
# NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE # NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE
# ACCDOTQ ERASE +2 # Q-JERK TERM SCALED AT PI/2(7) RAD/SEC(3) # ACCDOTQ ERASE +2 # Q-JERK TERM SCALED AT PI/2(7) RAD/SEC(3)
# (SPWORD) EQUALS ACCDOTQ +1 # ANY S.P. ERASABLE NUMBER NOW QACCDOT # (SPWORD) EQUALS ACCDOTQ +1 # ANY S.P. ERASABLE NUMBER NOW QACCDOT
# ACCDOTR EQUALS ACCDOTQ +2 # R-JERK TERM SCALED AT PI/2(7) RAD/SEC(3) # ACCDOTR EQUALS ACCDOTQ +2 # R-JERK TERM SCALED AT PI/2(7) RAD/SEC(3)
# # ACCDOTQ, ACCDOTR ARE MAGNITUDES. # # ACCDOTQ,ACCDOTR ARE MAGNITUDES.
# AOSQ ERASE +4 # Q-AXIS ACC., D.P. AT PI/2 R/SEC(2) # AOSQ ERASE +4 # Q-AXIS ACC., D.P. AT PI/2 R/SEC(2)
# AOSR EQUALS AOSQ +2 # R-AXIS ACCELERATION SCALED AT PI/2 R/S2 # AOSR EQUALS AOSQ +2 # R-AXIS ACCELERATION SCALED AT PI/2 R/S2
QRNDXER EQUALS ITEMP6 QRNDXER EQUALS ITEMP6
OCT23146 OCTAL 23146 # DECIMAL .6 OCT23146 OCTAL 23146 # DECIMAL .6
@ -358,14 +358,14 @@ ALPHATRY INDEX QRNDXER
EXTEND EXTEND
BZF TGOFFNOW # IS ALPHA ZERO? BZF TGOFFNOW # IS ALPHA ZERO?
TS Q # SAVE A COPY OF -AOS. TS Q # SAVE A COPY OF -AOS.
EXTEND # NO. RESCALE FOR TIMEGMBL USE. EXTEND # NO. RESCALE FOR TIMEGMBL USE.
MP OCT23146 # OCTAL 23146 IS DECIMAL .6 MP OCT23146 # OCTAL 23146 IS DECIMAL .6
AD Q # -1.6*AOS AT PI/2 = -.4*AOS AT PI/8 AD Q # -1.6*AOS AT PI/2 = -.4*AOS AT PI/8.
TS L # WAS THERE OVERFLOW? TS L # WAS THERE OVERFLOW?
TCF SETNEGU # NO. COMPUTE DRIVE TIME. TCF SETNEGU # NO. COMPUTE DRIVE TIME.
CS A # RECOVER -SGN(AOS) IN THE A REGISTER. CS A # RECOVER -SGN(AOS) IN THE A REGISTER.
INDEX QRNDXER # YES. START DRIVE WITHOUT WAITLIST. INDEX QRNDXER # YES. START DRIVE WITHOUT WAITLIST.
XCH NEGUQ XCH NEGUQ
TCF NOTALLOW # KNOCK DOWN THE ALLOWGTS FLAG. TCF NOTALLOW # KNOCK DOWN THE ALLOWGTS FLAG.
@ -374,10 +374,10 @@ SETNEGU EXTEND
BZMF POSALPH BZMF POSALPH
COM COM
TS ITEMP2 # STORE -ABS(.4*AOS) SCALED AT PI/8. TS ITEMP2 # STORE -ABS(.4*AOS) SCALED AT PI/8.
CS BIT1 CS BIT1
TCF POSALPH +2 TCF POSALPH +2
POSALPH TS ITEMP2 # STORE -ABS(.4*AOS) SCALED AT PI/8. POSALPH TS ITEMP2 # STORE -ABS(.4*AOS) SCALED AT PI/8.
CA BIT1 CA BIT1
+2 INDEX QRNDXER # SGN(AOS) INTO NEGU +2 INDEX QRNDXER # SGN(AOS) INTO NEGU
TS NEGUQ # STORE SGN(ALPHA) AS NEGU TS NEGUQ # STORE SGN(ALPHA) AS NEGU
@ -433,15 +433,15 @@ DONEYET CCS QRNDXER
OCT00240 OCTAL 00240 # DECIMAL 10/1024 OCT00240 OCTAL 00240 # DECIMAL 10/1024
# Page 1481 # Page 1481
# THE FOLLOWING SECTION IS A CONTINUATION OF THE TRIM GIMBAL CONTROL FROM THE LAST GTS ENTRY. THE QUANTITY NEGUSUM # THE FOLLOWING SECTION IS A CONTINUATION OF THE TRIM GIMBAL CONTROL FROM THE LAST GTS ENTRY. THE QUANTITY NEGUSUM
# IS COMPUTED FOR EACH AXIS (Q,R), .707*DEL*FUNCTION(3/2) + K2THETA = NEGUSUM. NEW DRIVES ARE ENTERED TO CH 12. # IS COMPUTED FOR EACH AXIS (Q,R), .707*DEL*FUNCTION(3/2) + K2THETA = NEGUSUM. NEW DRIVES ARE ENTERED TO CH 12.
# #
# THE SUBROUTINE GTSQRT ACCEPTS A DOUBLE PRECISION VALUE IN FUNCTION, FUNCTION +1 AND RETURNS A SINGLE-PRECISION # THE SUBROUTINE GTSQRT ACCEPTS A DOUBLE PRECISION VALUE IN FUNCTION, FUNCTION +1 AND RETURNS A SINGLE-PRECISION
# SQUARE ROOT OF THE FOURTEEN MOST SIGNIFICANT BITS OF THE ARGUMENT. ALSO, THE CELL SHFTFLAG CONTAINS A BINARY # SQUARE ROOT OF THE FOURTEEN MOST SIGNIFICANT BITS OF THE ARGUMENT. ALSO, THE CELL SHFTFLAG CONTAINS A BINARY
# EXPONENT S, SUCH THAT THE SQUARE ROOT (RETURNED IN THE A REGISTER) MUST BE SHIFTED RIGHT (MULTIPLIED BY 2 TO THE # EXPONENT S, SUCH THAT THE SQUARE ROOT (RETURNED IN THE A REGISTER) MUST BE SHIFTED RIGHT (MULTIPLIED BY 2 TO THE
# POWER (-S)) IN ORDER TO BE THE TRUE SQUARE ROOT OF THE FOURTEEN MOST SIGNIFICANT BITS OF FUNCTION, FUNCTION +1. # POWER (-S)) IN ORDER TO BE THE TRUE SQUARE ROOT OF THE FOURTEEN MOST SIGNIFICANT BITS OF FUNCTION, FUNCTION +1.
# SQUARE ROOT ERROR IS NOT MORE THAN 2 IN THE 14TH SIGNIFICANT BIT. CELLS CLOBBERED ARE A, L, SHFTFLAG, ININDEX, # SQUARE ROOT ERROR IS NOT MORE THAN 2 IN THE 14TH SIGNIFICANT BIT. CELLS CLOBBERED ARE A,L,SHFTFLAG,ININDEX,
# HALFARG, SCRATCH, SR, FUNCTION, FUNCTION +1. GTSQRT IS CALLED BY TC GTSQRT AND RETURNS VIA TC Q OR TC FUNCTION +1. # HALFARG,SCRATCH,SR,FUNCTION, FUNCTION +1. GTSQRT IS CALLED BY TC GTSQRT AND RETURNS VIA TC Q OR TC FUNCTION +1.
# ZERO OR NEGATIVE ARGUMENTS YIELD ZERO FOR SQUARE ROOTS. # ZERO OR NEGATIVE ARGUMENTS YIELD ZERO FOR SQUARE ROOTS.
GTSQRT CCS FUNCTION GTSQRT CCS FUNCTION
@ -506,20 +506,19 @@ SCALDONE EXTEND
TC ROOTCYCL TC ROOTCYCL
TC ROOTCYCL TC ROOTCYCL
TC FUNCTION +1 TC FUNCTION +1
# ****************************************************************************************************************
# ***************************************************************************
RSTOFGTS TC GTSQRT RSTOFGTS TC GTSQRT
PRODUCT XCH K2CNTRAL PRODUCT XCH K2CNTRAL
EXTEND EXTEND
MP K2CNTRAL MP K2CNTRAL
DXCH K2CNTRAL DXCH K2CNTRAL
EXTEND # THE PRODUCT OF EXTEND # THE PRODUCT OF
MP L # 1/2 2 1/2 MP L # 1/2 2 1/2
ADS K2CNTRAL +1 # K *(DEL*OMEGA + ALPHA /(2*K)) ADS K2CNTRAL +1 # K *(DEL*OMEGA + ALPHA /(2*K))
TS L # AND TS L # AND
TCF +2 # 2 TCF +2 # 2
ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN
# K2CNTRAL # K2CNTRAL
DOSHIFT CA ININDEX DOSHIFT CA ININDEX
@ -538,22 +537,22 @@ DOSHIFT CA ININDEX
XCH K2CNTRAL XCH K2CNTRAL
EXTEND EXTEND
MP K2CNTRAL +1 MP K2CNTRAL +1
ADS K2THETA +1 ADS K2THETA +1
TS L TS L
TCF +2 TCF +2
ADS K2THETA ADS K2THETA
TCF NEGUSUM TCF NEGUSUM
ADDITIN EXTEND ADDITIN EXTEND
DCA K2CNTRAL DCA K2CNTRAL
DAS K2THETA # NO ADD IN THE K2THETA TERM. DAS K2THETA # NOW ADD IN THE K2THETA TERM.
NEGUSUM CCS K2THETA # TEST SIGN OF HIGH ORDER PART. NEGUSUM CCS K2THETA # TEST SIGN OF HIGH ORDER PART.
TCF NEGDRIVE TCF NEGDRIVE
TCF +2 TCF +2
TCF POSDRIVE TCF POSDRIVE
CCS K2THETA +1 # SIGN TEST FOR LOW ORDER PART. CCS K2THETA +1 # SIGN TEST FOR LOW ORDER PART.
NEGDRIVE CA BIT1 NEGDRIVE CA BIT1
TCF +2 # STOP GIMBAL DRIVE FOR A ZERO NEGUSUM. TCF +2 # STOP GIMBAL DRIVE FOR A ZERO NEGUSUM.
POSDRIVE CS BIT1 POSDRIVE CS BIT1
@ -597,17 +596,15 @@ CLOSEADR 2CADR CLOSEOUT # TERMINATE THE JASK.
TWELVE EQUALS OCT14 TWELVE EQUALS OCT14
ROOTHALF OCTAL 26501 # SQUARE ROOT OF 1/2 ROOTHALF OCTAL 26501 # SQUARE ROOT OF 1/2
GMBLBITA OCTAL 01400 # INDEXED WRT GMBLBITB DO NOT MOVE ******* GMBLBITA OCTAL 01400 # INDEXED WRT GMBLBITB DO NOT MOVE******
OCT11276 OCTAL 11276 # POSMAX -- ROOTHALF OCT11276 OCTAL 11276 # POSMAX - ROOTHALF
GMBLBITB OCTAL 06000 # INDEXED WRT GMBLBITA DO NOT MOVE ******* GMBLBITB OCTAL 06000 # INDEXED WRT GMBLBITA DO NOT MOVE******
# SUBROUTINE ROOTCYCL: BY CRAIG WORK, 3 APRIL 68 # SUBROUTINE ROOTCYCL: BY CRAIG WORK,3 APRIL 68
# # ROOTCYCL IS A SUBROUTINE WHICH EXECUTES ONE NEWTON SQUARE ROOT ALGORITHM ITERATION. THE INITIAL GUESS AT THE
# ROOTCYCL IS A SUBROUTINE WHICH EXECUTES ONE NEWTON SQUARE ALGORITHM ITERATION. THE INITIAL GUESS AT THE # SQUARE ROOT IS PRESUMED TO BE IN THE A REGISTER AND ONE-HALF THE SQUARE IS TAKEN FROM HALFARG. THE NEW APPROXI-
# SQUARE ROOT IS PRESUMED TO BE IN THE A REGISTER AND ONE-HALF THE SQUARE IS TAKEN FROM HALFARG. THE NEW APPROXIMATION # MATION TO THE SQUARE ROOT IS RETURNED IN THE A REGISTER. DEBRIS: A,L,SR,SCRATCH. ROOTCYCL IS CALLED FROM
# TO THE SQUARE ROOT IS RETURNED IN THE A REGISTER. DEBRIS: A, L, SR, SCRATCH. ROOTCYCL IS CALLED FROM
# LOCATION (LOC) BY A TC ROOTCYCL, AND RETURNS (TC Q) TO LOC +1. # LOCATION (LOC) BY A TC ROOTCYCL, AND RETURNS (TC Q) TO LOC +1.
#
# WARNING: IF THE INITIAL GUESS IS NOT GREATER THAN THE SQUARE, DIVIDE OR ADD OVERFLOW IS A REAL POSSIBILITY. # WARNING: IF THE INITIAL GUESS IS NOT GREATER THAN THE SQUARE, DIVIDE OR ADD OVERFLOW IS A REAL POSSIBILITY.
ROOTCYCL TS SCRATCH # STORE X ROOTCYCL TS SCRATCH # STORE X
@ -618,5 +615,3 @@ ROOTCYCL TS SCRATCH # STORE X
DV SCRATCH # (ARG/X)/2 DV SCRATCH # (ARG/X)/2
AD SR # (X + ARG/X)/2 IN THE A REG AD SR # (X + ARG/X)/2 IN THE A REG
TC Q TC Q

View File

@ -203,7 +203,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO.
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM. WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
CA Q CA Q
EXTEND EXTEND
BZMF WAITP00H BZMF WAITPOOH
CS TIME3 CS TIME3
AD BIT8 # BIT 8 = OCT 200 AD BIT8 # BIT 8 = OCT 200
@ -506,10 +506,10 @@ LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
CCS A CCS A
TCF LONGCYCL # HI-ORDER OK --> ALL IS OK. TCF LONGCYCL # HI-ORDER OK --> ALL IS OK.
TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER. TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER.
TCF LONGP00H # HI-ORDER NEG. --> NEG. DT TCF LONGPOOH # HI-ORDER NEG. --> NEG. DT
+2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE. +2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE.
EXTEND EXTEND
BZMF LONGP00H # BAD DELTA-TIME. ABORT BZMF LONGPOOH # BAD DELTA-TIME. ABORT
# *** WAITLIST TASK LONGCYCL *** # *** WAITLIST TASK LONGCYCL ***
@ -556,9 +556,9 @@ GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
DTCB # AND TRANSFER CONTROL TO IT DTCB # AND TRANSFER CONTROL TO IT
TSKOVCDR GENADR TASKOVER TSKOVCDR GENADR TASKOVER
LONGP00H DXCH LONGEXIT LONGPOOH DXCH LONGEXIT
TCF +2 TCF +2
WAITP00H DXCH WAITEXIT WAITPOOH DXCH WAITEXIT
+2 TC POODOO1 +2 TC POODOO1
OCT 01204 OCT 01204

View File

@ -18,15 +18,18 @@
[Italiano][IT]، [Italiano][IT]،
[Kurdi][KU]، [Kurdi][KU]،
[Nederlands][NL]، [Nederlands][NL]،
[Norsk][NO]،
[Polski][PL]، [Polski][PL]،
[Português][PT_BR]، [Português][PT_BR]،
[Română][RO]، [Română][RO]،
[Tiếng Việt][VI]، [Tiếng Việt][VI]،
[Türkçe][TR]، [Türkçe][TR]،
[Ελληνικά][GR]،
[Русский][RU]، [Русский][RU]،
**العربية**، **العربية**،
[فارسی][FA]، [فارسی][FA]،
[हिंदी][HI_IN]، [हिंदी][HI_IN]،
[অসমীয়া][AS_IN]،
[বাংলা][BD_BN]، [বাংলা][BD_BN]،
[မြန်မာ][MM]، [မြန်မာ][MM]،
[日本語][JA]، [日本語][JA]،
@ -35,6 +38,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -43,13 +47,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -58,7 +66,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
الكود المصدري الأصلي لحاسوب الارشاد لأبولو 11 (AGC) للمركبة القيادية (Comanche055) والمركبة القمرية (Luminary099). تم ترقيمه من قبل [AGC الافتراضية][3] و[متحف MIT][4]. الهدف أن تكون مستودع للكود المصدري الأصلي لأبولو 11 (AGC). لهذا فإن طلبات السحب مرحب بها لأي اختلاف يتم رصده بين النسخ في هذا المستودع والمسح الأصلي ل[Luminary 099][5] و[Comanche 055][6]، أو أي ملف قد فاتني. الكود المصدري الأصلي لحاسوب الارشاد لأبولو 11 (AGC) للمركبة القيادية (Comanche055) والمركبة القمرية (Luminary099). تم ترقيمه من قبل [AGC الافتراضية][3] و[متحف MIT][4]. الهدف أن تكون مستودع للكود المصدري الأصلي لأبولو 11 (AGC). لهذا فإن طلبات السحب مرحب بها لأي اختلاف يتم رصده بين النسخ في هذا المستودع والمسح الأصلي ل[Luminary 099][5] و[Comanche 055][6]، أو أي ملف قد فاتني.

120
README.as_in.md Normal file
View File

@ -0,0 +1,120 @@
# Apollo-11
[![NASA][1]][2]
[![SWH]][SWH_URL]
[![Comanche]][ComancheMilestone]
[![Luminary]][LuminaryMilestone]
🎌
[Bahasa Indonesia][ID],
[Català][CA],
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Nederlands][NL],
[Polski][PL],
[Português][PT_BR],
[Română][RO],
[Tiếng Việt][VI],
[Türkçe][TR],
[Русский][RU],
[العربية][AR],
[فارسی][FA],
[हिंदी][HI_IN],
**অসমীয়া**,
[বাংলা][BD_BN],
[မြန်မာ][MM],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md
[CA]:README.ca.md
[CZ]:README.cz.md
[DE]:README.de.md
[EN]:README.md
[ES]:README.es.md
[FA]:README.fa.md
[FR]:README.fr.md
[HI_IN]:README.hi_in.md
[ID]:README.id.md
[IT]:README.it.md
[JA]:README.ja.md
[KO_KR]:README.ko_kr.md
[KU]:README.ku.md
[MM]:README.mm.md
[PL]:README.pl.md
[PT_BR]:README.pt_br.md
[RO]:README.ro.md
[RU]:README.ru.md
[TR]:README.tr.md
[VI]:README.vi.md
[ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
মূল এপোলো 11 গাইডেন্স কম্পিউটাৰ (AGC) কমাণ্ড মডিউল (Comanche055) আৰু লুনাৰ মডিউলৰ বাবে উৎস ক'ড (Luminary099)। [Virtual AGC][3] আৰু [MIT Museum][4] থকা লোকৰ দ্বাৰা ডিজিটাইজ কৰা হৈছে। লক্ষ্যটো হৈছে মূল এপলো 11 উৎস ক'ডৰ বাবে repo হোৱা। এনেদৰে, এই ভঁৰালত প্ৰতিলিপি আৰু লুমিনাৰী 099 আৰু কোমানচে 055-ৰ বাবে মূল উৎসৰ মাজত চিনাক্ত কৰা যিকোনো সমস্যাৰ বাবে পি.আৰ. স্বাগতম, লগতে মোৰ থাকি যাব পৰা যিকোনো ফাইল সংলগ্ন কৰিব পাৰে।
## অৱদান
অনুগ্ৰহ কৰি pull requestৰ আগতে [COMPINING.md][7] পঢ়ক।
## কম্পাইল
যদি আপুনি মূল উৎস ক'ড কম্পাইল কৰাত আগ্ৰহী, [Virtual AGC][8] চাওক।
## Attribution
&nbsp; | &nbsp;
:------------- | :-----
কপিৰাইট | ৰাজহুৱা ডমেইন
Comanche055 | কলোচাছ (Colossus) 2A ৰ উৎস কোডৰ অংশ, এপলো 11-ৰ কমাণ্ড মডিউলৰ (CM) এপলো গাইডেচন কম্পিউটাৰ (AGC)<br>`Assemble revision 055 of AGC program Comanche by NASA`<br>`2021113-051. 10:28 APR. 1, 1969`
Luminary099 | লুমিনাৰী (Luminary) 1A-ৰ বাবে উৎস কোডৰ অংশ, এপোলো 11-ৰ বাবে লুনাৰ মডিউলৰ (LM) এপোলো গাইডেচন কম্পিউটাৰ (AGC)<br>`Assemble revision 001 of AGC program LMY99 by NASA`<br>`2021112-061. 16:27 JUL. 14, 1969`
Assembler | yaYUL
যোগাযোগ | Ron Burkey <info@sandroid.org>
ৱেবছাইট | www.ibiblio.org/apollo
Digitalisation | 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.
## চুক্তি আৰু অনুমোদন
*এই বিভাগটো [CONTRACT_AND_APPROVALS.agc]ৰ পৰা আহৰণ কৰা হৈছে*
এই এজিচি প্ৰ'গ্ৰামক কোলচাছ 2এ বুলিও কোৱা হ'ব।
প্ৰতিবেদন 'R-577'ত নিৰ্ধাৰিত অনুসৰি এই প্ৰ'গ্ৰামটো চি.এম.-ত ব্যৱহাৰ হৈছিল। এই কাৰ্য্যসূচীটো DSR প্ৰকল্প '55-23870'ৰ অধীনত প্ৰস্তুত কৰা হৈছিল, যাৰ পৃষ্ঠপোষকতা কৰিছিল National Aeronautics and Space Administrationৰ Manned Spacecraft Centerএ, Instrumentation Laboratory, Massachusetts Institute of Technologyৰ সৈতে চুক্তি 'NAS 9-4065'ৰ যোগেৰে।
দাখিলকাৰী | ভূমিকা | দিনাংক
:------------------- | :--- | :---
Margaret H. Hamilton | Colossus Programming Leader<br>Apollo Guidance and Navigation | ২৮ মাৰ্চ '৬৯
অনুমোদক | ভূমিকা | দিনাংক
:---------------- | :--- | :---
Daniel J. Lickly | পৰিচালক, Mission Program Development<br>Apollo Guidance and Navigation Program | ২৮ মাৰ্চ '৬৯
Fred H. Martin | Colossus প্ৰকল্প ব্যৱস্থাপক<br>Apollo Guidance and Navigation Program | ২৮ মাৰ্চ '৬৯
Norman E. Sears | পৰিচালক, Mission Development<br>Apollo Guidance and Navigation Program | ২৮ মাৰ্চ '৬৯
Richard H. Battin | পৰিচালক, Mission Development<br>Apollo Guidance and Navigation Program | ২৮ মাৰ্চ '৬৯
David G. Hoag | পৰিচালক<br>Apollo Guidance and Navigation Program | ২৮ মাৰ্চ '৬৯
Ralph R. Ragan | উপ-পৰিচালক<br>Instrumentation Laboratory | ২৮ মাৰ্চ '৬৯
[CONTRACT_AND_APPROVALS.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Comanche055/CONTRACT_AND_APPROVALS.agc
[1]:https://flat.badgen.net/badge/NASA/Mission%20Overview/0B3D91
[2]:https://www.nasa.gov/mission_pages/apollo/missions/apollo11.html
[3]:http://www.ibiblio.org/apollo/
[4]:http://web.mit.edu/museum/
[5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.md
[8]:https://github.com/rburkey2005/virtualagc
[SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91
[SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/
[Comanche]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/1
[ComancheMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/1
[Luminary]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/2
[LuminaryMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/2

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
**বাংলা**, **বাংলা**,
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,35 +64,34 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
অ্যাপোলো ১১ গাইডেন্স কম্পিউটারের মূল ম্যানুয়াল (AGC), অ্যাপোলো ১১ কমান্ড মডিউল (Comanche055) এবং লুনার মডিউল (Luminary099)। এটি [Virtual AGC][3] এবং [MIT Museum][4] সদস্যদের দ্বারা সূচিত করা হয়েছে। আমাদের মূল লক্ষ্য অ্যাপোলো ১১ এর মূল কোডটি সংকলন করা। আপনি যদি এই বিরোধের প্রতিলিপি এবং [Luminary 099][5] এবং [Comanche 055][6] এর মধ্যে কোনও বৈষম্য উন্মোচন করেছেন, সেক্ষেত্রে আপনার সহযোগিতা PR হিসাবে প্রশংসিত হবে। অ্যাপোলো ১১ গাইডেন্স কম্পিউটারের মূল ম্যানুয়াল (AGC), অ্যাপোলো ১১ কমান্ড মডিউল (Comanche055) এবং লুনার মডিউল (Luminary099)। এটি [Virtual AGC][3] এবং [MIT Museum][4] সদস্যদের দ্বারা সূচিত করা হয়েছে। আমাদের মূল লক্ষ্য অ্যাপোলো ১১ এর মূল কোডটি সংকলন করা। আপনি যদি এই বিরোধের প্রতিলিপি এবং [Luminary 099][5] এবং [Comanche 055][6] এর মধ্যে কোনও বৈষম্য উন্মোচন করেছেন, সেক্ষেত্রে আপনার সহযোগিতা PR হিসাবে প্রশংসিত হবে।
## অবদান ## অবদান
একটি পুল রিকুয়েস্ট খোলার আগে দয়া করে পড়ুন [CONTRIBUTING.md][7]। কোনো পুল রিকুয়েস্ট খোলার আগে দয়া করে [CONTRIBUTING.md][7] তা পড়ুন
## সংগ্রহ ## সংগ্রহ
যদি আপনি এই নিয়মগুলি পরিচালনা করেন তবে তা [Virtual AGC][8] দেখুন। যদি আপনি এই নিয়মগুলি পরিচালনা করেন তবে [Virtual AGC][8] তা দেখুন।
## আরোপণ ## আরোপণ
&nbsp; | &nbsp; &nbsp; | &nbsp;
:----------- | :----- :----------- | :-----
কপিরাইট | পাবলিক ডোমেইন কপিরাইট | পাবলিক ডোমেইন
Comanche055 | Colossus 2A, কমান্ড মডিউলটির (CM) উত্স কোডের একটি অংশ, অ্যাপোলো ১১ গাইডেন্স কম্পিউটার (AGC)<br>`নাসা 055 দ্বারা AGC প্রোগ্রাম কোমঞ্চের একীভূত সংশোধনী`<br>`2021113-051. 10:28 APR. 1, 1969` Comanche055 | Colossus 2A, কমান্ড মডিউলটির (CM) উস কোডের একটি অংশ, অ্যাপোলো ১১ গাইডেন্স কম্পিউটার (AGC)<br>`নাসা 055 দ্বারা AGC প্রোগ্রাম কোমঞ্চের একীভূত সংশোধনী`<br>`2021113-051. 10:28 APR. 1, 1969`
Luminary099 | লুমিনারি ১ এ, অ্যাপোলো ১১-এর চন্দ্র অংশ (LM) জন্য ফ্লোটেশন ডিভাইস (AGC) কোডের অংশ `নাসার দ্বারা এজিসি (AGC)প্রোগ্রাম LMY99 এর একীভূত সংশোধনী ০০১`<br>`2021112-061. 16:27 JUL. 14, 1969` Luminary099 | লুমিনারি ১ এ, অ্যাপোলো ১১-এর চন্দ্র অংশ (LM) জন্য ফ্লোটেশন ডিভাইস (AGC) কোডের অংশ `নাসার দ্বারা এজিসি (AGC)প্রোগ্রাম LMY99 এর একীভূত সংশোধনী ০০১`<br>`2021112-061. 16:27 JUL. 14, 1969`
অ্যাসেম্বলার | yaYUL অ্যাসেম্বলার | yaYUL
যোগাযোগ | Ron Burkey <info@sandroid.org> যোগাযোগ | Ron Burkey <info@sandroid.org>
ওয়েবসাইট | www.ibiblio.org/apollo ওয়েবসাইট | www.ibiblio.org/apollo
ডিজিটালাইজেশন | এই উত্স কোডটি MIT Museum থেকে একটি হার্ডকপির ডিজিটাইজড চিত্র থেকে অনুলিপি করা হয়েছে বা অন্যথায় রূপান্তরিত হয়েছে। ডিজিটালাইজেশনটি Paul Fjeld সঞ্চালনা করেছিলেন এবং যাদুঘরের Deborah Douglas দ্বারা ব্যবস্থা করেছিলেন। উভয়কে অনেক ধন্যবাদ। ডিজিটালাইজেশন | এই উৎস কোডটি এমআইটি জাদুঘরের একটি হার্ডকপির ডিজিটাইজড চিত্র থেকে অনুলিপি করা হয়েছে বা অন্যথায় রূপান্তরিত হয়েছে। ডিজিটালাইজেশনটি Paul Fjeld সঞ্চালনা করেছিলেন এবং যাদুঘরের Deborah Douglas দ্বারা ব্যবস্থা করেছিলেন। উভয়কে অনেক ধন্যবাদ।
### চুক্তি এবং গ্রহণযোগ্যতা ### চুক্তি এবং গ্রহণযোগ্যতা
*থেকে প্রাপ্ত [CONTRACT_AND_APPROVALS.agc]* *[CONTRACT_AND_APPROVALS.agc] হতে প্রাপ্ত*
এই AGC প্রোগ্রামটিকে Colossus 2A হিসাবেও উল্লেখ করা হবে। এই AGC প্রোগ্রামটিকে Colossus 2A হিসাবেও উল্লেখ করা হবে।
এই প্রোগ্রামটি CM প্রতিবেদনে নির্দিষ্ট হিসাবে ব্যবহারের জন্য উদ্দিষ্ট `R-577`. এই প্রোগ্রামটি DSR প্রকল্পের আওতায় প্রস্তুত করা হয়েছিল `55-23870`, এই চুক্তির মাধ্যমে দ্য ন্যাশনাল অ্যারোনটিকস অ্যান্ড স্পেস অ্যাডমিনিস্ট্রেশনের ম্যানড স্পেসক্র্যাফট সেন্টার স্পনসর করে `NAS 9-4065` যন্ত্রানুষঙ্গের ল্যাবরেটরি সহ, Massachusetts Institute of Technology, Cambridge, Mass. এই প্রোগ্রামটি CM প্রতিবেদনে নির্দিষ্ট হিসাবে ব্যবহারের জন্য উদ্দিষ্ট `R-577`. এই প্রোগ্রামটি DSR প্রকল্পের আওতায় প্রস্তুত করা হয়েছিল `55-23870`, এই চুক্তির মাধ্যমে দ্য ন্যাশনাল অ্যারোনটিকস অ্যান্ড স্পেস অ্যাডমিনিস্ট্রেশনের ম্যানড স্পেসক্র্যাফট সেন্টার স্পনসর করে `NAS 9-4065` যন্ত্রানুষঙ্গের ল্যাবরেটরি সহ, Massachusetts Institute of Technology, Cambridge, Mass.
@ -92,7 +99,7 @@ Luminary099 | লুমিনারি ১ এ, অ্যাপোলো ১১
:------------------- | :---- | :--- :------------------- | :---- | :---
Margaret H. Hamilton | কলসাস(Colossus) প্রোগ্রামিং লিডার<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন | ২৮ মার্চ ১৯৬৯ Margaret H. Hamilton | কলসাস(Colossus) প্রোগ্রামিং লিডার<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন | ২৮ মার্চ ১৯৬৯
দ্বারা অনুমোদিত | ভূমিকা | তারিখ যাদের দ্বারা অনুমোদিত | ভূমিকা | তারিখ
:---------------- | :--- | :--- :---------------- | :--- | :---
Daniel J. Lickly | পরিচালক, মিশন প্রোগ্রাম উন্নয়ন<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন প্রোগ্রাম | ২৮ মার্চ ১৯৬৯ Daniel J. Lickly | পরিচালক, মিশন প্রোগ্রাম উন্নয়ন<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন প্রোগ্রাম | ২৮ মার্চ ১৯৬৯
Fred H. Martin | কলসাস প্রজেক্ট ম্যানেজার<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন প্রোগ্রাম | ২৮ মার্চ ১৯৬৯ Fred H. Martin | কলসাস প্রজেক্ট ম্যানেজার<br>অ্যাপোলো গাইডেন্স এবং নেভিগেশন প্রোগ্রাম | ২৮ মার্চ ১৯৬৯

View File

@ -7,8 +7,8 @@
🎌 🎌
[Bahasa Indonesia][ID], [Bahasa Indonesia][ID],
[Čeština][CZ],
**Català**, **Català**,
[Čeština][CZ],
[Deutsch][DE], [Deutsch][DE],
[English][EN], [English][EN],
[Español][ES], [Español][ES],
@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,8 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
Codi font original del Mòdul de Comandament (Comanche055) i del Mòdul Lunar (Comanche055) de l'ordinador de navegació de l'Apollo 11 (AGC, per les seves sigles en anglès). Digitalitzat per la gent de [Virtual AGC][3] i [MIT Museum][4]. L'objectiu és esdevenir un repositori del codi font original de l'Apollo 11. Per això els *pull requests* són benvinguts davant de qualsevol problema que s'identifiqui entre les transcripcions d'aquests repositori i les còpies originals del codi font de [Luminary 099][5] i [Comanche 055][6], així com qualsevol fitxer que m'hagi pogut deixar. Codi font original del Mòdul de Comandament (Comanche055) i del Mòdul Lunar (Comanche055) de l'ordinador de navegació de l'Apollo 11 (AGC, per les seves sigles en anglès). Digitalitzat per la gent de [Virtual AGC][3] i [MIT Museum][4]. L'objectiu és esdevenir un repositori del codi font original de l'Apollo 11. Per això els *pull requests* són benvinguts davant de qualsevol problema que s'identifiqui entre les transcripcions d'aquests repositori i les còpies originals del codi font de [Luminary 099][5] i [Comanche 055][6], així com qualsevol fitxer que m'hagi pogut deixar.

View File

@ -10,21 +10,24 @@
[Català][CA], [Català][CA],
**Čeština**, **Čeština**,
[Deutsch][DE], [Deutsch][DE],
[English][EN] [English][EN],
[Español][ES], [Español][ES],
[Français][FR], [Français][FR],
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,12 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
[ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
[ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
Originální zdrojové kódy navigačního počítače (AGC) Apolla 11 pro Velitelský Modul (Comanche055) a Lunární Modul (Luminary099). Digitalizováno s pomocí [Virtual AGC][3] a [MIT Museum][4]. Cílem repozitáře je udržovat původní zdrojové kódy Apolla 11. Vítáme všechny PR s úpravami problémů identifikovaných mezi přepisy v tomto repozitáři a originálními skeny pro [Luminary 099][5] a [Comanche 055][6], stejně jako soubory které mohly být přehlédnuty. Originální zdrojové kódy navigačního počítače (AGC) Apolla 11 pro Velitelský Modul (Comanche055) a Lunární Modul (Luminary099). Digitalizováno s pomocí [Virtual AGC][3] a [MIT Museum][4]. Cílem repozitáře je udržovat původní zdrojové kódy Apolla 11. Vítáme všechny PR s úpravami problémů identifikovaných mezi přepisy v tomto repozitáři a originálními skeny pro [Luminary 099][5] a [Comanche 055][6], stejně jako soubory které mohly být přehlédnuty.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,8 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
Dieses Repository beinhaltet den originalen Quellcode des Apollo 11 Navigationscomputers (kurz AGC) für das Kommandomodul (Comanche055) und die Mondlandefähre (Luminary099). Digitalisiert wurde der Code durch das [Virtual AGC][3] Projekt und das [MIT Museum][4]. Ziel dieses Projektes ist es, den originalen Apollo 11 Source Code an einem zentralen Ort zu sammeln. Daher sind PRs, die Diskrepanzen zwischen den Transkripten in diesem Repository und den originalen Scans des Source Codes von [Luminary 099][5] und [Comanche 055][6] beheben, gern gesehen. Dieses Repository beinhaltet den originalen Quellcode des Apollo 11 Navigationscomputers (kurz AGC) für das Kommandomodul (Comanche055) und die Mondlandefähre (Luminary099). Digitalisiert wurde der Code durch das [Virtual AGC][3] Projekt und das [MIT Museum][4]. Ziel dieses Projektes ist es, den originalen Apollo 11 Source Code an einem zentralen Ort zu sammeln. Daher sind PRs, die Diskrepanzen zwischen den Transkripten in diesem Repository und den originalen Scans des Source Codes von [Luminary 099][5] und [Comanche 055][6] beheben, gern gesehen.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Código fuente original del ordenador guía del Apolo 11 (AGC) para el módulo de comando (Comanche055) y del módulo lunar (Luminary099). Digitalizado por los chicos de [Virtual AGC][3] y [el museo del MIT][4]. El objetivo es ser un repositorio del código fuente original del Apolo 11. De este modo, serán bienvenidos los PRs relacionados con las transcripciones en este repositorio y los escaneos del código fuente original para el [Luminary 099][5] y el [Comanche 055][6], así como cualquier archivo que se me haya olvidado. Código fuente original del ordenador guía del Apolo 11 (AGC) para el módulo de comando (Comanche055) y del módulo lunar (Luminary099). Digitalizado por los chicos de [Virtual AGC][3] y [el museo del MIT][4]. El objetivo es ser un repositorio del código fuente original del Apolo 11. De este modo, serán bienvenidos los PRs relacionados con las transcripciones en este repositorio y los escaneos del código fuente original para el [Luminary 099][5] y el [Comanche 055][6], así como cualquier archivo que se me haya olvidado.

View File

@ -18,15 +18,18 @@
[Italiano][IT]، [Italiano][IT]،
[Kurdi][KU]، [Kurdi][KU]،
[Nederlands][NL]، [Nederlands][NL]،
[Norsk][NO]،
[Polski][PL]، [Polski][PL]،
[Português][PT_BR]، [Português][PT_BR]،
[Română][RO]، [Română][RO]،
[Tiếng Việt][VI]، [Tiếng Việt][VI]،
[Türkçe][TR]، [Türkçe][TR]،
[Ελληνικά][GR]،
[Русский][RU]، [Русский][RU]،
[العربية][AR]، [العربية][AR]،
**فارسی**، **فارسی**،
[हिंदी][HI_IN]، [हिंदी][HI_IN]،
[অসমীয়া][AS_IN]،
[বাংলা][BD_BN]، [বাংলা][BD_BN]،
[မြန်မာ][MM]، [မြန်မာ][MM]،
[日本語][JA]، [日本語][JA]،
@ -35,6 +38,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -43,13 +47,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -58,7 +66,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
سورس کد اصلی سیستم هدایت آپولو ۱۱ (AGC) برای سفینه فرمان (Comanche055) و سفینه ماه‌نشین (Luminary099). دیجیتال شده توسط جمعی از در [مجازی AGC][3] و [MIT موزه][4]. مقصود این است که یک مخزن برای سورس کد اصلی آپولو ۱۱ باشد. همین‌طور، از پول‌ریکوئست‌ها برای هر تفاوتی بین نسخه‌ی موجود در این مخزن با اسکن‌ فایل‌های اصلی برای [Luminary 099][5] و [Comanche 055][6] و همچنین هر فایل دیگری که از دست من در رفته باشد،‌ استقبال می‌شود. سورس کد اصلی سیستم هدایت آپولو ۱۱ (AGC) برای سفینه فرمان (Comanche055) و سفینه ماه‌نشین (Luminary099). دیجیتال شده توسط جمعی از در [مجازی AGC][3] و [MIT موزه][4]. مقصود این است که یک مخزن برای سورس کد اصلی آپولو ۱۱ باشد. همین‌طور، از پول‌ریکوئست‌ها برای هر تفاوتی بین نسخه‌ی موجود در این مخزن با اسکن‌ فایل‌های اصلی برای [Luminary 099][5] و [Comanche 055][6] و همچنین هر فایل دیگری که از دست من در رفته باشد،‌ استقبال می‌شود.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,17 +64,16 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Code source original de l'ordinateur de guidage Apollo 11 (AGC) pour le module de commande (Comanche055) et le module lunaire (Luminary099). Numérisé par les gens du [Virtual AGC][3] et du [MIT Museum][4]. Le but est d'être un repo pour le code source original d'Apollo 11. En tant que tel, les PR sont les bienvenues pour tous les problèmes identifiés entre les transcriptions dans ce référentiel et les scans source originaux pour [Luminary 099][5] et [Comanche 055][6], ainsi que pour tous les fichiers que j'ai pu manquer. Code source original de l'ordinateur de guidage Apollo 11 (AGC) pour le module de commande (Comanche055) et le module lunaire (Luminary099). Numérisé par les gens du [Virtual AGC][3] et du [MIT Museum][4]. Le but est d'être un repo pour le code source original d'Apollo 11. En tant que tel, les PR sont les bienvenues pour tous les problèmes identifiés entre les transcriptions dans ce référentiel et les scans source originaux pour [Luminary 099][5] et [Comanche 055][6], ainsi que pour tous les fichiers que j'ai pu manquer.
## Contribuer ## Contribuer
Merci de lire [CONTRIBUTING.fr.md][7] avant d'ouvrir une pull request. Merci de lire [CONTRIBUTING.fr.md][7] avant d'ouvrir un pull request.
## Compilation ## Compilation
Si vous êtes intéressés par la compilation du code source original visitez [Virtual AGC][8]. Si vous êtes intéressé par la compilation du code source original, visitez [Virtual AGC][8].
## Attribution ## Attribution

125
README.gr.md Normal file
View File

@ -0,0 +1,125 @@
# Apollo-11
[![NASA][1]][2]
[![SWH]][SWH_URL]
[![Comanche]][ComancheMilestone]
[![Luminary]][LuminaryMilestone]
🎌
[Bahasa Indonesia][ID],
[Català][CA],
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Nederlands][NL],
[Norsk][NO],
[Polski][PL],
[Português][PT_BR],
[Română][RO],
[Tiếng Việt][VI],
[Türkçe][TR],
**Ελληνικά**,
[Русский][RU],
[العربية][AR],
[فارسی][FA],
[हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN],
[မြန်မာ][MM],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md
[CA]:README.ca.md
[CZ]:README.cz.md
[DE]:README.de.md
[EN]:README.md
[ES]:README.es.md
[FA]:README.fa.md
[FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md
[ID]:README.id.md
[IT]:README.it.md
[JA]:README.ja.md
[KO_KR]:README.ko_kr.md
[KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md
[PT_BR]:README.pt_br.md
[RO]:README.ro.md
[RU]:README.ru.md
[TR]:README.tr.md
[VI]:README.vi.md
[ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
Ο πρωτότυπος πηγαίος κώδικας του υπολογιστή πλοήγησης (guidance computer) του Apollo 11 (AGC) για το Command Module (Comanche055) και το Lunar Module (Luminary099). Ψηφιοποίηση από ανθρώπους στο [Virtual AGC][3] και το [MIT Museum][4]. Ο στόχος είναι αυτό το αποθετήριο να παρέχει όλο τον πηγαίο κώδικα του Apollo 11. Ως εκ τούτου, τα PRs είναι ευπρόσδεκτα για τυχόν ζητήματα που εντοπίζονται μεταξύ των μεταγραφών σε αυτό το αποθετήριο και των αρχικών σαρώσεων προέλευσης για το [Luminary 099][5] και το [Comanche 055][6], καθώς επίσης και για αρχεία που λείπουν.
## Συνεισφορά
Παρακαλώ διαβάστε το [CONTRIBUTING.gr.md][7] πριν ανοίξετε ένα pull request.
## Σύνταξη πηγαίου κώδικα (Compiling)
Αν ενδιαφέρεστε να κάνετε compile τον πρωτότυπο πηγαίο κώδικα, δείτε το [Virtual AGC][8].
## Απόδοση
&nbsp; | &nbsp;
:------------- | :-----
Πνευματική ιδιοκτησία | Δημόσιος τομέας (Public domain)
Comanche055 | Μέρος του πηγαίου κώδικα για το Colossus 2A, το Command Module's (CM) Apollo Guidance Computer (AGC) για το Apollo 11<br>`Assemble revision 055 of AGC program Comanche by NASA`<br>`2021113-051. 10:28 APR. 1, 1969`
Luminary099 | Μέρος του πηγαίου κώδικα για το Luminary 1A, το Lollar Module's (LM) Apollo Guidance Computer (AGC) για το Apollo 11<br>`Assemble revision 001 of AGC program LMY99 by NASA`<br>`2021112-061. 16:27 JUL. 14, 1969`
Συμβολομεταφράστης | yaYUL
Επικοινωνία | Ron Burkey <info@sandroid.org>
Ιστοσελίδα | www.ibiblio.org/apollo
Ψηφιοποίηση | Αυτός ο πηγαίος κώδικας έχει μεταγραφεί ή αλλιώς προσαρμοστεί από ψηφιοποιημένες εικόνες έντυπου αντιγράφου από το Μουσείο MIT. Η ψηφιοποίηση πραγματοποιήθηκε από τον Paul Fjeld και διευθετήθηκε από την Deborah Douglas του Μουσείου. Ευχαριστώ πολύ και τους δύο.
### Σύμβαση και εγκρίσεις
Προέρχεται από το [CONTRACT_AND_APPROVALS.agc]*
Το πρόγραμμα του AGC αναφέρεται επίσης και ως Colossus 2A.
Αυτό το πρόγραμμα προορίζεται για χρήση στο CM, όπως ορίζεται στην αναφορά R-577. Αυτό το πρόγραμμα προετοιμάστηκε στο πλαίσιο του έργου DSR 55-23870, που χρηματοδοτήθηκε από το Manned Spacecraft Center of the National Aeronautics and Space Administration μέσω της σύμβασης NAS 9-4065 με το Instrumentation Laboratory, Massachusetts Institute of Technology, Cambridge, Mass.
Υποβλήθηκε από | Ρόλος | Ημερομηνία
:------------------- | :--- | :---
Margaret H. Hamilton | Colossus Programming Leader<br>Apollo Guidance and Navigation | 28 Mar 69
Εγκρίθηκε από | Ρόλος | Ημερομηνία
:---------------- | :--- | :---
Daniel J. Lickly | Διευθυντής, Mission Program Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
Fred H. Martin | Colossus Project Manager<br>Apollo Guidance and Navigation Program | 28 Mar 69
Norman E. Sears | Διευθυντής, Mission Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
Richard H. Battin | Διευθυντής, Mission Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
David G. Hoag | Διευθυντής<br>Apollo Guidance and Navigation Program | 28 Mar 69
Ralph R. Ragan | Αναπληρωτής Διευθυντής<br>Instrumentation Laboratory | 28 Mar 69
[CONTRACT_AND_APPROVALS.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Comanche055/CONTRACT_AND_APPROVALS.agc
[1]:https://flat.badgen.net/badge/NASA/Mission%20Overview/0B3D91
[2]:https://www.nasa.gov/mission_pages/apollo/missions/apollo11.html
[3]:http://www.ibiblio.org/apollo/
[4]:http://web.mit.edu/museum/
[5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.gr.md
[8]:https://github.com/rburkey2005/virtualagc
[SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91
[SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/
[Comanche]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/1
[ComancheMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/1
[Luminary]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/2
[LuminaryMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/2

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
**हिंदी**, **हिंदी**,
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
अपोलो ११ मार्गदर्शन कम्प्यूटर (Apollo 11 Guidance computer, AGC) कमांड मॉड्यूल (Comanche055) तथा चंद्र मॉड्यूल (Luminary099) का मूल नियम संग्रह। इसे [Virtual AGC][3] एवं [MIT Museum][4] के सदस्यों द्वारा अंक्रिकित किया गया है। हमारा मुख्य उद्देश्य अपोलो ११ के मूल नियम संग्रह को संकलित करना है। यदि आपने इस संघ्रह के प्रतिलेखन एवं [Luminary 099][5] और [Comanche 055][6] के बीच में किसी भी फर्क का अनावरण किया है, उस दशा में आपका सहयोग PR के रूप में बहुत ही अभिवादित है। अपोलो ११ मार्गदर्शन कम्प्यूटर (Apollo 11 Guidance computer, AGC) कमांड मॉड्यूल (Comanche055) तथा चंद्र मॉड्यूल (Luminary099) का मूल नियम संग्रह। इसे [Virtual AGC][3] एवं [MIT Museum][4] के सदस्यों द्वारा अंक्रिकित किया गया है। हमारा मुख्य उद्देश्य अपोलो ११ के मूल नियम संग्रह को संकलित करना है। यदि आपने इस संघ्रह के प्रतिलेखन एवं [Luminary 099][5] और [Comanche 055][6] के बीच में किसी भी फर्क का अनावरण किया है, उस दशा में आपका सहयोग PR के रूप में बहुत ही अभिवादित है।

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Kode sumber orisinil Komputer Pemandu Apollo 11 (AGC) untuk Modul Komando (Comanche055) dan Modul Bulan (Luminary099). Didigitalkan oleh [Virtual AGC][3] dan [MIT Museum][4]. Tujuan dari repo ini adalah untuk menjadi repo kode sumber Apollo 11 yang orisinil. Dengan demikian, siapapun dipersilakan untuk mengirimkan Pull Request untuk issue atau perbedaan apapun yang ditemukan antara transkripsi di repositori ini dengan kode sumber orisinil hasil scan untuk [Luminary 099][5] dan [Comanche 055][6], juga file apapun yang mungkin lupa saya masukkan. Kode sumber orisinil Komputer Pemandu Apollo 11 (AGC) untuk Modul Komando (Comanche055) dan Modul Bulan (Luminary099). Didigitalkan oleh [Virtual AGC][3] dan [MIT Museum][4]. Tujuan dari repo ini adalah untuk menjadi repo kode sumber Apollo 11 yang orisinil. Dengan demikian, siapapun dipersilakan untuk mengirimkan Pull Request untuk issue atau perbedaan apapun yang ditemukan antara transkripsi di repositori ini dengan kode sumber orisinil hasil scan untuk [Luminary 099][5] dan [Comanche 055][6], juga file apapun yang mungkin lupa saya masukkan.

View File

@ -16,15 +16,18 @@
**Italiano**, **Italiano**,
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,13 +64,12 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Codice sorgente dell'Apollo 11 Guidance Computer (AGC) utilizzato dal Command Module (Comanche055) e dal Lunar Module (Luminary099). Digitalizzato dagli autori del [Virtual AGC][3] e dal [MIT Museum][4]. L'obbiettivo è quello di avere un repository contenente il codice usato dalla missione Apollo 11. Di conseguenza, le PRs volte a correggere qualsiasi problema, identificato confrontando le trascrizioni in questo repository e le scansioni originali del codice del [Luminary 099][5] e del [Comanche 055][6], sono benvenute. Codice sorgente dell'Apollo 11 Guidance Computer (AGC) utilizzato dal Command Module (Comanche055) e dal Lunar Module (Luminary099). Digitalizzato dagli autori del [Virtual AGC][3] e dal [MIT Museum][4]. L'obbiettivo è quello di avere un repository contenente il codice usato dalla missione Apollo 11. Di conseguenza, le PRs volte a correggere qualsiasi problema, identificato confrontando le trascrizioni in questo repository e le scansioni originali del codice del [Luminary 099][5] e del [Comanche 055][6], sono benvenute.
## Contribuire ## Contribuire
Leggere [CONTRIBUTING.md][7] prima di aprire una pull request (PR). Leggere [CONTRIBUTING.it.md][7] prima di aprire una pull request (PR).
## Compilare ## Compilare
@ -108,7 +115,7 @@ Ralph R. Ragan | Deputy Director<br>Instrumentation Laboratory | 28 Mar 69
[4]:http://web.mit.edu/museum/ [4]:http://web.mit.edu/museum/
[5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/ [5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/ [6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.md [7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.it.md
[8]:https://github.com/rburkey2005/virtualagc [8]:https://github.com/rburkey2005/virtualagc
[SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91 [SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91
[SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/ [SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
**日本語**, **日本語**,
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
司令船・機械船(Comanche055)および月着陸船(Luminary099)用のオリジナルのアポロ11号誘導コンピュータ(AGC)のソースコード。[Virtual AGC][3] と [MIT Museum][4] によってデジタル化された。このリポジトリは、オリジナルのアポロ11号のソースコードを完全に再現して保管することを目的としています。そのため、このリポジトリと [Luminary 099][5] および [Comanche 055][6] の間に発見された問題や見落としがある可能性のあるファイルに対してのPRは歓迎します。 司令船・機械船(Comanche055)および月着陸船(Luminary099)用のオリジナルのアポロ11号誘導コンピュータ(AGC)のソースコード。[Virtual AGC][3] と [MIT Museum][4] によってデジタル化された。このリポジトリは、オリジナルのアポロ11号のソースコードを完全に再現して保管することを目的としています。そのため、このリポジトリと [Luminary 099][5] および [Comanche 055][6] の間に発見された問題や見落としがある可能性のあるファイルに対してのPRは歓迎します。

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
**한국어** **한국어**
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,9 +64,8 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
사령선 모듈 (Comanche055) 및 달 착륙선 모듈 (Luminary099)을 위한 아폴로 11호 유도 컴퓨터(AGC)의 소스코드입니다. [Virtual AGC][3] 및 [MIT Museum][4]에 의해 디지털화 되었습니다. 이 레포지토리는 아폴로 11호의 원본 소스코드를 완벽하게 재현하여 보관하는 것을 목표로 합니다. 따라서 원본과 본 디지털본 간에 발견된 모든 이슈, 또한 빠뜨렸을 듯한 파일들에 대해 PR을 환영합니다. 사령선 모듈 (Comanche055) 및 달 착륙선 모듈 (Luminary099)을 위한 아폴로 11호 유도 컴퓨터(AGC)의 소스코드입니다. [Virtual AGC][3] 및 [MIT Museum][4]에 의해 디지털화되었습니다. 이 레포지토리는 아폴로 11호의 원본 소스코드를 완벽하게 재현하여 보관하는 것을 목표로 합니다. 따라서 원본과 본 디지털본 간에 발견된 모든 이슈, 또한 빠뜨렸을 듯한 파일들에 대해 PR을 환영합니다.
## 기여하기 ## 기여하기
@ -78,7 +85,7 @@ Luminary099 | Part of the source code for Luminary 1A, the Lunar Module's (LM) A
어셈블러 | yaYUL 어셈블러 | yaYUL
연락처 | Ron Burkey <info@sandroid.org> 연락처 | Ron Burkey <info@sandroid.org>
웹사이트 | www.ibiblio.org/apollo 웹사이트 | www.ibiblio.org/apollo
디지털화 | 이 소스코드는 MIT Museum에서 하드카피본을 디지털화, 옮긴 것 입니다. 디지털화는 Paul Fjeld에 의해 이루어졌으며, Deborah Douglas가 정리하였습니다. 두 분께 깊은 감사를 표합니다. 디지털화 | 이 소스코드는 MIT Museum에서 하드 카피본을 디지털화, 옮긴 것입니다. 디지털화는 Paul Fjeld에 의해 이루어졌으며, Deborah Douglas가 정리하였습니다. 두 분께 깊은 감사를 표합니다.
### Contract and Approvals ### Contract and Approvals
@ -86,7 +93,7 @@ Luminary099 | Part of the source code for Luminary 1A, the Lunar Module's (LM) A
본 아폴로 유도 컴퓨터 프로그램은 다음에 의해 참조됩니다 : 콜로서스 2A 본 아폴로 유도 컴퓨터 프로그램은 다음에 의해 참조됩니다 : 콜로서스 2A
이 프로그램은 R-577에 명세된 사령선 모듈에 사용됩니다. DSR 프로젝트 55-23870 에 의해 준비되었으며, NASA 유인 우주선 센터가 MIT 기계 연구소 와의 NAS 9-4065 계약에 의해 스폰싱 하였습니다. 이 프로그램은 R-577에 명세된 사령선 모듈에 사용됩니다. DSR 프로젝트 55-23870에 의해 준비되었으며, NASA 유인 우주선 센터가 MIT 기계 연구소와의 NAS 9-4065 계약에 의해 스폰싱 하였습니다.
제출됨 | Role | 일시 제출됨 | Role | 일시
:------------------- | :--- | :-- :------------------- | :--- | :--

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
**Kurdî**, **Kurdî**,
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Koda xwerû ya kompûterê rêbernameya Apollo 11 (AGC) ya orîjînal ji bo Wesayîta Rêvebirinê (Comanche055) û Wesayîta Hêvê (Luminary099). Hat jimarekirin ji aliyê [Virtual AGC][3] û [MIT Museum][4] va. Armanc ew e ku bibe wek depoyekê ji bo koda xwerû ya orîjînal ya Apollo 11. Ji bo wê yekê, daxwazê kişandinê tên pêşwazîkirin ji bo her pirsgirêkekî ku tê nîşankirin di nava vê depoyê de û kopiyên orîjînal yê [Luminary 099][5] û [Comanche 055][6], herweha çi dosya ku min ji bîr kirî. Koda xwerû ya kompûterê rêbernameya Apollo 11 (AGC) ya orîjînal ji bo Wesayîta Rêvebirinê (Comanche055) û Wesayîta Hêvê (Luminary099). Hat jimarekirin ji aliyê [Virtual AGC][3] û [MIT Museum][4] va. Armanc ew e ku bibe wek depoyekê ji bo koda xwerû ya orîjînal ya Apollo 11. Ji bo wê yekê, daxwazê kişandinê tên pêşwazîkirin ji bo her pirsgirêkekî ku tê nîşankirin di nava vê depoyê de û kopiyên orîjînal yê [Luminary 099][5] û [Comanche 055][6], herweha çi dosya ku min ji bîr kirî.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Original Apollo 11 guidance computer (AGC) source code for Command Module (Comanche055) and Lunar Module (Luminary099). Digitized by the folks at [Virtual AGC][3] and [MIT Museum][4]. The goal is to be a repo for the original Apollo 11 source code. As such, PRs are welcome for any issues identified between the transcriptions in this repository and the original source scans for [Luminary 099][5] and [Comanche 055][6], as well as any files I may have missed. Original Apollo 11 guidance computer (AGC) source code for Command Module (Comanche055) and Lunar Module (Luminary099). Digitized by the folks at [Virtual AGC][3] and [MIT Museum][4]. The goal is to be a repo for the original Apollo 11 source code. As such, PRs are welcome for any issues identified between the transcriptions in this repository and the original source scans for [Luminary 099][5] and [Comanche 055][6], as well as any files I may have missed.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
**မြန်မာ**, **မြန်မာ**,
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
မူရင်း Apollo 11 ထိန်းချုပ်မှု ကွန်ပျူတာ (AGC) တွင်ပါဝင်သော ကွပ်ကဲမှုအစိတ်အပိုင်း (Comanche055) နဲ့ လပေါ်တွင်ဆင်းသက်သည့် အစိတ်အပိုင်း (Luminary099) တို့ရဲ့ ကုဒ်။ [Virtual AGC][3] နှင့် [MIT Museum][4] အကူအညီဖြင့် ဒီဂျစ်တယ်ပုံစံသို့ ပြောင်းထားခြင်းဖြစ်သည်။​ မူရင်း Apollo 11 ကုဒ်များ သိမ်းစည်းထားသော ရီပိုတစ်ခုဖြစ်လာစေရန်ရည်ရွယ်သည်။ ဒါကြောင့် [Luminary 099][5] နဲ့ [Comanche 055][6] တို့ရဲ့ အရင်းအမြစ်စာတမ်းများနဲ့ ဒီရီပိုကြား ကွဲလွဲချက်များတွေ့ရင် Pull Request (PR) တွေဖွင့်ပေးဖို့ ကြိုဆိုပါတယ်။ ကျွန်တော် ကျန်ခဲ့တဲ့ ဖိုင်လ်လေးတွေရှိရင်လည်း ပြောပေးကြပါဉီး။ မူရင်း Apollo 11 ထိန်းချုပ်မှု ကွန်ပျူတာ (AGC) တွင်ပါဝင်သော ကွပ်ကဲမှုအစိတ်အပိုင်း (Comanche055) နဲ့ လပေါ်တွင်ဆင်းသက်သည့် အစိတ်အပိုင်း (Luminary099) တို့ရဲ့ ကုဒ်။ [Virtual AGC][3] နှင့် [MIT Museum][4] အကူအညီဖြင့် ဒီဂျစ်တယ်ပုံစံသို့ ပြောင်းထားခြင်းဖြစ်သည်။​ မူရင်း Apollo 11 ကုဒ်များ သိမ်းစည်းထားသော ရီပိုတစ်ခုဖြစ်လာစေရန်ရည်ရွယ်သည်။ ဒါကြောင့် [Luminary 099][5] နဲ့ [Comanche 055][6] တို့ရဲ့ အရင်းအမြစ်စာတမ်းများနဲ့ ဒီရီပိုကြား ကွဲလွဲချက်များတွေ့ရင် Pull Request (PR) တွေဖွင့်ပေးဖို့ ကြိုဆိုပါတယ်။ ကျွန်တော် ကျန်ခဲ့တဲ့ ဖိုင်လ်လေးတွေရှိရင်လည်း ပြောပေးကြပါဉီး။

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
**Nederlands**, **Nederlands**,
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Originele broncode voor de Apollo 11 besturingscomputer (AGC). Broncode voor de besturingsmodule (Comanche055) en maanmodule (Luminary099). Gedigitalizeerd door [Virtual GC][3] en het [MIT Museum][4]. Het doel is om een repository te zijn van de oorspronkelijke Apollo 11 broncode en dus zijn PRs welkom voor elk probleem in de overgenomen broncode van [Luminary 099][5] en [Comanche 055][6] en elk bestand dat ik vergeten ben. Originele broncode voor de Apollo 11 besturingscomputer (AGC). Broncode voor de besturingsmodule (Comanche055) en maanmodule (Luminary099). Gedigitalizeerd door [Virtual GC][3] en het [MIT Museum][4]. Het doel is om een repository te zijn van de oorspronkelijke Apollo 11 broncode en dus zijn PRs welkom voor elk probleem in de overgenomen broncode van [Luminary 099][5] en [Comanche 055][6] en elk bestand dat ik vergeten ben.

125
README.no.md Normal file
View File

@ -0,0 +1,125 @@
# Apollo-11
[![NASA][1]][2]
[![SWH]][SWH_URL]
[![Comanche]][ComancheMilestone]
[![Luminary]][LuminaryMilestone]
🎌
[Bahasa Indonesia][ID],
[Català][CA],
[Čeština][CZ],
[Deutsch][DE],
[English][EN],
[Español][ES],
[Français][FR],
[Italiano][IT],
[Kurdi][KU],
[Nederlands][NL],
**Norsk**,
[Polski][PL],
[Português][PT_BR],
[Română][RO],
[Tiếng Việt][VI],
[Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU],
[العربية][AR],
[فارسی][FA],
[हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN],
[မြန်မာ][MM],
[日本語][JA],
[正體中文][ZH_TW],
[简体中文][ZH_CN],
[한국어][KO_KR]
[AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md
[CA]:README.ca.md
[CZ]:README.cz.md
[DE]:README.de.md
[EN]:README.md
[ES]:README.es.md
[FA]:README.fa.md
[FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md
[ID]:README.id.md
[IT]:README.it.md
[JA]:README.ja.md
[KO_KR]:README.ko_kr.md
[KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md
[PT_BR]:README.pt_br.md
[RO]:README.ro.md
[RU]:README.ru.md
[TR]:README.tr.md
[VI]:README.vi.md
[ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md
Original kildekode til Apollo 11s veilednings datamaskin for kommando ( Comanche055 ) og måne ( Luminary099 ) modulene. Digitalisert av folkene ifra Virtual AGC og MIT Museet. Målet er og være et «repo» for den originale Apollo 11 kilde koden. «Pull Requests» er ønskelige for problemer som måtte finnes i oversettelser i dette «repository» og de originale kilde kode bildene til Luminary 099 og Comanche 055, samt bortglemte filer
## Bidra
Venligst les [CONTRIBUTING.no.md][7] før en "pull request" åpnes.
## Kompilere
Om du er interesert i og kompilere den originale kilde koden så sjekk [Virtual AGC][8].
## Bidragsytere
&nbsp; | &nbsp;
:------------- | :-----
Opphavsrett | Public domain
Comanche055 | Deler av kilde koden til Colossus 2A, kommando modulen ( CM ) til Apollo Veiledningsdatamaskin ( AGC ) til Apollo 11<br>`Assemble revision 055 of AGC program Comanche by NASA`<br>`2021113-051. 10:28 APR. 1, 1969`
Luminary099 | Deler av kilde koden til Luminary 1A, the Lunar Module's ( LM ) Apollo Veiledningsdatamaskin ( AGC ) til Apollo 11<br>`Assemble revision 001 of AGC program LMY99 by NASA`<br>`2021112-061. 16:27 JUL. 14, 1969`
Assembler | yaYUL
Kontakt | Ron Burkey <info@sandroid.org>
Webside | www.ibiblio.org/apollo
Digitalisering | Denne kilde koden er tydet og adoptert fra de digitaliserte bildene som finnes på MIT Museet. Digitaliseringen er utført av Paul Fjeld, og sortert av Deborah Douglas som jobber på Museet. Takk til dere begge.
### Kontrakt og godkjenninger
*Fra [CONTRACT_AND_APPROVALS.agc]*
Dette AGC programmet skal også refereres til som Colossus 2A.
Dette programmet brukes i «CM» som spesifisert i rapport `R-577`. Dette programmet var også laget under DST prosjekt `55-23870`, som var sponset av «Manned Spacecraft Center of The National Aeronautics and Space Administration» via kontrakt `NAS 9-4065` med instrumentasjon laboratoriet ved «Massachusetts Institute of Technology, Cambridge, Mass»
Innsendt av | Rolle | Dato
:------------------- | :---- | :---
Margaret H. Hamilton | Colossus Programming Leader<br>Apollo Guidance and Navigation | 28 Mar 69
Godkjent av | Rolle | Dato
:---------------- | :---- | :---
Daniel J. Lickly | Director, Mission Program Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
Fred H. Martin | Colossus Project Manager<br>Apollo Guidance and Navigation Program | 28 Mar 69
Norman E. Sears | Director, Mission Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
Richard H. Battin | Director, Mission Development<br>Apollo Guidance and Navigation Program | 28 Mar 69
David G. Hoag | Director<br>Apollo Guidance and Navigation Program | 28 Mar 69
Ralph R. Ragan | Deputy Director<br>Instrumentation Laboratory | 28 Mar 69
[CONTRACT_AND_APPROVALS.agc]:https://github.com/chrislgarry/Apollo-11/blob/master/Comanche055/CONTRACT_AND_APPROVALS.agc
[1]:https://flat.badgen.net/badge/NASA/Mission%20Overview/0B3D91
[2]:https://www.nasa.gov/mission_pages/apollo/missions/apollo11.html
[3]:http://www.ibiblio.org/apollo/
[4]:http://web.mit.edu/museum/
[5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.no.md
[8]:https://github.com/rburkey2005/virtualagc
[SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91
[SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/
[Comanche]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/1
[ComancheMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/1
[Luminary]:https://flat.badgen.net/github/milestones/chrislgarry/Apollo-11/2
[LuminaryMilestone]:https://github.com/chrislgarry/Apollo-11/milestone/2

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
**Polski**, **Polski**,
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,13 +64,12 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Oryginalny kod źródłowy komputera pokładowego w programie Apollo 11 (AGC) dla modułu dowodzenia (Comanche055) i modułu księżycowego (Luminary099). Zdigitalizowany przez ludzi z [Virtual AGC][3] i [MIT Museum][4]. Celem jest bycie repozytorium dla oryginalnego kodu źródłowego Apollo 11. Z tego powodu, PRy są mile widziane dla każdego przekłamania między transkrypcją w tym repozytorium a oryginalnymi skanami dla [Luminary 099][5] i [Comanche 055][6], jak również dla każdego pliku który mogłem przegapić. Oryginalny kod źródłowy komputera pokładowego Apollo 11 (AGC) dla modułu dowodzenia (Comanche055) i modułu księżycowego (Luminary099). Zdigitalizowany przez ludzi z [Virtual AGC][3] i [MIT Museum][4]. Celem jest ukazanie repozytorium dla oryginalnego kodu źródłowego Apollo 11. Z tego powodu, PRy są mile widziane dla każdego przekłamania między transkrypcją w tym repozytorium a oryginalnymi skanami dla [Luminary 099][5] i [Comanche 055][6], jak również dla każdego pliku który mogłem przegapić.
## Kontrybucje ## Kontrybucje
Proszę przeczytaj [CONTRIBUTING.md][7] zanim otworzysz nowy pull request. Proszę przeczytaj [CONTRIBUTING.pl.md][7] zanim otworzysz nowy pull request.
## Kompilowanie ## Kompilowanie
@ -108,7 +115,7 @@ Ralph R. Ragan | Deputy Director<br>Instrumentation Laboratory | 28 Mar 69
[4]:http://web.mit.edu/museum/ [4]:http://web.mit.edu/museum/
[5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/ [5]:http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/
[6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/ [6]:http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/
[7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.md [7]:https://github.com/chrislgarry/Apollo-11/blob/master/CONTRIBUTING.pl.md
[8]:https://github.com/rburkey2005/virtualagc [8]:https://github.com/rburkey2005/virtualagc
[SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91 [SWH]:https://flat.badgen.net/badge/Software%20Heritage/Archive/0B3D91
[SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/ [SWH_URL]:https://archive.softwareheritage.org/browse/origin/https://github.com/chrislgarry/Apollo-11/

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
**Português**, **Português**,
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Código fonte do Computador de Orientação da Apollo 11 (AGC) para o Módulo de Comando (Comanche055) e Módulo Lunar (Luminary099). Digitalizado pelo pessoal da [Virtual AGC][3] e [Museu do MIT][4]. O objetivo é ser um repositório para o código fonte original da Apollo 11. Como tal, os PRs são bem-vindos para quaisquer problemas identificados entre as transcrições neste repositório e as verificações do código fonte original para [Luminary 099][5] e [Comanche 055][6], bem como quaisquer arquivos que eu possa ter perdido. Código fonte do Computador de Orientação da Apollo 11 (AGC) para o Módulo de Comando (Comanche055) e Módulo Lunar (Luminary099). Digitalizado pelo pessoal da [Virtual AGC][3] e [Museu do MIT][4]. O objetivo é ser um repositório para o código fonte original da Apollo 11. Como tal, os PRs são bem-vindos para quaisquer problemas identificados entre as transcrições neste repositório e as verificações do código fonte original para [Luminary 099][5] e [Comanche 055][6], bem como quaisquer arquivos que eu possa ter perdido.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
**Română**, **Română**,
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Codul sursă original al computerului de orientare Apollo 11 (AGC) pentru modulul de comandă (Comanche055) și modulul lunar (Luminary099). Digitalizat de persoanele de la [Virtual AGC][3] și [MIT Museum][4]. Scopul este de a avea un repo pentru codul sursă original Apollo 11. Prin urmare, PR-urile sunt bine venite pentru orice problemă identificată între transcrierile din acest repository și scanările originale pentru [Luminary 099][5] și [Comanche 055][6], precum și pentru alte fișiere pe care aș fi putut să le uit. Codul sursă original al computerului de orientare Apollo 11 (AGC) pentru modulul de comandă (Comanche055) și modulul lunar (Luminary099). Digitalizat de persoanele de la [Virtual AGC][3] și [MIT Museum][4]. Scopul este de a avea un repo pentru codul sursă original Apollo 11. Prin urmare, PR-urile sunt bine venite pentru orice problemă identificată între transcrierile din acest repository și scanările originale pentru [Luminary 099][5] și [Comanche 055][6], precum și pentru alte fișiere pe care aș fi putut să le uit.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
**Русский**, **Русский**,
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Оригинальный исходный код бортового управляющего компьютера Аполлон 11 (AGC) для командного модуля (Comanche055) и лунного модуля (Luminary099). Оцифровано людьми из [Virtual AGC][3] и [MIT Museum][4]. Цель - это создание репозитория с оригинальным исходным кодом миссии Аполлон 11. Таким образом приветствуются pull requests (PRs) с исправлениями для любых найденных ошибок в файлах этого репозитория и оригинальных сканах исходного кода для [Luminary 099][5] и [Comanche 055][6], так же как и для любых файлов, которые я мог пропустить. Оригинальный исходный код бортового управляющего компьютера Аполлон 11 (AGC) для командного модуля (Comanche055) и лунного модуля (Luminary099). Оцифровано людьми из [Virtual AGC][3] и [MIT Museum][4]. Цель - это создание репозитория с оригинальным исходным кодом миссии Аполлон 11. Таким образом приветствуются pull requests (PRs) с исправлениями для любых найденных ошибок в файлах этого репозитория и оригинальных сканах исходного кода для [Luminary 099][5] и [Comanche 055][6], так же как и для любых файлов, которые я мог пропустить.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
**Türkçe**, **Türkçe**,
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Orijinal Apollo 11 Yönlendirme Bilgisayarı'nın (AGC) Yönetim Modülü (Comanche055) ve Ay Modülü (Luminary099)'nün kaynak kodu. [Virtual AGC][3] ve [MIT Museum][4] çalışanları tarafından sayısallaştırılmıştır. Amaç orijinal Apollo 11 kaynak kodunu içeren bir repo oluşturmak. Bu yüzden bu repoda, [Luminary 099][5]'de ve [Comanche 055][6]'da tespit edilen hatalarla ilgili veya benim kaçırdığım herhangi bir dosya hakkında yollanacak pull request'lere açığız. Orijinal Apollo 11 Yönlendirme Bilgisayarı'nın (AGC) Yönetim Modülü (Comanche055) ve Ay Modülü (Luminary099)'nün kaynak kodu. [Virtual AGC][3] ve [MIT Museum][4] çalışanları tarafından sayısallaştırılmıştır. Amaç orijinal Apollo 11 kaynak kodunu içeren bir repo oluşturmak. Bu yüzden bu repoda, [Luminary 099][5]'de ve [Comanche 055][6]'da tespit edilen hatalarla ilgili veya benim kaçırdığım herhangi bir dosya hakkında yollanacak pull request'lere açığız.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
**Tiếng Việt**, **Tiếng Việt**,
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
Mã nguồn của máy tính hướng dẫn Apollo 11 (AGC) thông qua Command Module (Comanche055) và Lunar Module (Luminary099). Được số hóa bởi những người ở [Virtual AGC][3] và [Bảo tàng MIT][4]. Mục tiêu là tạo ra một kho lưu trữ mã nguồn cho Apollo 11. Do vậy, PRs là một điều bình thường cho bất kì một vấn đề được xác định giữa các bản dịch trong kho lưu trữ này và nguồn gốc quét mã cho [Luminary 099][5] và [Comanche 055][6], cũng như bất kì file nào mà chúng tôi có thể bỏ lỡ. Mã nguồn của máy tính hướng dẫn Apollo 11 (AGC) thông qua Command Module (Comanche055) và Lunar Module (Luminary099). Được số hóa bởi những người ở [Virtual AGC][3] và [Bảo tàng MIT][4]. Mục tiêu là tạo ra một kho lưu trữ mã nguồn cho Apollo 11. Do vậy, PRs là một điều bình thường cho bất kì một vấn đề được xác định giữa các bản dịch trong kho lưu trữ này và nguồn gốc quét mã cho [Luminary 099][5] và [Comanche 055][6], cũng như bất kì file nào mà chúng tôi có thể bỏ lỡ.

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
阿波罗 11 号制导计算机AGC中指令模块Comanche055和登月模块Luminary099原始代码。由 [虚拟 AGC][3] 和 [MIT 科学博物馆][4] 的伙计们完成电子化。本仓库存在的目的是存储阿波罗 11 号原始代码。当然,倘若在本仓库或原始代码扫描件 [Luminary 099][5] 及 [Comanche 055][6] 发现问题,或者任何我可能漏掉的文件,欢迎提交 PR。 阿波罗 11 号制导计算机AGC中指令模块Comanche055和登月模块Luminary099原始代码。由 [虚拟 AGC][3] 和 [MIT 科学博物馆][4] 的伙计们完成电子化。本仓库存在的目的是存储阿波罗 11 号原始代码。当然,倘若在本仓库或原始代码扫描件 [Luminary 099][5] 及 [Comanche 055][6] 发现问题,或者任何我可能漏掉的文件,欢迎提交 PR。

View File

@ -16,15 +16,18 @@
[Italiano][IT], [Italiano][IT],
[Kurdi][KU], [Kurdi][KU],
[Nederlands][NL], [Nederlands][NL],
[Norsk][NO],
[Polski][PL], [Polski][PL],
[Português][PT_BR], [Português][PT_BR],
[Română][RO], [Română][RO],
[Tiếng Việt][VI], [Tiếng Việt][VI],
[Türkçe][TR], [Türkçe][TR],
[Ελληνικά][GR],
[Русский][RU], [Русский][RU],
[العربية][AR], [العربية][AR],
[فارسی][FA], [فارسی][FA],
[हिंदी][HI_IN], [हिंदी][HI_IN],
[অসমীয়া][AS_IN],
[বাংলা][BD_BN], [বাংলা][BD_BN],
[မြန်မာ][MM], [မြန်မာ][MM],
[日本語][JA], [日本語][JA],
@ -33,6 +36,7 @@
[한국어][KO_KR] [한국어][KO_KR]
[AR]:README.ar.md [AR]:README.ar.md
[AS_IN]:README.as_in.md
[BD_BN]:README.bd_bn.md [BD_BN]:README.bd_bn.md
[CA]:README.ca.md [CA]:README.ca.md
[CZ]:README.cz.md [CZ]:README.cz.md
@ -41,13 +45,17 @@
[ES]:README.es.md [ES]:README.es.md
[FA]:README.fa.md [FA]:README.fa.md
[FR]:README.fr.md [FR]:README.fr.md
[GR]:README.gr.md
[HI_IN]:README.hi_in.md [HI_IN]:README.hi_in.md
[ID]:README.id.md [ID]:README.id.md
[IT]:README.it.md [IT]:README.it.md
[JA]:README.ja.md [JA]:README.ja.md
[KO_KR]:README.ko_kr.md [KO_KR]:README.ko_kr.md
[KU]:README.ku.md [KU]:README.ku.md
[LT]:README.lt.md
[MM]:README.mm.md [MM]:README.mm.md
[NL]:README.nl.md
[NO]:README.no.md
[PL]:README.pl.md [PL]:README.pl.md
[PT_BR]:README.pt_br.md [PT_BR]:README.pt_br.md
[RO]:README.ro.md [RO]:README.ro.md
@ -56,7 +64,6 @@
[VI]:README.vi.md [VI]:README.vi.md
[ZH_CN]:README.zh_cn.md [ZH_CN]:README.zh_cn.md
[ZH_TW]:README.zh_tw.md [ZH_TW]:README.zh_tw.md
[NL]:README.nl.md
最初用於阿波羅 11 號的導航電腦 (Apollo 11 Guidance computer, AGC) 裡頭駕駛艙 (Comanche055) 和登月艙 (Luminary099) 的原始程式碼,由 [Virtual AGC](http://www.ibiblio.org/apollo/) 及 [MIT Museum](http://web.mit.edu/museum/) 的工作人員進行數位化,著眼於建立阿波羅 11 號原始程式碼的封存。正因如此,若您發現文件抄錄或於查看 [Luminary 099](http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/) 和 [Comanche 055](http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/) 這兩部分原始程式碼過程中遇到問題的話,歡迎提交 pull request。當然也包括那些我可能遺忘的檔案。 最初用於阿波羅 11 號的導航電腦 (Apollo 11 Guidance computer, AGC) 裡頭駕駛艙 (Comanche055) 和登月艙 (Luminary099) 的原始程式碼,由 [Virtual AGC](http://www.ibiblio.org/apollo/) 及 [MIT Museum](http://web.mit.edu/museum/) 的工作人員進行數位化,著眼於建立阿波羅 11 號原始程式碼的封存。正因如此,若您發現文件抄錄或於查看 [Luminary 099](http://www.ibiblio.org/apollo/ScansForConversion/Luminary099/) 和 [Comanche 055](http://www.ibiblio.org/apollo/ScansForConversion/Comanche055/) 這兩部分原始程式碼過程中遇到問題的話,歡迎提交 pull request。當然也包括那些我可能遺忘的檔案。