{"id":3484,"date":"2009-07-24T10:30:29","date_gmt":"2009-07-24T08:30:29","guid":{"rendered":"http:\/\/www.stanetdam.com\/?p=3484"},"modified":"2009-07-24T10:30:29","modified_gmt":"2009-07-24T08:30:29","slug":"exclusif-le-code-source-dapollo-11","status":"publish","type":"post","link":"https:\/\/stanetdam.com\/?p=3484","title":{"rendered":"Exclusif : le code source d&rsquo;Apollo 11 !"},"content":{"rendered":"<p>Il est hallucinant d&rsquo;imaginer qu&rsquo;ils sont partis sur la Lune avec une si petite puissance de calcul et&#8230; si peu de lignes de code.<\/p>\n<p>Pour rappel, l&rsquo;ordinateur de bord faisait 14ko !!! Ce qui provoqua d&rsquo;ailleurs une erreur 1202 lors de l&rsquo;alunissage pour cause de trop plein d&rsquo;informations (l&rsquo;ordinateur ne pouvait pas g\u00e9rer deux radars en m\u00eame temps).<\/p>\n<p><a href=\"http:\/\/code.google.com\/p\/virtualagc\/source\/browse\/trunk\/Comanche055\/CM_BODY_ATTITUDE.s?r=258\" target=\"_blank\" rel=\"noopener noreferrer\">Le code source en entier est ici.<\/a><\/p>\n<p><strong>Extrait :<\/strong><\/p>\n<p># Copyright:\u00a0\u00a0\u00a0 Public domain.<br \/>\n# Filename:\u00a0\u00a0\u00a0\u00a0 CM_BODY_ATTITUDE.s<br \/>\n# Purpose:\u00a0\u00a0\u00a0\u00a0\u00a0 Part of the source code for Comanche, build 055. It<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 is part of the source code for the Command Module&rsquo;s<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 (CM) Apollo Guidance Computer (AGC), Apollo 11.<br \/>\n# Assembler:\u00a0\u00a0\u00a0 yaYUL<br \/>\n# Reference:\u00a0\u00a0\u00a0 pp. 883-889<br \/>\n# Contact:\u00a0\u00a0\u00a0\u00a0\u00a0 Ron Burkey &lt;info@sandroid.org&gt;<br \/>\n# Website:\u00a0\u00a0\u00a0\u00a0\u00a0 http:\/\/www.ibiblio.org\/apollo.<br \/>\n# Mod history:\u00a0 2009-05-12 RSB\u00a0\u00a0 \u00a0Adapted from Colossus249 file of the same<br \/>\n#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0name and Comanche 055 page images.<br \/>\n#<br \/>\n# The contents of the \u00ab\u00a0Comanche055\u00a0\u00bb files, in general, are transcribed<br \/>\n# from scanned documents.<br \/>\n#<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Assemble revision 055 of AGC program Comanche by NASA<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 2021113-051.\u00a0 April 1, 1969.<br \/>\n#<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 This AGC program shall also be referred to as Colossus 2A<br \/>\n#<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Prepared by<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Massachussets Institute of Technology<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 75 Cambridge Parkway<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Cambridge, Massachusetts<br \/>\n#<br \/>\n#\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 under NASA contract NAS 9-4065.<br \/>\n#<br \/>\n# Refer directly to the online document mentioned above for further<br \/>\n# information.\u00a0 Please report any errors to info@sandroid.org.<\/p>\n<p># Page 883<br \/>\nBANK\u00a0\u00a0 \u00a035<\/p>\n<p>SETLOC\u00a0\u00a0 \u00a0BODYATT<br \/>\nBANK<\/p>\n<p>COUNT\u00a0\u00a0 \u00a037\/CMBAT<\/p>\n<p># PDL 12D &#8211; 15D SAFE.<\/p>\n<p># VALUE OF GIMBAL AND BODY ANGLES VALID AT PIP TIME ARE SAVED DURING\u00a0 READACCS.<\/p>\n<p>EBANK=\u00a0\u00a0 \u00a0RTINIT\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# LET INTERPRETER SET EB<\/p>\n<p>CM\/POSE\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TC\u00a0\u00a0 \u00a0INTPRET\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# COME HERE VIA AVEGEXIT.<\/p>\n<p>SETPD\u00a0\u00a0 \u00a0VLOAD<br \/>\n0<br \/>\nVN\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# KVSCALE = (12800\/ .3048) \/2VS<br \/>\nVXSC\u00a0\u00a0 \u00a0PDVL<br \/>\n-KVSCALE\u00a0\u00a0 \u00a0# KVSCALE = .81491944<br \/>\nUNITW\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# FULL UNIT VECTOR<br \/>\nVXV\u00a0\u00a0 \u00a0VXSC\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# VREL = V &#8211; WE*R<br \/>\nUNITR<br \/>\nKWE<br \/>\nVAD\u00a0\u00a0 \u00a0STADR<br \/>\nSTORE\u00a0\u00a0 \u00a0-VREL\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# SAVE FOR ENTRY GUIDANCE.\u00a0\u00a0 \u00a0REF COORDS<\/p>\n<p>UNIT\u00a0\u00a0 \u00a0LXA,1<br \/>\n36D\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# ABVAL( -VREL) TO X1<br \/>\nSTORE\u00a0\u00a0 \u00a0UXA\/2\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# -UVREL\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0REF COORDS<\/p>\n<p>VXV\u00a0\u00a0 \u00a0VCOMP<br \/>\nUNITR\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# .5 UNIT\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0REF COORDS<br \/>\nUNIT\u00a0\u00a0 \u00a0SSP\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# THE FOLLOWING IS TO PROVIDE A STABLE<br \/>\nS1\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# UN FOR THE END OF THE TERMINAL PHASE.<br \/>\nSPVQUIT\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0DEC\u00a0\u00a0 \u00a0.019405\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# 1000\/ 2 VS<br \/>\nTIX,1\u00a0\u00a0 \u00a0VLOAD\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# IF V-VQUIT POS, BRANCH.<br \/>\nCM\/POSE2\u00a0\u00a0 \u00a0# SAME UYA IN OLDUYA<br \/>\nOLDUYA\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# OTHERWISE CONTINUE TO USE OLDUYA<br \/>\nCM\/POSE2\u00a0\u00a0 \u00a0STORE\u00a0\u00a0 \u00a0UYA\/2\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0REF COORDS<\/p>\n<p>STORE\u00a0\u00a0 \u00a0OLDUYA\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# RESTORE, OR SAVE AS CASE MAY BE.<\/p>\n<p>VXV\u00a0\u00a0 \u00a0VCOMP<br \/>\nUXA\/2\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0# FINISH OBTAINING TRAJECTORY TRIAD.<br \/>\nVSL1<br \/>\nSTORE\u00a0\u00a0 \u00a0UZA\/2\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0#\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0REF COORDS<\/p>\n<div id=\"themify_builder_content-3484\" data-postid=\"3484\" class=\"themify_builder_content themify_builder_content-3484 themify_builder\">\n    <\/div>\n<!-- \/themify_builder_content -->\n","protected":false},"excerpt":{"rendered":"<p>Il est hallucinant d&rsquo;imaginer qu&rsquo;ils sont partis sur la Lune avec une si petite puissance de calcul et&#8230; si peu de lignes de code. Pour rappel, l&rsquo;ordinateur de bord faisait 14ko !!! Ce qui provoqua d&rsquo;ailleurs une erreur 1202 lors de l&rsquo;alunissage pour cause de trop plein d&rsquo;informations (l&rsquo;ordinateur ne pouvait pas g\u00e9rer deux radars [&hellip;]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[249,770,2285,2504,2632],"class_list":["post-3484","post","type-post","status-publish","format-standard","hentry","category-sd-techlounge","tag-apollo-11","tag-code-source","tag-lune","tag-mit","tag-nasa","has-post-title","has-post-date","has-post-category","has-post-tag","has-post-comment","has-post-author",""],"builder_content":"","_links":{"self":[{"href":"https:\/\/stanetdam.com\/index.php?rest_route=\/wp\/v2\/posts\/3484","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/stanetdam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/stanetdam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/stanetdam.com\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/stanetdam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3484"}],"version-history":[{"count":0,"href":"https:\/\/stanetdam.com\/index.php?rest_route=\/wp\/v2\/posts\/3484\/revisions"}],"wp:attachment":[{"href":"https:\/\/stanetdam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3484"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/stanetdam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3484"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/stanetdam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3484"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}