Nanna Angela Workshop Jun 8 2022.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "f9ff9b0f",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "LUNAR_LANDING_GUIDANCE_EQUATIONS.agc.txt\r\n",
      "Untitled.ipynb\r\n"
     ]
    }
   ],
   "source": [
    "%ls"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "id": "32fc68f7",
   "metadata": {},
   "outputs": [],
   "source": [
    "helloFile = open('LUNAR_LANDING_GUIDANCE_EQUATIONS.agc.txt')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "id": "53484c12",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "<_io.TextIOWrapper name='LUNAR_LANDING_GUIDANCE_EQUATIONS.agc.txt' mode='r' encoding='UTF-8'>"
      ]
     },
     "execution_count": 4,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "helloFile"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "id": "2e45ae5a",
   "metadata": {},
   "outputs": [],
   "source": [
    "helloContent = helloFile.read()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "id": "14d20fbb",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "'# Copyright:\\tPublic domain.\\n# Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc\\n# Purpose: \\tPart of the source code for Luminary 1A build 099.\\n#\\t\\tIt is part of the source code for the Lunar Module\\'s (LM)\\n#\\t\\tApollo Guidance Computer (AGC), for Apollo 11.\\n# Assembler:\\tyaYUL\\n# Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.\\n# Website:\\twww.ibiblio.org/apollo.\\n# Pages:\\t798-828\\n# Mod history:\\t2009-05-23 HG\\tTranscribed from page images.\\n#\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently\\n#\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated\\n#\\t\\t\\t\\ta couple of lines of code that shouldn\\'t\\n#\\t\\t\\t\\thave survived from Luminary 131 to here.\\n#\\t\\t2009-06-07 RSB\\tFixed a typo.\\n#\\n# This source code has been transcribed or otherwise adapted from\\n# digitized images of a hardcopy from the MIT Museum.  The digitization\\n# was performed by Paul Fjeld, and arranged for by Deborah Douglas of\\n# the Museum.  Many thanks to both.  The images (with suitable reduction\\n# in storage size and consequent reduction in image quality as well) are\\n# available online at www.ibiblio.org/apollo.  If for some reason you\\n# find that the images are illegible, contact me at info@sandroid.org\\n# about getting access to the (much) higher-quality images which Paul\\n# actually created.\\n#\\n# Notations on the hardcopy document read, in part:\\n#\\n#\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61\\n#\\t16:27 JULY 14, 1969\\n\\n# Page 798\\n\\t\\tEBANK=\\tE2DPS\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\n# ********************************************************\\n# LUNAR LANDING FLIGHT SEQUENCE TABLES\\n# ********************************************************\\n\\n# FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:\\n#\\tWCHPHASE = -1 ---> IGNALG\\n#\\tWCHPHASE =  0 ---> BRAKQUAD\\n#\\tWCHPHASE =  1 ---> APPRQUAD\\n#\\tWCHPHASE =  2 ---> VERTICAL\\n\\n#*********************************************************\\n\\n# ROUTINES FOR STARTING NEW GUIDANCE PHASES:\\n\\n\\t\\tTCF\\tTTFINCR\\t\\t# IGNALG\\nNEWPHASE\\tTCF\\tTTFINCR\\t\\t# BRAKQUAD\\n\\t\\tTCF\\tSTARTP64\\t# APPRQUAD\\n\\t\\tTCF\\tP65START\\t# VERTICAL\\n\\n# PRE-GUIDANCE COMPUTATIONS:\\n\\n\\t\\tTCF\\tCALCRGVG\\t# IGNALG\\nPREGUIDE\\tTCF\\tRGVGCALC\\t# BRAKQUAD\\n\\t\\tTCF\\tREDESIG\\t\\t# APPRQUAD\\n\\t\\tTCF\\tRGVGCALC\\t# VERTICAL\\n\\n# GUIDANCE EQUATIONS:\\n\\n\\t\\tTCF\\tTTF/8CL\\t\\t# IGNALG\\nWHATGUID\\tTCF\\tTTF/8CL\\t\\t# BRAKQUAD\\n\\t\\tTCF\\tTTF/8CL\\t\\t# APPRQUAD\\n\\t\\tTCF\\tVERTGUID\\t# VERTICAL\\n\\n# POST GUIDANCE EQUATION COMPUTATIONS:\\n\\n\\t\\tTCF\\tCGCALC\\t\\t# IGNALG\\nAFTRGUID\\tTCF\\tCGCALC\\t\\t# BRAKQUAD\\n\\t\\tTCF\\tCGCALC\\t\\t# APPRQUAD\\n\\t\\tTCF\\tSTEER?\\t\\t# VERTICAL\\n\\n# Page 799\\n# WINDOW VECTOR COMPUTATIONS:\\n\\n\\t\\tTCF\\tEXGSUB\\t\\t# IGNALG\\nWHATEXIT\\tTCF\\tEXBRAK\\t\\t# BRAKQUAD\\n\\t\\tTCF\\tEXNORM\\t\\t# APPRQUAD\\n\\n# DISPLAY ROUTINES:\\n\\nWHATDISP\\tTCF\\tP63DISPS\\t# BRAKQUAD\\n\\t\\tTCF\\tP64DISPS\\t# APPRQUAD\\n\\t\\tTCF\\tVERTDISP\\t# VERTICAL\\n\\n# ALARM ROUTINE FOR TTF COMPUTATION:\\n\\n\\t\\tTCF\\t1406P00\\t\\t# IGNALG\\nWHATALM\\t\\tTCF\\t1406ALM\\t\\t# BRAKQUAD\\n\\t\\tTCF\\t1406ALM\\t\\t# APPRQUAD\\n\\n# INDICES FOR REFERENCING TARGET PARAMETERS\\n\\n\\t\\tOCT\\t0\\t\\t# IGNALG\\nTARGTDEX\\tOCT\\t0\\t\\t# BRAKQUAD\\n\\t\\tOCT\\t34\\t\\t# APPRQUAD\\n\\n#************************************************************************\\n# ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT\\n#************************************************************************\\n\\n# IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE\\n\\n?GUIDSUB\\tEXIT\\n\\t\\tCAF\\tTWO\\t\\t# N = 3\\n\\t\\tTS\\tNGUIDSUB\\n\\t\\tTCF\\tGUILDRET +2\\n\\nGUIDSUB\\t\\tTS\\tNGUIDSUB\\t# ON SUCCEEDING PASSES SKIP TTFINCR\\n\\t\\tTCF\\tCALCRGVG\\n\\n# NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT\\n\\nLUNLAND\\t\\tTC\\tPHASCHNG\\n\\t\\tOCT\\t00035\\t\\t# GROUP 5:  RETAIN ONLY PIPA TASK\\n\\t\\tTC\\tPHASCHNG\\n\\t\\tOCT\\t05023\\t\\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21\\n\\t\\tOCT\\t21000\\t\\t#\\tJUST HIGHER THAN SERVICER\\'S PRIORITY\\n\\n# Page 800\\n#*******************************************************************\\n# GUILDENSTERN:  AUTO-MODES MONITOR (R13)\\n#*******************************************************************\\n\\n\\t\\tCOUNT*\\t$$/R13\\n\\n# HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE\\n# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66\\n# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE\\n\\nGUILDEN\\t\\tEXTEND\\t\\t\\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?\\n# STERN\\t\\t\\t\\t\\t# RSB 2009: Not originally a comment.\\n \\t\\tREAD CHAN30\\n\\t\\tMASK\\tBIT5\\n \\t\\tCCS\\tA\\n \\t\\tTCF\\tSTARTP67\\t# YES\\nP67NOW?\\t\\tTC\\tCHECKMM\\t\\t# NO:  ARE WE IN P67 NOW?\\n\\t\\tDEC\\t67\\n\\t\\tTCF\\tSTABL?\\t\\t# NO\\nSTARTP66\\tTC\\tFASTCHNG\\t# YES\\n\\t\\tTC\\tNEWMODEX\\nDEC66\\t\\tDEC\\t66\\n\\t\\tEXTEND\\n\\t\\tDCA\\tHDOTDISP\\t# SET DESIRED ALTITUDE RATE = CURRENT\\n\\t\\tDXCH\\tVDGVERT\\t\\t# \\tALTITUDE RATE.\\nSTRTP66A\\tTC\\tINTPRET\\n\\t\\tSLOAD\\tPUSH\\n\\t\\t\\tPBIASZ\\n\\t\\tSLOAD\\tPUSH\\n\\t\\t\\tPBIASY\\n\\t\\tSLOAD\\tVDEF\\n\\t\\t\\tPBIASX\\n\\t\\tVXSC\\tSET\\n\\t\\t\\tBIASFACT\\n\\t\\t\\tRODFLAG\\n\\t\\tSTOVL\\tVBIAS\\n\\t\\t\\tTEMX\\n\\t\\tVCOMP\\n\\t\\tSTOVL\\tOLDPIPAX\\n\\t\\t\\tZEROVECS\\n\\t\\tSTODL\\tDELVROD\\n\\t\\t\\tRODSCALE\\n\\t\\tSTODL\\tRODSCAL1\\n\\t\\t\\tPIPTIME\\n\\t\\tSTORE\\tLASTTPIP\\n\\t\\tEXIT\\n\\t\\tCAF\\tZERO\\n\\t\\tTS\\tFCOLD\\n\\t\\tTS\\tFWEIGHT\\n\\t\\tTS\\tFWEIGHT +1\\nVRTSTART\\tTS\\tWCHVERT\\n# Page 801\\n\\t\\tCAF\\tTWO\\t\\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67\\n\\t\\tTS\\tWCHPHOLD\\n\\t\\tTS\\tWCHPHASE\\n\\t\\tTC\\tBANKCALL\\t# TEMPORARY, I HOPE HOPE HOPE\\n\\t\\tCADR\\tSTOPRATE\\t# TEMPORARY, I HOPE HOPE HOPE\\n\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE\\n\\t\\tADRES\\tXOVINFLG\\n\\t\\tTC\\tDOWNFLAG\\n\\t\\tADRES\\tREDFLAG\\n\\t\\tTCF\\tVERTGUID\\n\\nSTARTP67\\tTC\\tNEWMODEX\\t# NO HARM IN \"STARTING\" P67 OVER AND OVER\\n\\t\\tDEC\\t67\\t\\t# SO NO NEED FOR A FASTCHNG AND NO NEED\\n\\t\\tCAF\\tZERO\\t\\t# TO SEE IF ALREADY IN P67.\\n\\t\\tTS\\tRODCOUNT\\n\\t\\tCAF\\tTEN\\n\\t\\tTCF\\tVRTSTART\\n\\nSTABL?\\t\\tCAF\\tBIT13\\t\\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?\\n\\t\\tEXTEND\\n\\t\\tRAND\\tCHAN31\\n\\t\\tCCS\\tA\\n\\t\\tTCF\\tGUILDRET\\t# YES ALL\\'S WELL\\n\\nP66NOW?\\t\\tCS\\tMODREG\\n\\t\\tAD\\tDEC66\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRESTART?\\n\\n\\t\\tCA\\tRODCOUNT\\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?\\n\\t\\tEXTEND\\n\\t\\tBZF\\tGUILDRET\\t# NO. CONTINUE WITH AUTOMATIC LANDING\\n\\t\\tTCF\\tSTARTP66\\t# YES. SWITCH INTO THE ROD MODE.\\n\\nRESTART?\\tCA\\tFLAGWRD1\\t# HAS THERE BEEN A RESTART?\\n\\t\\tMASK\\tRODFLBIT\\n\\t\\tEXTEND\\n\\t\\tBZF\\tSTRTP66A\\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS\\n\\t\\t\\t\\t\\t#\\tIS.\\n\\n\\t\\tTCF\\tVERTGUID\\t# NO: CONTINUE WITH R.O.D.\\n\\n# *******************************************************************************\\n# INITIALIZATION FOR THIS PASS\\n# *******************************************************************************\\n\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\nGUILDRET\\tCAF\\tZERO\\n\\t\\tTS\\tRODCOUNT\\n\\n# Page 802\\n +2\\t\\tEXTEND\\n \\t\\tDCA\\tTPIP\\n\\t\\tDXCH\\tTPIPOLD\\n\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tPIPTIME1\\n\\t\\tDXCH\\tTPIP\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tTTF/8\\n\\t\\tDXCH\\tTTF/8TMP\\n\\n\\t\\tCCS\\tFLPASS0\\n\\t\\tTCF\\tTTFINCR\\n\\nBRSPOT1\\t\\tINDEX\\tWCHPHASE\\n\\t\\tTCF\\tNEWPHASE\\n\\n# ******************************************************************\\n# ROUTINES TO START NEW PHASES\\n# ******************************************************************\\n\\nP65START\\tTC\\tNEWMODEX\\n\\t\\tDEC\\t65\\n\\t\\tCS\\tTWO\\n\\t\\tTS\\tWCHVERT\\n\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE\\n\\t\\tADRES\\tXOVINFLG\\n\\t\\tTCF\\tTTFINCR\\n\\nSTARTP64\\tTC\\tNEWMODEX\\n\\t\\tDEC\\t64\\n\\t\\tCA\\tDELTTFAP\\t# AUGMENT TTF/8\\n\\t\\tADS\\tTTF/8TMP\\n\\t\\tCA\\tBIT12\\t\\t# ENABLE RUPT10\\n\\t\\tEXTEND\\n\\t\\tWOR\\tCHAN13\\n\\t\\tTC\\tDOWNFLAG\\t# INITIALIZE REDESIGNATION FLAG\\n\\t\\tADRES\\tREDFLAG\\n\\n\\n#\\t\\t(CONTINUE TO TTFINCR)\\n\\n# *********************************************************************************\\n# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS\\n# *********************************************************************************\\n#\\n#\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --\\n# Page 803\\n#\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:\\n#\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8\\n#\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:\\n#\\t\\t\\t____               ____   ____                   __\\n#\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)\\n#\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:\\n#\\t\\t\\t                 ____   _\\n#\\t\\t\\tRANGEDSP = ABVAL(LAND - R)\\n\\nTTFINCR\\t\\tTC\\tINTPRET\\n\\t\\tDLOAD\\tDSU\\n\\t\\t\\tTPIP\\n\\t\\t\\tTPIPOLD\\n\\t\\tSLR\\tPUSH\\t\\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS\\n\\t\\t\\t11D\\n\\t\\tVXSC\\tVXV\\n\\t\\t\\tLAND\\n\\t\\t\\tWM\\n\\t\\tBVSU\\tRTB\\n\\t\\t\\tLAND\\n\\t\\t\\tNORMUNIT\\n\\t\\tVXSC\\tVSL1\\n\\t\\t\\t/LAND/\\n\\t\\tSTODL\\tLANDTEMP\\n\\t\\tEXIT\\n\\n\\t\\tDXCH\\tMPAC\\n\\t\\tDAS\\tTTF/8TMP\\t# NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP\\n\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tTTF/8TMP\\n\\t\\tDXCH\\tTTF/8\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP\\n\\t\\tDXCH\\tLAND\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP +2\\n\\t\\tDXCH\\tLAND     +2\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP +4\\n\\t\\tDXCH\\tLAND\\t +4\\n\\n# Page 804\\n\\t\\tTC\\tTDISPSET\\n\\t\\tTC\\tFASTCHNG\\t# SINCE REDESIG MAY CHANGE LANDTEMP\\n\\nBRSPOT2\\t\\tINDEX\\tWCHPHASE\\n\\t\\tTCF\\tPREGUIDE\\n\\n# *********************************************************************\\n# LANDING SITE PERTURBATION EQUATIONS\\n# *********************************************************************\\n\\nREDESIG\\t\\tCA\\tFLAGWRD6\\t# IS REDFLAG SET?\\n\\t\\tMASK\\tREDFLBIT\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRGVGCALC\\t# NO:  SKIP REDESIGNATION LOGIC\\n\\n\\t\\tCA\\tTREDES\\t\\t# YES:  HAS TREDES REACHED ZERO?\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRGVGCALC\\t# YES:  SKIP REDESIGNATION LOGIC\\n\\n\\t\\tINHINT\\n\\t\\tCA\\tELINCR1\\n\\t\\tTS\\tELINCR\\n\\t\\tCA\\tAZINCR1\\n\\t\\tTS\\tAZINCR\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tCA\\tZERO\\n\\t\\tTS\\tELINCR1\\n\\t\\tTS\\tAZINCR1\\n\\t\\tTS\\tELINCR\\t+1\\n\\t\\tTS\\tAZINCR  +1\\n\\n\\t\\tCA\\tFIXLOC\\t\\t# SET PD TO 0\\n\\t\\tTS\\tPUSHLOC\\n\\n\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\tVSU\\n\\t\\t\\tLAND\\n\\t\\t\\tR\\t\\t#                 ____   _\\n\\t\\tRTB\\tPUSH\\t\\t# PUSH DOWN UNIT (LAND - R)\\n\\t\\t\\tNORMUNIT\\n\\t\\tVXV\\tVSL1\\n\\t\\t\\tYNBPIP\\t\\t#                    ___        ____   _\\n\\t\\tVXSC\\tPDDL\\t\\t# PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))\\n\\t\\t\\tELINCR\\n\\t\\t\\tAZINCR\\n\\t\\tVXSC\\tVSU\\n\\t\\t\\tYNBPIP\\n\\t\\tVAD\\tPUSH\\t\\t# RESULTING VECTOR IS 1/2 REAL SIZE\\n\\n# Page 805\\n\\n\\t\\tDLOAD\\tDSU\\t\\t# MAKE SURE REDESIGNATION IS NOT\\n\\t\\t\\t0\\t\\t# \\tTOO CLOSE TO THE HORIZON.\\n\\t\\t\\tDEPRCRIT\\n\\t\\tBMN\\tDLOAD\\n\\t\\t\\tREDES1\\n\\t\\t\\tDEPRCRIT\\n\\t\\tSTORE\\t0\\nREDES1\\t\\tDLOAD\\tDSU\\n\\t\\t\\tLAND\\n\\t\\t\\tR\\n\\t\\tDDV\\tVXSC\\n\\t\\t\\t0\\n\\t\\tVAD\\tUNIT\\n\\t\\t\\tR\\n\\t\\tVXSC\\tVSL1\\n\\t\\t\\t/LAND/\\n\\t\\tSTORE\\tLANDTEMP\\n\\t\\tEXIT\\t\\t\\t# LOOKANGL WILL BE COMPUTED AT RGVGCALC\\n\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP\\n\\t\\tDXCH\\tLAND\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP +2\\n\\t\\tDXCH\\tLAND +2\\n\\t\\tEXTEND\\n\\t\\tDCA\\tLANDTEMP +4\\n\\t\\tDXCH\\tLAND +4\\n\\n\\t\\tTCF\\tRGVGCALC\\n\\n# *********************************************************************\\n# COMPUTE STATE IN GUIDANCE COORDINATES\\n# *********************************************************************\\n#\\n#\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--\\n#\\tVELOCITY RELATIVE TO THE SURFACE:\\n#\\t\\t_______   _   _   __\\n#\\t\\tANGTERM = V + R * WM\\n#\\tSTATE IN GUIDANCE COORDINATES:\\n#\\t\\t___   *   _   ____\\n#\\t\\tRGU = CG (R - LAND)\\n#\\t\\t___   *   _   __   _\\n#\\t\\tVGU = CG (V - WM * R)\\n# Page 806 actually starts one line earlier but that would separate the markers from their variables\\n#\\n#\\tHORIZONTAL VELOCITY FOR DISPLAY\\n#\\n#\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )\\n#\\t\\t                       2    1\\n# \\tDEPRESSION ANGLE FOR DISPLAY:\\n#\\t\\t                       _   ____  ______\\n#\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)\\n\\nCALCRGVG\\tTC\\tINTPRET\\t\\t# IN IGNALG, COMPUTE V FROM INTEGRATION\\n\\t\\tVLOAD\\tMXV\\t\\t#\\tOUTPUT AND TRIM CORRECTION TERM\\n\\t\\t\\tVATT1\\t\\t#\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2\\n\\t\\t\\tREFSMMAT\\n\\t\\tVSR1\\tVAD\\n\\t\\t\\tUNFC/2\\n\\t\\tSTORE\\tV\\n\\t\\tEXIT\\n\\nRGVGCALC\\tTC\\tINTPRET\\t\\t# ENTER HERE TO RECOMPUTE RG AND VG\\n\\t\\tVLOAD\\tVXV\\n\\t\\t\\tR\\n\\t\\t\\tWM\\n\\t\\tVAD\\tVSR2\\t\\t# RESCALE TO UNITS OF 2(9) M/CS\\n\\t\\t\\tV\\n\\t\\tSTORE\\tANGTERM\\n\\t\\tMXV\\n\\t\\t\\tCG\\t\\t# NO SHIFT SINCE ANGTERM IS DOUBLE SIZED\\n\\t\\tSTORE\\tVGU\\n\\t\\tPDDL\\tVDEF\\t\\t# FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS\\n\\t\\t\\tZEROVECS\\t#           2   1\\n\\t\\tABVAL\\tSL3\\n\\t\\tSTOVL\\tVHORIZ\\t\\t# VHORIZ FOR DISPLAY DURING P65.\\n\\t\\t\\tR\\t\\t#           _   ____\\n\\t\\tVSU\\tPUSH\\t\\t# PUSH DOWN R - LAND\\n\\t\\t\\tLAND\\n\\t\\tMXV\\tVSL1\\n\\t\\t\\tCG\\n\\t\\tSTORE\\tRGU\\n\\t\\tABVAL\\n\\t\\tSTOVL\\tRANGEDSP\\n\\t\\tRTB\\tDOT\\t\\t# NOW IN MPAC IS SINE(LOOKANGL)/4\\n\\t\\t\\tNORMUNIT\\n\\t\\t\\tXNBPIP\\n\\t\\tEXIT\\n\\n\\t\\tCA\\tFIXLOC\\t\\t# RESET PUSH DOWN POINTER\\n\\t\\tTS\\tPUSHLOC\\n\\n# Page 807\\n\\t\\tCA\\tMPAC\\t\\t# COMPUTE LOOKANGLE ITSELF\\n\\t\\tDOUBLE\\n\\t\\tTC\\tBANKCALL\\n\\t\\tCADR\\tSPARCSIN -1\\n\\t\\tAD\\t1/2DEG\\n\\t\\tEXTEND\\n\\t\\tMP\\t180DEGS\\n\\t\\tTS\\tLOOKANGL\\t# LOOKANGL FOR DISPLAY DURING P64\\n\\nBRSPOT3\\t\\tINDEX\\tWCHPHASE\\n\\t\\tTCF\\tWHATGUID\\n\\n# **************************************************************************\\n# TTF/8 COMPUTATION\\n# **************************************************************************\\n\\nTTF/8CL\\t\\tTC\\tINTPRETX\\n\\t\\tDLOAD*\\n\\t\\t\\tJDG2TTF,1\\n\\t\\tSTODL*\\tTABLTTF +6\\t# A(3) = 8 JDG  TO TABLTTF\\n\\t\\t\\tADG2TTF,1\\t#             2\\n\\t\\tSTODL\\tTABLTTF +4\\t# A(2) = 6 ADG  TO TABLTTF\\n\\t\\t\\tVGU \\t+4\\t#             2\\n\\t\\tDMP\\tDAD*\\n\\t\\t\\t3/4DP\\n\\t\\t\\tVDG2TTF,1\\n\\t\\tSTODL*\\tTABLTTF +2\\t# A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF\\n\\t\\t\\tRDG +4,1\\t#              2         2\\n\\t\\tDSU\\tDMP\\n\\t\\t\\tRGU +4\\n\\t\\t\\t3/8DP\\n\\t\\tSTORE\\tTABLTTF\\t\\t# A(0) = -24 (RGU  - RDG )/64 TO TABLTTF\\n\\t\\tEXIT\\t\\t\\t#                2      2\\n\\n\\t\\tCA\\tBIT8\\n\\t\\tTS\\tTABLTTF +10\\t# FRACTIONAL PRECISION FOR TTF TO TABLE\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tTTF/8\\n\\t\\tDXCH\\tMPAC\\t\\t# LOADS TTF/8 (INITIAL GUESS) INTO MPAC\\n\\t\\tCAF\\tTWO\\t\\t# DEGREE - ONE\\n\\t\\tTS\\tL\\n\\t\\tCAF\\tTABLTTFL\\n\\t\\tTC\\tROOTPSRS\\t# YIELDS TTF/8 IN MPAC\\n\\t\\tINDEX\\tWCHPHASE\\n\\t\\tTCF\\tWHATALM\\n\\n\\t\\tEXTEND\\t\\t\\t# GOOD RETURN\\n\\t\\tDCA\\tMPAC\\t\\t# FETCH TTF/8 KEEPING IT IN MPAC\\n\\t\\tDXCH\\tTTF/8\\t\\t# CORRECTED TTF/8\\n\\n# Page 808\\n\\t\\tTC\\tTDISPSET\\n\\n# \\t\\t(CONTINUE TO QUADGUID)\\n\\n# *********************************************************************************\\n# MAIN GUIDANCE EQUATION\\n# *********************************************************************************\\n#\\n#\\tAS PUBLISHED --\\n#\\t\\t              ___   __       ___   __\\n#\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)\\n#\\t\\tACG = ADG + ----------- + ------------\\n#\\t\\t                TTF        (TTF)(TTF)\\n#\\tAS HERE PROGRAMMED --\\n#\\t\\t             ___   __\\n#\\t\\t      3 (1/4(RDG - RG)   ___   __)\\n#\\t\\t      - (------------- + VDG + VG)\\n#\\t\\t___   4 (    TTF/8               )   ___\\n#\\t\\tACG = ---------------------------- + ADG\\n#\\t\\t                  TTF/8\\n\\nQUADGUID\\tCS\\tTTF/8\\n\\t\\tAD\\tLEADTIME\\t# LEADTIME IS A NEGATIVE NUMBER\\n\\t\\tAD\\tPOSMAX\\t\\t# SAFEGUARD THE COMPUTATIONS THAT FOLLOW\\n\\t\\tTS\\tL\\t\\t#\\tBY FORCING -TTF*LEADTIME > OR = ZERO\\n\\t\\tCS\\tL\\n\\t\\tAD\\tL\\n\\t\\tZL\\n\\t\\tEXTEND\\n\\t\\tDV\\tTTF/8\\n\\t\\tTS\\tBUF\\t\\t# - RATIO OF LAG-DIMINISHED TTF TO TTF\\n\\t\\tEXTEND\\n\\t\\tSQUARE\\n\\t\\tTS\\tBUF +1\\n\\t\\tAD\\tBUF\\n\\t\\tXCH\\tBUF +1\\t\\t# RATIO SQUARED - RATIO\\n\\t\\tAD\\tBUF +1\\n\\t\\tTS\\tMPAC\\t\\t# COEFFICIENT FOR VGU TERM\\n\\t\\tAD\\tBUF +1\\n\\t\\tINDEX\\tFIXLOC\\n\\t\\tTS\\t26D\\t\\t# COEFFICIENT FOR RDG-RGU TERM\\n\\t\\tAD\\tBUF +1\\n\\t\\tINDEX\\tFIXLOC\\n\\t\\tTS\\t28D\\t\\t# COEFFICIENT FOR VDG TERM\\n\\t\\tAD\\tBUF\\n\\t\\tAD\\tPOSMAX\\n# Page 809\\n\\t\\tAD\\tBUF +1\\n\\t\\tAD\\tBUF +1\\n\\t\\tINDEX\\tFIXLOC\\n\\t\\tTS\\t30D\\t\\t# COEFFICIENT FOR ADG TERM\\n\\n\\t\\tCAF\\tZERO\\n\\t\\tTS\\tMODE\\n\\n\\t\\tTC\\tINTPRETX\\n\\t\\tVXSC\\tPDDL\\n\\t\\t\\tVGU\\n\\t\\t\\t28D\\n\\t\\tVXSC*\\tPDVL*\\n\\t\\t\\tVDG,1\\n\\t\\t\\tRDG,1\\n\\t\\tVSU\\tV/SC\\n\\t\\t\\tRGU\\n\\t\\t\\tTTF/8\\n\\t\\tVSR2\\tVXSC\\n\\t\\t\\t26D\\n\\t\\tVAD\\tVAD\\n\\t\\tV/SC\\tVXSC\\n\\t\\t\\tTTF/8\\n\\t\\t\\t3/4DP\\n\\t\\tPDDL\\tVXSC*\\n\\t\\t\\t30D\\n\\t\\t\\tADG,1\\n\\t\\tVAD\\nAFCCALC1\\tVXM\\tVSL1\\t\\t# VERGUID COMES HERE\\n\\t\\t\\tCG\\n\\t\\tPDVL\\tV/SC\\n\\t\\t\\tGDT/2\\n\\t\\t\\tGSCALE\\n\\t\\tBVSU\\tSTADR\\n\\t\\tSTORE\\tUNFC/2\\t\\t# UNFC/2 NEED NOT BE UNITIZED\\n\\t\\tABVAL\\nAFCCALC2\\tSTODL\\t/AFC/\\t\\t# MAGNITUDE OF AFC FOR THROTTLE\\n\\t\\t\\tUNFC/2\\t\\t# VERTICAL COMPONENT\\n\\t\\tDSQ\\tPDDL\\n\\t\\t\\tUNFC/2 +2\\t# OUT-OF-PLANE\\n\\t\\tDSQ\\tPDDL\\n\\t\\t\\tHIGHESTF\\n\\t\\tDDV\\tDSQ\\n\\t\\t\\tMASS\\t\\t#                        2    2    2\\n\\t\\tDSU\\tDSU\\t\\t# AMAXHORIZ = SQRT(ATOTAL - A  - A  )\\n\\t\\tBPL\\tDLOAD\\t\\t#                            1    0\\n\\t\\t\\tAFCCALC3\\n\\t\\t\\tZEROVECS\\nAFCCALC3\\tSQRT\\tDAD\\n\\t\\t\\tUNFC/2 +4\\n# Page 810\\n\\t\\tBPL\\tBDSU\\n\\t\\t\\tAFCCLEND\\n\\t\\t\\tUNFC/2 +4\\n\\t\\tSTORE\\tUNFC/2 +4\\nAFCCLEND\\tEXIT\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tCA\\tWCHPHASE\\t# PREPARE FOR PHASE SWITCHING LOGIC\\n\\t\\tTS\\tWCHPHOLD\\n\\t\\tINCR\\tFLPASS0\\t\\t# INCREMENT PASS COUNTER\\n\\nBRSPOT4\\t\\tINDEX\\tWCHPHASE\\n\\t\\tTCF\\tAFTRGUID\\n\\n# ***********************************************************************\\n# ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX\\n# ***********************************************************************\\n\\nCGCALC\\t\\tCAF\\tEBANK5\\n\\t\\tTS\\tEBANK\\n\\t\\tEBANK=\\tTCGIBRAK\\n\\t\\tEXTEND\\n\\t\\tINDEX\\tWCHPHASE\\n\\t\\tINDEX\\tTARGTDEX\\n\\t\\tDCA\\tTCGFBRAK\\n\\t\\tINCR\\tBBANK\\n\\t\\tINCR\\tBBANK\\n\\t\\tEBANK=\\tTTF/8\\n\\t\\tAD\\tTTF/8\\n\\t\\tXCH\\tL\\n\\t\\tAD\\tTTF/8\\n\\t\\tCCS\\tA\\n\\t\\tCCS\\tL\\n\\t\\tTCF\\tEXTLOGIC\\n\\t\\tTCF\\tEXTLOGIC\\n\\t\\tNOOP\\n\\n\\t\\tTC\\tINTPRETX\\n\\t\\tVLOAD\\tUNIT\\n\\t\\t\\tLAND\\n\\t\\tSTODL\\tCG\\n\\t\\t\\tTTF/8\\n\\t\\tDMP*\\tVXSC\\n\\t\\t\\tGAINBRAK,1\\t# NUMERO MYSTERIOSO\\n\\t\\t\\tANGTERM\\n\\t\\tVAD\\n\\t\\t\\tLAND\\n\\t\\tVSU\\tRTB\\n\\t\\t\\tR\\n\\t\\t\\tNORMUNIT\\n# Page 811\\n\\t\\tVXV\\tRTB\\n\\t\\t\\tLAND\\n\\t\\t\\tNORMUNIT\\n\\t\\tSTOVL\\tCG +6\\t\\t# SECOND ROW\\n\\t\\t\\tCG\\n\\t\\tVXV\\tVSL1\\n\\t\\t\\tCG +6\\n\\t\\tSTORE\\tCG +14\\n\\t\\tEXIT\\n\\n#\\t\\t(CONTINUE TO EXTLOGIC)\\n#\\n# ***********************************************************************\\n# PREPARE TO EXIT\\n# ***********************************************************************\\n#\\n# DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES\\n#\\nEXTLOGIC\\tINDEX\\tWCHPHASE\\t# WCHPHASE = 1   APPRQUAD\\n\\t\\tCA\\tTENDBRAK\\t# WCHPHASE = 0   BRAKQUAD\\n\\t\\tAD\\tTTF/8\\n\\nEXSPOT1\\t\\tEXTEND\\n\\t\\tINDEX\\tWCHPHASE\\n\\t\\tBZMF\\tWHATEXIT\\n\\n\\t\\tTC\\tFASTCHNG\\n\\n\\t\\tCA\\tWCHPHOLD\\n\\t\\tAD\\tONE\\n\\t\\tTS\\tWCHPHASE\\n\\t\\tCA\\tZERO\\n\\t\\tTS\\tFLPASS0\\t\\t# RESET FLPASS0\\n\\n\\t\\tINDEX\\tWCHPHOLD\\n\\t\\tTCF\\tWHATEXIT\\n\\n# ***********************************************************************\\n# ROUTINES FOR EXITING FROM LANDING GUIDANCE\\n# ***********************************************************************\\n#\\n# 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.\\n# 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.\\n# 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.\\n# (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)\\n\\nEXGSUB\\t\\tTC\\tINTPRET\\t\\t# COMPUTE TRIM VELOCITY CORRECTION TERM.\\n# Page 812\\n\\t\\tVLOAD\\tRTB\\n\\t\\t\\tUNFC/2\\n\\t\\t\\tNORMUNIT\\n\\t\\tVXSC\\tVXSC\\n\\t\\t\\tZOOMTIME\\n\\t\\t\\tTRIMACCL\\n\\t\\tSTORE\\tUNFC/2\\n\\t\\tEXIT\\n\\n\\t\\tCCS\\tNGUIDSUB\\n\\t\\tTCF\\tGUIDSUB\\n\\t\\tCCS\\tNIGNLOOP\\n\\t\\tTCF\\t+3\\n\\t\\tTC\\tALARM\\n\\t\\tOCT\\t01412\\n\\n +3\\t\\tTC\\tPOSTJUMP\\n \\t\\tCADR\\tDDUMCALC\\n\\nEXBRAK\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\n\\t\\t\\tUNIT/R/\\n\\t\\tSTORE\\tUNWC/2\\n\\t\\tEXIT\\n\\t\\tTCF\\tSTEER?\\n\\nEXNORM\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\tVSU\\n\\t\\t\\tLAND\\n\\t\\t\\tR\\n\\t\\tRTB\\n\\t\\t\\tNORMUNIT\\n\\t\\tSTORE\\tUNWC/2\\t\\t# UNIT(LAND - R) IS TENTATIVE CHOICE\\n\\t\\tVXV\\tDOT\\n\\t\\t\\tXNBPIP\\n\\t\\t\\tCG +6\\n\\t\\tEXIT\\t\\t\\t# WITH PROJ IN MPAC 1/8 REAL SIZE\\n\\n\\t\\tCS\\tMPAC\\t\\t# GET COEFFICIENT FOR CG +14\\n\\t\\tAD\\tPROJMAX\\n\\t\\tAD\\tPOSMAX\\n\\t\\tTS\\tBUF\\n\\t\\tCS\\tBUF\\n\\t\\tADS\\tBUF\\t\\t# RESULT IS 0 IF PROJMAX - PROJ NEGATIVE\\n\\n\\t\\tCS\\tPROJMIN\\t\\t# GET COEFFICIENT FOR UNIT(LAND - R)\\n\\t\\tAD\\tMPAC\\n\\t\\tAD\\tPOSMAX\\n\\t\\tTS\\tBUF +1\\n\\t\\tCS\\tBUF +1\\n# Page 813\\n\\t\\tADS\\tBUF +1\\t\\t# RESULT IS 0 IF PROJ - PROJMIN NEGATIVE\\n\\n\\t\\tCAF\\tFOUR\\nUNWCLOOP\\tMASK\\tSIX\\n\\t\\tTS\\tQ\\n\\t\\tCA\\tEBANK5\\n\\t\\tTS\\tEBANK\\n\\t\\tEBANK=\\tCG\\n\\t\\tCA\\tBUF\\n\\t\\tEXTEND\\n\\t\\tINDEX\\tQ\\n\\t\\tMP\\tCG +14\\n\\t\\tINCR\\tBBANK\\n\\t\\tEBANK=\\tUNWC/2\\n\\t\\tINDEX\\tQ\\n\\t\\tDXCH\\tUNWC/2\\n\\t\\tEXTEND\\n\\t\\tMP\\tBUF +1\\n\\t\\tINDEX\\tQ\\n\\t\\tDAS\\tUNWC/2\\n\\t\\tCCS\\tQ\\n\\t\\tTCF\\tUNWCLOOP\\n\\n\\t\\tINCR\\tBBANK\\n\\t\\tEBANK=\\tPIF\\n\\nSTEER?\\t\\tCA\\tFLAGWRD2\\t# IF STEERSW DOWN NO OUTPUTS\\n\\t\\tMASK\\tSTEERBIT\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRATESTOP\\n\\nEXVERT\\t\\tCA\\tOVFIND\\t\\t# IF OVERFLOW ANYWHERE IN GUIDANCE\\n\\t\\tEXTEND\\t\\t\\t#\\tDON\\'T CALL THROTTLE OR FINDCDUW\\n\\t\\tBZF\\t+13\\n\\nEXOVFLOW\\tTC\\tALARM\\t\\t# SOUND THE ALARM NON-ABORTIVELY\\n\\t\\tOCT\\t01410\\n\\nRATESTOP\\tCAF\\tBIT13\\t\\t# ARE WE IN ATTITUDE-HOLD?\\n\\t\\tEXTEND\\n\\t\\tRAND\\tCHAN31\\n\\t\\tEXTEND\\n\\t\\tBZF\\tDISPEXIT\\t# YES\\n\\n\\t\\tTC\\tBANKCALL\\t# NO:  DO A STOPRATE\\n\\t\\tCADR\\tSTOPRATE\\n\\n\\t\\tTCF\\tDISPEXIT\\n\\nGDUMP1\\t\\tTC\\tTHROTTLE\\n# Page 814\\n\\t\\tTC\\tINTPRET\\n\\t\\tCALL\\n\\t\\t\\tFINDCDUW -2\\n\\t\\tEXIT\\n\\n# \\t\\t(CONTINUE TO DISPEXIT)\\n\\n# ***********************************************************************\\n# GUIDANCE LOOP DISPLAYS\\n# ***********************************************************************\\n\\nDISPEXIT\\tEXTEND\\t\\t\\t# KILL GROUP 3:  DISPLAYS WILL BE\\n\\t\\tDCA\\tNEG0\\t\\t#\\tRESTORED BY NEXT GUIDANCE CYCLE.\\n\\t\\tDXCH\\t-PHASE3\\n\\n +3\\t\\tCS\\tFLAGWRD8\\t# IF FLUNDISP IS SET, NO DISPLAY THIS PASS\\n \\t\\tMASK\\tFLUNDBIT\\n\\t\\tEXTEND\\n\\t\\tBZF\\tENDLLJOB\\t# TO PICK UP THE TAG\\n\\n\\t\\tINDEX\\tWCHPHOLD\\n\\t\\tTCF\\tWHATDISP\\n\\n-2\\t\\tTC\\tPHASCHNG\\t# KILL GROUP 5\\n\\t\\tOCT\\t00035\\n\\nP63DISPS\\tCAF\\tV06N63\\nDISPCOMN\\tTC\\tBANKCALL\\n\\t\\tCADR\\tREGODSPR\\n\\nENDLLJOB\\tTCF\\tENDOFJOB\\n\\nP64DISPS\\tCA\\tTREDES\\t\\t# HAS TREDES REACHED ZERO?\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRED-OVER\\t# YES: CLEAR REDESIGNATION FLAG\\n\\n\\t\\tCS\\tFLAGWRD6\\t# NO:  IS REDFLAG SET?\\n\\t\\tMASK\\tREDFLBIT\\n\\t\\tEXTEND\\n\\t\\tBZF\\tREDES-OK\\t# YES:  DO STATIC DISPLAY\\n\\n\\t\\tCAF\\tV06N64\\t\\t# OTHERWISE USE FLASHING DISPLAY\\n\\t\\tTC\\tBANKCALL\\n\\t\\tCADR\\tREFLASHR\\n\\t\\tTCF\\tGOTOP00H\\t# TERMINATE\\n\\t\\tTCF\\tP64CEED\\t\\t# PROCEED\\tPERMIT REDESIGNATIONS\\n\\t\\tTCF\\tP64DISPS\\t# RECYCLE\\n# Page 815\\n\\t\\tTCF\\tENDLLJOB\\n\\nP64CEED\\t\\tCAF\\tZERO\\n\\t\\tTS\\tELINCR1\\n\\t\\tTS\\tAZINCR1\\n\\n\\t\\tTC\\tUPFLAG\\t\\t# ENABLE REDESIGNATION LOGIC\\n\\t\\tADRES\\tREDFLAG\\n\\n\\t\\tTCF\\tENDOFJOB\\n\\nRED-OVER\\tTC\\tDOWNFLAG\\n\\t\\tADRES\\tREDFLAG\\nREDES-OK\\tCAF\\tV06N64\\n\\t\\tTCF\\tDISPCOMN\\n\\n\\nVERTDISP\\tCAF\\tV06N60\\n\\t\\tTCF\\tDISPCOMN\\n\\n\\n# **************************************************************************\\n# GUIDANCE FOR P65\\n# **************************************************************************\\n\\nVERTGUID\\tCCS\\tWCHVERT\\n\\t\\tTCF\\tP67VERT\\t\\t# POSITIVE NON-ZERO ---> P67\\n\\t\\tTCF\\tP66VERT\\t\\t# +0\\n#\\n# \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --\\n#\\t\\t      ____   ___\\n#\\t\\t      V2FG - VGU\\n#\\t\\tACG = ----------\\n#\\t\\t        TAUVERT\\n\\nP65VERT\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\tVSU\\n\\t\\t\\tV2FG\\n\\t\\t\\tVGU\\n\\t\\tV/SC\\tGOTO\\n\\t\\t\\tTAUVERT\\n\\t\\t\\tAFCCALC1\\n# Page 816\\n# **********************************************************\\n# GUIDANCE FOR P66\\n# **********************************************************\\n\\nP66VERT\\t\\tTC\\tPOSTJUMP\\n\\t\\tCADR\\tP66VERTA\\n\\nP67VERT\\t\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.\\n\\t\\tOCT\\t00003\\n\\n\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\tGOTO\\n\\t\\t\\tV\\n\\t\\t\\tVHORCOMP\\n\\n\\t\\tSETLOC\\tP66LOC\\n\\t\\tBANK\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\nRODTASK\\t\\tCAF\\tPRIO22\\n\\t\\tTC\\tFINDVAC\\n\\t\\tEBANK=\\tDVCNTR\\n\\t\\t2CADR\\tRODCOMP\\n\\n\\t\\tTCF\\tTASKOVER\\n\\nP66VERTA\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.\\n\\t\\tOCT\\t00003\\n\\n\\t\\tCAF\\t1SEC\\n\\t\\tTC\\tTWIDDLE\\n\\t\\tADRES\\tRODTASK\\n\\nRODCOMP\\t\\tINHINT\\n\\t\\tCAF\\tZERO\\n\\t\\tXCH\\tRODCOUNT\\n\\t\\tEXTEND\\n\\t\\tMP\\tRODSCAL1\\n\\t\\tDAS\\tVDGVERT\\t\\t# UPDATE DESIRED ALTITUDE RATE.\\n\\n\\t\\tEXTEND\\t\\t\\t# SET OLDPIPAX,Y,Z = PIPAX,Y,Z\\n\\t\\tDCA\\tPIPAX\\n\\t\\tDXCH\\tOLDPIPAX\\n\\t\\tDXCH\\tRUPTREG1\\t# SET RUPTREG1,2,3 = OLDPIPAX,Y,Z\\n\\t\\tCA\\tPIPAZ\\n\\t\\tXCH\\tOLDPIPAZ\\n\\t\\tXCH\\tRUPTREG3\\n\\n\\t\\tEXTEND\\t\\t\\t# SNAPSHOT TIME OF PIPA READING.\\n\\t\\tDCA\\tTIME2\\n# Page 817\\n\\t\\tDXCH\\tTHISTPIP\\n\\n\\t\\tCA\\tOLDPIPAX\\n\\t\\tAD\\tPIPATMPX\\n\\t\\tTS\\tMPAC\\t\\t# MPAC(X) = PIPAX + PIPATMPX\\n\\t\\tCA\\tOLDPIPAY\\n\\t\\tAD\\tPIPATMPY\\n\\t\\tTS\\tMPAC +3\\t\\t# MPAC(Y) = PIPAY + PIPATMPY\\n\\t\\tCA\\tOLDPIPAZ\\n\\t\\tAD\\tPIPATMPZ\\n\\t\\tTS\\tMPAC +5\\t\\t# MPAC(Z) = PIPAZ + PIPATMPZ\\n\\n\\t\\tCS\\tOLDPIPAX\\n\\t\\tAD\\tTEMX\\n\\t\\tAD\\tRUPTREG1\\n\\t\\tTS\\tDELVROD\\n\\t\\tCS\\tOLDPIPAY\\n\\t\\tAD\\tTEMY\\n\\t\\tAD\\tRUPTREG2\\n\\t\\tTS\\tDELVROD +2\\n\\t\\tCS\\tOLDPIPAZ\\n\\t\\tAD\\tTEMZ\\n\\t\\tAD\\tRUPTREG3\\n\\t\\tTS\\tDELVROD +4\\n\\n\\t\\tCAF\\tZERO\\n\\t\\tTS\\tMPAC +1\\t\\t# ZERO LO-ORDER MPAC COMPONENTS\\n\\t\\tTS\\tMPAC +4\\n\\t\\tTS\\tMPAC +6\\n\\t\\tTS\\tTEMX\\t\\t# ZERO TEMX, TEMY, AND TEMZ SO WE WILL\\n\\t\\tTS\\tTEMY\\t\\t#\\tKNOW WHEN READACCS CHANGES THEM.\\n\\t\\tTS\\tTEMZ\\n\\t\\tCS\\tONE\\n\\t\\tTS\\tMODE\\n\\t\\tTC\\tINTPRET\\nITRPNT1\\t\\tVXSC\\tPDDL\\t\\t# SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)\\n\\t\\t\\tKPIP1\\n\\t\\t\\tTHISTPIP\\n\\t\\tDSU\\n\\t\\t\\tPIPTIME\\n\\t\\tSTORE\\t30D\\t\\t# 30-31D CONTAINS TIME IN CS SINCE PIPTIME\\n\\t\\tDDV\\tPDVL\\t\\t#\\t\\t\\t\\t\\t(8)\\n\\t\\t\\t4SEC(28)\\n\\t\\t\\tGDT/2\\n\\t\\tVSU\\tVXSC\\t\\t#\\t\\t\\t\\t\\t(6)\\n\\t\\t\\tVBIAS\\n\\t\\tVSL2\\tVAD\\n\\t\\t\\tV\\n\\t\\tVAD\\tSTADR\\t\\t#\\t\\t\\t\\t\\t(0)\\n\\t\\tSTOVL\\t24D\\t\\t# STORE UPDATED VELOCITY IN 24-29D\\n# Page 818\\n\\t\\t\\tR\\n\\t\\tUNIT\\n\\t\\tSTORE\\t14D\\n\\t\\tDOT\\tSL1\\n\\t\\t\\t24D\\n\\t\\tSTODL\\tHDOTDISP\\t# UPDATE HDOTDISP RATE FOR NOUN 63.\\n\\t\\t\\t30D\\n\\t\\tSL\\tDMP\\n\\t\\t\\t11D\\n\\t\\t\\tHDOTDISP\\n\\t\\tDAD\\tDSU\\n\\t\\t\\t36D\\n\\t\\t\\t/LAND/\\n\\t\\tSTODL\\tHCALC1\\t\\t# UPDATE HCALC1 FOR NOUN 63.\\n\\t\\t\\tHDOTDISP\\n\\t\\tBDSU\\tDDV\\n\\t\\t\\tVDGVERT\\n\\t\\t\\tTAUROD\\n\\t\\tPDVL\\tABVAL\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\tGDT/2\\n\\t\\tDDV\\tSR2\\n\\t\\t\\tGSCALE\\n\\t\\tSTORE\\t20D\\n\\t\\tDAD\\t\\t\\t#\\t\\t\\t\\t(0)\\n\\t\\tPDVL\\tCALL\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\tUNITX\\n\\t\\t\\tCDU*NBSM\\n\\t\\tDOT\\n\\t\\t\\t14D\\n\\t\\tSTORE\\t22D\\n\\t\\tBDDV\\tSTADR\\t\\t#\\t\\t\\t\\t(0)\\n\\t\\tSTOVL\\t/AFC/\\n\\t\\t\\tDELVROD\\n\\t\\tVXSC\\tVAD\\n\\t\\t\\tKPIP1\\n\\t\\t\\tVBIAS\\n\\t\\tABVAL\\tPDDL\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\tTHISTPIP\\n\\t\\tDSU\\tPDDL\\t\\t#\\t\\t\\t\\t(4)\\n\\t\\t\\tLASTTPIP\\n\\t\\t\\tTHISTPIP\\n\\t\\tSTODL\\tLASTTPIP\\t#\\t\\t\\t\\t(2)\\n\\t\\tDDV\\tBDDV\\t\\t#\\t\\t\\t\\t(0)\\n\\t\\t\\tSHFTFACT\\n\\t\\tPDDL\\tDMP\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\tFWEIGHT\\n\\t\\t\\tBIT1H\\n\\t\\tDDV\\tDDV\\n\\t\\t\\tMASS\\n\\t\\t\\tSCALEFAC\\n# Page 819\\n\\t\\tDAD\\tPDDL\\t\\t#\\t\\t\\t\\t(4)\\n\\t\\t\\t0D\\n\\t\\t\\t20D\\n\\t\\tDDV\\tDSU\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\t22D\\n\\t\\tDMP\\tDAD\\n\\t\\t\\tLAG/TAU\\n\\t\\t\\t/AFC/\\n\\t\\tPDDL\\tDDV\\t\\t#\\t\\t\\t\\t(4)\\n\\t\\t\\tMAXFORCE\\n\\t\\t\\tMASS\\n\\t\\tPDDL\\tDDV\\t\\t#\\t\\t\\t\\t(6)\\n\\t\\t\\tMINFORCE\\n\\t\\t\\tMASS\\n\\t\\tPUSH\\tBDSU\\t\\t#\\t\\t\\t\\t(8)\\n\\t\\t\\t2D\\n\\t\\tBMN\\tDLOAD\\t\\t#\\t\\t\\t\\t(6)\\n\\t\\t\\tAFCSPOT\\n\\t\\tDLOAD\\tPUSH\\t\\t#\\t\\t\\t\\t(6)\\n\\t\\tBDSU\\tBPL\\n\\t\\t\\t2D\\n\\t\\t\\tAFCSPOT\\n\\t\\tDLOAD\\t\\t\\t#\\t\\t\\t\\t(4)\\nAFCSPOT\\t\\tDLOAD\\t\\t\\t#\\t\\t\\t\\t(2), (4), OR (6)\\n\\t\\tSETPD\\t\\t\\t#\\t\\t\\t\\t(2)\\n\\t\\t\\t2D\\n\\t\\tSTODL\\t/AFC/\\t\\t#\\t\\t\\t\\t(0)\\nITRPNT2\\t\\tEXIT\\n\\t\\tDXCH\\tMPAC\\t\\t# MPAC = MEASURED ACCELERATION.\\n\\t\\tTC\\tBANKCALL\\n\\t\\tCADR\\tTHROTTLE +3\\n\\t\\tTC\\tINTPRET\\n\\t\\tVLOAD\\t\\t\\t# PICK UP UPDATED VELOCITY VECTOR.\\n\\t\\t\\t24D\\nVHORCOMP\\tVSL2\\tVAD\\n\\t\\t\\tDELVS\\n\\t\\tVSR2\\tPDVL\\n\\t\\t\\tR\\n\\t\\tUNIT\\tVXSC\\n\\t\\t\\tHDOTDISP\\n\\t\\tVSL1\\tBVSU\\n\\t\\tABVAL\\n\\t\\tSTORE\\tVHORIZ\\n\\t\\tEXIT\\n\\t\\tTC\\tBANKCALL\\t# PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG\\n\\t\\tCADR\\tDISPEXIT +3\\n\\nBIT1H\\t\\tOCT\\t00001\\nSHFTFACT\\t2DEC\\t1 B-17\\n# Page 820\\nBIASFACT\\t2DEC\\t655.36 B-28\\n\\n# *********************************************************************************\\n# REDESIGNATOR TRAP\\n# *********************************************************************************\\n\\n\\t\\tBANK\\t11\\n\\t\\tSETLOC\\tF2DPS*11\\n\\t\\tBANK\\n\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\nPITFALL\\t\\tXCH\\tBANKRUPT\\n\\t\\tEXTEND\\n\\t\\tQXCH\\tQRUPT\\n\\n\\t\\tTC\\tCHECKMM\\t\\t# IF NOT IN P64, NO REASON TO CONTINUE\\n\\t\\tDEC\\t64\\n\\t\\tTCF\\tRESUME\\n\\n\\t\\tEXTEND\\n\\t\\tREAD\\tCHAN31\\n\\t\\tCOM\\n\\t\\tMASK\\tALL4BITS\\n\\t\\tTS\\tELVIRA\\n\\t\\tCAF\\tTWO\\n\\t\\tTS\\tZERLINA\\n\\t\\tCAF\\tFIVE\\n\\t\\tTC\\tTWIDDLE\\n\\t\\tADRES\\tREDESMON\\n\\t\\tTCF\\tRESUME\\n\\n# REDESIGNATOR MONITOR (INITIATED BY PITFALL)\\n\\nPREMON1\\t\\tTS\\tZERLINA\\nPREMON2\\t\\tCAF\\tSEVEN\\n\\t\\tTC\\tVARDELAY\\nREDESMON\\tEXTEND\\n\\t\\tREAD\\t31\\n\\t\\tCOM\\n\\t\\tMASK\\tALL4BITS\\n\\t\\tXCH\\tELVIRA\\n\\t\\tTS\\tL\\n\\t\\tCCS\\tELVIRA\\t\\t# DO ANY BITS APPEAR THIS PASS?\\n\\t\\tTCF\\tPREMON2\\t\\t# Y:\\tCONTINUE MONITOR\\n\\n\\t\\tCCS\\tL\\t\\t# N:\\tANY LAST PASS?\\n\\t\\tTCF\\tCOUNT\\'EM\\t#\\tY: \\tCOUNT \\'EM, RESET RUPT, TERMINATE\\n# Page 821\\n\\t\\tCCS\\tZERLINA\\t\\t#\\tN: \\tHAS ZERLINA REACHED ZERO YET?\\n\\t\\tTCF\\tPREMON1\\t\\t#\\t\\tN:\\tDIMINISH ZERLINA, CONTINUE\\nRESETRPT\\tCAF\\tBIT12\\t\\t#\\t\\tY:\\tRESET RUPT. TERMINATE\\n\\t\\tEXTEND\\n\\t\\tWOR\\tCHAN13\\n\\t\\tTCF\\tTASKOVER\\n\\nCOUNT\\'EM\\tCAF\\tBIT13\\t\\t# ARE WE IN ATTITUDE-HOLD?\\n\\t\\tEXTEND\\n\\t\\tRAND\\tCHAN31\\n\\t\\tEXTEND\\n\\t\\tBZF\\tRESETRPT\\t# YES: SKIP REDESIGNATION LOGIC.\\n\\n\\t\\tCA\\tL\\t\\t# NO.\\n\\t\\tMASK \\t-AZBIT\\n\\t\\tCCS\\tA\\n-AZ\\t\\tCS\\tAZEACH\\n\\t\\tADS\\tAZINCR1\\n\\t\\tCA\\tL\\n\\t\\tMASK\\t+AZBIT\\n\\t\\tCCS\\tA\\n+AZ\\t\\tCA\\tAZEACH\\n\\t\\tADS\\tAZINCR1\\n\\t\\tCA\\tL\\n\\t\\tMASK\\t-ELBIT\\n\\t\\tCCS\\tA\\n-EL\\t\\tCS\\tELEACH\\n\\t\\tADS\\tELINCR1\\n\\t\\tCA\\tL\\n\\t\\tMASK\\t+ELBIT\\n\\t\\tCCS\\tA\\n+EL\\t\\tCA\\tELEACH\\n\\t\\tADS\\tELINCR1\\n\\t\\tTCF\\tRESETRPT\\n\\n# THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM\\n\\n+ELBIT\\t\\t=\\tBIT2\\t\\t# -PITCH\\n-ELBIT\\t\\t=\\tBIT1\\t\\t# +PITCH\\n+AZBIT\\t\\t=\\tBIT5\\n-AZBIT\\t\\t=\\tBIT6\\n\\n# Page 822\\nALL4BITS\\tOCT\\t00063\\nAZEACH\\t\\tDEC\\t.03491\\t\\t# 2 DEGREES\\nELEACH\\t\\tDEC\\t.00873\\t\\t# 1/2 DEGREE\\n\\n# ****************************************************************\\n# R.O.D. TRAP\\n# ****************************************************************\\n\\n\\t\\tBANK\\t20\\n\\t\\tSETLOC\\tRODTRAP\\n\\t\\tBANK\\n\\t\\tCOUNT*\\t$$/F2DPS\\t# ************************\\n\\nDESCBITS\\tMASK\\tBIT7\\t\\t# COME HERE FROM MARKRUPT CODING WITH BIT\\n\\t\\tCCS\\tA\\t\\t#\\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS\\n\\t\\tCS\\tTWO\\t\\t#\\t- RATE INCREMENT, BIT 6 + INCREMENT.\\n\\t\\tAD\\tONE\\n\\t\\tADS\\tRODCOUNT\\n\\t\\tTCF\\tRESUME\\t\\t# TRAP IS RESET WHEN SWITCH IS RELEASED\\n\\n\\t\\tBANK\\t31\\n\\t\\tSETLOC\\tF2DPS*31\\n\\t\\tBANK\\n\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\n# ***********************************************************************************\\n# DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)\\n# ***********************************************************************************\\n#\\n#\\t                                               N        N-1\\n#\\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A\\n#\\t                                             N      N-1              1     0\\n# USING NEWTON\\'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\\n#\\tA\\tSP\\tLOC-3\\t\\tADRES FOR REFERENCING PWR COF TABL\\n#\\tL\\tSP\\tN-1\\t\\tN IS THE DEGREE OF THE POWER SERIES\\n#\\tMPAC\\tDP\\tX\\t\\tINITIAL GUESS FOR ROOT\\n#\\n#\\tLOC-2N\\tDP\\tA(0)\\n#\\t\\t...\\n#\\tLOC\\tDP\\tA(N)\\n#\\tLOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)\\n#\\n# Page 823\\n# THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.\\n# RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND\\n# OUTPUTS ARE NOT TO BE TRUSTED.\\n#\\n# PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD\\n# PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE\\n# COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE\\n# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT\\n# ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:\\n#\\t1.  USER\\'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\\n#\\t2.  USER\\'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\\n#\\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT\\n#\\t    PRECLUDE EVENTUAL CONVERGENCE.\\n#\\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.\\n#\\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.\\n#\\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.\\n\\n\\t\\t\\t\\t\\t# STORE ENTERING DATA, INITIALIZE ERASABLES\\nROOTPSRS\\tEXTEND\\n\\t\\tQXCH\\tRETROOT\\t\\t# RETURN ADRES\\n\\t\\tTS\\tPWRPTR\\t\\t# PWR TABLE POINTER\\n\\t\\tDXCH\\tMPAC +3\\t\\t# PWR TABLE ADRES, N-1\\n\\t\\tCA\\tDERTABLL\\n\\t\\tTS\\tDERPTR\\t\\t# DER TABL POINTER\\n\\t\\tTS\\tMPAC +5\\t\\t# DER TABL ADRES\\n\\t\\tCCS\\tMPAC +4\\t\\t# NO POWER SERIES DEGREE 1 OR LESS\\n\\t\\tTS\\tMPAC +6\\t\\t# N-2\\n\\t\\tCA\\tZERO\\t\\t# MODE USED AS ITERATION COUNTER.  MODE\\n\\t\\tTS\\tMODE\\t\\t# MUST BE POS SO ABS WON\\'T COMP MPAC+3 ETC.\\n\\n\\t\\t\\t\\t\\t# COMPUTE CRITERION TO STOP ITERATING\\n\\t\\tEXTEND\\n\\t\\tDCA\\tMPAC\\t\\t# FETCH ROOT GUESS, KEEPING IT IN MPAC\\n\\t\\tDXCH\\tROOTPS\\t\\t# AND IN ROOTPS\\n\\t\\tINDEX\\tMPAC +3\\t\\t# PWR TABLE ADRES\\n\\t\\tCA\\t5\\t\\t# PRECROOT TO A\\n\\t\\tTC\\tSHORTMP\\t\\t# YIELDS DP PRODUCT IN MPAC\\n\\t\\tTC\\tUSPRCADR\\n\\t\\tCADR\\tABS\\t\\t# YIELDS ABVAL OF CRITERION ON DX IN MPAC\\n\\t\\tDXCH\\tMPAC\\n\\t\\tDXCH\\tDXCRIT\\t\\t# CRITERION\\n\\n\\t\\t\\t\\t\\t# SET UP DER COF TABL\\n# Page 824\\n\\t\\tEXTEND\\n\\t\\tINDEX\\tPWRPTR\\n\\t\\tDCA\\t3\\n\\t\\tDXCH\\tMPAC\\t\\t# A(N) TO MPAC\\n\\n\\t\\tCA\\tMPAC +4\\t\\t# N-1 TO A\\n\\nDERCLOOP\\tTS\\tPWRCNT\\t\\t# LOOP COUNTER\\n\\t\\tAD\\tONE\\n\\t\\tTC\\tDMPNSUB\\t\\t# YIELDS DERCOF = I X A(I) IN MPAC\\n\\t\\tEXTEND\\n\\t\\tINDEX\\tPWRPTR\\n\\t\\tDCA\\t1\\n\\t\\tDXCH\\tMPAC\\t\\t# (I-1) TO MPAC, FETCHING DERCOF\\n\\t\\tINDEX\\tDERPTR\\n\\t\\tDXCH\\t3\\t\\t# DERCOF TO DER TABLE\\n\\t\\tCS\\tTWO\\n\\t\\tADS\\tPWRPTR\\t\\t# DECREMENT PWR POINTER\\n\\t\\tCS\\tTWO\\n\\t\\tADS\\tDERPTR\\t\\t# DECREMENT DER POINTER\\n\\t\\tCCS\\tPWRCNT\\n\\t\\tTCF\\tDERCLOOP\\n\\n\\t\\t\\t\\t\\t# CONVERGE ON ROOT\\nROOTLOOP\\tEXTEND\\n\\t\\tDCA\\tROOTPS\\t\\t# FETCH CURRENT ROOT\\n\\t\\tDXCH\\tMPAC\\t\\t# LEAVE IN MPAC\\n\\t\\tEXTEND\\n\\t\\tDCA\\tMPAC +5\\t\\t# LOAD A, L WITH DER TABL ADRES, N-2\\n\\t\\tTC\\tPOWRSERS\\t# YIELDS DERIVATIVE IN MPAC\\n\\n\\t\\tEXTEND\\n\\t\\tDCA\\tROOTPS\\n\\t\\tDXCH\\tMPAC\\t\\t# CURRENT ROOT TO MPAC, FETCHING DERIVATIVE\\n\\t\\tDXCH\\tBUF\\t\\t# LEAVE DERIVATIVE IN BUF AS DIVISOR\\n\\t\\tEXTEND\\n\\t\\tDCA\\tMPAC +3\\t\\t# LOAD A, L WITH PWR TABL ADRES, N-1\\n\\t\\tTC\\tPOWRSERS\\t# YIELDS RESIDUAL IN MPAC\\n\\n\\t\\tTC\\tUSPRCADR\\n\\t\\tCADR\\tDDV/BDDV\\t# YIELDS -DX IN MPAC\\n\\n\\t\\tEXTEND\\n\\t\\tDCS\\tMPAC\\t\\t# FETCH DX, LEAVING -DX IN MPAC\\n\\t\\tDAS\\tROOTPS\\t\\t# CORRECTED ROOT NOW IN ROOTPS\\n\\n\\t\\tTC\\tUSPRCADR\\n\\t\\tCADR\\tABS\\t\\t# YIELDS ABS(DX) IN MPAC\\n\\t\\tEXTEND\\n# Page 825\\n\\t\\tDCS\\tDXCRIT\\n\\t\\tDAS\\tMPAC\\t\\t# ABS(DX)-ABS(DXCRIT) IN MPAC\\n\\n\\t\\tCA\\tMODE\\n\\t\\tMASK\\tBIT4\\t\\t# KLUMPP SAYS GIVE UP AFTER EIGHT PASSES\\n\\t\\tCCS\\tA\\nBADROOT\\t\\tTC\\tRETROOT\\n\\n\\t\\tINCR\\tMODE\\t\\t# INCREMENT ITERATION COUNTER\\n\\t\\tCCS\\tMPAC\\t\\t# TEST HI ORDER DX\\n\\t\\tTCF\\tROOTLOOP\\n\\t\\tTCF\\tTESTLODX\\n\\t\\tTCF\\tROOTSTOR\\nTESTLODX\\tCCS\\tMPAC +1\\t\\t# TEST LO ORDER DX\\n\\t\\tTCF\\tROOTLOOP\\n\\t\\tTCF\\tROOTSTOR\\n\\t\\tTCF\\tROOTSTOR\\nROOTSTOR\\tDXCH\\tROOTPS\\n\\t\\tDXCH\\tMPAC\\n\\t\\tCA\\tMODE\\n\\t\\tTS\\tMPAC +2\\t\\t# STORE SP ITERATION COUNT IN MPAC+2\\n\\t\\tINDEX\\tRETROOT\\n\\t\\tTCF\\t2\\n\\nDERTABLL\\tADRES\\tDERCOFN -3\\n\\n# ****************************************************************************\\n# TRASHY LITTLE SUBROUTINES\\n# ****************************************************************************\\n\\nINTPRETX\\tINDEX\\tWCHPHASE\\t# SET X1 ON THE WAY TO THE INTERPRETER\\n\\t\\tCS\\tTARGTDEX\\n\\t\\tINDEX\\tFIXLOC\\n\\t\\tTS\\tX1\\n\\t\\tTCF\\tINTPRET\\n\\nTDISPSET\\tCA\\tTTF/8\\n\\t\\tEXTEND\\n\\t\\tMP\\tTSCALINV\\n\\t\\tDXCH\\tTTFDISP\\n\\n\\t\\tCA\\tEBANK5\\t\\t# TREDES BECOMES ZERO TWO PASSES\\n\\t\\tTS\\tEBANK\\t\\t#\\tBEFORE TCGFAPPR IS REACHED\\n\\t\\tEBANK=\\tTCGFAPPR\\n\\t\\tCA\\tTCGFAPPR\\n\\t\\tINCR\\tBBANK\\n\\t\\tINCR\\tBBANK\\n\\t\\tEBANK=\\tTTF/8\\n# Page 826\\n\\t\\tAD\\tTTF/8\\n\\t\\tEXTEND\\n\\t\\tMP\\tTREDESCL\\n\\t\\tAD\\t-DEC103\\n\\t\\tAD\\tNEGMAX\\n\\t\\tTS\\tL\\n\\t\\tCS\\tL\\n\\t\\tAD\\tL\\n\\t\\tAD\\t+DEC99\\n\\t\\tAD\\tPOSMAX\\n\\t\\tTS\\tTREDES\\n\\t\\tCS\\tTREDES\\n\\t\\tADS\\tTREDES\\n\\t\\tTC\\tQ\\n\\n1406P00\\t\\tTC\\tP00DOO\\n\\t\\tOCT\\t01406\\n1406ALM\\t\\tTC\\tALARM\\n\\t\\tOCT\\t01406\\n\\t\\tTCF\\tRATESTOP\\n\\n# *********************************************************************\\n# SPECIALIZED \"PHASCHNG\" SUBROUTINE\\n# *********************************************************************\\n\\n\\t\\tEBANK=\\tPHSNAME2\\nFASTCHNG\\tCA\\tEBANK3\\t\\t# SPECIALIZED \\'PHASCHNG\\' ROUTINE\\n\\t\\tXCH\\tEBANK\\n\\t\\tDXCH\\tL\\n\\t\\tTS\\tPHSNAME3\\n\\t\\tLXCH\\tEBANK\\n\\t\\tEBANK=\\tE2DPS\\n\\t\\tTC\\tA\\n\\n# *************************************************************************************\\n# PARAMETER TABLE INDIRECT ADDRESSES\\n# *************************************************************************************\\n\\nRDG\\t\\t=\\tRBRFG\\nVDG\\t\\t=\\tVBRFG\\nADG\\t\\t=\\tABRFG\\nVDG2TTF\\t\\t=\\tVBRFG*\\nADG2TTF\\t\\t=\\tABRFG*\\nJDG2TTF\\t\\t=\\tJBRFG*\\n\\n# *************************************************************************************\\n# LUNAR LANDING CONSTANTS\\n# *************************************************************************************\\n\\n# Page 827\\nTABLTTFL\\tADRES\\tTABLTTF +3\\t# ADDRESS FOR REFERENCING TTF TABLE\\nTTFSCALE\\t=\\tBIT12\\nTSCALINV\\t=\\tBIT4\\n-DEC103\\t\\tDEC\\t-103\\n+DEC99\\t\\tDEC\\t+99\\nTREDESCL\\tDEC\\t-.08\\n180DEGS\\t\\tDEC\\t+180\\n1/2DEG\\t\\tDEC\\t+.00278\\nPROJMAX\\t\\tDEC\\t.42262 B-3\\t# SIN(25\\')/8 TO COMPARE WITH PROJ\\nPROJMIN\\t\\tDEC\\t.25882 B-3\\t# SIN(15\\')/8 TO COMPARE WITH PROJ\\nV06N63\\t\\tVN\\t0663\\t\\t# P63\\nV06N64\\t\\tVN\\t0664\\t\\t# P64\\nV06N60\\t\\tVN\\t0660\\t\\t# P65, P66, P67\\n\\n\\t\\tBANK\\t22\\n\\t\\tSETLOC\\tLANDCNST\\n\\t\\tBANK\\n\\t\\tCOUNT*\\t$$/F2DPS\\n\\nHIGHESTF\\t2DEC\\t4.34546769 B-12\\nGSCALE\\t\\t2DEC\\t100 B-11\\n3/8DP\\t\\t2DEC\\t.375\\n3/4DP\\t\\t2DEC\\t.750\\nDEPRCRIT\\t2DEC\\t-.02 B-1\\n\\n# Page 828\\n# **************************************************************************\\n# **************************************************************************\\n'"
      ]
     },
     "execution_count": 6,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "helloContent"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "id": "0f05fa5f",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "str"
      ]
     },
     "execution_count": 10,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "type(helloContent)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "id": "bc776f75",
   "metadata": {},
   "outputs": [],
   "source": [
    "lines=helloContent.split('\\n')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "9b61cf55",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['# Copyright:\\tPublic domain.',\n",
       " '# Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " '# Purpose: \\tPart of the source code for Luminary 1A build 099.',\n",
       " \"#\\t\\tIt is part of the source code for the Lunar Module's (LM)\",\n",
       " '#\\t\\tApollo Guidance Computer (AGC), for Apollo 11.',\n",
       " '# Assembler:\\tyaYUL',\n",
       " '# Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.',\n",
       " '# Website:\\twww.ibiblio.org/apollo.',\n",
       " '# Pages:\\t798-828',\n",
       " '# Mod history:\\t2009-05-23 HG\\tTranscribed from page images.',\n",
       " '#\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently',\n",
       " '#\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated',\n",
       " \"#\\t\\t\\t\\ta couple of lines of code that shouldn't\",\n",
       " '#\\t\\t\\t\\thave survived from Luminary 131 to here.',\n",
       " '#\\t\\t2009-06-07 RSB\\tFixed a typo.',\n",
       " '#',\n",
       " '# This source code has been transcribed or otherwise adapted from',\n",
       " '# digitized images of a hardcopy from the MIT Museum.  The digitization',\n",
       " '# was performed by Paul Fjeld, and arranged for by Deborah Douglas of',\n",
       " '# the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       " '# in storage size and consequent reduction in image quality as well) are',\n",
       " '# available online at www.ibiblio.org/apollo.  If for some reason you',\n",
       " '# find that the images are illegible, contact me at info@sandroid.org',\n",
       " '# about getting access to the (much) higher-quality images which Paul',\n",
       " '# actually created.',\n",
       " '#',\n",
       " '# Notations on the hardcopy document read, in part:',\n",
       " '#',\n",
       " '#\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61',\n",
       " '#\\t16:27 JULY 14, 1969',\n",
       " '',\n",
       " '# Page 798',\n",
       " '\\t\\tEBANK=\\tE2DPS',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS',\n",
       " '',\n",
       " '# ********************************************************',\n",
       " '# LUNAR LANDING FLIGHT SEQUENCE TABLES',\n",
       " '# ********************************************************',\n",
       " '',\n",
       " '# FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       " '#\\tWCHPHASE = -1 ---> IGNALG',\n",
       " '#\\tWCHPHASE =  0 ---> BRAKQUAD',\n",
       " '#\\tWCHPHASE =  1 ---> APPRQUAD',\n",
       " '#\\tWCHPHASE =  2 ---> VERTICAL',\n",
       " '',\n",
       " '#*********************************************************',\n",
       " '',\n",
       " '# ROUTINES FOR STARTING NEW GUIDANCE PHASES:',\n",
       " '',\n",
       " '\\t\\tTCF\\tTTFINCR\\t\\t# IGNALG',\n",
       " 'NEWPHASE\\tTCF\\tTTFINCR\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tSTARTP64\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tP65START\\t# VERTICAL',\n",
       " '',\n",
       " '# PRE-GUIDANCE COMPUTATIONS:',\n",
       " '',\n",
       " '\\t\\tTCF\\tCALCRGVG\\t# IGNALG',\n",
       " 'PREGUIDE\\tTCF\\tRGVGCALC\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tREDESIG\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tRGVGCALC\\t# VERTICAL',\n",
       " '',\n",
       " '# GUIDANCE EQUATIONS:',\n",
       " '',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t# IGNALG',\n",
       " 'WHATGUID\\tTCF\\tTTF/8CL\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tVERTGUID\\t# VERTICAL',\n",
       " '',\n",
       " '# POST GUIDANCE EQUATION COMPUTATIONS:',\n",
       " '',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t# IGNALG',\n",
       " 'AFTRGUID\\tTCF\\tCGCALC\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tSTEER?\\t\\t# VERTICAL',\n",
       " '',\n",
       " '# Page 799',\n",
       " '# WINDOW VECTOR COMPUTATIONS:',\n",
       " '',\n",
       " '\\t\\tTCF\\tEXGSUB\\t\\t# IGNALG',\n",
       " 'WHATEXIT\\tTCF\\tEXBRAK\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tEXNORM\\t\\t# APPRQUAD',\n",
       " '',\n",
       " '# DISPLAY ROUTINES:',\n",
       " '',\n",
       " 'WHATDISP\\tTCF\\tP63DISPS\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tP64DISPS\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tVERTDISP\\t# VERTICAL',\n",
       " '',\n",
       " '# ALARM ROUTINE FOR TTF COMPUTATION:',\n",
       " '',\n",
       " '\\t\\tTCF\\t1406P00\\t\\t# IGNALG',\n",
       " 'WHATALM\\t\\tTCF\\t1406ALM\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\t1406ALM\\t\\t# APPRQUAD',\n",
       " '',\n",
       " '# INDICES FOR REFERENCING TARGET PARAMETERS',\n",
       " '',\n",
       " '\\t\\tOCT\\t0\\t\\t# IGNALG',\n",
       " 'TARGTDEX\\tOCT\\t0\\t\\t# BRAKQUAD',\n",
       " '\\t\\tOCT\\t34\\t\\t# APPRQUAD',\n",
       " '',\n",
       " '#************************************************************************',\n",
       " '# ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " '#************************************************************************',\n",
       " '',\n",
       " '# IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " '',\n",
       " '?GUIDSUB\\tEXIT',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# N = 3',\n",
       " '\\t\\tTS\\tNGUIDSUB',\n",
       " '\\t\\tTCF\\tGUILDRET +2',\n",
       " '',\n",
       " 'GUIDSUB\\t\\tTS\\tNGUIDSUB\\t# ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " '\\t\\tTCF\\tCALCRGVG',\n",
       " '',\n",
       " '# NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " '',\n",
       " 'LUNLAND\\t\\tTC\\tPHASCHNG',\n",
       " '\\t\\tOCT\\t00035\\t\\t# GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " '\\t\\tTC\\tPHASCHNG',\n",
       " '\\t\\tOCT\\t05023\\t\\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " \"\\t\\tOCT\\t21000\\t\\t#\\tJUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " '',\n",
       " '# Page 800',\n",
       " '#*******************************************************************',\n",
       " '# GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " '#*******************************************************************',\n",
       " '',\n",
       " '\\t\\tCOUNT*\\t$$/R13',\n",
       " '',\n",
       " '# HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " '# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " '# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " '',\n",
       " 'GUILDEN\\t\\tEXTEND\\t\\t\\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " '# STERN\\t\\t\\t\\t\\t# RSB 2009: Not originally a comment.',\n",
       " ' \\t\\tREAD CHAN30',\n",
       " '\\t\\tMASK\\tBIT5',\n",
       " ' \\t\\tCCS\\tA',\n",
       " ' \\t\\tTCF\\tSTARTP67\\t# YES',\n",
       " 'P67NOW?\\t\\tTC\\tCHECKMM\\t\\t# NO:  ARE WE IN P67 NOW?',\n",
       " '\\t\\tDEC\\t67',\n",
       " '\\t\\tTCF\\tSTABL?\\t\\t# NO',\n",
       " 'STARTP66\\tTC\\tFASTCHNG\\t# YES',\n",
       " '\\t\\tTC\\tNEWMODEX',\n",
       " 'DEC66\\t\\tDEC\\t66',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tHDOTDISP\\t# SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t# \\tALTITUDE RATE.',\n",
       " 'STRTP66A\\tTC\\tINTPRET',\n",
       " '\\t\\tSLOAD\\tPUSH',\n",
       " '\\t\\t\\tPBIASZ',\n",
       " '\\t\\tSLOAD\\tPUSH',\n",
       " '\\t\\t\\tPBIASY',\n",
       " '\\t\\tSLOAD\\tVDEF',\n",
       " '\\t\\t\\tPBIASX',\n",
       " '\\t\\tVXSC\\tSET',\n",
       " '\\t\\t\\tBIASFACT',\n",
       " '\\t\\t\\tRODFLAG',\n",
       " '\\t\\tSTOVL\\tVBIAS',\n",
       " '\\t\\t\\tTEMX',\n",
       " '\\t\\tVCOMP',\n",
       " '\\t\\tSTOVL\\tOLDPIPAX',\n",
       " '\\t\\t\\tZEROVECS',\n",
       " '\\t\\tSTODL\\tDELVROD',\n",
       " '\\t\\t\\tRODSCALE',\n",
       " '\\t\\tSTODL\\tRODSCAL1',\n",
       " '\\t\\t\\tPIPTIME',\n",
       " '\\t\\tSTORE\\tLASTTPIP',\n",
       " '\\t\\tEXIT',\n",
       " '\\t\\tCAF\\tZERO',\n",
       " '\\t\\tTS\\tFCOLD',\n",
       " '\\t\\tTS\\tFWEIGHT',\n",
       " '\\t\\tTS\\tFWEIGHT +1',\n",
       " 'VRTSTART\\tTS\\tWCHVERT',\n",
       " '# Page 801',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " '\\t\\tTS\\tWCHPHOLD',\n",
       " '\\t\\tTS\\tWCHPHASE',\n",
       " '\\t\\tTC\\tBANKCALL\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " '\\t\\tADRES\\tXOVINFLG',\n",
       " '\\t\\tTC\\tDOWNFLAG',\n",
       " '\\t\\tADRES\\tREDFLAG',\n",
       " '\\t\\tTCF\\tVERTGUID',\n",
       " '',\n",
       " 'STARTP67\\tTC\\tNEWMODEX\\t# NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " '\\t\\tDEC\\t67\\t\\t# SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " '\\t\\tCAF\\tZERO\\t\\t# TO SEE IF ALREADY IN P67.',\n",
       " '\\t\\tTS\\tRODCOUNT',\n",
       " '\\t\\tCAF\\tTEN',\n",
       " '\\t\\tTCF\\tVRTSTART',\n",
       " '',\n",
       " 'STABL?\\t\\tCAF\\tBIT13\\t\\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tRAND\\tCHAN31',\n",
       " '\\t\\tCCS\\tA',\n",
       " \"\\t\\tTCF\\tGUILDRET\\t# YES ALL'S WELL\",\n",
       " '',\n",
       " 'P66NOW?\\t\\tCS\\tMODREG',\n",
       " '\\t\\tAD\\tDEC66',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tRESTART?',\n",
       " '',\n",
       " '\\t\\tCA\\tRODCOUNT\\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tGUILDRET\\t# NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " '\\t\\tTCF\\tSTARTP66\\t# YES. SWITCH INTO THE ROD MODE.',\n",
       " '',\n",
       " 'RESTART?\\tCA\\tFLAGWRD1\\t# HAS THERE BEEN A RESTART?',\n",
       " '\\t\\tMASK\\tRODFLBIT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " '\\t\\t\\t\\t\\t#\\tIS.',\n",
       " '',\n",
       " '\\t\\tTCF\\tVERTGUID\\t# NO: CONTINUE WITH R.O.D.',\n",
       " '',\n",
       " '# *******************************************************************************',\n",
       " '# INITIALIZATION FOR THIS PASS',\n",
       " '# *******************************************************************************',\n",
       " '',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS',\n",
       " '',\n",
       " 'GUILDRET\\tCAF\\tZERO',\n",
       " '\\t\\tTS\\tRODCOUNT',\n",
       " '',\n",
       " '# Page 802',\n",
       " ' +2\\t\\tEXTEND',\n",
       " ' \\t\\tDCA\\tTPIP',\n",
       " '\\t\\tDXCH\\tTPIPOLD',\n",
       " '',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tPIPTIME1',\n",
       " '\\t\\tDXCH\\tTPIP',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tTTF/8',\n",
       " '\\t\\tDXCH\\tTTF/8TMP',\n",
       " '',\n",
       " '\\t\\tCCS\\tFLPASS0',\n",
       " '\\t\\tTCF\\tTTFINCR',\n",
       " '',\n",
       " 'BRSPOT1\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tTCF\\tNEWPHASE',\n",
       " '',\n",
       " '# ******************************************************************',\n",
       " '# ROUTINES TO START NEW PHASES',\n",
       " '# ******************************************************************',\n",
       " '',\n",
       " 'P65START\\tTC\\tNEWMODEX',\n",
       " '\\t\\tDEC\\t65',\n",
       " '\\t\\tCS\\tTWO',\n",
       " '\\t\\tTS\\tWCHVERT',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " '\\t\\tADRES\\tXOVINFLG',\n",
       " '\\t\\tTCF\\tTTFINCR',\n",
       " '',\n",
       " 'STARTP64\\tTC\\tNEWMODEX',\n",
       " '\\t\\tDEC\\t64',\n",
       " '\\t\\tCA\\tDELTTFAP\\t# AUGMENT TTF/8',\n",
       " '\\t\\tADS\\tTTF/8TMP',\n",
       " '\\t\\tCA\\tBIT12\\t\\t# ENABLE RUPT10',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tWOR\\tCHAN13',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# INITIALIZE REDESIGNATION FLAG',\n",
       " '\\t\\tADRES\\tREDFLAG',\n",
       " '',\n",
       " '',\n",
       " '#\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '',\n",
       " '# *********************************************************************************',\n",
       " '# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " '# *********************************************************************************',\n",
       " '#',\n",
       " '#\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '# Page 803',\n",
       " '#\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '#\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '#\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '#\\t\\t\\t____               ____   ____                   __',\n",
       " '#\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '#\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '#\\t\\t\\t                 ____   _',\n",
       " '#\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '',\n",
       " 'TTFINCR\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tDLOAD\\tDSU',\n",
       " '\\t\\t\\tTPIP',\n",
       " '\\t\\t\\tTPIPOLD',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " '\\t\\t\\t11D',\n",
       " '\\t\\tVXSC\\tVXV',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tWM',\n",
       " '\\t\\tBVSU\\tRTB',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\tVXSC\\tVSL1',\n",
       " '\\t\\t\\t/LAND/',\n",
       " '\\t\\tSTODL\\tLANDTEMP',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " '\\t\\tDXCH\\tMPAC',\n",
       " '\\t\\tDAS\\tTTF/8TMP\\t# NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " '',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tTTF/8TMP',\n",
       " '\\t\\tDXCH\\tTTF/8',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP',\n",
       " '\\t\\tDXCH\\tLAND',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP +2',\n",
       " '\\t\\tDXCH\\tLAND     +2',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP +4',\n",
       " '\\t\\tDXCH\\tLAND\\t +4',\n",
       " '',\n",
       " '# Page 804',\n",
       " '\\t\\tTC\\tTDISPSET',\n",
       " '\\t\\tTC\\tFASTCHNG\\t# SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " '',\n",
       " 'BRSPOT2\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tTCF\\tPREGUIDE',\n",
       " '',\n",
       " '# *********************************************************************',\n",
       " '# LANDING SITE PERTURBATION EQUATIONS',\n",
       " '# *********************************************************************',\n",
       " '',\n",
       " 'REDESIG\\t\\tCA\\tFLAGWRD6\\t# IS REDFLAG SET?',\n",
       " '\\t\\tMASK\\tREDFLBIT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t# NO:  SKIP REDESIGNATION LOGIC',\n",
       " '',\n",
       " '\\t\\tCA\\tTREDES\\t\\t# YES:  HAS TREDES REACHED ZERO?',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t# YES:  SKIP REDESIGNATION LOGIC',\n",
       " '',\n",
       " '\\t\\tINHINT',\n",
       " '\\t\\tCA\\tELINCR1',\n",
       " '\\t\\tTS\\tELINCR',\n",
       " '\\t\\tCA\\tAZINCR1',\n",
       " '\\t\\tTS\\tAZINCR',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tCA\\tZERO',\n",
       " '\\t\\tTS\\tELINCR1',\n",
       " '\\t\\tTS\\tAZINCR1',\n",
       " '\\t\\tTS\\tELINCR\\t+1',\n",
       " '\\t\\tTS\\tAZINCR  +1',\n",
       " '',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t# SET PD TO 0',\n",
       " '\\t\\tTS\\tPUSHLOC',\n",
       " '',\n",
       " '\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tVLOAD\\tVSU',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tR\\t\\t#                 ____   _',\n",
       " '\\t\\tRTB\\tPUSH\\t\\t# PUSH DOWN UNIT (LAND - R)',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\tVXV\\tVSL1',\n",
       " '\\t\\t\\tYNBPIP\\t\\t#                    ___        ____   _',\n",
       " '\\t\\tVXSC\\tPDDL\\t\\t# PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " '\\t\\t\\tELINCR',\n",
       " '\\t\\t\\tAZINCR',\n",
       " '\\t\\tVXSC\\tVSU',\n",
       " '\\t\\t\\tYNBPIP',\n",
       " '\\t\\tVAD\\tPUSH\\t\\t# RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " '',\n",
       " '# Page 805',\n",
       " '',\n",
       " '\\t\\tDLOAD\\tDSU\\t\\t# MAKE SURE REDESIGNATION IS NOT',\n",
       " '\\t\\t\\t0\\t\\t# \\tTOO CLOSE TO THE HORIZON.',\n",
       " '\\t\\t\\tDEPRCRIT',\n",
       " '\\t\\tBMN\\tDLOAD',\n",
       " '\\t\\t\\tREDES1',\n",
       " '\\t\\t\\tDEPRCRIT',\n",
       " '\\t\\tSTORE\\t0',\n",
       " 'REDES1\\t\\tDLOAD\\tDSU',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tR',\n",
       " '\\t\\tDDV\\tVXSC',\n",
       " '\\t\\t\\t0',\n",
       " '\\t\\tVAD\\tUNIT',\n",
       " '\\t\\t\\tR',\n",
       " '\\t\\tVXSC\\tVSL1',\n",
       " '\\t\\t\\t/LAND/',\n",
       " '\\t\\tSTORE\\tLANDTEMP',\n",
       " '\\t\\tEXIT\\t\\t\\t# LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " '',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP',\n",
       " '\\t\\tDXCH\\tLAND',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP +2',\n",
       " '\\t\\tDXCH\\tLAND +2',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tLANDTEMP +4',\n",
       " '\\t\\tDXCH\\tLAND +4',\n",
       " '',\n",
       " '\\t\\tTCF\\tRGVGCALC',\n",
       " '',\n",
       " '# *********************************************************************',\n",
       " '# COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " '# *********************************************************************',\n",
       " '#',\n",
       " '#\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " '#\\tVELOCITY RELATIVE TO THE SURFACE:',\n",
       " '#\\t\\t_______   _   _   __',\n",
       " '#\\t\\tANGTERM = V + R * WM',\n",
       " '#\\tSTATE IN GUIDANCE COORDINATES:',\n",
       " '#\\t\\t___   *   _   ____',\n",
       " '#\\t\\tRGU = CG (R - LAND)',\n",
       " '#\\t\\t___   *   _   __   _',\n",
       " '#\\t\\tVGU = CG (V - WM * R)',\n",
       " '# Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " '#',\n",
       " '#\\tHORIZONTAL VELOCITY FOR DISPLAY',\n",
       " '#',\n",
       " '#\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " '#\\t\\t                       2    1',\n",
       " '# \\tDEPRESSION ANGLE FOR DISPLAY:',\n",
       " '#\\t\\t                       _   ____  ______',\n",
       " '#\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " '',\n",
       " 'CALCRGVG\\tTC\\tINTPRET\\t\\t# IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " '\\t\\tVLOAD\\tMXV\\t\\t#\\tOUTPUT AND TRIM CORRECTION TERM',\n",
       " '\\t\\t\\tVATT1\\t\\t#\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " '\\t\\t\\tREFSMMAT',\n",
       " '\\t\\tVSR1\\tVAD',\n",
       " '\\t\\t\\tUNFC/2',\n",
       " '\\t\\tSTORE\\tV',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " 'RGVGCALC\\tTC\\tINTPRET\\t\\t# ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " '\\t\\tVLOAD\\tVXV',\n",
       " '\\t\\t\\tR',\n",
       " '\\t\\t\\tWM',\n",
       " '\\t\\tVAD\\tVSR2\\t\\t# RESCALE TO UNITS OF 2(9) M/CS',\n",
       " '\\t\\t\\tV',\n",
       " '\\t\\tSTORE\\tANGTERM',\n",
       " '\\t\\tMXV',\n",
       " '\\t\\t\\tCG\\t\\t# NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " '\\t\\tSTORE\\tVGU',\n",
       " '\\t\\tPDDL\\tVDEF\\t\\t# FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " '\\t\\t\\tZEROVECS\\t#           2   1',\n",
       " '\\t\\tABVAL\\tSL3',\n",
       " '\\t\\tSTOVL\\tVHORIZ\\t\\t# VHORIZ FOR DISPLAY DURING P65.',\n",
       " '\\t\\t\\tR\\t\\t#           _   ____',\n",
       " '\\t\\tVSU\\tPUSH\\t\\t# PUSH DOWN R - LAND',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\tMXV\\tVSL1',\n",
       " '\\t\\t\\tCG',\n",
       " '\\t\\tSTORE\\tRGU',\n",
       " '\\t\\tABVAL',\n",
       " '\\t\\tSTOVL\\tRANGEDSP',\n",
       " '\\t\\tRTB\\tDOT\\t\\t# NOW IN MPAC IS SINE(LOOKANGL)/4',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\t\\tXNBPIP',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t# RESET PUSH DOWN POINTER',\n",
       " '\\t\\tTS\\tPUSHLOC',\n",
       " '',\n",
       " '# Page 807',\n",
       " '\\t\\tCA\\tMPAC\\t\\t# COMPUTE LOOKANGLE ITSELF',\n",
       " '\\t\\tDOUBLE',\n",
       " '\\t\\tTC\\tBANKCALL',\n",
       " '\\t\\tCADR\\tSPARCSIN -1',\n",
       " '\\t\\tAD\\t1/2DEG',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tMP\\t180DEGS',\n",
       " '\\t\\tTS\\tLOOKANGL\\t# LOOKANGL FOR DISPLAY DURING P64',\n",
       " '',\n",
       " 'BRSPOT3\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tTCF\\tWHATGUID',\n",
       " '',\n",
       " '# **************************************************************************',\n",
       " '# TTF/8 COMPUTATION',\n",
       " '# **************************************************************************',\n",
       " '',\n",
       " 'TTF/8CL\\t\\tTC\\tINTPRETX',\n",
       " '\\t\\tDLOAD*',\n",
       " '\\t\\t\\tJDG2TTF,1',\n",
       " '\\t\\tSTODL*\\tTABLTTF +6\\t# A(3) = 8 JDG  TO TABLTTF',\n",
       " '\\t\\t\\tADG2TTF,1\\t#             2',\n",
       " '\\t\\tSTODL\\tTABLTTF +4\\t# A(2) = 6 ADG  TO TABLTTF',\n",
       " '\\t\\t\\tVGU \\t+4\\t#             2',\n",
       " '\\t\\tDMP\\tDAD*',\n",
       " '\\t\\t\\t3/4DP',\n",
       " '\\t\\t\\tVDG2TTF,1',\n",
       " '\\t\\tSTODL*\\tTABLTTF +2\\t# A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF',\n",
       " '\\t\\t\\tRDG +4,1\\t#              2         2',\n",
       " '\\t\\tDSU\\tDMP',\n",
       " '\\t\\t\\tRGU +4',\n",
       " '\\t\\t\\t3/8DP',\n",
       " '\\t\\tSTORE\\tTABLTTF\\t\\t# A(0) = -24 (RGU  - RDG )/64 TO TABLTTF',\n",
       " '\\t\\tEXIT\\t\\t\\t#                2      2',\n",
       " '',\n",
       " '\\t\\tCA\\tBIT8',\n",
       " '\\t\\tTS\\tTABLTTF +10\\t# FRACTIONAL PRECISION FOR TTF TO TABLE',\n",
       " '',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDCA\\tTTF/8',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# LOADS TTF/8 (INITIAL GUESS) INTO MPAC',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# DEGREE - ONE',\n",
       " '\\t\\tTS\\tL',\n",
       " '\\t\\tCAF\\tTABLTTFL',\n",
       " '\\t\\tTC\\tROOTPSRS\\t# YIELDS TTF/8 IN MPAC',\n",
       " '\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tTCF\\tWHATALM',\n",
       " '',\n",
       " '\\t\\tEXTEND\\t\\t\\t# GOOD RETURN',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t# FETCH TTF/8 KEEPING IT IN MPAC',\n",
       " '\\t\\tDXCH\\tTTF/8\\t\\t# CORRECTED TTF/8',\n",
       " '',\n",
       " '# Page 808',\n",
       " '\\t\\tTC\\tTDISPSET',\n",
       " '',\n",
       " '# \\t\\t(CONTINUE TO QUADGUID)',\n",
       " '',\n",
       " '# *********************************************************************************',\n",
       " '# MAIN GUIDANCE EQUATION',\n",
       " '# *********************************************************************************',\n",
       " '#',\n",
       " '#\\tAS PUBLISHED --',\n",
       " '#\\t\\t              ___   __       ___   __',\n",
       " '#\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)',\n",
       " '#\\t\\tACG = ADG + ----------- + ------------',\n",
       " '#\\t\\t                TTF        (TTF)(TTF)',\n",
       " '#\\tAS HERE PROGRAMMED --',\n",
       " '#\\t\\t             ___   __',\n",
       " '#\\t\\t      3 (1/4(RDG - RG)   ___   __)',\n",
       " '#\\t\\t      - (------------- + VDG + VG)',\n",
       " '#\\t\\t___   4 (    TTF/8               )   ___',\n",
       " '#\\t\\tACG = ---------------------------- + ADG',\n",
       " '#\\t\\t                  TTF/8',\n",
       " '',\n",
       " 'QUADGUID\\tCS\\tTTF/8',\n",
       " '\\t\\tAD\\tLEADTIME\\t# LEADTIME IS A NEGATIVE NUMBER',\n",
       " '\\t\\tAD\\tPOSMAX\\t\\t# SAFEGUARD THE COMPUTATIONS THAT FOLLOW',\n",
       " '\\t\\tTS\\tL\\t\\t#\\tBY FORCING -TTF*LEADTIME > OR = ZERO',\n",
       " '\\t\\tCS\\tL',\n",
       " '\\t\\tAD\\tL',\n",
       " '\\t\\tZL',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tDV\\tTTF/8',\n",
       " '\\t\\tTS\\tBUF\\t\\t# - RATIO OF LAG-DIMINISHED TTF TO TTF',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tSQUARE',\n",
       " '\\t\\tTS\\tBUF +1',\n",
       " '\\t\\tAD\\tBUF',\n",
       " '\\t\\tXCH\\tBUF +1\\t\\t# RATIO SQUARED - RATIO',\n",
       " '\\t\\tAD\\tBUF +1',\n",
       " '\\t\\tTS\\tMPAC\\t\\t# COEFFICIENT FOR VGU TERM',\n",
       " '\\t\\tAD\\tBUF +1',\n",
       " '\\t\\tINDEX\\tFIXLOC',\n",
       " '\\t\\tTS\\t26D\\t\\t# COEFFICIENT FOR RDG-RGU TERM',\n",
       " '\\t\\tAD\\tBUF +1',\n",
       " '\\t\\tINDEX\\tFIXLOC',\n",
       " '\\t\\tTS\\t28D\\t\\t# COEFFICIENT FOR VDG TERM',\n",
       " '\\t\\tAD\\tBUF',\n",
       " '\\t\\tAD\\tPOSMAX',\n",
       " '# Page 809',\n",
       " '\\t\\tAD\\tBUF +1',\n",
       " '\\t\\tAD\\tBUF +1',\n",
       " '\\t\\tINDEX\\tFIXLOC',\n",
       " '\\t\\tTS\\t30D\\t\\t# COEFFICIENT FOR ADG TERM',\n",
       " '',\n",
       " '\\t\\tCAF\\tZERO',\n",
       " '\\t\\tTS\\tMODE',\n",
       " '',\n",
       " '\\t\\tTC\\tINTPRETX',\n",
       " '\\t\\tVXSC\\tPDDL',\n",
       " '\\t\\t\\tVGU',\n",
       " '\\t\\t\\t28D',\n",
       " '\\t\\tVXSC*\\tPDVL*',\n",
       " '\\t\\t\\tVDG,1',\n",
       " '\\t\\t\\tRDG,1',\n",
       " '\\t\\tVSU\\tV/SC',\n",
       " '\\t\\t\\tRGU',\n",
       " '\\t\\t\\tTTF/8',\n",
       " '\\t\\tVSR2\\tVXSC',\n",
       " '\\t\\t\\t26D',\n",
       " '\\t\\tVAD\\tVAD',\n",
       " '\\t\\tV/SC\\tVXSC',\n",
       " '\\t\\t\\tTTF/8',\n",
       " '\\t\\t\\t3/4DP',\n",
       " '\\t\\tPDDL\\tVXSC*',\n",
       " '\\t\\t\\t30D',\n",
       " '\\t\\t\\tADG,1',\n",
       " '\\t\\tVAD',\n",
       " 'AFCCALC1\\tVXM\\tVSL1\\t\\t# VERGUID COMES HERE',\n",
       " '\\t\\t\\tCG',\n",
       " '\\t\\tPDVL\\tV/SC',\n",
       " '\\t\\t\\tGDT/2',\n",
       " '\\t\\t\\tGSCALE',\n",
       " '\\t\\tBVSU\\tSTADR',\n",
       " '\\t\\tSTORE\\tUNFC/2\\t\\t# UNFC/2 NEED NOT BE UNITIZED',\n",
       " '\\t\\tABVAL',\n",
       " 'AFCCALC2\\tSTODL\\t/AFC/\\t\\t# MAGNITUDE OF AFC FOR THROTTLE',\n",
       " '\\t\\t\\tUNFC/2\\t\\t# VERTICAL COMPONENT',\n",
       " '\\t\\tDSQ\\tPDDL',\n",
       " '\\t\\t\\tUNFC/2 +2\\t# OUT-OF-PLANE',\n",
       " '\\t\\tDSQ\\tPDDL',\n",
       " '\\t\\t\\tHIGHESTF',\n",
       " '\\t\\tDDV\\tDSQ',\n",
       " '\\t\\t\\tMASS\\t\\t#                        2    2    2',\n",
       " '\\t\\tDSU\\tDSU\\t\\t# AMAXHORIZ = SQRT(ATOTAL - A  - A  )',\n",
       " '\\t\\tBPL\\tDLOAD\\t\\t#                            1    0',\n",
       " '\\t\\t\\tAFCCALC3',\n",
       " '\\t\\t\\tZEROVECS',\n",
       " 'AFCCALC3\\tSQRT\\tDAD',\n",
       " '\\t\\t\\tUNFC/2 +4',\n",
       " '# Page 810',\n",
       " '\\t\\tBPL\\tBDSU',\n",
       " '\\t\\t\\tAFCCLEND',\n",
       " '\\t\\t\\tUNFC/2 +4',\n",
       " '\\t\\tSTORE\\tUNFC/2 +4',\n",
       " 'AFCCLEND\\tEXIT',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tCA\\tWCHPHASE\\t# PREPARE FOR PHASE SWITCHING LOGIC',\n",
       " '\\t\\tTS\\tWCHPHOLD',\n",
       " '\\t\\tINCR\\tFLPASS0\\t\\t# INCREMENT PASS COUNTER',\n",
       " '',\n",
       " 'BRSPOT4\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tTCF\\tAFTRGUID',\n",
       " '',\n",
       " '# ***********************************************************************',\n",
       " '# ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX',\n",
       " '# ***********************************************************************',\n",
       " '',\n",
       " 'CGCALC\\t\\tCAF\\tEBANK5',\n",
       " '\\t\\tTS\\tEBANK',\n",
       " '\\t\\tEBANK=\\tTCGIBRAK',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tINDEX\\tTARGTDEX',\n",
       " '\\t\\tDCA\\tTCGFBRAK',\n",
       " '\\t\\tINCR\\tBBANK',\n",
       " '\\t\\tINCR\\tBBANK',\n",
       " '\\t\\tEBANK=\\tTTF/8',\n",
       " '\\t\\tAD\\tTTF/8',\n",
       " '\\t\\tXCH\\tL',\n",
       " '\\t\\tAD\\tTTF/8',\n",
       " '\\t\\tCCS\\tA',\n",
       " '\\t\\tCCS\\tL',\n",
       " '\\t\\tTCF\\tEXTLOGIC',\n",
       " '\\t\\tTCF\\tEXTLOGIC',\n",
       " '\\t\\tNOOP',\n",
       " '',\n",
       " '\\t\\tTC\\tINTPRETX',\n",
       " '\\t\\tVLOAD\\tUNIT',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\tSTODL\\tCG',\n",
       " '\\t\\t\\tTTF/8',\n",
       " '\\t\\tDMP*\\tVXSC',\n",
       " '\\t\\t\\tGAINBRAK,1\\t# NUMERO MYSTERIOSO',\n",
       " '\\t\\t\\tANGTERM',\n",
       " '\\t\\tVAD',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\tVSU\\tRTB',\n",
       " '\\t\\t\\tR',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '# Page 811',\n",
       " '\\t\\tVXV\\tRTB',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\tSTOVL\\tCG +6\\t\\t# SECOND ROW',\n",
       " '\\t\\t\\tCG',\n",
       " '\\t\\tVXV\\tVSL1',\n",
       " '\\t\\t\\tCG +6',\n",
       " '\\t\\tSTORE\\tCG +14',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " '#\\t\\t(CONTINUE TO EXTLOGIC)',\n",
       " '#',\n",
       " '# ***********************************************************************',\n",
       " '# PREPARE TO EXIT',\n",
       " '# ***********************************************************************',\n",
       " '#',\n",
       " '# DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES',\n",
       " '#',\n",
       " 'EXTLOGIC\\tINDEX\\tWCHPHASE\\t# WCHPHASE = 1   APPRQUAD',\n",
       " '\\t\\tCA\\tTENDBRAK\\t# WCHPHASE = 0   BRAKQUAD',\n",
       " '\\t\\tAD\\tTTF/8',\n",
       " '',\n",
       " 'EXSPOT1\\t\\tEXTEND',\n",
       " '\\t\\tINDEX\\tWCHPHASE',\n",
       " '\\t\\tBZMF\\tWHATEXIT',\n",
       " '',\n",
       " '\\t\\tTC\\tFASTCHNG',\n",
       " '',\n",
       " '\\t\\tCA\\tWCHPHOLD',\n",
       " '\\t\\tAD\\tONE',\n",
       " '\\t\\tTS\\tWCHPHASE',\n",
       " '\\t\\tCA\\tZERO',\n",
       " '\\t\\tTS\\tFLPASS0\\t\\t# RESET FLPASS0',\n",
       " '',\n",
       " '\\t\\tINDEX\\tWCHPHOLD',\n",
       " '\\t\\tTCF\\tWHATEXIT',\n",
       " '',\n",
       " '# ***********************************************************************',\n",
       " '# ROUTINES FOR EXITING FROM LANDING GUIDANCE',\n",
       " '# ***********************************************************************',\n",
       " '#',\n",
       " '# 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       " '# 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       " '# 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.',\n",
       " '# (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       " '',\n",
       " 'EXGSUB\\t\\tTC\\tINTPRET\\t\\t# COMPUTE TRIM VELOCITY CORRECTION TERM.',\n",
       " '# Page 812',\n",
       " '\\t\\tVLOAD\\tRTB',\n",
       " '\\t\\t\\tUNFC/2',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\tVXSC\\tVXSC',\n",
       " '\\t\\t\\tZOOMTIME',\n",
       " '\\t\\t\\tTRIMACCL',\n",
       " '\\t\\tSTORE\\tUNFC/2',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " '\\t\\tCCS\\tNGUIDSUB',\n",
       " '\\t\\tTCF\\tGUIDSUB',\n",
       " '\\t\\tCCS\\tNIGNLOOP',\n",
       " '\\t\\tTCF\\t+3',\n",
       " '\\t\\tTC\\tALARM',\n",
       " '\\t\\tOCT\\t01412',\n",
       " '',\n",
       " ' +3\\t\\tTC\\tPOSTJUMP',\n",
       " ' \\t\\tCADR\\tDDUMCALC',\n",
       " '',\n",
       " 'EXBRAK\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tVLOAD',\n",
       " '\\t\\t\\tUNIT/R/',\n",
       " '\\t\\tSTORE\\tUNWC/2',\n",
       " '\\t\\tEXIT',\n",
       " '\\t\\tTCF\\tSTEER?',\n",
       " '',\n",
       " 'EXNORM\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tVLOAD\\tVSU',\n",
       " '\\t\\t\\tLAND',\n",
       " '\\t\\t\\tR',\n",
       " '\\t\\tRTB',\n",
       " '\\t\\t\\tNORMUNIT',\n",
       " '\\t\\tSTORE\\tUNWC/2\\t\\t# UNIT(LAND - R) IS TENTATIVE CHOICE',\n",
       " '\\t\\tVXV\\tDOT',\n",
       " '\\t\\t\\tXNBPIP',\n",
       " '\\t\\t\\tCG +6',\n",
       " '\\t\\tEXIT\\t\\t\\t# WITH PROJ IN MPAC 1/8 REAL SIZE',\n",
       " '',\n",
       " '\\t\\tCS\\tMPAC\\t\\t# GET COEFFICIENT FOR CG +14',\n",
       " '\\t\\tAD\\tPROJMAX',\n",
       " '\\t\\tAD\\tPOSMAX',\n",
       " '\\t\\tTS\\tBUF',\n",
       " '\\t\\tCS\\tBUF',\n",
       " '\\t\\tADS\\tBUF\\t\\t# RESULT IS 0 IF PROJMAX - PROJ NEGATIVE',\n",
       " '',\n",
       " '\\t\\tCS\\tPROJMIN\\t\\t# GET COEFFICIENT FOR UNIT(LAND - R)',\n",
       " '\\t\\tAD\\tMPAC',\n",
       " '\\t\\tAD\\tPOSMAX',\n",
       " '\\t\\tTS\\tBUF +1',\n",
       " '\\t\\tCS\\tBUF +1',\n",
       " '# Page 813',\n",
       " '\\t\\tADS\\tBUF +1\\t\\t# RESULT IS 0 IF PROJ - PROJMIN NEGATIVE',\n",
       " '',\n",
       " '\\t\\tCAF\\tFOUR',\n",
       " 'UNWCLOOP\\tMASK\\tSIX',\n",
       " '\\t\\tTS\\tQ',\n",
       " '\\t\\tCA\\tEBANK5',\n",
       " '\\t\\tTS\\tEBANK',\n",
       " '\\t\\tEBANK=\\tCG',\n",
       " '\\t\\tCA\\tBUF',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tINDEX\\tQ',\n",
       " '\\t\\tMP\\tCG +14',\n",
       " '\\t\\tINCR\\tBBANK',\n",
       " '\\t\\tEBANK=\\tUNWC/2',\n",
       " '\\t\\tINDEX\\tQ',\n",
       " '\\t\\tDXCH\\tUNWC/2',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tMP\\tBUF +1',\n",
       " '\\t\\tINDEX\\tQ',\n",
       " '\\t\\tDAS\\tUNWC/2',\n",
       " '\\t\\tCCS\\tQ',\n",
       " '\\t\\tTCF\\tUNWCLOOP',\n",
       " '',\n",
       " '\\t\\tINCR\\tBBANK',\n",
       " '\\t\\tEBANK=\\tPIF',\n",
       " '',\n",
       " 'STEER?\\t\\tCA\\tFLAGWRD2\\t# IF STEERSW DOWN NO OUTPUTS',\n",
       " '\\t\\tMASK\\tSTEERBIT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tRATESTOP',\n",
       " '',\n",
       " 'EXVERT\\t\\tCA\\tOVFIND\\t\\t# IF OVERFLOW ANYWHERE IN GUIDANCE',\n",
       " \"\\t\\tEXTEND\\t\\t\\t#\\tDON'T CALL THROTTLE OR FINDCDUW\",\n",
       " '\\t\\tBZF\\t+13',\n",
       " '',\n",
       " 'EXOVFLOW\\tTC\\tALARM\\t\\t# SOUND THE ALARM NON-ABORTIVELY',\n",
       " '\\t\\tOCT\\t01410',\n",
       " '',\n",
       " 'RATESTOP\\tCAF\\tBIT13\\t\\t# ARE WE IN ATTITUDE-HOLD?',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tRAND\\tCHAN31',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tDISPEXIT\\t# YES',\n",
       " '',\n",
       " '\\t\\tTC\\tBANKCALL\\t# NO:  DO A STOPRATE',\n",
       " '\\t\\tCADR\\tSTOPRATE',\n",
       " '',\n",
       " '\\t\\tTCF\\tDISPEXIT',\n",
       " '',\n",
       " 'GDUMP1\\t\\tTC\\tTHROTTLE',\n",
       " '# Page 814',\n",
       " '\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tCALL',\n",
       " '\\t\\t\\tFINDCDUW -2',\n",
       " '\\t\\tEXIT',\n",
       " '',\n",
       " '# \\t\\t(CONTINUE TO DISPEXIT)',\n",
       " '',\n",
       " '# ***********************************************************************',\n",
       " '# GUIDANCE LOOP DISPLAYS',\n",
       " '# ***********************************************************************',\n",
       " '',\n",
       " 'DISPEXIT\\tEXTEND\\t\\t\\t# KILL GROUP 3:  DISPLAYS WILL BE',\n",
       " '\\t\\tDCA\\tNEG0\\t\\t#\\tRESTORED BY NEXT GUIDANCE CYCLE.',\n",
       " '\\t\\tDXCH\\t-PHASE3',\n",
       " '',\n",
       " ' +3\\t\\tCS\\tFLAGWRD8\\t# IF FLUNDISP IS SET, NO DISPLAY THIS PASS',\n",
       " ' \\t\\tMASK\\tFLUNDBIT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tENDLLJOB\\t# TO PICK UP THE TAG',\n",
       " '',\n",
       " '\\t\\tINDEX\\tWCHPHOLD',\n",
       " '\\t\\tTCF\\tWHATDISP',\n",
       " '',\n",
       " '-2\\t\\tTC\\tPHASCHNG\\t# KILL GROUP 5',\n",
       " '\\t\\tOCT\\t00035',\n",
       " '',\n",
       " 'P63DISPS\\tCAF\\tV06N63',\n",
       " 'DISPCOMN\\tTC\\tBANKCALL',\n",
       " '\\t\\tCADR\\tREGODSPR',\n",
       " '',\n",
       " 'ENDLLJOB\\tTCF\\tENDOFJOB',\n",
       " '',\n",
       " 'P64DISPS\\tCA\\tTREDES\\t\\t# HAS TREDES REACHED ZERO?',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tRED-OVER\\t# YES: CLEAR REDESIGNATION FLAG',\n",
       " '',\n",
       " '\\t\\tCS\\tFLAGWRD6\\t# NO:  IS REDFLAG SET?',\n",
       " '\\t\\tMASK\\tREDFLBIT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tBZF\\tREDES-OK\\t# YES:  DO STATIC DISPLAY',\n",
       " '',\n",
       " '\\t\\tCAF\\tV06N64\\t\\t# OTHERWISE USE FLASHING DISPLAY',\n",
       " '\\t\\tTC\\tBANKCALL',\n",
       " '\\t\\tCADR\\tREFLASHR',\n",
       " '\\t\\tTCF\\tGOTOP00H\\t# TERMINATE',\n",
       " '\\t\\tTCF\\tP64CEED\\t\\t# PROCEED\\tPERMIT REDESIGNATIONS',\n",
       " '\\t\\tTCF\\tP64DISPS\\t# RECYCLE',\n",
       " '# Page 815',\n",
       " '\\t\\tTCF\\tENDLLJOB',\n",
       " '',\n",
       " 'P64CEED\\t\\tCAF\\tZERO',\n",
       " '\\t\\tTS\\tELINCR1',\n",
       " '\\t\\tTS\\tAZINCR1',\n",
       " '',\n",
       " '\\t\\tTC\\tUPFLAG\\t\\t# ENABLE REDESIGNATION LOGIC',\n",
       " '\\t\\tADRES\\tREDFLAG',\n",
       " '',\n",
       " '\\t\\tTCF\\tENDOFJOB',\n",
       " '',\n",
       " 'RED-OVER\\tTC\\tDOWNFLAG',\n",
       " '\\t\\tADRES\\tREDFLAG',\n",
       " 'REDES-OK\\tCAF\\tV06N64',\n",
       " '\\t\\tTCF\\tDISPCOMN',\n",
       " '',\n",
       " '',\n",
       " 'VERTDISP\\tCAF\\tV06N60',\n",
       " '\\t\\tTCF\\tDISPCOMN',\n",
       " '',\n",
       " '',\n",
       " '# **************************************************************************',\n",
       " '# GUIDANCE FOR P65',\n",
       " '# **************************************************************************',\n",
       " '',\n",
       " 'VERTGUID\\tCCS\\tWCHVERT',\n",
       " '\\t\\tTCF\\tP67VERT\\t\\t# POSITIVE NON-ZERO ---> P67',\n",
       " '\\t\\tTCF\\tP66VERT\\t\\t# +0',\n",
       " '#',\n",
       " '# \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --',\n",
       " '#\\t\\t      ____   ___',\n",
       " '#\\t\\t      V2FG - VGU',\n",
       " '#\\t\\tACG = ----------',\n",
       " '#\\t\\t        TAUVERT',\n",
       " '',\n",
       " 'P65VERT\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tVLOAD\\tVSU',\n",
       " '\\t\\t\\tV2FG',\n",
       " '\\t\\t\\tVGU',\n",
       " '\\t\\tV/SC\\tGOTO',\n",
       " '\\t\\t\\tTAUVERT',\n",
       " '\\t\\t\\tAFCCALC1',\n",
       " '# Page 816',\n",
       " '# **********************************************************',\n",
       " '# GUIDANCE FOR P66',\n",
       " '# **********************************************************',\n",
       " '',\n",
       " 'P66VERT\\t\\tTC\\tPOSTJUMP',\n",
       " '\\t\\tCADR\\tP66VERTA',\n",
       " '',\n",
       " 'P67VERT\\t\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.',\n",
       " '\\t\\tOCT\\t00003',\n",
       " '',\n",
       " '\\t\\tTC\\tINTPRET',\n",
       " '\\t\\tVLOAD\\tGOTO',\n",
       " '\\t\\t\\tV',\n",
       " '\\t\\t\\tVHORCOMP',\n",
       " '',\n",
       " '\\t\\tSETLOC\\tP66LOC',\n",
       " '\\t\\tBANK',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS',\n",
       " '',\n",
       " 'RODTASK\\t\\tCAF\\tPRIO22',\n",
       " '\\t\\tTC\\tFINDVAC',\n",
       " '\\t\\tEBANK=\\tDVCNTR',\n",
       " '\\t\\t2CADR\\tRODCOMP',\n",
       " '',\n",
       " '\\t\\tTCF\\tTASKOVER',\n",
       " '',\n",
       " 'P66VERTA\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.',\n",
       " '\\t\\tOCT\\t00003',\n",
       " '',\n",
       " '\\t\\tCAF\\t1SEC',\n",
       " '\\t\\tTC\\tTWIDDLE',\n",
       " '\\t\\tADRES\\tRODTASK',\n",
       " '',\n",
       " 'RODCOMP\\t\\tINHINT',\n",
       " '\\t\\tCAF\\tZERO',\n",
       " '\\t\\tXCH\\tRODCOUNT',\n",
       " '\\t\\tEXTEND',\n",
       " '\\t\\tMP\\tRODSCAL1',\n",
       " '\\t\\tDAS\\tVDGVERT\\t\\t# UPDATE DESIRED ALTITUDE RATE.',\n",
       " '',\n",
       " '\\t\\tEXTEND\\t\\t\\t# SET OLDPIPAX,Y,Z = PIPAX,Y,Z',\n",
       " '\\t\\tDCA\\tPIPAX',\n",
       " '\\t\\tDXCH\\tOLDPIPAX',\n",
       " '\\t\\tDXCH\\tRUPTREG1\\t# SET RUPTREG1,2,3 = OLDPIPAX,Y,Z',\n",
       " '\\t\\tCA\\tPIPAZ',\n",
       " '\\t\\tXCH\\tOLDPIPAZ',\n",
       " '\\t\\tXCH\\tRUPTREG3',\n",
       " '',\n",
       " '\\t\\tEXTEND\\t\\t\\t# SNAPSHOT TIME OF PIPA READING.',\n",
       " '\\t\\tDCA\\tTIME2',\n",
       " '# Page 817',\n",
       " '\\t\\tDXCH\\tTHISTPIP',\n",
       " '',\n",
       " '\\t\\tCA\\tOLDPIPAX',\n",
       " '\\t\\tAD\\tPIPATMPX',\n",
       " '\\t\\tTS\\tMPAC\\t\\t# MPAC(X) = PIPAX + PIPATMPX',\n",
       " '\\t\\tCA\\tOLDPIPAY',\n",
       " '\\t\\tAD\\tPIPATMPY',\n",
       " '\\t\\tTS\\tMPAC +3\\t\\t# MPAC(Y) = PIPAY + PIPATMPY',\n",
       " '\\t\\tCA\\tOLDPIPAZ',\n",
       " '\\t\\tAD\\tPIPATMPZ',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t# MPAC(Z) = PIPAZ + PIPATMPZ',\n",
       " '',\n",
       " '\\t\\tCS\\tOLDPIPAX',\n",
       " '\\t\\tAD\\tTEMX',\n",
       " '\\t\\tAD\\tRUPTREG1',\n",
       " '\\t\\tTS\\tDELVROD',\n",
       " '\\t\\tCS\\tOLDPIPAY',\n",
       " '\\t\\tAD\\tTEMY',\n",
       " '\\t\\tAD\\tRUPTREG2',\n",
       " '\\t\\tTS\\tDELVROD +2',\n",
       " '\\t\\tCS\\tOLDPIPAZ',\n",
       " '\\t\\tAD\\tTEMZ',\n",
       " '\\t\\tAD\\tRUPTREG3',\n",
       " '\\t\\tTS\\tDELVROD +4',\n",
       " '',\n",
       " '\\t\\tCAF\\tZERO',\n",
       " '\\t\\tTS\\tMPAC +1\\t\\t# ZERO LO-ORDER MPAC COMPONENTS',\n",
       " '\\t\\tTS\\tMPAC +4',\n",
       " '\\t\\tTS\\tMPAC +6',\n",
       " '\\t\\tTS\\tTEMX\\t\\t# ZERO TEMX, TEMY, AND TEMZ SO WE WILL',\n",
       " '\\t\\tTS\\tTEMY\\t\\t#\\tKNOW WHEN READACCS CHANGES THEM.',\n",
       " '\\t\\tTS\\tTEMZ',\n",
       " '\\t\\tCS\\tONE',\n",
       " '\\t\\tTS\\tMODE',\n",
       " '\\t\\tTC\\tINTPRET',\n",
       " ...]"
      ]
     },
     "execution_count": 12,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "lines"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "id": "40347cff",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "1475"
      ]
     },
     "execution_count": 15,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "len(lines)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "id": "d4fb2f6d",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "-1"
      ]
     },
     "execution_count": 23,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "teststring= \"#Entry\"\n",
    "teststring.find('!')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "id": "76ca6565",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "<re.Match object; span=(0, 17), match='The rain in Spain'>\n"
     ]
    }
   ],
   "source": [
    "import re\n",
    "\n",
    "txt = \"The rain in Spain\"\n",
    "x = re.search(\"^The.*Spain$\", txt)\n",
    "print(x)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "id": "582e59f2",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "#************************************************************************\n",
      "# ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT\n",
      "#************************************************************************\n",
      "not found \n",
      "# IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE\n",
      "not found \n",
      "not found ?GUIDSUB\tEXIT\n",
      "not found \t\tCAF\tTWO\t\t# N = 3\n",
      "not found \t\tTS\tNGUIDSUB\n",
      "not found \t\tTCF\tGUILDRET +2\n",
      "not found \n",
      "not found GUIDSUB\t\tTS\tNGUIDSUB\t# ON SUCCEEDING PASSES SKIP TTFINCR\n",
      "not found \t\tTCF\tCALCRGVG\n",
      "not found \n",
      "# NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT\n",
      "not found \n",
      "not found LUNLAND\t\tTC\tPHASCHNG\n",
      "not found \t\tOCT\t00035\t\t# GROUP 5:  RETAIN ONLY PIPA TASK\n",
      "not found \t\tTC\tPHASCHNG\n",
      "not found \t\tOCT\t05023\t\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21\n",
      "not found \t\tOCT\t21000\t\t#\tJUST HIGHER THAN SERVICER'S PRIORITY\n",
      "not found \n",
      "# Page 800\n",
      "#*******************************************************************\n",
      "# GUILDENSTERN:  AUTO-MODES MONITOR (R13)\n",
      "#*******************************************************************\n",
      "not found \n",
      "not found \t\tCOUNT*\t$$/R13\n",
      "not found \n",
      "# HERE IS THE PHILOSOPHY OF GUILDENSTERN:\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE\n",
      "# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66\n",
      "# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE\n",
      "not found \n",
      "not found GUILDEN\t\tEXTEND\t\t\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?\n",
      "# STERN\t\t\t\t\t# RSB 2009: Not originally a comment.\n",
      "not found  \t\tREAD CHAN30\n",
      "not found \t\tMASK\tBIT5\n",
      "not found  \t\tCCS\tA\n",
      "not found  \t\tTCF\tSTARTP67\t# YES\n",
      "not found P67NOW?\t\tTC\tCHECKMM\t\t# NO:  ARE WE IN P67 NOW?\n",
      "not found \t\tDEC\t67\n",
      "not found \t\tTCF\tSTABL?\t\t# NO\n",
      "not found STARTP66\tTC\tFASTCHNG\t# YES\n",
      "not found \t\tTC\tNEWMODEX\n",
      "not found DEC66\t\tDEC\t66\n",
      "not found \t\tEXTEND\n",
      "not found \t\tDCA\tHDOTDISP\t# SET DESIRED ALTITUDE RATE = CURRENT\n",
      "not found \t\tDXCH\tVDGVERT\t\t# \tALTITUDE RATE.\n",
      "not found STRTP66A\tTC\tINTPRET\n",
      "not found \t\tSLOAD\tPUSH\n",
      "not found \t\t\tPBIASZ\n",
      "not found \t\tSLOAD\tPUSH\n",
      "not found \t\t\tPBIASY\n",
      "not found \t\tSLOAD\tVDEF\n",
      "not found \t\t\tPBIASX\n",
      "not found \t\tVXSC\tSET\n",
      "not found \t\t\tBIASFACT\n",
      "not found \t\t\tRODFLAG\n",
      "not found \t\tSTOVL\tVBIAS\n",
      "not found \t\t\tTEMX\n",
      "not found \t\tVCOMP\n",
      "not found \t\tSTOVL\tOLDPIPAX\n",
      "not found \t\t\tZEROVECS\n",
      "not found \t\tSTODL\tDELVROD\n",
      "not found \t\t\tRODSCALE\n",
      "not found \t\tSTODL\tRODSCAL1\n",
      "not found \t\t\tPIPTIME\n",
      "not found \t\tSTORE\tLASTTPIP\n",
      "not found \t\tEXIT\n",
      "not found \t\tCAF\tZERO\n",
      "not found \t\tTS\tFCOLD\n",
      "not found \t\tTS\tFWEIGHT\n",
      "not found \t\tTS\tFWEIGHT +1\n",
      "not found VRTSTART\tTS\tWCHVERT\n",
      "# Page 801\n",
      "not found \t\tCAF\tTWO\t\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67\n",
      "not found \t\tTS\tWCHPHOLD\n",
      "not found \t\tTS\tWCHPHASE\n",
      "not found \t\tTC\tBANKCALL\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "not found \t\tCADR\tSTOPRATE\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "not found \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "not found \t\tADRES\tXOVINFLG\n",
      "not found \t\tTC\tDOWNFLAG\n",
      "not found \t\tADRES\tREDFLAG\n",
      "not found \t\tTCF\tVERTGUID\n",
      "not found \n",
      "not found STARTP67\tTC\tNEWMODEX\t# NO HARM IN \"STARTING\" P67 OVER AND OVER\n",
      "not found \t\tDEC\t67\t\t# SO NO NEED FOR A FASTCHNG AND NO NEED\n",
      "not found \t\tCAF\tZERO\t\t# TO SEE IF ALREADY IN P67.\n",
      "not found \t\tTS\tRODCOUNT\n",
      "not found \t\tCAF\tTEN\n",
      "not found \t\tTCF\tVRTSTART\n",
      "not found \n",
      "not found STABL?\t\tCAF\tBIT13\t\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?\n",
      "not found \t\tEXTEND\n",
      "not found \t\tRAND\tCHAN31\n",
      "not found \t\tCCS\tA\n",
      "not found \t\tTCF\tGUILDRET\t# YES ALL'S WELL\n",
      "not found \n",
      "not found P66NOW?\t\tCS\tMODREG\n",
      "not found \t\tAD\tDEC66\n",
      "not found \t\tEXTEND\n",
      "not found \t\tBZF\tRESTART?\n",
      "not found \n",
      "not found \t\tCA\tRODCOUNT\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?\n",
      "not found \t\tEXTEND\n",
      "not found \t\tBZF\tGUILDRET\t# NO. CONTINUE WITH AUTOMATIC LANDING\n",
      "not found \t\tTCF\tSTARTP66\t# YES. SWITCH INTO THE ROD MODE.\n",
      "not found \n",
      "not found RESTART?\tCA\tFLAGWRD1\t# HAS THERE BEEN A RESTART?\n",
      "not found \t\tMASK\tRODFLBIT\n",
      "not found \t\tEXTEND\n",
      "not found \t\tBZF\tSTRTP66A\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS\n",
      "not found \t\t\t\t\t#\tIS.\n",
      "not found \n",
      "not found \t\tTCF\tVERTGUID\t# NO: CONTINUE WITH R.O.D.\n",
      "not found \n",
      "# *******************************************************************************\n",
      "# INITIALIZATION FOR THIS PASS\n",
      "# *******************************************************************************\n",
      "not found \n",
      "not found \t\tCOUNT*\t$$/F2DPS\n",
      "not found \n",
      "not found GUILDRET\tCAF\tZERO\n",
      "not found \t\tTS\tRODCOUNT\n",
      "not found \n",
      "# Page 802\n",
      "not found  +2\t\tEXTEND\n",
      "not found  \t\tDCA\tTPIP\n",
      "not found \t\tDXCH\tTPIPOLD\n",
      "not found \n",
      "not found \t\tTC\tFASTCHNG\n",
      "not found \n",
      "not found \t\tEXTEND\n",
      "not found \t\tDCA\tPIPTIME1\n",
      "not found \t\tDXCH\tTPIP\n",
      "not found \n",
      "not found \t\tEXTEND\n",
      "not found \t\tDCA\tTTF/8\n",
      "not found \t\tDXCH\tTTF/8TMP\n",
      "not found \n",
      "not found \t\tCCS\tFLPASS0\n",
      "not found \t\tTCF\tTTFINCR\n",
      "not found \n",
      "not found BRSPOT1\t\tINDEX\tWCHPHASE\n",
      "not found \t\tTCF\tNEWPHASE\n",
      "not found \n",
      "# ******************************************************************\n",
      "# ROUTINES TO START NEW PHASES\n",
      "# ******************************************************************\n",
      "not found \n",
      "not found P65START\tTC\tNEWMODEX\n",
      "not found \t\tDEC\t65\n",
      "not found \t\tCS\tTWO\n",
      "not found \t\tTS\tWCHVERT\n",
      "not found \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "not found \t\tADRES\tXOVINFLG\n",
      "not found \t\tTCF\tTTFINCR\n",
      "not found \n",
      "not found STARTP64\tTC\tNEWMODEX\n",
      "not found \t\tDEC\t64\n",
      "not found \t\tCA\tDELTTFAP\t# AUGMENT TTF/8\n",
      "not found \t\tADS\tTTF/8TMP\n",
      "not found \t\tCA\tBIT12\t\t# ENABLE RUPT10\n",
      "not found \t\tEXTEND\n",
      "not found \t\tWOR\tCHAN13\n",
      "not found \t\tTC\tDOWNFLAG\t# INITIALIZE REDESIGNATION FLAG\n",
      "not found \t\tADRES\tREDFLAG\n",
      "not found \n",
      "not found \n",
      "#\t\t(CONTINUE TO TTFINCR)\n",
      "not found \n",
      "# *********************************************************************************\n",
      "# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS\n",
      "# *********************************************************************************\n",
      "#\n",
      "#\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --\n",
      "# Page 803\n",
      "#\t\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:\n",
      "#\t\t\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8\n",
      "#\t\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:\n",
      "#\t\t\t____               ____   ____                   __\n",
      "#\t\t\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)\n",
      "#\t\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:\n",
      "#\t\t\t                 ____   _\n",
      "#\t\t\tRANGEDSP = ABVAL(LAND - R)\n",
      "not found \n",
      "not found TTFINCR\t\tTC\tINTPRET\n",
      "not found \t\tDLOAD\tDSU\n",
      "not found \t\t\tTPIP\n",
      "not found \t\t\tTPIPOLD\n",
      "not found \t\tSLR\tPUSH\t\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS\n",
      "not found \t\t\t11D\n",
      "not found \t\tVXSC\tVXV\n",
      "not found \t\t\tLAND\n",
      "not found \t\t\tWM\n",
      "not found \t\tBVSU\tRTB\n",
      "not found \t\t\tLAND\n",
      "not found \t\t\tNORMUNIT\n",
      "not found \t\tVXSC\tVSL1\n"
     ]
    }
   ],
   "source": [
    "comments = []\n",
    "for line in lines[100:300]:\n",
    "    if line.find('#')==0:\n",
    "        print(line)\n",
    "        comments.append(line)\n",
    "    else:\n",
    "        print(\"not found\",line)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "id": "82f12b35",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "YES! #************************************************************************\n",
      "YES! # ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT\n",
      "YES! #************************************************************************\n",
      "ignore \n",
      "YES! # IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE\n",
      "ignore \n",
      "ignore ?GUIDSUB\tEXIT\n",
      "YES! \t\tCAF\tTWO\t\t# N = 3\n",
      "ignore \t\tTS\tNGUIDSUB\n",
      "ignore \t\tTCF\tGUILDRET +2\n",
      "ignore \n",
      "YES! GUIDSUB\t\tTS\tNGUIDSUB\t# ON SUCCEEDING PASSES SKIP TTFINCR\n",
      "ignore \t\tTCF\tCALCRGVG\n",
      "ignore \n",
      "YES! # NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT\n",
      "ignore \n",
      "ignore LUNLAND\t\tTC\tPHASCHNG\n",
      "YES! \t\tOCT\t00035\t\t# GROUP 5:  RETAIN ONLY PIPA TASK\n",
      "ignore \t\tTC\tPHASCHNG\n",
      "YES! \t\tOCT\t05023\t\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21\n",
      "YES! \t\tOCT\t21000\t\t#\tJUST HIGHER THAN SERVICER'S PRIORITY\n",
      "ignore \n",
      "YES! # Page 800\n",
      "YES! #*******************************************************************\n",
      "YES! # GUILDENSTERN:  AUTO-MODES MONITOR (R13)\n",
      "YES! #*******************************************************************\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/R13\n",
      "ignore \n",
      "YES! # HERE IS THE PHILOSOPHY OF GUILDENSTERN:\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE\n",
      "YES! # DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66\n",
      "YES! # UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE\n",
      "ignore \n",
      "YES! GUILDEN\t\tEXTEND\t\t\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?\n",
      "YES! # STERN\t\t\t\t\t# RSB 2009: Not originally a comment.\n",
      "ignore  \t\tREAD CHAN30\n",
      "ignore \t\tMASK\tBIT5\n",
      "ignore  \t\tCCS\tA\n",
      "YES!  \t\tTCF\tSTARTP67\t# YES\n",
      "YES! P67NOW?\t\tTC\tCHECKMM\t\t# NO:  ARE WE IN P67 NOW?\n",
      "ignore \t\tDEC\t67\n",
      "YES! \t\tTCF\tSTABL?\t\t# NO\n",
      "YES! STARTP66\tTC\tFASTCHNG\t# YES\n",
      "ignore \t\tTC\tNEWMODEX\n",
      "ignore DEC66\t\tDEC\t66\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCA\tHDOTDISP\t# SET DESIRED ALTITUDE RATE = CURRENT\n",
      "YES! \t\tDXCH\tVDGVERT\t\t# \tALTITUDE RATE.\n",
      "ignore STRTP66A\tTC\tINTPRET\n",
      "ignore \t\tSLOAD\tPUSH\n",
      "ignore \t\t\tPBIASZ\n",
      "ignore \t\tSLOAD\tPUSH\n",
      "ignore \t\t\tPBIASY\n",
      "ignore \t\tSLOAD\tVDEF\n",
      "ignore \t\t\tPBIASX\n",
      "ignore \t\tVXSC\tSET\n",
      "ignore \t\t\tBIASFACT\n",
      "ignore \t\t\tRODFLAG\n",
      "ignore \t\tSTOVL\tVBIAS\n",
      "ignore \t\t\tTEMX\n",
      "ignore \t\tVCOMP\n",
      "ignore \t\tSTOVL\tOLDPIPAX\n",
      "ignore \t\t\tZEROVECS\n",
      "ignore \t\tSTODL\tDELVROD\n",
      "ignore \t\t\tRODSCALE\n",
      "ignore \t\tSTODL\tRODSCAL1\n",
      "ignore \t\t\tPIPTIME\n",
      "ignore \t\tSTORE\tLASTTPIP\n",
      "ignore \t\tEXIT\n",
      "ignore \t\tCAF\tZERO\n",
      "ignore \t\tTS\tFCOLD\n",
      "ignore \t\tTS\tFWEIGHT\n",
      "ignore \t\tTS\tFWEIGHT +1\n",
      "ignore VRTSTART\tTS\tWCHVERT\n",
      "YES! # Page 801\n",
      "YES! \t\tCAF\tTWO\t\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67\n",
      "ignore \t\tTS\tWCHPHOLD\n",
      "ignore \t\tTS\tWCHPHASE\n",
      "YES! \t\tTC\tBANKCALL\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "YES! \t\tCADR\tSTOPRATE\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "YES! \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "ignore \t\tADRES\tXOVINFLG\n",
      "ignore \t\tTC\tDOWNFLAG\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore \t\tTCF\tVERTGUID\n",
      "ignore \n",
      "YES! STARTP67\tTC\tNEWMODEX\t# NO HARM IN \"STARTING\" P67 OVER AND OVER\n",
      "YES! \t\tDEC\t67\t\t# SO NO NEED FOR A FASTCHNG AND NO NEED\n",
      "YES! \t\tCAF\tZERO\t\t# TO SEE IF ALREADY IN P67.\n",
      "ignore \t\tTS\tRODCOUNT\n",
      "ignore \t\tCAF\tTEN\n",
      "ignore \t\tTCF\tVRTSTART\n",
      "ignore \n",
      "YES! STABL?\t\tCAF\tBIT13\t\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tRAND\tCHAN31\n",
      "ignore \t\tCCS\tA\n",
      "YES! \t\tTCF\tGUILDRET\t# YES ALL'S WELL\n",
      "ignore \n",
      "ignore P66NOW?\t\tCS\tMODREG\n",
      "ignore \t\tAD\tDEC66\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tBZF\tRESTART?\n",
      "ignore \n",
      "YES! \t\tCA\tRODCOUNT\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tGUILDRET\t# NO. CONTINUE WITH AUTOMATIC LANDING\n",
      "YES! \t\tTCF\tSTARTP66\t# YES. SWITCH INTO THE ROD MODE.\n",
      "ignore \n",
      "YES! RESTART?\tCA\tFLAGWRD1\t# HAS THERE BEEN A RESTART?\n",
      "ignore \t\tMASK\tRODFLBIT\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tSTRTP66A\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS\n",
      "YES! \t\t\t\t\t#\tIS.\n",
      "ignore \n",
      "YES! \t\tTCF\tVERTGUID\t# NO: CONTINUE WITH R.O.D.\n",
      "ignore \n",
      "YES! # *******************************************************************************\n",
      "YES! # INITIALIZATION FOR THIS PASS\n",
      "YES! # *******************************************************************************\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "ignore GUILDRET\tCAF\tZERO\n",
      "ignore \t\tTS\tRODCOUNT\n",
      "ignore \n",
      "YES! # Page 802\n",
      "ignore  +2\t\tEXTEND\n",
      "ignore  \t\tDCA\tTPIP\n",
      "ignore \t\tDXCH\tTPIPOLD\n",
      "ignore \n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tPIPTIME1\n",
      "ignore \t\tDXCH\tTPIP\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tTTF/8\n",
      "ignore \t\tDXCH\tTTF/8TMP\n",
      "ignore \n",
      "ignore \t\tCCS\tFLPASS0\n",
      "ignore \t\tTCF\tTTFINCR\n",
      "ignore \n",
      "ignore BRSPOT1\t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tNEWPHASE\n",
      "ignore \n",
      "YES! # ******************************************************************\n",
      "YES! # ROUTINES TO START NEW PHASES\n",
      "YES! # ******************************************************************\n",
      "ignore \n",
      "ignore P65START\tTC\tNEWMODEX\n",
      "ignore \t\tDEC\t65\n",
      "ignore \t\tCS\tTWO\n",
      "ignore \t\tTS\tWCHVERT\n",
      "YES! \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "ignore \t\tADRES\tXOVINFLG\n",
      "ignore \t\tTCF\tTTFINCR\n",
      "ignore \n",
      "ignore STARTP64\tTC\tNEWMODEX\n",
      "ignore \t\tDEC\t64\n",
      "YES! \t\tCA\tDELTTFAP\t# AUGMENT TTF/8\n",
      "ignore \t\tADS\tTTF/8TMP\n",
      "YES! \t\tCA\tBIT12\t\t# ENABLE RUPT10\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tWOR\tCHAN13\n",
      "YES! \t\tTC\tDOWNFLAG\t# INITIALIZE REDESIGNATION FLAG\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore \n",
      "ignore \n",
      "YES! #\t\t(CONTINUE TO TTFINCR)\n",
      "ignore \n",
      "YES! # *********************************************************************************\n",
      "YES! # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS\n",
      "YES! # *********************************************************************************\n",
      "YES! #\n",
      "YES! #\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --\n",
      "YES! # Page 803\n",
      "YES! #\t\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:\n",
      "YES! #\t\t\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8\n",
      "YES! #\t\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:\n",
      "YES! #\t\t\t____               ____   ____                   __\n",
      "YES! #\t\t\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)\n",
      "YES! #\t\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:\n",
      "YES! #\t\t\t                 ____   _\n",
      "YES! #\t\t\tRANGEDSP = ABVAL(LAND - R)\n",
      "ignore \n",
      "ignore TTFINCR\t\tTC\tINTPRET\n",
      "ignore \t\tDLOAD\tDSU\n",
      "ignore \t\t\tTPIP\n",
      "ignore \t\t\tTPIPOLD\n",
      "YES! \t\tSLR\tPUSH\t\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS\n",
      "ignore \t\t\t11D\n",
      "ignore \t\tVXSC\tVXV\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tWM\n",
      "ignore \t\tBVSU\tRTB\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tNORMUNIT\n",
      "ignore \t\tVXSC\tVSL1\n"
     ]
    }
   ],
   "source": [
    "comments = []\n",
    "for line in lines[100:300]:\n",
    "    x = re.search(\"#\", line)\n",
    "    if x:\n",
    "        comments.append(line)\n",
    "        print(\"YES!\",line)\n",
    "    else:\n",
    "        print(\"ignore\",line)\n",
    "        \n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "id": "f7c75b34",
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['#************************************************************************',\n",
       " '# ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " '#************************************************************************',\n",
       " '# IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# N = 3',\n",
       " 'GUIDSUB\\t\\tTS\\tNGUIDSUB\\t# ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " '# NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " '\\t\\tOCT\\t00035\\t\\t# GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " '\\t\\tOCT\\t05023\\t\\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " \"\\t\\tOCT\\t21000\\t\\t#\\tJUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " '# Page 800',\n",
       " '#*******************************************************************',\n",
       " '# GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " '#*******************************************************************',\n",
       " '# HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " '# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " '# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " 'GUILDEN\\t\\tEXTEND\\t\\t\\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " '# STERN\\t\\t\\t\\t\\t# RSB 2009: Not originally a comment.',\n",
       " ' \\t\\tTCF\\tSTARTP67\\t# YES',\n",
       " 'P67NOW?\\t\\tTC\\tCHECKMM\\t\\t# NO:  ARE WE IN P67 NOW?',\n",
       " '\\t\\tTCF\\tSTABL?\\t\\t# NO',\n",
       " 'STARTP66\\tTC\\tFASTCHNG\\t# YES',\n",
       " '\\t\\tDCA\\tHDOTDISP\\t# SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t# \\tALTITUDE RATE.',\n",
       " '# Page 801',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " '\\t\\tTC\\tBANKCALL\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " 'STARTP67\\tTC\\tNEWMODEX\\t# NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " '\\t\\tDEC\\t67\\t\\t# SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " '\\t\\tCAF\\tZERO\\t\\t# TO SEE IF ALREADY IN P67.',\n",
       " 'STABL?\\t\\tCAF\\tBIT13\\t\\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " \"\\t\\tTCF\\tGUILDRET\\t# YES ALL'S WELL\",\n",
       " '\\t\\tCA\\tRODCOUNT\\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " '\\t\\tBZF\\tGUILDRET\\t# NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " '\\t\\tTCF\\tSTARTP66\\t# YES. SWITCH INTO THE ROD MODE.',\n",
       " 'RESTART?\\tCA\\tFLAGWRD1\\t# HAS THERE BEEN A RESTART?',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " '\\t\\t\\t\\t\\t#\\tIS.',\n",
       " '\\t\\tTCF\\tVERTGUID\\t# NO: CONTINUE WITH R.O.D.',\n",
       " '# *******************************************************************************',\n",
       " '# INITIALIZATION FOR THIS PASS',\n",
       " '# *******************************************************************************',\n",
       " '# Page 802',\n",
       " '# ******************************************************************',\n",
       " '# ROUTINES TO START NEW PHASES',\n",
       " '# ******************************************************************',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " '\\t\\tCA\\tDELTTFAP\\t# AUGMENT TTF/8',\n",
       " '\\t\\tCA\\tBIT12\\t\\t# ENABLE RUPT10',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# INITIALIZE REDESIGNATION FLAG',\n",
       " '#\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '# *********************************************************************************',\n",
       " '# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " '# *********************************************************************************',\n",
       " '#',\n",
       " '#\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '# Page 803',\n",
       " '#\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '#\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '#\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '#\\t\\t\\t____               ____   ____                   __',\n",
       " '#\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '#\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '#\\t\\t\\t                 ____   _',\n",
       " '#\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS']"
      ]
     },
     "execution_count": 28,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "comments"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "id": "35d7fca4",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "YES! # Copyright:\tPublic domain.\n",
      "YES! # Filename:\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc\n",
      "YES! # Purpose: \tPart of the source code for Luminary 1A build 099.\n",
      "YES! #\t\tIt is part of the source code for the Lunar Module's (LM)\n",
      "YES! #\t\tApollo Guidance Computer (AGC), for Apollo 11.\n",
      "YES! # Assembler:\tyaYUL\n",
      "YES! # Contact:\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.\n",
      "YES! # Website:\twww.ibiblio.org/apollo.\n",
      "YES! # Pages:\t798-828\n",
      "YES! # Mod history:\t2009-05-23 HG\tTranscribed from page images.\n",
      "YES! #\t\t2009-06-05 RSB\tFixed a goofy thing that was apparently\n",
      "YES! #\t\t\t\tlegal in GAP but not in yaYUL.  Eliminated\n",
      "YES! #\t\t\t\ta couple of lines of code that shouldn't\n",
      "YES! #\t\t\t\thave survived from Luminary 131 to here.\n",
      "YES! #\t\t2009-06-07 RSB\tFixed a typo.\n",
      "YES! #\n",
      "YES! # This source code has been transcribed or otherwise adapted from\n",
      "YES! # digitized images of a hardcopy from the MIT Museum.  The digitization\n",
      "YES! # was performed by Paul Fjeld, and arranged for by Deborah Douglas of\n",
      "YES! # the Museum.  Many thanks to both.  The images (with suitable reduction\n",
      "YES! # in storage size and consequent reduction in image quality as well) are\n",
      "YES! # available online at www.ibiblio.org/apollo.  If for some reason you\n",
      "YES! # find that the images are illegible, contact me at info@sandroid.org\n",
      "YES! # about getting access to the (much) higher-quality images which Paul\n",
      "YES! # actually created.\n",
      "YES! #\n",
      "YES! # Notations on the hardcopy document read, in part:\n",
      "YES! #\n",
      "YES! #\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61\n",
      "YES! #\t16:27 JULY 14, 1969\n",
      "ignore \n",
      "YES! # Page 798\n",
      "ignore \t\tEBANK=\tE2DPS\n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "YES! # ********************************************************\n",
      "YES! # LUNAR LANDING FLIGHT SEQUENCE TABLES\n",
      "YES! # ********************************************************\n",
      "ignore \n",
      "YES! # FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:\n",
      "YES! #\tWCHPHASE = -1 ---> IGNALG\n",
      "YES! #\tWCHPHASE =  0 ---> BRAKQUAD\n",
      "YES! #\tWCHPHASE =  1 ---> APPRQUAD\n",
      "YES! #\tWCHPHASE =  2 ---> VERTICAL\n",
      "ignore \n",
      "YES! #*********************************************************\n",
      "ignore \n",
      "YES! # ROUTINES FOR STARTING NEW GUIDANCE PHASES:\n",
      "ignore \n",
      "YES! \t\tTCF\tTTFINCR\t\t# IGNALG\n",
      "YES! NEWPHASE\tTCF\tTTFINCR\t\t# BRAKQUAD\n",
      "YES! \t\tTCF\tSTARTP64\t# APPRQUAD\n",
      "YES! \t\tTCF\tP65START\t# VERTICAL\n",
      "ignore \n",
      "YES! # PRE-GUIDANCE COMPUTATIONS:\n",
      "ignore \n",
      "YES! \t\tTCF\tCALCRGVG\t# IGNALG\n",
      "YES! PREGUIDE\tTCF\tRGVGCALC\t# BRAKQUAD\n",
      "YES! \t\tTCF\tREDESIG\t\t# APPRQUAD\n",
      "YES! \t\tTCF\tRGVGCALC\t# VERTICAL\n",
      "ignore \n",
      "YES! # GUIDANCE EQUATIONS:\n",
      "ignore \n",
      "YES! \t\tTCF\tTTF/8CL\t\t# IGNALG\n",
      "YES! WHATGUID\tTCF\tTTF/8CL\t\t# BRAKQUAD\n",
      "YES! \t\tTCF\tTTF/8CL\t\t# APPRQUAD\n",
      "YES! \t\tTCF\tVERTGUID\t# VERTICAL\n",
      "ignore \n",
      "YES! # POST GUIDANCE EQUATION COMPUTATIONS:\n",
      "ignore \n",
      "YES! \t\tTCF\tCGCALC\t\t# IGNALG\n",
      "YES! AFTRGUID\tTCF\tCGCALC\t\t# BRAKQUAD\n",
      "YES! \t\tTCF\tCGCALC\t\t# APPRQUAD\n",
      "YES! \t\tTCF\tSTEER?\t\t# VERTICAL\n",
      "ignore \n",
      "YES! # Page 799\n",
      "YES! # WINDOW VECTOR COMPUTATIONS:\n",
      "ignore \n",
      "YES! \t\tTCF\tEXGSUB\t\t# IGNALG\n",
      "YES! WHATEXIT\tTCF\tEXBRAK\t\t# BRAKQUAD\n",
      "YES! \t\tTCF\tEXNORM\t\t# APPRQUAD\n",
      "ignore \n",
      "YES! # DISPLAY ROUTINES:\n",
      "ignore \n",
      "YES! WHATDISP\tTCF\tP63DISPS\t# BRAKQUAD\n",
      "YES! \t\tTCF\tP64DISPS\t# APPRQUAD\n",
      "YES! \t\tTCF\tVERTDISP\t# VERTICAL\n",
      "ignore \n",
      "YES! # ALARM ROUTINE FOR TTF COMPUTATION:\n",
      "ignore \n",
      "YES! \t\tTCF\t1406P00\t\t# IGNALG\n",
      "YES! WHATALM\t\tTCF\t1406ALM\t\t# BRAKQUAD\n",
      "YES! \t\tTCF\t1406ALM\t\t# APPRQUAD\n",
      "ignore \n",
      "YES! # INDICES FOR REFERENCING TARGET PARAMETERS\n",
      "ignore \n",
      "YES! \t\tOCT\t0\t\t# IGNALG\n",
      "YES! TARGTDEX\tOCT\t0\t\t# BRAKQUAD\n",
      "YES! \t\tOCT\t34\t\t# APPRQUAD\n",
      "ignore \n",
      "YES! #************************************************************************\n",
      "YES! # ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT\n",
      "YES! #************************************************************************\n",
      "ignore \n",
      "YES! # IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE\n",
      "ignore \n",
      "ignore ?GUIDSUB\tEXIT\n",
      "YES! \t\tCAF\tTWO\t\t# N = 3\n",
      "ignore \t\tTS\tNGUIDSUB\n",
      "ignore \t\tTCF\tGUILDRET +2\n",
      "ignore \n",
      "YES! GUIDSUB\t\tTS\tNGUIDSUB\t# ON SUCCEEDING PASSES SKIP TTFINCR\n",
      "ignore \t\tTCF\tCALCRGVG\n",
      "ignore \n",
      "YES! # NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT\n",
      "ignore \n",
      "ignore LUNLAND\t\tTC\tPHASCHNG\n",
      "YES! \t\tOCT\t00035\t\t# GROUP 5:  RETAIN ONLY PIPA TASK\n",
      "ignore \t\tTC\tPHASCHNG\n",
      "YES! \t\tOCT\t05023\t\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21\n",
      "YES! \t\tOCT\t21000\t\t#\tJUST HIGHER THAN SERVICER'S PRIORITY\n",
      "ignore \n",
      "YES! # Page 800\n",
      "YES! #*******************************************************************\n",
      "YES! # GUILDENSTERN:  AUTO-MODES MONITOR (R13)\n",
      "YES! #*******************************************************************\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/R13\n",
      "ignore \n",
      "YES! # HERE IS THE PHILOSOPHY OF GUILDENSTERN:\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE\n",
      "YES! # DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66\n",
      "YES! # UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE\n",
      "ignore \n",
      "YES! GUILDEN\t\tEXTEND\t\t\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?\n",
      "YES! # STERN\t\t\t\t\t# RSB 2009: Not originally a comment.\n",
      "ignore  \t\tREAD CHAN30\n",
      "ignore \t\tMASK\tBIT5\n",
      "ignore  \t\tCCS\tA\n",
      "YES!  \t\tTCF\tSTARTP67\t# YES\n",
      "YES! P67NOW?\t\tTC\tCHECKMM\t\t# NO:  ARE WE IN P67 NOW?\n",
      "ignore \t\tDEC\t67\n",
      "YES! \t\tTCF\tSTABL?\t\t# NO\n",
      "YES! STARTP66\tTC\tFASTCHNG\t# YES\n",
      "ignore \t\tTC\tNEWMODEX\n",
      "ignore DEC66\t\tDEC\t66\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCA\tHDOTDISP\t# SET DESIRED ALTITUDE RATE = CURRENT\n",
      "YES! \t\tDXCH\tVDGVERT\t\t# \tALTITUDE RATE.\n",
      "ignore STRTP66A\tTC\tINTPRET\n",
      "ignore \t\tSLOAD\tPUSH\n",
      "ignore \t\t\tPBIASZ\n",
      "ignore \t\tSLOAD\tPUSH\n",
      "ignore \t\t\tPBIASY\n",
      "ignore \t\tSLOAD\tVDEF\n",
      "ignore \t\t\tPBIASX\n",
      "ignore \t\tVXSC\tSET\n",
      "ignore \t\t\tBIASFACT\n",
      "ignore \t\t\tRODFLAG\n",
      "ignore \t\tSTOVL\tVBIAS\n",
      "ignore \t\t\tTEMX\n",
      "ignore \t\tVCOMP\n",
      "ignore \t\tSTOVL\tOLDPIPAX\n",
      "ignore \t\t\tZEROVECS\n",
      "ignore \t\tSTODL\tDELVROD\n",
      "ignore \t\t\tRODSCALE\n",
      "ignore \t\tSTODL\tRODSCAL1\n",
      "ignore \t\t\tPIPTIME\n",
      "ignore \t\tSTORE\tLASTTPIP\n",
      "ignore \t\tEXIT\n",
      "ignore \t\tCAF\tZERO\n",
      "ignore \t\tTS\tFCOLD\n",
      "ignore \t\tTS\tFWEIGHT\n",
      "ignore \t\tTS\tFWEIGHT +1\n",
      "ignore VRTSTART\tTS\tWCHVERT\n",
      "YES! # Page 801\n",
      "YES! \t\tCAF\tTWO\t\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67\n",
      "ignore \t\tTS\tWCHPHOLD\n",
      "ignore \t\tTS\tWCHPHASE\n",
      "YES! \t\tTC\tBANKCALL\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "YES! \t\tCADR\tSTOPRATE\t# TEMPORARY, I HOPE HOPE HOPE\n",
      "YES! \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "ignore \t\tADRES\tXOVINFLG\n",
      "ignore \t\tTC\tDOWNFLAG\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore \t\tTCF\tVERTGUID\n",
      "ignore \n",
      "YES! STARTP67\tTC\tNEWMODEX\t# NO HARM IN \"STARTING\" P67 OVER AND OVER\n",
      "YES! \t\tDEC\t67\t\t# SO NO NEED FOR A FASTCHNG AND NO NEED\n",
      "YES! \t\tCAF\tZERO\t\t# TO SEE IF ALREADY IN P67.\n",
      "ignore \t\tTS\tRODCOUNT\n",
      "ignore \t\tCAF\tTEN\n",
      "ignore \t\tTCF\tVRTSTART\n",
      "ignore \n",
      "YES! STABL?\t\tCAF\tBIT13\t\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tRAND\tCHAN31\n",
      "ignore \t\tCCS\tA\n",
      "YES! \t\tTCF\tGUILDRET\t# YES ALL'S WELL\n",
      "ignore \n",
      "ignore P66NOW?\t\tCS\tMODREG\n",
      "ignore \t\tAD\tDEC66\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tBZF\tRESTART?\n",
      "ignore \n",
      "YES! \t\tCA\tRODCOUNT\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tGUILDRET\t# NO. CONTINUE WITH AUTOMATIC LANDING\n",
      "YES! \t\tTCF\tSTARTP66\t# YES. SWITCH INTO THE ROD MODE.\n",
      "ignore \n",
      "YES! RESTART?\tCA\tFLAGWRD1\t# HAS THERE BEEN A RESTART?\n",
      "ignore \t\tMASK\tRODFLBIT\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tSTRTP66A\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS\n",
      "YES! \t\t\t\t\t#\tIS.\n",
      "ignore \n",
      "YES! \t\tTCF\tVERTGUID\t# NO: CONTINUE WITH R.O.D.\n",
      "ignore \n",
      "YES! # *******************************************************************************\n",
      "YES! # INITIALIZATION FOR THIS PASS\n",
      "YES! # *******************************************************************************\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "ignore GUILDRET\tCAF\tZERO\n",
      "ignore \t\tTS\tRODCOUNT\n",
      "ignore \n",
      "YES! # Page 802\n",
      "ignore  +2\t\tEXTEND\n",
      "ignore  \t\tDCA\tTPIP\n",
      "ignore \t\tDXCH\tTPIPOLD\n",
      "ignore \n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tPIPTIME1\n",
      "ignore \t\tDXCH\tTPIP\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tTTF/8\n",
      "ignore \t\tDXCH\tTTF/8TMP\n",
      "ignore \n",
      "ignore \t\tCCS\tFLPASS0\n",
      "ignore \t\tTCF\tTTFINCR\n",
      "ignore \n",
      "ignore BRSPOT1\t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tNEWPHASE\n",
      "ignore \n",
      "YES! # ******************************************************************\n",
      "YES! # ROUTINES TO START NEW PHASES\n",
      "YES! # ******************************************************************\n",
      "ignore \n",
      "ignore P65START\tTC\tNEWMODEX\n",
      "ignore \t\tDEC\t65\n",
      "ignore \t\tCS\tTWO\n",
      "ignore \t\tTS\tWCHVERT\n",
      "YES! \t\tTC\tDOWNFLAG\t# PERMIT X-AXIS OVERRIDE\n",
      "ignore \t\tADRES\tXOVINFLG\n",
      "ignore \t\tTCF\tTTFINCR\n",
      "ignore \n",
      "ignore STARTP64\tTC\tNEWMODEX\n",
      "ignore \t\tDEC\t64\n",
      "YES! \t\tCA\tDELTTFAP\t# AUGMENT TTF/8\n",
      "ignore \t\tADS\tTTF/8TMP\n",
      "YES! \t\tCA\tBIT12\t\t# ENABLE RUPT10\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tWOR\tCHAN13\n",
      "YES! \t\tTC\tDOWNFLAG\t# INITIALIZE REDESIGNATION FLAG\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore \n",
      "ignore \n",
      "YES! #\t\t(CONTINUE TO TTFINCR)\n",
      "ignore \n",
      "YES! # *********************************************************************************\n",
      "YES! # INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS\n",
      "YES! # *********************************************************************************\n",
      "YES! #\n",
      "YES! #\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --\n",
      "YES! # Page 803\n",
      "YES! #\t\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:\n",
      "YES! #\t\t\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8\n",
      "YES! #\t\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:\n",
      "YES! #\t\t\t____               ____   ____                   __\n",
      "YES! #\t\t\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)\n",
      "YES! #\t\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:\n",
      "YES! #\t\t\t                 ____   _\n",
      "YES! #\t\t\tRANGEDSP = ABVAL(LAND - R)\n",
      "ignore \n",
      "ignore TTFINCR\t\tTC\tINTPRET\n",
      "ignore \t\tDLOAD\tDSU\n",
      "ignore \t\t\tTPIP\n",
      "ignore \t\t\tTPIPOLD\n",
      "YES! \t\tSLR\tPUSH\t\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS\n",
      "ignore \t\t\t11D\n",
      "ignore \t\tVXSC\tVXV\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tWM\n",
      "ignore \t\tBVSU\tRTB\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tNORMUNIT\n",
      "ignore \t\tVXSC\tVSL1\n",
      "ignore \t\t\t/LAND/\n",
      "ignore \t\tSTODL\tLANDTEMP\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "ignore \t\tDXCH\tMPAC\n",
      "YES! \t\tDAS\tTTF/8TMP\t# NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP\n",
      "ignore \n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tTTF/8TMP\n",
      "ignore \t\tDXCH\tTTF/8\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP\n",
      "ignore \t\tDXCH\tLAND\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP +2\n",
      "ignore \t\tDXCH\tLAND     +2\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP +4\n",
      "ignore \t\tDXCH\tLAND\t +4\n",
      "ignore \n",
      "YES! # Page 804\n",
      "ignore \t\tTC\tTDISPSET\n",
      "YES! \t\tTC\tFASTCHNG\t# SINCE REDESIG MAY CHANGE LANDTEMP\n",
      "ignore \n",
      "ignore BRSPOT2\t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tPREGUIDE\n",
      "ignore \n",
      "YES! # *********************************************************************\n",
      "YES! # LANDING SITE PERTURBATION EQUATIONS\n",
      "YES! # *********************************************************************\n",
      "ignore \n",
      "YES! REDESIG\t\tCA\tFLAGWRD6\t# IS REDFLAG SET?\n",
      "ignore \t\tMASK\tREDFLBIT\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tRGVGCALC\t# NO:  SKIP REDESIGNATION LOGIC\n",
      "ignore \n",
      "YES! \t\tCA\tTREDES\t\t# YES:  HAS TREDES REACHED ZERO?\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tRGVGCALC\t# YES:  SKIP REDESIGNATION LOGIC\n",
      "ignore \n",
      "ignore \t\tINHINT\n",
      "ignore \t\tCA\tELINCR1\n",
      "ignore \t\tTS\tELINCR\n",
      "ignore \t\tCA\tAZINCR1\n",
      "ignore \t\tTS\tAZINCR\n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tCA\tZERO\n",
      "ignore \t\tTS\tELINCR1\n",
      "ignore \t\tTS\tAZINCR1\n",
      "ignore \t\tTS\tELINCR\t+1\n",
      "ignore \t\tTS\tAZINCR  +1\n",
      "ignore \n",
      "YES! \t\tCA\tFIXLOC\t\t# SET PD TO 0\n",
      "ignore \t\tTS\tPUSHLOC\n",
      "ignore \n",
      "ignore \t\tTC\tINTPRET\n",
      "ignore \t\tVLOAD\tVSU\n",
      "ignore \t\t\tLAND\n",
      "YES! \t\t\tR\t\t#                 ____   _\n",
      "YES! \t\tRTB\tPUSH\t\t# PUSH DOWN UNIT (LAND - R)\n",
      "ignore \t\t\tNORMUNIT\n",
      "ignore \t\tVXV\tVSL1\n",
      "YES! \t\t\tYNBPIP\t\t#                    ___        ____   _\n",
      "YES! \t\tVXSC\tPDDL\t\t# PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))\n",
      "ignore \t\t\tELINCR\n",
      "ignore \t\t\tAZINCR\n",
      "ignore \t\tVXSC\tVSU\n",
      "ignore \t\t\tYNBPIP\n",
      "YES! \t\tVAD\tPUSH\t\t# RESULTING VECTOR IS 1/2 REAL SIZE\n",
      "ignore \n",
      "YES! # Page 805\n",
      "ignore \n",
      "YES! \t\tDLOAD\tDSU\t\t# MAKE SURE REDESIGNATION IS NOT\n",
      "YES! \t\t\t0\t\t# \tTOO CLOSE TO THE HORIZON.\n",
      "ignore \t\t\tDEPRCRIT\n",
      "ignore \t\tBMN\tDLOAD\n",
      "ignore \t\t\tREDES1\n",
      "ignore \t\t\tDEPRCRIT\n",
      "ignore \t\tSTORE\t0\n",
      "ignore REDES1\t\tDLOAD\tDSU\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tR\n",
      "ignore \t\tDDV\tVXSC\n",
      "ignore \t\t\t0\n",
      "ignore \t\tVAD\tUNIT\n",
      "ignore \t\t\tR\n",
      "ignore \t\tVXSC\tVSL1\n",
      "ignore \t\t\t/LAND/\n",
      "ignore \t\tSTORE\tLANDTEMP\n",
      "YES! \t\tEXIT\t\t\t# LOOKANGL WILL BE COMPUTED AT RGVGCALC\n",
      "ignore \n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP\n",
      "ignore \t\tDXCH\tLAND\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP +2\n",
      "ignore \t\tDXCH\tLAND +2\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tLANDTEMP +4\n",
      "ignore \t\tDXCH\tLAND +4\n",
      "ignore \n",
      "ignore \t\tTCF\tRGVGCALC\n",
      "ignore \n",
      "YES! # *********************************************************************\n",
      "YES! # COMPUTE STATE IN GUIDANCE COORDINATES\n",
      "YES! # *********************************************************************\n",
      "YES! #\n",
      "YES! #\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--\n",
      "YES! #\tVELOCITY RELATIVE TO THE SURFACE:\n",
      "YES! #\t\t_______   _   _   __\n",
      "YES! #\t\tANGTERM = V + R * WM\n",
      "YES! #\tSTATE IN GUIDANCE COORDINATES:\n",
      "YES! #\t\t___   *   _   ____\n",
      "YES! #\t\tRGU = CG (R - LAND)\n",
      "YES! #\t\t___   *   _   __   _\n",
      "YES! #\t\tVGU = CG (V - WM * R)\n",
      "YES! # Page 806 actually starts one line earlier but that would separate the markers from their variables\n",
      "YES! #\n",
      "YES! #\tHORIZONTAL VELOCITY FOR DISPLAY\n",
      "YES! #\n",
      "YES! #\t\tVHORIZ = 8 ABVAL (0, VG , VG )\n",
      "YES! #\t\t                       2    1\n",
      "YES! # \tDEPRESSION ANGLE FOR DISPLAY:\n",
      "YES! #\t\t                       _   ____  ______\n",
      "YES! #\t\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)\n",
      "ignore \n",
      "YES! CALCRGVG\tTC\tINTPRET\t\t# IN IGNALG, COMPUTE V FROM INTEGRATION\n",
      "YES! \t\tVLOAD\tMXV\t\t#\tOUTPUT AND TRIM CORRECTION TERM\n",
      "YES! \t\t\tVATT1\t\t#\tCOMPUTED LAST PASS AND LEFT IN UNFC/2\n",
      "ignore \t\t\tREFSMMAT\n",
      "ignore \t\tVSR1\tVAD\n",
      "ignore \t\t\tUNFC/2\n",
      "ignore \t\tSTORE\tV\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "YES! RGVGCALC\tTC\tINTPRET\t\t# ENTER HERE TO RECOMPUTE RG AND VG\n",
      "ignore \t\tVLOAD\tVXV\n",
      "ignore \t\t\tR\n",
      "ignore \t\t\tWM\n",
      "YES! \t\tVAD\tVSR2\t\t# RESCALE TO UNITS OF 2(9) M/CS\n",
      "ignore \t\t\tV\n",
      "ignore \t\tSTORE\tANGTERM\n",
      "ignore \t\tMXV\n",
      "YES! \t\t\tCG\t\t# NO SHIFT SINCE ANGTERM IS DOUBLE SIZED\n",
      "ignore \t\tSTORE\tVGU\n",
      "YES! \t\tPDDL\tVDEF\t\t# FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS\n",
      "YES! \t\t\tZEROVECS\t#           2   1\n",
      "ignore \t\tABVAL\tSL3\n",
      "YES! \t\tSTOVL\tVHORIZ\t\t# VHORIZ FOR DISPLAY DURING P65.\n",
      "YES! \t\t\tR\t\t#           _   ____\n",
      "YES! \t\tVSU\tPUSH\t\t# PUSH DOWN R - LAND\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\tMXV\tVSL1\n",
      "ignore \t\t\tCG\n",
      "ignore \t\tSTORE\tRGU\n",
      "ignore \t\tABVAL\n",
      "ignore \t\tSTOVL\tRANGEDSP\n",
      "YES! \t\tRTB\tDOT\t\t# NOW IN MPAC IS SINE(LOOKANGL)/4\n",
      "ignore \t\t\tNORMUNIT\n",
      "ignore \t\t\tXNBPIP\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "YES! \t\tCA\tFIXLOC\t\t# RESET PUSH DOWN POINTER\n",
      "ignore \t\tTS\tPUSHLOC\n",
      "ignore \n",
      "YES! # Page 807\n",
      "YES! \t\tCA\tMPAC\t\t# COMPUTE LOOKANGLE ITSELF\n",
      "ignore \t\tDOUBLE\n",
      "ignore \t\tTC\tBANKCALL\n",
      "ignore \t\tCADR\tSPARCSIN -1\n",
      "ignore \t\tAD\t1/2DEG\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tMP\t180DEGS\n",
      "YES! \t\tTS\tLOOKANGL\t# LOOKANGL FOR DISPLAY DURING P64\n",
      "ignore \n",
      "ignore BRSPOT3\t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tWHATGUID\n",
      "ignore \n",
      "YES! # **************************************************************************\n",
      "YES! # TTF/8 COMPUTATION\n",
      "YES! # **************************************************************************\n",
      "ignore \n",
      "ignore TTF/8CL\t\tTC\tINTPRETX\n",
      "ignore \t\tDLOAD*\n",
      "ignore \t\t\tJDG2TTF,1\n",
      "YES! \t\tSTODL*\tTABLTTF +6\t# A(3) = 8 JDG  TO TABLTTF\n",
      "YES! \t\t\tADG2TTF,1\t#             2\n",
      "YES! \t\tSTODL\tTABLTTF +4\t# A(2) = 6 ADG  TO TABLTTF\n",
      "YES! \t\t\tVGU \t+4\t#             2\n",
      "ignore \t\tDMP\tDAD*\n",
      "ignore \t\t\t3/4DP\n",
      "ignore \t\t\tVDG2TTF,1\n",
      "YES! \t\tSTODL*\tTABLTTF +2\t# A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF\n",
      "YES! \t\t\tRDG +4,1\t#              2         2\n",
      "ignore \t\tDSU\tDMP\n",
      "ignore \t\t\tRGU +4\n",
      "ignore \t\t\t3/8DP\n",
      "YES! \t\tSTORE\tTABLTTF\t\t# A(0) = -24 (RGU  - RDG )/64 TO TABLTTF\n",
      "YES! \t\tEXIT\t\t\t#                2      2\n",
      "ignore \n",
      "ignore \t\tCA\tBIT8\n",
      "YES! \t\tTS\tTABLTTF +10\t# FRACTIONAL PRECISION FOR TTF TO TABLE\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tTTF/8\n",
      "YES! \t\tDXCH\tMPAC\t\t# LOADS TTF/8 (INITIAL GUESS) INTO MPAC\n",
      "YES! \t\tCAF\tTWO\t\t# DEGREE - ONE\n",
      "ignore \t\tTS\tL\n",
      "ignore \t\tCAF\tTABLTTFL\n",
      "YES! \t\tTC\tROOTPSRS\t# YIELDS TTF/8 IN MPAC\n",
      "ignore \t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tWHATALM\n",
      "ignore \n",
      "YES! \t\tEXTEND\t\t\t# GOOD RETURN\n",
      "YES! \t\tDCA\tMPAC\t\t# FETCH TTF/8 KEEPING IT IN MPAC\n",
      "YES! \t\tDXCH\tTTF/8\t\t# CORRECTED TTF/8\n",
      "ignore \n",
      "YES! # Page 808\n",
      "ignore \t\tTC\tTDISPSET\n",
      "ignore \n",
      "YES! # \t\t(CONTINUE TO QUADGUID)\n",
      "ignore \n",
      "YES! # *********************************************************************************\n",
      "YES! # MAIN GUIDANCE EQUATION\n",
      "YES! # *********************************************************************************\n",
      "YES! #\n",
      "YES! #\tAS PUBLISHED --\n",
      "YES! #\t\t              ___   __       ___   __\n",
      "YES! #\t\t___   ___   6(VDG + VG)   12(RDG - RG)\n",
      "YES! #\t\tACG = ADG + ----------- + ------------\n",
      "YES! #\t\t                TTF        (TTF)(TTF)\n",
      "YES! #\tAS HERE PROGRAMMED --\n",
      "YES! #\t\t             ___   __\n",
      "YES! #\t\t      3 (1/4(RDG - RG)   ___   __)\n",
      "YES! #\t\t      - (------------- + VDG + VG)\n",
      "YES! #\t\t___   4 (    TTF/8               )   ___\n",
      "YES! #\t\tACG = ---------------------------- + ADG\n",
      "YES! #\t\t                  TTF/8\n",
      "ignore \n",
      "ignore QUADGUID\tCS\tTTF/8\n",
      "YES! \t\tAD\tLEADTIME\t# LEADTIME IS A NEGATIVE NUMBER\n",
      "YES! \t\tAD\tPOSMAX\t\t# SAFEGUARD THE COMPUTATIONS THAT FOLLOW\n",
      "YES! \t\tTS\tL\t\t#\tBY FORCING -TTF*LEADTIME > OR = ZERO\n",
      "ignore \t\tCS\tL\n",
      "ignore \t\tAD\tL\n",
      "ignore \t\tZL\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDV\tTTF/8\n",
      "YES! \t\tTS\tBUF\t\t# - RATIO OF LAG-DIMINISHED TTF TO TTF\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tSQUARE\n",
      "ignore \t\tTS\tBUF +1\n",
      "ignore \t\tAD\tBUF\n",
      "YES! \t\tXCH\tBUF +1\t\t# RATIO SQUARED - RATIO\n",
      "ignore \t\tAD\tBUF +1\n",
      "YES! \t\tTS\tMPAC\t\t# COEFFICIENT FOR VGU TERM\n",
      "ignore \t\tAD\tBUF +1\n",
      "ignore \t\tINDEX\tFIXLOC\n",
      "YES! \t\tTS\t26D\t\t# COEFFICIENT FOR RDG-RGU TERM\n",
      "ignore \t\tAD\tBUF +1\n",
      "ignore \t\tINDEX\tFIXLOC\n",
      "YES! \t\tTS\t28D\t\t# COEFFICIENT FOR VDG TERM\n",
      "ignore \t\tAD\tBUF\n",
      "ignore \t\tAD\tPOSMAX\n",
      "YES! # Page 809\n",
      "ignore \t\tAD\tBUF +1\n",
      "ignore \t\tAD\tBUF +1\n",
      "ignore \t\tINDEX\tFIXLOC\n",
      "YES! \t\tTS\t30D\t\t# COEFFICIENT FOR ADG TERM\n",
      "ignore \n",
      "ignore \t\tCAF\tZERO\n",
      "ignore \t\tTS\tMODE\n",
      "ignore \n",
      "ignore \t\tTC\tINTPRETX\n",
      "ignore \t\tVXSC\tPDDL\n",
      "ignore \t\t\tVGU\n",
      "ignore \t\t\t28D\n",
      "ignore \t\tVXSC*\tPDVL*\n",
      "ignore \t\t\tVDG,1\n",
      "ignore \t\t\tRDG,1\n",
      "ignore \t\tVSU\tV/SC\n",
      "ignore \t\t\tRGU\n",
      "ignore \t\t\tTTF/8\n",
      "ignore \t\tVSR2\tVXSC\n",
      "ignore \t\t\t26D\n",
      "ignore \t\tVAD\tVAD\n",
      "ignore \t\tV/SC\tVXSC\n",
      "ignore \t\t\tTTF/8\n",
      "ignore \t\t\t3/4DP\n",
      "ignore \t\tPDDL\tVXSC*\n",
      "ignore \t\t\t30D\n",
      "ignore \t\t\tADG,1\n",
      "ignore \t\tVAD\n",
      "YES! AFCCALC1\tVXM\tVSL1\t\t# VERGUID COMES HERE\n",
      "ignore \t\t\tCG\n",
      "ignore \t\tPDVL\tV/SC\n",
      "ignore \t\t\tGDT/2\n",
      "ignore \t\t\tGSCALE\n",
      "ignore \t\tBVSU\tSTADR\n",
      "YES! \t\tSTORE\tUNFC/2\t\t# UNFC/2 NEED NOT BE UNITIZED\n",
      "ignore \t\tABVAL\n",
      "YES! AFCCALC2\tSTODL\t/AFC/\t\t# MAGNITUDE OF AFC FOR THROTTLE\n",
      "YES! \t\t\tUNFC/2\t\t# VERTICAL COMPONENT\n",
      "ignore \t\tDSQ\tPDDL\n",
      "YES! \t\t\tUNFC/2 +2\t# OUT-OF-PLANE\n",
      "ignore \t\tDSQ\tPDDL\n",
      "ignore \t\t\tHIGHESTF\n",
      "ignore \t\tDDV\tDSQ\n",
      "YES! \t\t\tMASS\t\t#                        2    2    2\n",
      "YES! \t\tDSU\tDSU\t\t# AMAXHORIZ = SQRT(ATOTAL - A  - A  )\n",
      "YES! \t\tBPL\tDLOAD\t\t#                            1    0\n",
      "ignore \t\t\tAFCCALC3\n",
      "ignore \t\t\tZEROVECS\n",
      "ignore AFCCALC3\tSQRT\tDAD\n",
      "ignore \t\t\tUNFC/2 +4\n",
      "YES! # Page 810\n",
      "ignore \t\tBPL\tBDSU\n",
      "ignore \t\t\tAFCCLEND\n",
      "ignore \t\t\tUNFC/2 +4\n",
      "ignore \t\tSTORE\tUNFC/2 +4\n",
      "ignore AFCCLEND\tEXIT\n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "YES! \t\tCA\tWCHPHASE\t# PREPARE FOR PHASE SWITCHING LOGIC\n",
      "ignore \t\tTS\tWCHPHOLD\n",
      "YES! \t\tINCR\tFLPASS0\t\t# INCREMENT PASS COUNTER\n",
      "ignore \n"
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "ignore BRSPOT4\t\tINDEX\tWCHPHASE\n",
      "ignore \t\tTCF\tAFTRGUID\n",
      "ignore \n",
      "YES! # ***********************************************************************\n",
      "YES! # ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX\n",
      "YES! # ***********************************************************************\n",
      "ignore \n",
      "ignore CGCALC\t\tCAF\tEBANK5\n",
      "ignore \t\tTS\tEBANK\n",
      "ignore \t\tEBANK=\tTCGIBRAK\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tINDEX\tWCHPHASE\n",
      "ignore \t\tINDEX\tTARGTDEX\n",
      "ignore \t\tDCA\tTCGFBRAK\n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tEBANK=\tTTF/8\n",
      "ignore \t\tAD\tTTF/8\n",
      "ignore \t\tXCH\tL\n",
      "ignore \t\tAD\tTTF/8\n",
      "ignore \t\tCCS\tA\n",
      "ignore \t\tCCS\tL\n",
      "ignore \t\tTCF\tEXTLOGIC\n",
      "ignore \t\tTCF\tEXTLOGIC\n",
      "ignore \t\tNOOP\n",
      "ignore \n",
      "ignore \t\tTC\tINTPRETX\n",
      "ignore \t\tVLOAD\tUNIT\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\tSTODL\tCG\n",
      "ignore \t\t\tTTF/8\n",
      "ignore \t\tDMP*\tVXSC\n",
      "YES! \t\t\tGAINBRAK,1\t# NUMERO MYSTERIOSO\n",
      "ignore \t\t\tANGTERM\n",
      "ignore \t\tVAD\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\tVSU\tRTB\n",
      "ignore \t\t\tR\n",
      "ignore \t\t\tNORMUNIT\n",
      "YES! # Page 811\n",
      "ignore \t\tVXV\tRTB\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tNORMUNIT\n",
      "YES! \t\tSTOVL\tCG +6\t\t# SECOND ROW\n",
      "ignore \t\t\tCG\n",
      "ignore \t\tVXV\tVSL1\n",
      "ignore \t\t\tCG +6\n",
      "ignore \t\tSTORE\tCG +14\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "YES! #\t\t(CONTINUE TO EXTLOGIC)\n",
      "YES! #\n",
      "YES! # ***********************************************************************\n",
      "YES! # PREPARE TO EXIT\n",
      "YES! # ***********************************************************************\n",
      "YES! #\n",
      "YES! # DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES\n",
      "YES! #\n",
      "YES! EXTLOGIC\tINDEX\tWCHPHASE\t# WCHPHASE = 1   APPRQUAD\n",
      "YES! \t\tCA\tTENDBRAK\t# WCHPHASE = 0   BRAKQUAD\n",
      "ignore \t\tAD\tTTF/8\n",
      "ignore \n",
      "ignore EXSPOT1\t\tEXTEND\n",
      "ignore \t\tINDEX\tWCHPHASE\n",
      "ignore \t\tBZMF\tWHATEXIT\n",
      "ignore \n",
      "ignore \t\tTC\tFASTCHNG\n",
      "ignore \n",
      "ignore \t\tCA\tWCHPHOLD\n",
      "ignore \t\tAD\tONE\n",
      "ignore \t\tTS\tWCHPHASE\n",
      "ignore \t\tCA\tZERO\n",
      "YES! \t\tTS\tFLPASS0\t\t# RESET FLPASS0\n",
      "ignore \n",
      "ignore \t\tINDEX\tWCHPHOLD\n",
      "ignore \t\tTCF\tWHATEXIT\n",
      "ignore \n",
      "YES! # ***********************************************************************\n",
      "YES! # ROUTINES FOR EXITING FROM LANDING GUIDANCE\n",
      "YES! # ***********************************************************************\n",
      "YES! #\n",
      "YES! # 1.\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.\n",
      "YES! # 2.\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.\n",
      "YES! # 3.\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.\n",
      "YES! # (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)\n",
      "ignore \n",
      "YES! EXGSUB\t\tTC\tINTPRET\t\t# COMPUTE TRIM VELOCITY CORRECTION TERM.\n",
      "YES! # Page 812\n",
      "ignore \t\tVLOAD\tRTB\n",
      "ignore \t\t\tUNFC/2\n",
      "ignore \t\t\tNORMUNIT\n",
      "ignore \t\tVXSC\tVXSC\n",
      "ignore \t\t\tZOOMTIME\n",
      "ignore \t\t\tTRIMACCL\n",
      "ignore \t\tSTORE\tUNFC/2\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "ignore \t\tCCS\tNGUIDSUB\n",
      "ignore \t\tTCF\tGUIDSUB\n",
      "ignore \t\tCCS\tNIGNLOOP\n",
      "ignore \t\tTCF\t+3\n",
      "ignore \t\tTC\tALARM\n",
      "ignore \t\tOCT\t01412\n",
      "ignore \n",
      "ignore  +3\t\tTC\tPOSTJUMP\n",
      "ignore  \t\tCADR\tDDUMCALC\n",
      "ignore \n",
      "ignore EXBRAK\t\tTC\tINTPRET\n",
      "ignore \t\tVLOAD\n",
      "ignore \t\t\tUNIT/R/\n",
      "ignore \t\tSTORE\tUNWC/2\n",
      "ignore \t\tEXIT\n",
      "ignore \t\tTCF\tSTEER?\n",
      "ignore \n",
      "ignore EXNORM\t\tTC\tINTPRET\n",
      "ignore \t\tVLOAD\tVSU\n",
      "ignore \t\t\tLAND\n",
      "ignore \t\t\tR\n",
      "ignore \t\tRTB\n",
      "ignore \t\t\tNORMUNIT\n",
      "YES! \t\tSTORE\tUNWC/2\t\t# UNIT(LAND - R) IS TENTATIVE CHOICE\n",
      "ignore \t\tVXV\tDOT\n",
      "ignore \t\t\tXNBPIP\n",
      "ignore \t\t\tCG +6\n",
      "YES! \t\tEXIT\t\t\t# WITH PROJ IN MPAC 1/8 REAL SIZE\n",
      "ignore \n",
      "YES! \t\tCS\tMPAC\t\t# GET COEFFICIENT FOR CG +14\n",
      "ignore \t\tAD\tPROJMAX\n",
      "ignore \t\tAD\tPOSMAX\n",
      "ignore \t\tTS\tBUF\n",
      "ignore \t\tCS\tBUF\n",
      "YES! \t\tADS\tBUF\t\t# RESULT IS 0 IF PROJMAX - PROJ NEGATIVE\n",
      "ignore \n",
      "YES! \t\tCS\tPROJMIN\t\t# GET COEFFICIENT FOR UNIT(LAND - R)\n",
      "ignore \t\tAD\tMPAC\n",
      "ignore \t\tAD\tPOSMAX\n",
      "ignore \t\tTS\tBUF +1\n",
      "ignore \t\tCS\tBUF +1\n",
      "YES! # Page 813\n",
      "YES! \t\tADS\tBUF +1\t\t# RESULT IS 0 IF PROJ - PROJMIN NEGATIVE\n",
      "ignore \n",
      "ignore \t\tCAF\tFOUR\n",
      "ignore UNWCLOOP\tMASK\tSIX\n",
      "ignore \t\tTS\tQ\n",
      "ignore \t\tCA\tEBANK5\n",
      "ignore \t\tTS\tEBANK\n",
      "ignore \t\tEBANK=\tCG\n",
      "ignore \t\tCA\tBUF\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tINDEX\tQ\n",
      "ignore \t\tMP\tCG +14\n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tEBANK=\tUNWC/2\n",
      "ignore \t\tINDEX\tQ\n",
      "ignore \t\tDXCH\tUNWC/2\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tMP\tBUF +1\n",
      "ignore \t\tINDEX\tQ\n",
      "ignore \t\tDAS\tUNWC/2\n",
      "ignore \t\tCCS\tQ\n",
      "ignore \t\tTCF\tUNWCLOOP\n",
      "ignore \n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tEBANK=\tPIF\n",
      "ignore \n",
      "YES! STEER?\t\tCA\tFLAGWRD2\t# IF STEERSW DOWN NO OUTPUTS\n",
      "ignore \t\tMASK\tSTEERBIT\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tBZF\tRATESTOP\n",
      "ignore \n",
      "YES! EXVERT\t\tCA\tOVFIND\t\t# IF OVERFLOW ANYWHERE IN GUIDANCE\n",
      "YES! \t\tEXTEND\t\t\t#\tDON'T CALL THROTTLE OR FINDCDUW\n",
      "ignore \t\tBZF\t+13\n",
      "ignore \n",
      "YES! EXOVFLOW\tTC\tALARM\t\t# SOUND THE ALARM NON-ABORTIVELY\n",
      "ignore \t\tOCT\t01410\n",
      "ignore \n",
      "YES! RATESTOP\tCAF\tBIT13\t\t# ARE WE IN ATTITUDE-HOLD?\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tRAND\tCHAN31\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tDISPEXIT\t# YES\n",
      "ignore \n",
      "YES! \t\tTC\tBANKCALL\t# NO:  DO A STOPRATE\n",
      "ignore \t\tCADR\tSTOPRATE\n",
      "ignore \n",
      "ignore \t\tTCF\tDISPEXIT\n",
      "ignore \n",
      "ignore GDUMP1\t\tTC\tTHROTTLE\n",
      "YES! # Page 814\n",
      "ignore \t\tTC\tINTPRET\n",
      "ignore \t\tCALL\n",
      "ignore \t\t\tFINDCDUW -2\n",
      "ignore \t\tEXIT\n",
      "ignore \n",
      "YES! # \t\t(CONTINUE TO DISPEXIT)\n",
      "ignore \n",
      "YES! # ***********************************************************************\n",
      "YES! # GUIDANCE LOOP DISPLAYS\n",
      "YES! # ***********************************************************************\n",
      "ignore \n",
      "YES! DISPEXIT\tEXTEND\t\t\t# KILL GROUP 3:  DISPLAYS WILL BE\n",
      "YES! \t\tDCA\tNEG0\t\t#\tRESTORED BY NEXT GUIDANCE CYCLE.\n",
      "ignore \t\tDXCH\t-PHASE3\n",
      "ignore \n",
      "YES!  +3\t\tCS\tFLAGWRD8\t# IF FLUNDISP IS SET, NO DISPLAY THIS PASS\n",
      "ignore  \t\tMASK\tFLUNDBIT\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tENDLLJOB\t# TO PICK UP THE TAG\n",
      "ignore \n",
      "ignore \t\tINDEX\tWCHPHOLD\n",
      "ignore \t\tTCF\tWHATDISP\n",
      "ignore \n",
      "YES! -2\t\tTC\tPHASCHNG\t# KILL GROUP 5\n",
      "ignore \t\tOCT\t00035\n",
      "ignore \n",
      "ignore P63DISPS\tCAF\tV06N63\n",
      "ignore DISPCOMN\tTC\tBANKCALL\n",
      "ignore \t\tCADR\tREGODSPR\n",
      "ignore \n",
      "ignore ENDLLJOB\tTCF\tENDOFJOB\n",
      "ignore \n",
      "YES! P64DISPS\tCA\tTREDES\t\t# HAS TREDES REACHED ZERO?\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tRED-OVER\t# YES: CLEAR REDESIGNATION FLAG\n",
      "ignore \n",
      "YES! \t\tCS\tFLAGWRD6\t# NO:  IS REDFLAG SET?\n",
      "ignore \t\tMASK\tREDFLBIT\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tREDES-OK\t# YES:  DO STATIC DISPLAY\n",
      "ignore \n",
      "YES! \t\tCAF\tV06N64\t\t# OTHERWISE USE FLASHING DISPLAY\n",
      "ignore \t\tTC\tBANKCALL\n",
      "ignore \t\tCADR\tREFLASHR\n",
      "YES! \t\tTCF\tGOTOP00H\t# TERMINATE\n",
      "YES! \t\tTCF\tP64CEED\t\t# PROCEED\tPERMIT REDESIGNATIONS\n",
      "YES! \t\tTCF\tP64DISPS\t# RECYCLE\n",
      "YES! # Page 815\n",
      "ignore \t\tTCF\tENDLLJOB\n",
      "ignore \n",
      "ignore P64CEED\t\tCAF\tZERO\n",
      "ignore \t\tTS\tELINCR1\n",
      "ignore \t\tTS\tAZINCR1\n",
      "ignore \n",
      "YES! \t\tTC\tUPFLAG\t\t# ENABLE REDESIGNATION LOGIC\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore \n",
      "ignore \t\tTCF\tENDOFJOB\n",
      "ignore \n",
      "ignore RED-OVER\tTC\tDOWNFLAG\n",
      "ignore \t\tADRES\tREDFLAG\n",
      "ignore REDES-OK\tCAF\tV06N64\n",
      "ignore \t\tTCF\tDISPCOMN\n",
      "ignore \n",
      "ignore \n",
      "ignore VERTDISP\tCAF\tV06N60\n",
      "ignore \t\tTCF\tDISPCOMN\n",
      "ignore \n",
      "ignore \n",
      "YES! # **************************************************************************\n",
      "YES! # GUIDANCE FOR P65\n",
      "YES! # **************************************************************************\n",
      "ignore \n",
      "ignore VERTGUID\tCCS\tWCHVERT\n",
      "YES! \t\tTCF\tP67VERT\t\t# POSITIVE NON-ZERO ---> P67\n",
      "YES! \t\tTCF\tP66VERT\t\t# +0\n",
      "YES! #\n",
      "YES! # \tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --\n",
      "YES! #\t\t      ____   ___\n",
      "YES! #\t\t      V2FG - VGU\n",
      "YES! #\t\tACG = ----------\n",
      "YES! #\t\t        TAUVERT\n",
      "ignore \n",
      "ignore P65VERT\t\tTC\tINTPRET\n",
      "ignore \t\tVLOAD\tVSU\n",
      "ignore \t\t\tV2FG\n",
      "ignore \t\t\tVGU\n",
      "ignore \t\tV/SC\tGOTO\n",
      "ignore \t\t\tTAUVERT\n",
      "ignore \t\t\tAFCCALC1\n",
      "YES! # Page 816\n",
      "YES! # **********************************************************\n",
      "YES! # GUIDANCE FOR P66\n",
      "YES! # **********************************************************\n",
      "ignore \n",
      "ignore P66VERT\t\tTC\tPOSTJUMP\n",
      "ignore \t\tCADR\tP66VERTA\n",
      "ignore \n",
      "YES! P67VERT\t\tTC\tPHASCHNG\t# TERMINATE GROUP 3.\n",
      "ignore \t\tOCT\t00003\n",
      "ignore \n",
      "ignore \t\tTC\tINTPRET\n",
      "ignore \t\tVLOAD\tGOTO\n",
      "ignore \t\t\tV\n",
      "ignore \t\t\tVHORCOMP\n",
      "ignore \n",
      "ignore \t\tSETLOC\tP66LOC\n",
      "ignore \t\tBANK\n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "ignore RODTASK\t\tCAF\tPRIO22\n",
      "ignore \t\tTC\tFINDVAC\n",
      "ignore \t\tEBANK=\tDVCNTR\n",
      "ignore \t\t2CADR\tRODCOMP\n",
      "ignore \n",
      "ignore \t\tTCF\tTASKOVER\n",
      "ignore \n",
      "YES! P66VERTA\tTC\tPHASCHNG\t# TERMINATE GROUP 3.\n",
      "ignore \t\tOCT\t00003\n",
      "ignore \n",
      "ignore \t\tCAF\t1SEC\n",
      "ignore \t\tTC\tTWIDDLE\n",
      "ignore \t\tADRES\tRODTASK\n",
      "ignore \n",
      "ignore RODCOMP\t\tINHINT\n",
      "ignore \t\tCAF\tZERO\n",
      "ignore \t\tXCH\tRODCOUNT\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tMP\tRODSCAL1\n",
      "YES! \t\tDAS\tVDGVERT\t\t# UPDATE DESIRED ALTITUDE RATE.\n",
      "ignore \n",
      "YES! \t\tEXTEND\t\t\t# SET OLDPIPAX,Y,Z = PIPAX,Y,Z\n",
      "ignore \t\tDCA\tPIPAX\n",
      "ignore \t\tDXCH\tOLDPIPAX\n",
      "YES! \t\tDXCH\tRUPTREG1\t# SET RUPTREG1,2,3 = OLDPIPAX,Y,Z\n",
      "ignore \t\tCA\tPIPAZ\n",
      "ignore \t\tXCH\tOLDPIPAZ\n",
      "ignore \t\tXCH\tRUPTREG3\n",
      "ignore \n",
      "YES! \t\tEXTEND\t\t\t# SNAPSHOT TIME OF PIPA READING.\n",
      "ignore \t\tDCA\tTIME2\n",
      "YES! # Page 817\n",
      "ignore \t\tDXCH\tTHISTPIP\n",
      "ignore \n",
      "ignore \t\tCA\tOLDPIPAX\n",
      "ignore \t\tAD\tPIPATMPX\n",
      "YES! \t\tTS\tMPAC\t\t# MPAC(X) = PIPAX + PIPATMPX\n",
      "ignore \t\tCA\tOLDPIPAY\n",
      "ignore \t\tAD\tPIPATMPY\n",
      "YES! \t\tTS\tMPAC +3\t\t# MPAC(Y) = PIPAY + PIPATMPY\n",
      "ignore \t\tCA\tOLDPIPAZ\n",
      "ignore \t\tAD\tPIPATMPZ\n",
      "YES! \t\tTS\tMPAC +5\t\t# MPAC(Z) = PIPAZ + PIPATMPZ\n",
      "ignore \n",
      "ignore \t\tCS\tOLDPIPAX\n",
      "ignore \t\tAD\tTEMX\n",
      "ignore \t\tAD\tRUPTREG1\n",
      "ignore \t\tTS\tDELVROD\n",
      "ignore \t\tCS\tOLDPIPAY\n",
      "ignore \t\tAD\tTEMY\n",
      "ignore \t\tAD\tRUPTREG2\n",
      "ignore \t\tTS\tDELVROD +2\n",
      "ignore \t\tCS\tOLDPIPAZ\n",
      "ignore \t\tAD\tTEMZ\n",
      "ignore \t\tAD\tRUPTREG3\n",
      "ignore \t\tTS\tDELVROD +4\n",
      "ignore \n",
      "ignore \t\tCAF\tZERO\n",
      "YES! \t\tTS\tMPAC +1\t\t# ZERO LO-ORDER MPAC COMPONENTS\n",
      "ignore \t\tTS\tMPAC +4\n",
      "ignore \t\tTS\tMPAC +6\n",
      "YES! \t\tTS\tTEMX\t\t# ZERO TEMX, TEMY, AND TEMZ SO WE WILL\n",
      "YES! \t\tTS\tTEMY\t\t#\tKNOW WHEN READACCS CHANGES THEM.\n",
      "ignore \t\tTS\tTEMZ\n",
      "ignore \t\tCS\tONE\n",
      "ignore \t\tTS\tMODE\n",
      "ignore \t\tTC\tINTPRET\n",
      "YES! ITRPNT1\t\tVXSC\tPDDL\t\t# SCALE MPAC TO M/CS *2(-7) AND PUSH \t(6)\n",
      "ignore \t\t\tKPIP1\n",
      "ignore \t\t\tTHISTPIP\n",
      "ignore \t\tDSU\n",
      "ignore \t\t\tPIPTIME\n",
      "YES! \t\tSTORE\t30D\t\t# 30-31D CONTAINS TIME IN CS SINCE PIPTIME\n",
      "YES! \t\tDDV\tPDVL\t\t#\t\t\t\t\t(8)\n",
      "ignore \t\t\t4SEC(28)\n",
      "ignore \t\t\tGDT/2\n",
      "YES! \t\tVSU\tVXSC\t\t#\t\t\t\t\t(6)\n",
      "ignore \t\t\tVBIAS\n",
      "ignore \t\tVSL2\tVAD\n",
      "ignore \t\t\tV\n",
      "YES! \t\tVAD\tSTADR\t\t#\t\t\t\t\t(0)\n",
      "YES! \t\tSTOVL\t24D\t\t# STORE UPDATED VELOCITY IN 24-29D\n",
      "YES! # Page 818\n",
      "ignore \t\t\tR\n",
      "ignore \t\tUNIT\n",
      "ignore \t\tSTORE\t14D\n",
      "ignore \t\tDOT\tSL1\n",
      "ignore \t\t\t24D\n",
      "YES! \t\tSTODL\tHDOTDISP\t# UPDATE HDOTDISP RATE FOR NOUN 63.\n",
      "ignore \t\t\t30D\n",
      "ignore \t\tSL\tDMP\n",
      "ignore \t\t\t11D\n",
      "ignore \t\t\tHDOTDISP\n",
      "ignore \t\tDAD\tDSU\n",
      "ignore \t\t\t36D\n",
      "ignore \t\t\t/LAND/\n",
      "YES! \t\tSTODL\tHCALC1\t\t# UPDATE HCALC1 FOR NOUN 63.\n",
      "ignore \t\t\tHDOTDISP\n",
      "ignore \t\tBDSU\tDDV\n",
      "ignore \t\t\tVDGVERT\n",
      "ignore \t\t\tTAUROD\n",
      "YES! \t\tPDVL\tABVAL\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\tGDT/2\n",
      "ignore \t\tDDV\tSR2\n",
      "ignore \t\t\tGSCALE\n",
      "ignore \t\tSTORE\t20D\n",
      "YES! \t\tDAD\t\t\t#\t\t\t\t(0)\n",
      "YES! \t\tPDVL\tCALL\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\tUNITX\n",
      "ignore \t\t\tCDU*NBSM\n",
      "ignore \t\tDOT\n",
      "ignore \t\t\t14D\n",
      "ignore \t\tSTORE\t22D\n",
      "YES! \t\tBDDV\tSTADR\t\t#\t\t\t\t(0)\n",
      "ignore \t\tSTOVL\t/AFC/\n",
      "ignore \t\t\tDELVROD\n",
      "ignore \t\tVXSC\tVAD\n",
      "ignore \t\t\tKPIP1\n",
      "ignore \t\t\tVBIAS\n",
      "YES! \t\tABVAL\tPDDL\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\tTHISTPIP\n",
      "YES! \t\tDSU\tPDDL\t\t#\t\t\t\t(4)\n",
      "ignore \t\t\tLASTTPIP\n",
      "ignore \t\t\tTHISTPIP\n",
      "YES! \t\tSTODL\tLASTTPIP\t#\t\t\t\t(2)\n",
      "YES! \t\tDDV\tBDDV\t\t#\t\t\t\t(0)\n",
      "ignore \t\t\tSHFTFACT\n",
      "YES! \t\tPDDL\tDMP\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\tFWEIGHT\n",
      "ignore \t\t\tBIT1H\n",
      "ignore \t\tDDV\tDDV\n",
      "ignore \t\t\tMASS\n",
      "ignore \t\t\tSCALEFAC\n",
      "YES! # Page 819\n",
      "YES! \t\tDAD\tPDDL\t\t#\t\t\t\t(4)\n",
      "ignore \t\t\t0D\n",
      "ignore \t\t\t20D\n",
      "YES! \t\tDDV\tDSU\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\t22D\n",
      "ignore \t\tDMP\tDAD\n",
      "ignore \t\t\tLAG/TAU\n",
      "ignore \t\t\t/AFC/\n",
      "YES! \t\tPDDL\tDDV\t\t#\t\t\t\t(4)\n",
      "ignore \t\t\tMAXFORCE\n",
      "ignore \t\t\tMASS\n",
      "YES! \t\tPDDL\tDDV\t\t#\t\t\t\t(6)\n",
      "ignore \t\t\tMINFORCE\n",
      "ignore \t\t\tMASS\n",
      "YES! \t\tPUSH\tBDSU\t\t#\t\t\t\t(8)\n",
      "ignore \t\t\t2D\n",
      "YES! \t\tBMN\tDLOAD\t\t#\t\t\t\t(6)\n",
      "ignore \t\t\tAFCSPOT\n",
      "YES! \t\tDLOAD\tPUSH\t\t#\t\t\t\t(6)\n",
      "ignore \t\tBDSU\tBPL\n",
      "ignore \t\t\t2D\n",
      "ignore \t\t\tAFCSPOT\n",
      "YES! \t\tDLOAD\t\t\t#\t\t\t\t(4)\n",
      "YES! AFCSPOT\t\tDLOAD\t\t\t#\t\t\t\t(2), (4), OR (6)\n",
      "YES! \t\tSETPD\t\t\t#\t\t\t\t(2)\n",
      "ignore \t\t\t2D\n",
      "YES! \t\tSTODL\t/AFC/\t\t#\t\t\t\t(0)\n",
      "ignore ITRPNT2\t\tEXIT\n",
      "YES! \t\tDXCH\tMPAC\t\t# MPAC = MEASURED ACCELERATION.\n",
      "ignore \t\tTC\tBANKCALL\n",
      "ignore \t\tCADR\tTHROTTLE +3\n",
      "ignore \t\tTC\tINTPRET\n",
      "YES! \t\tVLOAD\t\t\t# PICK UP UPDATED VELOCITY VECTOR.\n",
      "ignore \t\t\t24D\n",
      "ignore VHORCOMP\tVSL2\tVAD\n",
      "ignore \t\t\tDELVS\n",
      "ignore \t\tVSR2\tPDVL\n",
      "ignore \t\t\tR\n",
      "ignore \t\tUNIT\tVXSC\n",
      "ignore \t\t\tHDOTDISP\n",
      "ignore \t\tVSL1\tBVSU\n",
      "ignore \t\tABVAL\n",
      "ignore \t\tSTORE\tVHORIZ\n",
      "ignore \t\tEXIT\n",
      "YES! \t\tTC\tBANKCALL\t# PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG\n",
      "ignore \t\tCADR\tDISPEXIT +3\n",
      "ignore \n",
      "ignore BIT1H\t\tOCT\t00001\n",
      "ignore SHFTFACT\t2DEC\t1 B-17\n",
      "YES! # Page 820\n",
      "ignore BIASFACT\t2DEC\t655.36 B-28\n",
      "ignore \n",
      "YES! # *********************************************************************************\n",
      "YES! # REDESIGNATOR TRAP\n",
      "YES! # *********************************************************************************\n",
      "ignore \n",
      "ignore \t\tBANK\t11\n",
      "ignore \t\tSETLOC\tF2DPS*11\n",
      "ignore \t\tBANK\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "ignore PITFALL\t\tXCH\tBANKRUPT\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tQXCH\tQRUPT\n"
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "ignore \n",
      "YES! \t\tTC\tCHECKMM\t\t# IF NOT IN P64, NO REASON TO CONTINUE\n",
      "ignore \t\tDEC\t64\n",
      "ignore \t\tTCF\tRESUME\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tREAD\tCHAN31\n",
      "ignore \t\tCOM\n",
      "ignore \t\tMASK\tALL4BITS\n",
      "ignore \t\tTS\tELVIRA\n",
      "ignore \t\tCAF\tTWO\n",
      "ignore \t\tTS\tZERLINA\n",
      "ignore \t\tCAF\tFIVE\n",
      "ignore \t\tTC\tTWIDDLE\n",
      "ignore \t\tADRES\tREDESMON\n",
      "ignore \t\tTCF\tRESUME\n",
      "ignore \n",
      "YES! # REDESIGNATOR MONITOR (INITIATED BY PITFALL)\n",
      "ignore \n",
      "ignore PREMON1\t\tTS\tZERLINA\n",
      "ignore PREMON2\t\tCAF\tSEVEN\n",
      "ignore \t\tTC\tVARDELAY\n",
      "ignore REDESMON\tEXTEND\n",
      "ignore \t\tREAD\t31\n",
      "ignore \t\tCOM\n",
      "ignore \t\tMASK\tALL4BITS\n",
      "ignore \t\tXCH\tELVIRA\n",
      "ignore \t\tTS\tL\n",
      "YES! \t\tCCS\tELVIRA\t\t# DO ANY BITS APPEAR THIS PASS?\n",
      "YES! \t\tTCF\tPREMON2\t\t# Y:\tCONTINUE MONITOR\n",
      "ignore \n",
      "YES! \t\tCCS\tL\t\t# N:\tANY LAST PASS?\n",
      "YES! \t\tTCF\tCOUNT'EM\t#\tY: \tCOUNT 'EM, RESET RUPT, TERMINATE\n",
      "YES! # Page 821\n",
      "YES! \t\tCCS\tZERLINA\t\t#\tN: \tHAS ZERLINA REACHED ZERO YET?\n",
      "YES! \t\tTCF\tPREMON1\t\t#\t\tN:\tDIMINISH ZERLINA, CONTINUE\n",
      "YES! RESETRPT\tCAF\tBIT12\t\t#\t\tY:\tRESET RUPT. TERMINATE\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tWOR\tCHAN13\n",
      "ignore \t\tTCF\tTASKOVER\n",
      "ignore \n",
      "YES! COUNT'EM\tCAF\tBIT13\t\t# ARE WE IN ATTITUDE-HOLD?\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tRAND\tCHAN31\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tBZF\tRESETRPT\t# YES: SKIP REDESIGNATION LOGIC.\n",
      "ignore \n",
      "YES! \t\tCA\tL\t\t# NO.\n",
      "ignore \t\tMASK \t-AZBIT\n",
      "ignore \t\tCCS\tA\n",
      "ignore -AZ\t\tCS\tAZEACH\n",
      "ignore \t\tADS\tAZINCR1\n",
      "ignore \t\tCA\tL\n",
      "ignore \t\tMASK\t+AZBIT\n",
      "ignore \t\tCCS\tA\n",
      "ignore +AZ\t\tCA\tAZEACH\n",
      "ignore \t\tADS\tAZINCR1\n",
      "ignore \t\tCA\tL\n",
      "ignore \t\tMASK\t-ELBIT\n",
      "ignore \t\tCCS\tA\n",
      "ignore -EL\t\tCS\tELEACH\n",
      "ignore \t\tADS\tELINCR1\n",
      "ignore \t\tCA\tL\n",
      "ignore \t\tMASK\t+ELBIT\n",
      "ignore \t\tCCS\tA\n",
      "ignore +EL\t\tCA\tELEACH\n",
      "ignore \t\tADS\tELINCR1\n",
      "ignore \t\tTCF\tRESETRPT\n",
      "ignore \n",
      "YES! # THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM\n",
      "ignore \n",
      "YES! +ELBIT\t\t=\tBIT2\t\t# -PITCH\n",
      "YES! -ELBIT\t\t=\tBIT1\t\t# +PITCH\n",
      "ignore +AZBIT\t\t=\tBIT5\n",
      "ignore -AZBIT\t\t=\tBIT6\n",
      "ignore \n",
      "YES! # Page 822\n",
      "ignore ALL4BITS\tOCT\t00063\n",
      "YES! AZEACH\t\tDEC\t.03491\t\t# 2 DEGREES\n",
      "YES! ELEACH\t\tDEC\t.00873\t\t# 1/2 DEGREE\n",
      "ignore \n",
      "YES! # ****************************************************************\n",
      "YES! # R.O.D. TRAP\n",
      "YES! # ****************************************************************\n",
      "ignore \n",
      "ignore \t\tBANK\t20\n",
      "ignore \t\tSETLOC\tRODTRAP\n",
      "ignore \t\tBANK\n",
      "YES! \t\tCOUNT*\t$$/F2DPS\t# ************************\n",
      "ignore \n",
      "YES! DESCBITS\tMASK\tBIT7\t\t# COME HERE FROM MARKRUPT CODING WITH BIT\n",
      "YES! \t\tCCS\tA\t\t#\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS\n",
      "YES! \t\tCS\tTWO\t\t#\t- RATE INCREMENT, BIT 6 + INCREMENT.\n",
      "ignore \t\tAD\tONE\n",
      "ignore \t\tADS\tRODCOUNT\n",
      "YES! \t\tTCF\tRESUME\t\t# TRAP IS RESET WHEN SWITCH IS RELEASED\n",
      "ignore \n",
      "ignore \t\tBANK\t31\n",
      "ignore \t\tSETLOC\tF2DPS*31\n",
      "ignore \t\tBANK\n",
      "ignore \n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "YES! # ***********************************************************************************\n",
      "YES! # DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)\n",
      "YES! # ***********************************************************************************\n",
      "YES! #\n",
      "YES! #\t                                               N        N-1\n",
      "YES! #\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A\n",
      "YES! #\t                                             N      N-1              1     0\n",
      "YES! # USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\n",
      "YES! #\tA\tSP\tLOC-3\t\tADRES FOR REFERENCING PWR COF TABL\n",
      "YES! #\tL\tSP\tN-1\t\tN IS THE DEGREE OF THE POWER SERIES\n",
      "YES! #\tMPAC\tDP\tX\t\tINITIAL GUESS FOR ROOT\n",
      "YES! #\n",
      "YES! #\tLOC-2N\tDP\tA(0)\n",
      "YES! #\t\t...\n",
      "YES! #\tLOC\tDP\tA(N)\n",
      "YES! #\tLOC+2\tSP\tPRECROOT\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)\n",
      "YES! #\n",
      "YES! # Page 823\n",
      "YES! # THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.\n",
      "YES! # RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND\n",
      "YES! # OUTPUTS ARE NOT TO BE TRUSTED.\n",
      "YES! #\n",
      "YES! # PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD\n",
      "YES! # PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE\n",
      "YES! # COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE\n",
      "YES! # COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT\n",
      "YES! # ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:\n",
      "YES! #\t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\n",
      "YES! #\t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\n",
      "YES! #\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT\n",
      "YES! #\t    PRECLUDE EVENTUAL CONVERGENCE.\n",
      "YES! #\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.\n",
      "YES! #\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.\n",
      "YES! #\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.\n",
      "ignore \n",
      "YES! \t\t\t\t\t# STORE ENTERING DATA, INITIALIZE ERASABLES\n",
      "ignore ROOTPSRS\tEXTEND\n",
      "YES! \t\tQXCH\tRETROOT\t\t# RETURN ADRES\n",
      "YES! \t\tTS\tPWRPTR\t\t# PWR TABLE POINTER\n",
      "YES! \t\tDXCH\tMPAC +3\t\t# PWR TABLE ADRES, N-1\n",
      "ignore \t\tCA\tDERTABLL\n",
      "YES! \t\tTS\tDERPTR\t\t# DER TABL POINTER\n",
      "YES! \t\tTS\tMPAC +5\t\t# DER TABL ADRES\n",
      "YES! \t\tCCS\tMPAC +4\t\t# NO POWER SERIES DEGREE 1 OR LESS\n",
      "YES! \t\tTS\tMPAC +6\t\t# N-2\n",
      "YES! \t\tCA\tZERO\t\t# MODE USED AS ITERATION COUNTER.  MODE\n",
      "YES! \t\tTS\tMODE\t\t# MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\n",
      "ignore \n",
      "YES! \t\t\t\t\t# COMPUTE CRITERION TO STOP ITERATING\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCA\tMPAC\t\t# FETCH ROOT GUESS, KEEPING IT IN MPAC\n",
      "YES! \t\tDXCH\tROOTPS\t\t# AND IN ROOTPS\n",
      "YES! \t\tINDEX\tMPAC +3\t\t# PWR TABLE ADRES\n",
      "YES! \t\tCA\t5\t\t# PRECROOT TO A\n",
      "YES! \t\tTC\tSHORTMP\t\t# YIELDS DP PRODUCT IN MPAC\n",
      "ignore \t\tTC\tUSPRCADR\n",
      "YES! \t\tCADR\tABS\t\t# YIELDS ABVAL OF CRITERION ON DX IN MPAC\n",
      "ignore \t\tDXCH\tMPAC\n",
      "YES! \t\tDXCH\tDXCRIT\t\t# CRITERION\n",
      "ignore \n",
      "YES! \t\t\t\t\t# SET UP DER COF TABL\n",
      "YES! # Page 824\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tINDEX\tPWRPTR\n",
      "ignore \t\tDCA\t3\n",
      "YES! \t\tDXCH\tMPAC\t\t# A(N) TO MPAC\n",
      "ignore \n",
      "YES! \t\tCA\tMPAC +4\t\t# N-1 TO A\n",
      "ignore \n",
      "YES! DERCLOOP\tTS\tPWRCNT\t\t# LOOP COUNTER\n",
      "ignore \t\tAD\tONE\n",
      "YES! \t\tTC\tDMPNSUB\t\t# YIELDS DERCOF = I X A(I) IN MPAC\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tINDEX\tPWRPTR\n",
      "ignore \t\tDCA\t1\n",
      "YES! \t\tDXCH\tMPAC\t\t# (I-1) TO MPAC, FETCHING DERCOF\n",
      "ignore \t\tINDEX\tDERPTR\n",
      "YES! \t\tDXCH\t3\t\t# DERCOF TO DER TABLE\n",
      "ignore \t\tCS\tTWO\n",
      "YES! \t\tADS\tPWRPTR\t\t# DECREMENT PWR POINTER\n",
      "ignore \t\tCS\tTWO\n",
      "YES! \t\tADS\tDERPTR\t\t# DECREMENT DER POINTER\n",
      "ignore \t\tCCS\tPWRCNT\n",
      "ignore \t\tTCF\tDERCLOOP\n",
      "ignore \n",
      "YES! \t\t\t\t\t# CONVERGE ON ROOT\n",
      "ignore ROOTLOOP\tEXTEND\n",
      "YES! \t\tDCA\tROOTPS\t\t# FETCH CURRENT ROOT\n",
      "YES! \t\tDXCH\tMPAC\t\t# LEAVE IN MPAC\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCA\tMPAC +5\t\t# LOAD A, L WITH DER TABL ADRES, N-2\n",
      "YES! \t\tTC\tPOWRSERS\t# YIELDS DERIVATIVE IN MPAC\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tDCA\tROOTPS\n",
      "YES! \t\tDXCH\tMPAC\t\t# CURRENT ROOT TO MPAC, FETCHING DERIVATIVE\n",
      "YES! \t\tDXCH\tBUF\t\t# LEAVE DERIVATIVE IN BUF AS DIVISOR\n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCA\tMPAC +3\t\t# LOAD A, L WITH PWR TABL ADRES, N-1\n",
      "YES! \t\tTC\tPOWRSERS\t# YIELDS RESIDUAL IN MPAC\n",
      "ignore \n",
      "ignore \t\tTC\tUSPRCADR\n",
      "YES! \t\tCADR\tDDV/BDDV\t# YIELDS -DX IN MPAC\n",
      "ignore \n",
      "ignore \t\tEXTEND\n",
      "YES! \t\tDCS\tMPAC\t\t# FETCH DX, LEAVING -DX IN MPAC\n",
      "YES! \t\tDAS\tROOTPS\t\t# CORRECTED ROOT NOW IN ROOTPS\n",
      "ignore \n",
      "ignore \t\tTC\tUSPRCADR\n",
      "YES! \t\tCADR\tABS\t\t# YIELDS ABS(DX) IN MPAC\n",
      "ignore \t\tEXTEND\n",
      "YES! # Page 825\n",
      "ignore \t\tDCS\tDXCRIT\n",
      "YES! \t\tDAS\tMPAC\t\t# ABS(DX)-ABS(DXCRIT) IN MPAC\n",
      "ignore \n",
      "ignore \t\tCA\tMODE\n",
      "YES! \t\tMASK\tBIT4\t\t# KLUMPP SAYS GIVE UP AFTER EIGHT PASSES\n",
      "ignore \t\tCCS\tA\n",
      "ignore BADROOT\t\tTC\tRETROOT\n",
      "ignore \n",
      "YES! \t\tINCR\tMODE\t\t# INCREMENT ITERATION COUNTER\n",
      "YES! \t\tCCS\tMPAC\t\t# TEST HI ORDER DX\n",
      "ignore \t\tTCF\tROOTLOOP\n",
      "ignore \t\tTCF\tTESTLODX\n",
      "ignore \t\tTCF\tROOTSTOR\n",
      "YES! TESTLODX\tCCS\tMPAC +1\t\t# TEST LO ORDER DX\n",
      "ignore \t\tTCF\tROOTLOOP\n",
      "ignore \t\tTCF\tROOTSTOR\n",
      "ignore \t\tTCF\tROOTSTOR\n",
      "ignore ROOTSTOR\tDXCH\tROOTPS\n",
      "ignore \t\tDXCH\tMPAC\n",
      "ignore \t\tCA\tMODE\n",
      "YES! \t\tTS\tMPAC +2\t\t# STORE SP ITERATION COUNT IN MPAC+2\n",
      "ignore \t\tINDEX\tRETROOT\n",
      "ignore \t\tTCF\t2\n",
      "ignore \n",
      "ignore DERTABLL\tADRES\tDERCOFN -3\n",
      "ignore \n",
      "YES! # ****************************************************************************\n",
      "YES! # TRASHY LITTLE SUBROUTINES\n",
      "YES! # ****************************************************************************\n",
      "ignore \n",
      "YES! INTPRETX\tINDEX\tWCHPHASE\t# SET X1 ON THE WAY TO THE INTERPRETER\n",
      "ignore \t\tCS\tTARGTDEX\n",
      "ignore \t\tINDEX\tFIXLOC\n",
      "ignore \t\tTS\tX1\n",
      "ignore \t\tTCF\tINTPRET\n",
      "ignore \n",
      "ignore TDISPSET\tCA\tTTF/8\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tMP\tTSCALINV\n",
      "ignore \t\tDXCH\tTTFDISP\n",
      "ignore \n",
      "YES! \t\tCA\tEBANK5\t\t# TREDES BECOMES ZERO TWO PASSES\n",
      "YES! \t\tTS\tEBANK\t\t#\tBEFORE TCGFAPPR IS REACHED\n",
      "ignore \t\tEBANK=\tTCGFAPPR\n",
      "ignore \t\tCA\tTCGFAPPR\n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tINCR\tBBANK\n",
      "ignore \t\tEBANK=\tTTF/8\n",
      "YES! # Page 826\n",
      "ignore \t\tAD\tTTF/8\n",
      "ignore \t\tEXTEND\n",
      "ignore \t\tMP\tTREDESCL\n",
      "ignore \t\tAD\t-DEC103\n",
      "ignore \t\tAD\tNEGMAX\n",
      "ignore \t\tTS\tL\n",
      "ignore \t\tCS\tL\n",
      "ignore \t\tAD\tL\n",
      "ignore \t\tAD\t+DEC99\n",
      "ignore \t\tAD\tPOSMAX\n",
      "ignore \t\tTS\tTREDES\n",
      "ignore \t\tCS\tTREDES\n",
      "ignore \t\tADS\tTREDES\n",
      "ignore \t\tTC\tQ\n",
      "ignore \n",
      "ignore 1406P00\t\tTC\tP00DOO\n",
      "ignore \t\tOCT\t01406\n",
      "ignore 1406ALM\t\tTC\tALARM\n",
      "ignore \t\tOCT\t01406\n",
      "ignore \t\tTCF\tRATESTOP\n",
      "ignore \n",
      "YES! # *********************************************************************\n",
      "YES! # SPECIALIZED \"PHASCHNG\" SUBROUTINE\n",
      "YES! # *********************************************************************\n",
      "ignore \n",
      "ignore \t\tEBANK=\tPHSNAME2\n",
      "YES! FASTCHNG\tCA\tEBANK3\t\t# SPECIALIZED 'PHASCHNG' ROUTINE\n",
      "ignore \t\tXCH\tEBANK\n",
      "ignore \t\tDXCH\tL\n",
      "ignore \t\tTS\tPHSNAME3\n",
      "ignore \t\tLXCH\tEBANK\n",
      "ignore \t\tEBANK=\tE2DPS\n",
      "ignore \t\tTC\tA\n",
      "ignore \n",
      "YES! # *************************************************************************************\n",
      "YES! # PARAMETER TABLE INDIRECT ADDRESSES\n",
      "YES! # *************************************************************************************\n",
      "ignore \n",
      "ignore RDG\t\t=\tRBRFG\n",
      "ignore VDG\t\t=\tVBRFG\n",
      "ignore ADG\t\t=\tABRFG\n",
      "ignore VDG2TTF\t\t=\tVBRFG*\n",
      "ignore ADG2TTF\t\t=\tABRFG*\n",
      "ignore JDG2TTF\t\t=\tJBRFG*\n",
      "ignore \n",
      "YES! # *************************************************************************************\n",
      "YES! # LUNAR LANDING CONSTANTS\n",
      "YES! # *************************************************************************************\n",
      "ignore \n",
      "YES! # Page 827\n",
      "YES! TABLTTFL\tADRES\tTABLTTF +3\t# ADDRESS FOR REFERENCING TTF TABLE\n",
      "ignore TTFSCALE\t=\tBIT12\n",
      "ignore TSCALINV\t=\tBIT4\n",
      "ignore -DEC103\t\tDEC\t-103\n",
      "ignore +DEC99\t\tDEC\t+99\n",
      "ignore TREDESCL\tDEC\t-.08\n",
      "ignore 180DEGS\t\tDEC\t+180\n",
      "ignore 1/2DEG\t\tDEC\t+.00278\n",
      "YES! PROJMAX\t\tDEC\t.42262 B-3\t# SIN(25')/8 TO COMPARE WITH PROJ\n",
      "YES! PROJMIN\t\tDEC\t.25882 B-3\t# SIN(15')/8 TO COMPARE WITH PROJ\n",
      "YES! V06N63\t\tVN\t0663\t\t# P63\n",
      "YES! V06N64\t\tVN\t0664\t\t# P64\n",
      "YES! V06N60\t\tVN\t0660\t\t# P65, P66, P67\n",
      "ignore \n",
      "ignore \t\tBANK\t22\n",
      "ignore \t\tSETLOC\tLANDCNST\n",
      "ignore \t\tBANK\n",
      "ignore \t\tCOUNT*\t$$/F2DPS\n",
      "ignore \n",
      "ignore HIGHESTF\t2DEC\t4.34546769 B-12\n",
      "ignore GSCALE\t\t2DEC\t100 B-11\n",
      "ignore 3/8DP\t\t2DEC\t.375\n",
      "ignore 3/4DP\t\t2DEC\t.750\n",
      "ignore DEPRCRIT\t2DEC\t-.02 B-1\n",
      "ignore \n",
      "YES! # Page 828\n",
      "YES! # **************************************************************************\n",
      "YES! # **************************************************************************\n",
      "ignore \n"
     ]
    }
   ],
   "source": [
    "comments = []\n",
    "for line in lines:\n",
    "    x = re.search(\"#\", line)\n",
    "    if x:\n",
    "        comments.append(line)\n",
    "        print(\"YES!\",line)\n",
    "    else:\n",
    "        print(\"ignore\",line)\n",
    "        "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 30,
   "id": "6246eaa0",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['# Copyright:\\tPublic domain.',\n",
       " '# Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " '# Purpose: \\tPart of the source code for Luminary 1A build 099.',\n",
       " \"#\\t\\tIt is part of the source code for the Lunar Module's (LM)\",\n",
       " '#\\t\\tApollo Guidance Computer (AGC), for Apollo 11.',\n",
       " '# Assembler:\\tyaYUL',\n",
       " '# Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.',\n",
       " '# Website:\\twww.ibiblio.org/apollo.',\n",
       " '# Pages:\\t798-828',\n",
       " '# Mod history:\\t2009-05-23 HG\\tTranscribed from page images.',\n",
       " '#\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently',\n",
       " '#\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated',\n",
       " \"#\\t\\t\\t\\ta couple of lines of code that shouldn't\",\n",
       " '#\\t\\t\\t\\thave survived from Luminary 131 to here.',\n",
       " '#\\t\\t2009-06-07 RSB\\tFixed a typo.',\n",
       " '#',\n",
       " '# This source code has been transcribed or otherwise adapted from',\n",
       " '# digitized images of a hardcopy from the MIT Museum.  The digitization',\n",
       " '# was performed by Paul Fjeld, and arranged for by Deborah Douglas of',\n",
       " '# the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       " '# in storage size and consequent reduction in image quality as well) are',\n",
       " '# available online at www.ibiblio.org/apollo.  If for some reason you',\n",
       " '# find that the images are illegible, contact me at info@sandroid.org',\n",
       " '# about getting access to the (much) higher-quality images which Paul',\n",
       " '# actually created.',\n",
       " '#',\n",
       " '# Notations on the hardcopy document read, in part:',\n",
       " '#',\n",
       " '#\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61',\n",
       " '#\\t16:27 JULY 14, 1969',\n",
       " '# Page 798',\n",
       " '# ********************************************************',\n",
       " '# LUNAR LANDING FLIGHT SEQUENCE TABLES',\n",
       " '# ********************************************************',\n",
       " '# FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       " '#\\tWCHPHASE = -1 ---> IGNALG',\n",
       " '#\\tWCHPHASE =  0 ---> BRAKQUAD',\n",
       " '#\\tWCHPHASE =  1 ---> APPRQUAD',\n",
       " '#\\tWCHPHASE =  2 ---> VERTICAL',\n",
       " '#*********************************************************',\n",
       " '# ROUTINES FOR STARTING NEW GUIDANCE PHASES:',\n",
       " '\\t\\tTCF\\tTTFINCR\\t\\t# IGNALG',\n",
       " 'NEWPHASE\\tTCF\\tTTFINCR\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tSTARTP64\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tP65START\\t# VERTICAL',\n",
       " '# PRE-GUIDANCE COMPUTATIONS:',\n",
       " '\\t\\tTCF\\tCALCRGVG\\t# IGNALG',\n",
       " 'PREGUIDE\\tTCF\\tRGVGCALC\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tREDESIG\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tRGVGCALC\\t# VERTICAL',\n",
       " '# GUIDANCE EQUATIONS:',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t# IGNALG',\n",
       " 'WHATGUID\\tTCF\\tTTF/8CL\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tVERTGUID\\t# VERTICAL',\n",
       " '# POST GUIDANCE EQUATION COMPUTATIONS:',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t# IGNALG',\n",
       " 'AFTRGUID\\tTCF\\tCGCALC\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tSTEER?\\t\\t# VERTICAL',\n",
       " '# Page 799',\n",
       " '# WINDOW VECTOR COMPUTATIONS:',\n",
       " '\\t\\tTCF\\tEXGSUB\\t\\t# IGNALG',\n",
       " 'WHATEXIT\\tTCF\\tEXBRAK\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tEXNORM\\t\\t# APPRQUAD',\n",
       " '# DISPLAY ROUTINES:',\n",
       " 'WHATDISP\\tTCF\\tP63DISPS\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\tP64DISPS\\t# APPRQUAD',\n",
       " '\\t\\tTCF\\tVERTDISP\\t# VERTICAL',\n",
       " '# ALARM ROUTINE FOR TTF COMPUTATION:',\n",
       " '\\t\\tTCF\\t1406P00\\t\\t# IGNALG',\n",
       " 'WHATALM\\t\\tTCF\\t1406ALM\\t\\t# BRAKQUAD',\n",
       " '\\t\\tTCF\\t1406ALM\\t\\t# APPRQUAD',\n",
       " '# INDICES FOR REFERENCING TARGET PARAMETERS',\n",
       " '\\t\\tOCT\\t0\\t\\t# IGNALG',\n",
       " 'TARGTDEX\\tOCT\\t0\\t\\t# BRAKQUAD',\n",
       " '\\t\\tOCT\\t34\\t\\t# APPRQUAD',\n",
       " '#************************************************************************',\n",
       " '# ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " '#************************************************************************',\n",
       " '# IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# N = 3',\n",
       " 'GUIDSUB\\t\\tTS\\tNGUIDSUB\\t# ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " '# NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " '\\t\\tOCT\\t00035\\t\\t# GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " '\\t\\tOCT\\t05023\\t\\t# GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " \"\\t\\tOCT\\t21000\\t\\t#\\tJUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " '# Page 800',\n",
       " '#*******************************************************************',\n",
       " '# GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " '#*******************************************************************',\n",
       " '# HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " '# DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " '# UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " 'GUILDEN\\t\\tEXTEND\\t\\t\\t# IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " '# STERN\\t\\t\\t\\t\\t# RSB 2009: Not originally a comment.',\n",
       " ' \\t\\tTCF\\tSTARTP67\\t# YES',\n",
       " 'P67NOW?\\t\\tTC\\tCHECKMM\\t\\t# NO:  ARE WE IN P67 NOW?',\n",
       " '\\t\\tTCF\\tSTABL?\\t\\t# NO',\n",
       " 'STARTP66\\tTC\\tFASTCHNG\\t# YES',\n",
       " '\\t\\tDCA\\tHDOTDISP\\t# SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t# \\tALTITUDE RATE.',\n",
       " '# Page 801',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " '\\t\\tTC\\tBANKCALL\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t# TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " 'STARTP67\\tTC\\tNEWMODEX\\t# NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " '\\t\\tDEC\\t67\\t\\t# SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " '\\t\\tCAF\\tZERO\\t\\t# TO SEE IF ALREADY IN P67.',\n",
       " 'STABL?\\t\\tCAF\\tBIT13\\t\\t# IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " \"\\t\\tTCF\\tGUILDRET\\t# YES ALL'S WELL\",\n",
       " '\\t\\tCA\\tRODCOUNT\\t# NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " '\\t\\tBZF\\tGUILDRET\\t# NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " '\\t\\tTCF\\tSTARTP66\\t# YES. SWITCH INTO THE ROD MODE.',\n",
       " 'RESTART?\\tCA\\tFLAGWRD1\\t# HAS THERE BEEN A RESTART?',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t# YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " '\\t\\t\\t\\t\\t#\\tIS.',\n",
       " '\\t\\tTCF\\tVERTGUID\\t# NO: CONTINUE WITH R.O.D.',\n",
       " '# *******************************************************************************',\n",
       " '# INITIALIZATION FOR THIS PASS',\n",
       " '# *******************************************************************************',\n",
       " '# Page 802',\n",
       " '# ******************************************************************',\n",
       " '# ROUTINES TO START NEW PHASES',\n",
       " '# ******************************************************************',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# PERMIT X-AXIS OVERRIDE',\n",
       " '\\t\\tCA\\tDELTTFAP\\t# AUGMENT TTF/8',\n",
       " '\\t\\tCA\\tBIT12\\t\\t# ENABLE RUPT10',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t# INITIALIZE REDESIGNATION FLAG',\n",
       " '#\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '# *********************************************************************************',\n",
       " '# INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " '# *********************************************************************************',\n",
       " '#',\n",
       " '#\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '# Page 803',\n",
       " '#\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '#\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '#\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '#\\t\\t\\t____               ____   ____                   __',\n",
       " '#\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '#\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '#\\t\\t\\t                 ____   _',\n",
       " '#\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t# SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " '\\t\\tDAS\\tTTF/8TMP\\t# NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " '# Page 804',\n",
       " '\\t\\tTC\\tFASTCHNG\\t# SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " '# *********************************************************************',\n",
       " '# LANDING SITE PERTURBATION EQUATIONS',\n",
       " '# *********************************************************************',\n",
       " 'REDESIG\\t\\tCA\\tFLAGWRD6\\t# IS REDFLAG SET?',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t# NO:  SKIP REDESIGNATION LOGIC',\n",
       " '\\t\\tCA\\tTREDES\\t\\t# YES:  HAS TREDES REACHED ZERO?',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t# YES:  SKIP REDESIGNATION LOGIC',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t# SET PD TO 0',\n",
       " '\\t\\t\\tR\\t\\t#                 ____   _',\n",
       " '\\t\\tRTB\\tPUSH\\t\\t# PUSH DOWN UNIT (LAND - R)',\n",
       " '\\t\\t\\tYNBPIP\\t\\t#                    ___        ____   _',\n",
       " '\\t\\tVXSC\\tPDDL\\t\\t# PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " '\\t\\tVAD\\tPUSH\\t\\t# RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " '# Page 805',\n",
       " '\\t\\tDLOAD\\tDSU\\t\\t# MAKE SURE REDESIGNATION IS NOT',\n",
       " '\\t\\t\\t0\\t\\t# \\tTOO CLOSE TO THE HORIZON.',\n",
       " '\\t\\tEXIT\\t\\t\\t# LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " '# *********************************************************************',\n",
       " '# COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " '# *********************************************************************',\n",
       " '#',\n",
       " '#\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " '#\\tVELOCITY RELATIVE TO THE SURFACE:',\n",
       " '#\\t\\t_______   _   _   __',\n",
       " '#\\t\\tANGTERM = V + R * WM',\n",
       " '#\\tSTATE IN GUIDANCE COORDINATES:',\n",
       " '#\\t\\t___   *   _   ____',\n",
       " '#\\t\\tRGU = CG (R - LAND)',\n",
       " '#\\t\\t___   *   _   __   _',\n",
       " '#\\t\\tVGU = CG (V - WM * R)',\n",
       " '# Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " '#',\n",
       " '#\\tHORIZONTAL VELOCITY FOR DISPLAY',\n",
       " '#',\n",
       " '#\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " '#\\t\\t                       2    1',\n",
       " '# \\tDEPRESSION ANGLE FOR DISPLAY:',\n",
       " '#\\t\\t                       _   ____  ______',\n",
       " '#\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " 'CALCRGVG\\tTC\\tINTPRET\\t\\t# IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " '\\t\\tVLOAD\\tMXV\\t\\t#\\tOUTPUT AND TRIM CORRECTION TERM',\n",
       " '\\t\\t\\tVATT1\\t\\t#\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " 'RGVGCALC\\tTC\\tINTPRET\\t\\t# ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " '\\t\\tVAD\\tVSR2\\t\\t# RESCALE TO UNITS OF 2(9) M/CS',\n",
       " '\\t\\t\\tCG\\t\\t# NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " '\\t\\tPDDL\\tVDEF\\t\\t# FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " '\\t\\t\\tZEROVECS\\t#           2   1',\n",
       " '\\t\\tSTOVL\\tVHORIZ\\t\\t# VHORIZ FOR DISPLAY DURING P65.',\n",
       " '\\t\\t\\tR\\t\\t#           _   ____',\n",
       " '\\t\\tVSU\\tPUSH\\t\\t# PUSH DOWN R - LAND',\n",
       " '\\t\\tRTB\\tDOT\\t\\t# NOW IN MPAC IS SINE(LOOKANGL)/4',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t# RESET PUSH DOWN POINTER',\n",
       " '# Page 807',\n",
       " '\\t\\tCA\\tMPAC\\t\\t# COMPUTE LOOKANGLE ITSELF',\n",
       " '\\t\\tTS\\tLOOKANGL\\t# LOOKANGL FOR DISPLAY DURING P64',\n",
       " '# **************************************************************************',\n",
       " '# TTF/8 COMPUTATION',\n",
       " '# **************************************************************************',\n",
       " '\\t\\tSTODL*\\tTABLTTF +6\\t# A(3) = 8 JDG  TO TABLTTF',\n",
       " '\\t\\t\\tADG2TTF,1\\t#             2',\n",
       " '\\t\\tSTODL\\tTABLTTF +4\\t# A(2) = 6 ADG  TO TABLTTF',\n",
       " '\\t\\t\\tVGU \\t+4\\t#             2',\n",
       " '\\t\\tSTODL*\\tTABLTTF +2\\t# A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF',\n",
       " '\\t\\t\\tRDG +4,1\\t#              2         2',\n",
       " '\\t\\tSTORE\\tTABLTTF\\t\\t# A(0) = -24 (RGU  - RDG )/64 TO TABLTTF',\n",
       " '\\t\\tEXIT\\t\\t\\t#                2      2',\n",
       " '\\t\\tTS\\tTABLTTF +10\\t# FRACTIONAL PRECISION FOR TTF TO TABLE',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# LOADS TTF/8 (INITIAL GUESS) INTO MPAC',\n",
       " '\\t\\tCAF\\tTWO\\t\\t# DEGREE - ONE',\n",
       " '\\t\\tTC\\tROOTPSRS\\t# YIELDS TTF/8 IN MPAC',\n",
       " '\\t\\tEXTEND\\t\\t\\t# GOOD RETURN',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t# FETCH TTF/8 KEEPING IT IN MPAC',\n",
       " '\\t\\tDXCH\\tTTF/8\\t\\t# CORRECTED TTF/8',\n",
       " '# Page 808',\n",
       " '# \\t\\t(CONTINUE TO QUADGUID)',\n",
       " '# *********************************************************************************',\n",
       " '# MAIN GUIDANCE EQUATION',\n",
       " '# *********************************************************************************',\n",
       " '#',\n",
       " '#\\tAS PUBLISHED --',\n",
       " '#\\t\\t              ___   __       ___   __',\n",
       " '#\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)',\n",
       " '#\\t\\tACG = ADG + ----------- + ------------',\n",
       " '#\\t\\t                TTF        (TTF)(TTF)',\n",
       " '#\\tAS HERE PROGRAMMED --',\n",
       " '#\\t\\t             ___   __',\n",
       " '#\\t\\t      3 (1/4(RDG - RG)   ___   __)',\n",
       " '#\\t\\t      - (------------- + VDG + VG)',\n",
       " '#\\t\\t___   4 (    TTF/8               )   ___',\n",
       " '#\\t\\tACG = ---------------------------- + ADG',\n",
       " '#\\t\\t                  TTF/8',\n",
       " '\\t\\tAD\\tLEADTIME\\t# LEADTIME IS A NEGATIVE NUMBER',\n",
       " '\\t\\tAD\\tPOSMAX\\t\\t# SAFEGUARD THE COMPUTATIONS THAT FOLLOW',\n",
       " '\\t\\tTS\\tL\\t\\t#\\tBY FORCING -TTF*LEADTIME > OR = ZERO',\n",
       " '\\t\\tTS\\tBUF\\t\\t# - RATIO OF LAG-DIMINISHED TTF TO TTF',\n",
       " '\\t\\tXCH\\tBUF +1\\t\\t# RATIO SQUARED - RATIO',\n",
       " '\\t\\tTS\\tMPAC\\t\\t# COEFFICIENT FOR VGU TERM',\n",
       " '\\t\\tTS\\t26D\\t\\t# COEFFICIENT FOR RDG-RGU TERM',\n",
       " '\\t\\tTS\\t28D\\t\\t# COEFFICIENT FOR VDG TERM',\n",
       " '# Page 809',\n",
       " '\\t\\tTS\\t30D\\t\\t# COEFFICIENT FOR ADG TERM',\n",
       " 'AFCCALC1\\tVXM\\tVSL1\\t\\t# VERGUID COMES HERE',\n",
       " '\\t\\tSTORE\\tUNFC/2\\t\\t# UNFC/2 NEED NOT BE UNITIZED',\n",
       " 'AFCCALC2\\tSTODL\\t/AFC/\\t\\t# MAGNITUDE OF AFC FOR THROTTLE',\n",
       " '\\t\\t\\tUNFC/2\\t\\t# VERTICAL COMPONENT',\n",
       " '\\t\\t\\tUNFC/2 +2\\t# OUT-OF-PLANE',\n",
       " '\\t\\t\\tMASS\\t\\t#                        2    2    2',\n",
       " '\\t\\tDSU\\tDSU\\t\\t# AMAXHORIZ = SQRT(ATOTAL - A  - A  )',\n",
       " '\\t\\tBPL\\tDLOAD\\t\\t#                            1    0',\n",
       " '# Page 810',\n",
       " '\\t\\tCA\\tWCHPHASE\\t# PREPARE FOR PHASE SWITCHING LOGIC',\n",
       " '\\t\\tINCR\\tFLPASS0\\t\\t# INCREMENT PASS COUNTER',\n",
       " '# ***********************************************************************',\n",
       " '# ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX',\n",
       " '# ***********************************************************************',\n",
       " '\\t\\t\\tGAINBRAK,1\\t# NUMERO MYSTERIOSO',\n",
       " '# Page 811',\n",
       " '\\t\\tSTOVL\\tCG +6\\t\\t# SECOND ROW',\n",
       " '#\\t\\t(CONTINUE TO EXTLOGIC)',\n",
       " '#',\n",
       " '# ***********************************************************************',\n",
       " '# PREPARE TO EXIT',\n",
       " '# ***********************************************************************',\n",
       " '#',\n",
       " '# DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES',\n",
       " '#',\n",
       " 'EXTLOGIC\\tINDEX\\tWCHPHASE\\t# WCHPHASE = 1   APPRQUAD',\n",
       " '\\t\\tCA\\tTENDBRAK\\t# WCHPHASE = 0   BRAKQUAD',\n",
       " '\\t\\tTS\\tFLPASS0\\t\\t# RESET FLPASS0',\n",
       " '# ***********************************************************************',\n",
       " '# ROUTINES FOR EXITING FROM LANDING GUIDANCE',\n",
       " '# ***********************************************************************',\n",
       " '#',\n",
       " '# 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       " '# 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       " '# 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.',\n",
       " '# (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       " 'EXGSUB\\t\\tTC\\tINTPRET\\t\\t# COMPUTE TRIM VELOCITY CORRECTION TERM.',\n",
       " '# Page 812',\n",
       " '\\t\\tSTORE\\tUNWC/2\\t\\t# UNIT(LAND - R) IS TENTATIVE CHOICE',\n",
       " '\\t\\tEXIT\\t\\t\\t# WITH PROJ IN MPAC 1/8 REAL SIZE',\n",
       " '\\t\\tCS\\tMPAC\\t\\t# GET COEFFICIENT FOR CG +14',\n",
       " '\\t\\tADS\\tBUF\\t\\t# RESULT IS 0 IF PROJMAX - PROJ NEGATIVE',\n",
       " '\\t\\tCS\\tPROJMIN\\t\\t# GET COEFFICIENT FOR UNIT(LAND - R)',\n",
       " '# Page 813',\n",
       " '\\t\\tADS\\tBUF +1\\t\\t# RESULT IS 0 IF PROJ - PROJMIN NEGATIVE',\n",
       " 'STEER?\\t\\tCA\\tFLAGWRD2\\t# IF STEERSW DOWN NO OUTPUTS',\n",
       " 'EXVERT\\t\\tCA\\tOVFIND\\t\\t# IF OVERFLOW ANYWHERE IN GUIDANCE',\n",
       " \"\\t\\tEXTEND\\t\\t\\t#\\tDON'T CALL THROTTLE OR FINDCDUW\",\n",
       " 'EXOVFLOW\\tTC\\tALARM\\t\\t# SOUND THE ALARM NON-ABORTIVELY',\n",
       " 'RATESTOP\\tCAF\\tBIT13\\t\\t# ARE WE IN ATTITUDE-HOLD?',\n",
       " '\\t\\tBZF\\tDISPEXIT\\t# YES',\n",
       " '\\t\\tTC\\tBANKCALL\\t# NO:  DO A STOPRATE',\n",
       " '# Page 814',\n",
       " '# \\t\\t(CONTINUE TO DISPEXIT)',\n",
       " '# ***********************************************************************',\n",
       " '# GUIDANCE LOOP DISPLAYS',\n",
       " '# ***********************************************************************',\n",
       " 'DISPEXIT\\tEXTEND\\t\\t\\t# KILL GROUP 3:  DISPLAYS WILL BE',\n",
       " '\\t\\tDCA\\tNEG0\\t\\t#\\tRESTORED BY NEXT GUIDANCE CYCLE.',\n",
       " ' +3\\t\\tCS\\tFLAGWRD8\\t# IF FLUNDISP IS SET, NO DISPLAY THIS PASS',\n",
       " '\\t\\tBZF\\tENDLLJOB\\t# TO PICK UP THE TAG',\n",
       " '-2\\t\\tTC\\tPHASCHNG\\t# KILL GROUP 5',\n",
       " 'P64DISPS\\tCA\\tTREDES\\t\\t# HAS TREDES REACHED ZERO?',\n",
       " '\\t\\tBZF\\tRED-OVER\\t# YES: CLEAR REDESIGNATION FLAG',\n",
       " '\\t\\tCS\\tFLAGWRD6\\t# NO:  IS REDFLAG SET?',\n",
       " '\\t\\tBZF\\tREDES-OK\\t# YES:  DO STATIC DISPLAY',\n",
       " '\\t\\tCAF\\tV06N64\\t\\t# OTHERWISE USE FLASHING DISPLAY',\n",
       " '\\t\\tTCF\\tGOTOP00H\\t# TERMINATE',\n",
       " '\\t\\tTCF\\tP64CEED\\t\\t# PROCEED\\tPERMIT REDESIGNATIONS',\n",
       " '\\t\\tTCF\\tP64DISPS\\t# RECYCLE',\n",
       " '# Page 815',\n",
       " '\\t\\tTC\\tUPFLAG\\t\\t# ENABLE REDESIGNATION LOGIC',\n",
       " '# **************************************************************************',\n",
       " '# GUIDANCE FOR P65',\n",
       " '# **************************************************************************',\n",
       " '\\t\\tTCF\\tP67VERT\\t\\t# POSITIVE NON-ZERO ---> P67',\n",
       " '\\t\\tTCF\\tP66VERT\\t\\t# +0',\n",
       " '#',\n",
       " '# \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --',\n",
       " '#\\t\\t      ____   ___',\n",
       " '#\\t\\t      V2FG - VGU',\n",
       " '#\\t\\tACG = ----------',\n",
       " '#\\t\\t        TAUVERT',\n",
       " '# Page 816',\n",
       " '# **********************************************************',\n",
       " '# GUIDANCE FOR P66',\n",
       " '# **********************************************************',\n",
       " 'P67VERT\\t\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.',\n",
       " 'P66VERTA\\tTC\\tPHASCHNG\\t# TERMINATE GROUP 3.',\n",
       " '\\t\\tDAS\\tVDGVERT\\t\\t# UPDATE DESIRED ALTITUDE RATE.',\n",
       " '\\t\\tEXTEND\\t\\t\\t# SET OLDPIPAX,Y,Z = PIPAX,Y,Z',\n",
       " '\\t\\tDXCH\\tRUPTREG1\\t# SET RUPTREG1,2,3 = OLDPIPAX,Y,Z',\n",
       " '\\t\\tEXTEND\\t\\t\\t# SNAPSHOT TIME OF PIPA READING.',\n",
       " '# Page 817',\n",
       " '\\t\\tTS\\tMPAC\\t\\t# MPAC(X) = PIPAX + PIPATMPX',\n",
       " '\\t\\tTS\\tMPAC +3\\t\\t# MPAC(Y) = PIPAY + PIPATMPY',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t# MPAC(Z) = PIPAZ + PIPATMPZ',\n",
       " '\\t\\tTS\\tMPAC +1\\t\\t# ZERO LO-ORDER MPAC COMPONENTS',\n",
       " '\\t\\tTS\\tTEMX\\t\\t# ZERO TEMX, TEMY, AND TEMZ SO WE WILL',\n",
       " '\\t\\tTS\\tTEMY\\t\\t#\\tKNOW WHEN READACCS CHANGES THEM.',\n",
       " 'ITRPNT1\\t\\tVXSC\\tPDDL\\t\\t# SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)',\n",
       " '\\t\\tSTORE\\t30D\\t\\t# 30-31D CONTAINS TIME IN CS SINCE PIPTIME',\n",
       " '\\t\\tDDV\\tPDVL\\t\\t#\\t\\t\\t\\t\\t(8)',\n",
       " '\\t\\tVSU\\tVXSC\\t\\t#\\t\\t\\t\\t\\t(6)',\n",
       " '\\t\\tVAD\\tSTADR\\t\\t#\\t\\t\\t\\t\\t(0)',\n",
       " '\\t\\tSTOVL\\t24D\\t\\t# STORE UPDATED VELOCITY IN 24-29D',\n",
       " '# Page 818',\n",
       " '\\t\\tSTODL\\tHDOTDISP\\t# UPDATE HDOTDISP RATE FOR NOUN 63.',\n",
       " '\\t\\tSTODL\\tHCALC1\\t\\t# UPDATE HCALC1 FOR NOUN 63.',\n",
       " '\\t\\tPDVL\\tABVAL\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tDAD\\t\\t\\t#\\t\\t\\t\\t(0)',\n",
       " '\\t\\tPDVL\\tCALL\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tBDDV\\tSTADR\\t\\t#\\t\\t\\t\\t(0)',\n",
       " '\\t\\tABVAL\\tPDDL\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tDSU\\tPDDL\\t\\t#\\t\\t\\t\\t(4)',\n",
       " '\\t\\tSTODL\\tLASTTPIP\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tDDV\\tBDDV\\t\\t#\\t\\t\\t\\t(0)',\n",
       " '\\t\\tPDDL\\tDMP\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '# Page 819',\n",
       " '\\t\\tDAD\\tPDDL\\t\\t#\\t\\t\\t\\t(4)',\n",
       " '\\t\\tDDV\\tDSU\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t#\\t\\t\\t\\t(4)',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t#\\t\\t\\t\\t(6)',\n",
       " '\\t\\tPUSH\\tBDSU\\t\\t#\\t\\t\\t\\t(8)',\n",
       " '\\t\\tBMN\\tDLOAD\\t\\t#\\t\\t\\t\\t(6)',\n",
       " '\\t\\tDLOAD\\tPUSH\\t\\t#\\t\\t\\t\\t(6)',\n",
       " '\\t\\tDLOAD\\t\\t\\t#\\t\\t\\t\\t(4)',\n",
       " 'AFCSPOT\\t\\tDLOAD\\t\\t\\t#\\t\\t\\t\\t(2), (4), OR (6)',\n",
       " '\\t\\tSETPD\\t\\t\\t#\\t\\t\\t\\t(2)',\n",
       " '\\t\\tSTODL\\t/AFC/\\t\\t#\\t\\t\\t\\t(0)',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# MPAC = MEASURED ACCELERATION.',\n",
       " '\\t\\tVLOAD\\t\\t\\t# PICK UP UPDATED VELOCITY VECTOR.',\n",
       " '\\t\\tTC\\tBANKCALL\\t# PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG',\n",
       " '# Page 820',\n",
       " '# *********************************************************************************',\n",
       " '# REDESIGNATOR TRAP',\n",
       " '# *********************************************************************************',\n",
       " '\\t\\tTC\\tCHECKMM\\t\\t# IF NOT IN P64, NO REASON TO CONTINUE',\n",
       " '# REDESIGNATOR MONITOR (INITIATED BY PITFALL)',\n",
       " '\\t\\tCCS\\tELVIRA\\t\\t# DO ANY BITS APPEAR THIS PASS?',\n",
       " '\\t\\tTCF\\tPREMON2\\t\\t# Y:\\tCONTINUE MONITOR',\n",
       " '\\t\\tCCS\\tL\\t\\t# N:\\tANY LAST PASS?',\n",
       " \"\\t\\tTCF\\tCOUNT'EM\\t#\\tY: \\tCOUNT 'EM, RESET RUPT, TERMINATE\",\n",
       " '# Page 821',\n",
       " '\\t\\tCCS\\tZERLINA\\t\\t#\\tN: \\tHAS ZERLINA REACHED ZERO YET?',\n",
       " '\\t\\tTCF\\tPREMON1\\t\\t#\\t\\tN:\\tDIMINISH ZERLINA, CONTINUE',\n",
       " 'RESETRPT\\tCAF\\tBIT12\\t\\t#\\t\\tY:\\tRESET RUPT. TERMINATE',\n",
       " \"COUNT'EM\\tCAF\\tBIT13\\t\\t# ARE WE IN ATTITUDE-HOLD?\",\n",
       " '\\t\\tBZF\\tRESETRPT\\t# YES: SKIP REDESIGNATION LOGIC.',\n",
       " '\\t\\tCA\\tL\\t\\t# NO.',\n",
       " '# THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM',\n",
       " '+ELBIT\\t\\t=\\tBIT2\\t\\t# -PITCH',\n",
       " '-ELBIT\\t\\t=\\tBIT1\\t\\t# +PITCH',\n",
       " '# Page 822',\n",
       " 'AZEACH\\t\\tDEC\\t.03491\\t\\t# 2 DEGREES',\n",
       " 'ELEACH\\t\\tDEC\\t.00873\\t\\t# 1/2 DEGREE',\n",
       " '# ****************************************************************',\n",
       " '# R.O.D. TRAP',\n",
       " '# ****************************************************************',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS\\t# ************************',\n",
       " 'DESCBITS\\tMASK\\tBIT7\\t\\t# COME HERE FROM MARKRUPT CODING WITH BIT',\n",
       " '\\t\\tCCS\\tA\\t\\t#\\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS',\n",
       " '\\t\\tCS\\tTWO\\t\\t#\\t- RATE INCREMENT, BIT 6 + INCREMENT.',\n",
       " '\\t\\tTCF\\tRESUME\\t\\t# TRAP IS RESET WHEN SWITCH IS RELEASED',\n",
       " '# ***********************************************************************************',\n",
       " '# DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)',\n",
       " '# ***********************************************************************************',\n",
       " '#',\n",
       " '#\\t                                               N        N-1',\n",
       " '#\\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A',\n",
       " '#\\t                                             N      N-1              1     0',\n",
       " \"# USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\",\n",
       " '#\\tA\\tSP\\tLOC-3\\t\\tADRES FOR REFERENCING PWR COF TABL',\n",
       " '#\\tL\\tSP\\tN-1\\t\\tN IS THE DEGREE OF THE POWER SERIES',\n",
       " '#\\tMPAC\\tDP\\tX\\t\\tINITIAL GUESS FOR ROOT',\n",
       " '#',\n",
       " '#\\tLOC-2N\\tDP\\tA(0)',\n",
       " '#\\t\\t...',\n",
       " '#\\tLOC\\tDP\\tA(N)',\n",
       " '#\\tLOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)',\n",
       " '#',\n",
       " '# Page 823',\n",
       " '# THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.',\n",
       " '# RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND',\n",
       " '# OUTPUTS ARE NOT TO BE TRUSTED.',\n",
       " '#',\n",
       " '# PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD',\n",
       " '# PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE',\n",
       " '# COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE',\n",
       " '# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT',\n",
       " '# ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:',\n",
       " \"#\\t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\",\n",
       " \"#\\t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\",\n",
       " '#\\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT',\n",
       " '#\\t    PRECLUDE EVENTUAL CONVERGENCE.',\n",
       " '#\\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.',\n",
       " '#\\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.',\n",
       " '#\\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.',\n",
       " '\\t\\t\\t\\t\\t# STORE ENTERING DATA, INITIALIZE ERASABLES',\n",
       " '\\t\\tQXCH\\tRETROOT\\t\\t# RETURN ADRES',\n",
       " '\\t\\tTS\\tPWRPTR\\t\\t# PWR TABLE POINTER',\n",
       " '\\t\\tDXCH\\tMPAC +3\\t\\t# PWR TABLE ADRES, N-1',\n",
       " '\\t\\tTS\\tDERPTR\\t\\t# DER TABL POINTER',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t# DER TABL ADRES',\n",
       " '\\t\\tCCS\\tMPAC +4\\t\\t# NO POWER SERIES DEGREE 1 OR LESS',\n",
       " '\\t\\tTS\\tMPAC +6\\t\\t# N-2',\n",
       " '\\t\\tCA\\tZERO\\t\\t# MODE USED AS ITERATION COUNTER.  MODE',\n",
       " \"\\t\\tTS\\tMODE\\t\\t# MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\",\n",
       " '\\t\\t\\t\\t\\t# COMPUTE CRITERION TO STOP ITERATING',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t# FETCH ROOT GUESS, KEEPING IT IN MPAC',\n",
       " '\\t\\tDXCH\\tROOTPS\\t\\t# AND IN ROOTPS',\n",
       " '\\t\\tINDEX\\tMPAC +3\\t\\t# PWR TABLE ADRES',\n",
       " '\\t\\tCA\\t5\\t\\t# PRECROOT TO A',\n",
       " '\\t\\tTC\\tSHORTMP\\t\\t# YIELDS DP PRODUCT IN MPAC',\n",
       " '\\t\\tCADR\\tABS\\t\\t# YIELDS ABVAL OF CRITERION ON DX IN MPAC',\n",
       " '\\t\\tDXCH\\tDXCRIT\\t\\t# CRITERION',\n",
       " '\\t\\t\\t\\t\\t# SET UP DER COF TABL',\n",
       " '# Page 824',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# A(N) TO MPAC',\n",
       " '\\t\\tCA\\tMPAC +4\\t\\t# N-1 TO A',\n",
       " 'DERCLOOP\\tTS\\tPWRCNT\\t\\t# LOOP COUNTER',\n",
       " '\\t\\tTC\\tDMPNSUB\\t\\t# YIELDS DERCOF = I X A(I) IN MPAC',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# (I-1) TO MPAC, FETCHING DERCOF',\n",
       " '\\t\\tDXCH\\t3\\t\\t# DERCOF TO DER TABLE',\n",
       " '\\t\\tADS\\tPWRPTR\\t\\t# DECREMENT PWR POINTER',\n",
       " '\\t\\tADS\\tDERPTR\\t\\t# DECREMENT DER POINTER',\n",
       " '\\t\\t\\t\\t\\t# CONVERGE ON ROOT',\n",
       " '\\t\\tDCA\\tROOTPS\\t\\t# FETCH CURRENT ROOT',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# LEAVE IN MPAC',\n",
       " '\\t\\tDCA\\tMPAC +5\\t\\t# LOAD A, L WITH DER TABL ADRES, N-2',\n",
       " '\\t\\tTC\\tPOWRSERS\\t# YIELDS DERIVATIVE IN MPAC',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t# CURRENT ROOT TO MPAC, FETCHING DERIVATIVE',\n",
       " '\\t\\tDXCH\\tBUF\\t\\t# LEAVE DERIVATIVE IN BUF AS DIVISOR',\n",
       " '\\t\\tDCA\\tMPAC +3\\t\\t# LOAD A, L WITH PWR TABL ADRES, N-1',\n",
       " '\\t\\tTC\\tPOWRSERS\\t# YIELDS RESIDUAL IN MPAC',\n",
       " '\\t\\tCADR\\tDDV/BDDV\\t# YIELDS -DX IN MPAC',\n",
       " '\\t\\tDCS\\tMPAC\\t\\t# FETCH DX, LEAVING -DX IN MPAC',\n",
       " '\\t\\tDAS\\tROOTPS\\t\\t# CORRECTED ROOT NOW IN ROOTPS',\n",
       " '\\t\\tCADR\\tABS\\t\\t# YIELDS ABS(DX) IN MPAC',\n",
       " '# Page 825',\n",
       " '\\t\\tDAS\\tMPAC\\t\\t# ABS(DX)-ABS(DXCRIT) IN MPAC',\n",
       " '\\t\\tMASK\\tBIT4\\t\\t# KLUMPP SAYS GIVE UP AFTER EIGHT PASSES',\n",
       " '\\t\\tINCR\\tMODE\\t\\t# INCREMENT ITERATION COUNTER',\n",
       " '\\t\\tCCS\\tMPAC\\t\\t# TEST HI ORDER DX',\n",
       " 'TESTLODX\\tCCS\\tMPAC +1\\t\\t# TEST LO ORDER DX',\n",
       " '\\t\\tTS\\tMPAC +2\\t\\t# STORE SP ITERATION COUNT IN MPAC+2',\n",
       " '# ****************************************************************************',\n",
       " '# TRASHY LITTLE SUBROUTINES',\n",
       " '# ****************************************************************************',\n",
       " 'INTPRETX\\tINDEX\\tWCHPHASE\\t# SET X1 ON THE WAY TO THE INTERPRETER',\n",
       " '\\t\\tCA\\tEBANK5\\t\\t# TREDES BECOMES ZERO TWO PASSES',\n",
       " '\\t\\tTS\\tEBANK\\t\\t#\\tBEFORE TCGFAPPR IS REACHED',\n",
       " '# Page 826',\n",
       " '# *********************************************************************',\n",
       " '# SPECIALIZED \"PHASCHNG\" SUBROUTINE',\n",
       " '# *********************************************************************',\n",
       " \"FASTCHNG\\tCA\\tEBANK3\\t\\t# SPECIALIZED 'PHASCHNG' ROUTINE\",\n",
       " '# *************************************************************************************',\n",
       " '# PARAMETER TABLE INDIRECT ADDRESSES',\n",
       " '# *************************************************************************************',\n",
       " '# *************************************************************************************',\n",
       " '# LUNAR LANDING CONSTANTS',\n",
       " '# *************************************************************************************',\n",
       " '# Page 827',\n",
       " 'TABLTTFL\\tADRES\\tTABLTTF +3\\t# ADDRESS FOR REFERENCING TTF TABLE',\n",
       " \"PROJMAX\\t\\tDEC\\t.42262 B-3\\t# SIN(25')/8 TO COMPARE WITH PROJ\",\n",
       " \"PROJMIN\\t\\tDEC\\t.25882 B-3\\t# SIN(15')/8 TO COMPARE WITH PROJ\",\n",
       " 'V06N63\\t\\tVN\\t0663\\t\\t# P63',\n",
       " 'V06N64\\t\\tVN\\t0664\\t\\t# P64',\n",
       " 'V06N60\\t\\tVN\\t0660\\t\\t# P65, P66, P67',\n",
       " '# Page 828',\n",
       " '# **************************************************************************',\n",
       " '# **************************************************************************']"
      ]
     },
     "execution_count": 30,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "comments"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "id": "23be55b4",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "523"
      ]
     },
     "execution_count": 31,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "len(comments)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "id": "74f81ae5",
   "metadata": {},
   "outputs": [],
   "source": [
    "ignore=['\\t','Page']"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 40,
   "id": "e2163641",
   "metadata": {},
   "outputs": [],
   "source": [
    "phrases=[]\n",
    "for comment in comments:\n",
    "    x = re.split(\"#\", comment)\n",
    "    for phrase in x:\n",
    "        phrases.append(phrase)\n",
    "        \n",
    "    "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "id": "7b110997",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['\\t\\tDCA\\tHDOTDISP\\t',\n",
       " ' SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t',\n",
       " ' \\tALTITUDE RATE.',\n",
       " '',\n",
       " ' Page 801',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " ' WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " 'STARTP67\\tTC\\tNEWMODEX\\t',\n",
       " ' NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " '\\t\\tDEC\\t67\\t\\t',\n",
       " ' SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " '\\t\\tCAF\\tZERO\\t\\t',\n",
       " ' TO SEE IF ALREADY IN P67.',\n",
       " 'STABL?\\t\\tCAF\\tBIT13\\t\\t',\n",
       " ' IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " '\\t\\tTCF\\tGUILDRET\\t',\n",
       " \" YES ALL'S WELL\",\n",
       " '\\t\\tCA\\tRODCOUNT\\t',\n",
       " ' NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " '\\t\\tBZF\\tGUILDRET\\t',\n",
       " ' NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " '\\t\\tTCF\\tSTARTP66\\t',\n",
       " ' YES. SWITCH INTO THE ROD MODE.',\n",
       " 'RESTART?\\tCA\\tFLAGWRD1\\t',\n",
       " ' HAS THERE BEEN A RESTART?',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t',\n",
       " ' YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\tIS.',\n",
       " '\\t\\tTCF\\tVERTGUID\\t',\n",
       " ' NO: CONTINUE WITH R.O.D.',\n",
       " '',\n",
       " ' *******************************************************************************',\n",
       " '',\n",
       " ' INITIALIZATION FOR THIS PASS',\n",
       " '',\n",
       " ' *******************************************************************************',\n",
       " '',\n",
       " ' Page 802',\n",
       " '',\n",
       " ' ******************************************************************',\n",
       " '',\n",
       " ' ROUTINES TO START NEW PHASES',\n",
       " '',\n",
       " ' ******************************************************************',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " '\\t\\tCA\\tDELTTFAP\\t',\n",
       " ' AUGMENT TTF/8',\n",
       " '\\t\\tCA\\tBIT12\\t\\t',\n",
       " ' ENABLE RUPT10',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " ' INITIALIZE REDESIGNATION FLAG',\n",
       " '',\n",
       " '\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '',\n",
       " ' *********************************************************************************',\n",
       " '',\n",
       " ' INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " '',\n",
       " ' *********************************************************************************',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '',\n",
       " ' Page 803',\n",
       " '',\n",
       " '\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '',\n",
       " '\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '',\n",
       " '\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '',\n",
       " '\\t\\t\\t____               ____   ____                   __',\n",
       " '',\n",
       " '\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '',\n",
       " '\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '',\n",
       " '\\t\\t\\t                 ____   _',\n",
       " '',\n",
       " '\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t',\n",
       " ' SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " '\\t\\tDAS\\tTTF/8TMP\\t',\n",
       " ' NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " '',\n",
       " ' Page 804',\n",
       " '\\t\\tTC\\tFASTCHNG\\t',\n",
       " ' SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " '',\n",
       " ' *********************************************************************',\n",
       " '',\n",
       " ' LANDING SITE PERTURBATION EQUATIONS',\n",
       " '',\n",
       " ' *********************************************************************',\n",
       " 'REDESIG\\t\\tCA\\tFLAGWRD6\\t',\n",
       " ' IS REDFLAG SET?',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " ' NO:  SKIP REDESIGNATION LOGIC',\n",
       " '\\t\\tCA\\tTREDES\\t\\t',\n",
       " ' YES:  HAS TREDES REACHED ZERO?',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " ' YES:  SKIP REDESIGNATION LOGIC',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t',\n",
       " ' SET PD TO 0',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '                 ____   _',\n",
       " '\\t\\tRTB\\tPUSH\\t\\t',\n",
       " ' PUSH DOWN UNIT (LAND - R)',\n",
       " '\\t\\t\\tYNBPIP\\t\\t',\n",
       " '                    ___        ____   _',\n",
       " '\\t\\tVXSC\\tPDDL\\t\\t',\n",
       " ' PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " '\\t\\tVAD\\tPUSH\\t\\t',\n",
       " ' RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " '',\n",
       " ' Page 805',\n",
       " '\\t\\tDLOAD\\tDSU\\t\\t',\n",
       " ' MAKE SURE REDESIGNATION IS NOT',\n",
       " '\\t\\t\\t0\\t\\t',\n",
       " ' \\tTOO CLOSE TO THE HORIZON.',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " ' LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " '',\n",
       " ' *********************************************************************',\n",
       " '',\n",
       " ' COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " '',\n",
       " ' *********************************************************************',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " '',\n",
       " '\\tVELOCITY RELATIVE TO THE SURFACE:',\n",
       " '',\n",
       " '\\t\\t_______   _   _   __',\n",
       " '',\n",
       " '\\t\\tANGTERM = V + R * WM',\n",
       " '',\n",
       " '\\tSTATE IN GUIDANCE COORDINATES:',\n",
       " '',\n",
       " '\\t\\t___   *   _   ____',\n",
       " '',\n",
       " '\\t\\tRGU = CG (R - LAND)',\n",
       " '',\n",
       " '\\t\\t___   *   _   __   _',\n",
       " '',\n",
       " '\\t\\tVGU = CG (V - WM * R)',\n",
       " '',\n",
       " ' Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\tHORIZONTAL VELOCITY FOR DISPLAY',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " '',\n",
       " '\\t\\t                       2    1',\n",
       " '',\n",
       " ' \\tDEPRESSION ANGLE FOR DISPLAY:',\n",
       " '',\n",
       " '\\t\\t                       _   ____  ______',\n",
       " '',\n",
       " '\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " 'CALCRGVG\\tTC\\tINTPRET\\t\\t',\n",
       " ' IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " '\\t\\tVLOAD\\tMXV\\t\\t',\n",
       " '\\tOUTPUT AND TRIM CORRECTION TERM',\n",
       " '\\t\\t\\tVATT1\\t\\t',\n",
       " '\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " 'RGVGCALC\\tTC\\tINTPRET\\t\\t',\n",
       " ' ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " '\\t\\tVAD\\tVSR2\\t\\t',\n",
       " ' RESCALE TO UNITS OF 2(9) M/CS',\n",
       " '\\t\\t\\tCG\\t\\t',\n",
       " ' NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " '\\t\\tPDDL\\tVDEF\\t\\t',\n",
       " ' FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " '\\t\\t\\tZEROVECS\\t',\n",
       " '           2   1',\n",
       " '\\t\\tSTOVL\\tVHORIZ\\t\\t',\n",
       " ' VHORIZ FOR DISPLAY DURING P65.',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '           _   ____',\n",
       " '\\t\\tVSU\\tPUSH\\t\\t',\n",
       " ' PUSH DOWN R - LAND',\n",
       " '\\t\\tRTB\\tDOT\\t\\t',\n",
       " ' NOW IN MPAC IS SINE(LOOKANGL)/4']"
      ]
     },
     "execution_count": 39,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "phrases"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "id": "f054c6af",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "1047"
      ]
     },
     "execution_count": 41,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "len(phrases)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "id": "a1829479",
   "metadata": {},
   "outputs": [],
   "source": [
    "phrases.sort()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 43,
   "id": "64fd7637",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t\\t(8)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2), (4), OR (6)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(8)',\n",
       " \"\\t\\t\\t\\ta couple of lines of code that shouldn't\",\n",
       " '\\t\\t\\t\\thave survived from Luminary 131 to here.',\n",
       " '\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated',\n",
       " '\\t\\t\\t                 ____   _',\n",
       " '\\t\\t\\t0\\t\\t',\n",
       " '\\t\\t\\tADG2TTF,1\\t',\n",
       " '\\t\\t\\tCG\\t\\t',\n",
       " '\\t\\t\\tGAINBRAK,1\\t',\n",
       " '\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '\\t\\t\\tMASS\\t\\t',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '\\t\\t\\tRDG +4,1\\t',\n",
       " '\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '\\t\\t\\tUNFC/2\\t\\t',\n",
       " '\\t\\t\\tUNFC/2 +2\\t',\n",
       " '\\t\\t\\tVATT1\\t\\t',\n",
       " '\\t\\t\\tVGU \\t+4\\t',\n",
       " '\\t\\t\\tYNBPIP\\t\\t',\n",
       " '\\t\\t\\tZEROVECS\\t',\n",
       " '\\t\\t\\t____               ____   ____                   __',\n",
       " '\\t\\t                       2    1',\n",
       " '\\t\\t                       _   ____  ______',\n",
       " '\\t\\t                  TTF/8',\n",
       " '\\t\\t                TTF        (TTF)(TTF)',\n",
       " '\\t\\t              ___   __       ___   __',\n",
       " '\\t\\t             ___   __',\n",
       " '\\t\\t        TAUVERT',\n",
       " '\\t\\t      - (------------- + VDG + VG)',\n",
       " '\\t\\t      3 (1/4(RDG - RG)   ___   __)',\n",
       " '\\t\\t      V2FG - VGU',\n",
       " '\\t\\t      ____   ___',\n",
       " '\\t\\t(CONTINUE TO EXTLOGIC)',\n",
       " '\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '\\t\\t...',\n",
       " '\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently',\n",
       " '\\t\\t2009-06-07 RSB\\tFixed a typo.',\n",
       " '\\t\\tABVAL\\tPDDL\\t\\t',\n",
       " '\\t\\tACG = ----------',\n",
       " '\\t\\tACG = ---------------------------- + ADG',\n",
       " '\\t\\tACG = ADG + ----------- + ------------',\n",
       " '\\t\\tAD\\tLEADTIME\\t',\n",
       " '\\t\\tAD\\tPOSMAX\\t\\t',\n",
       " '\\t\\tADS\\tBUF\\t\\t',\n",
       " '\\t\\tADS\\tBUF +1\\t\\t',\n",
       " '\\t\\tADS\\tDERPTR\\t\\t',\n",
       " '\\t\\tADS\\tPWRPTR\\t\\t',\n",
       " '\\t\\tANGTERM = V + R * WM',\n",
       " '\\t\\tApollo Guidance Computer (AGC), for Apollo 11.',\n",
       " '\\t\\tBDDV\\tSTADR\\t\\t',\n",
       " '\\t\\tBMN\\tDLOAD\\t\\t',\n",
       " '\\t\\tBPL\\tDLOAD\\t\\t',\n",
       " '\\t\\tBZF\\tDISPEXIT\\t',\n",
       " '\\t\\tBZF\\tENDLLJOB\\t',\n",
       " '\\t\\tBZF\\tGUILDRET\\t',\n",
       " '\\t\\tBZF\\tRED-OVER\\t',\n",
       " '\\t\\tBZF\\tREDES-OK\\t',\n",
       " '\\t\\tBZF\\tRESETRPT\\t',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t',\n",
       " '\\t\\tCA\\t5\\t\\t',\n",
       " '\\t\\tCA\\tBIT12\\t\\t',\n",
       " '\\t\\tCA\\tDELTTFAP\\t',\n",
       " '\\t\\tCA\\tEBANK5\\t\\t',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t',\n",
       " '\\t\\tCA\\tL\\t\\t',\n",
       " '\\t\\tCA\\tMPAC\\t\\t',\n",
       " '\\t\\tCA\\tMPAC +4\\t\\t',\n",
       " '\\t\\tCA\\tRODCOUNT\\t',\n",
       " '\\t\\tCA\\tTENDBRAK\\t',\n",
       " '\\t\\tCA\\tTREDES\\t\\t',\n",
       " '\\t\\tCA\\tWCHPHASE\\t',\n",
       " '\\t\\tCA\\tZERO\\t\\t',\n",
       " '\\t\\tCADR\\tABS\\t\\t',\n",
       " '\\t\\tCADR\\tABS\\t\\t',\n",
       " '\\t\\tCADR\\tDDV/BDDV\\t',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tV06N64\\t\\t',\n",
       " '\\t\\tCAF\\tZERO\\t\\t',\n",
       " '\\t\\tCCS\\tA\\t\\t',\n",
       " '\\t\\tCCS\\tELVIRA\\t\\t',\n",
       " '\\t\\tCCS\\tL\\t\\t',\n",
       " '\\t\\tCCS\\tMPAC\\t\\t',\n",
       " '\\t\\tCCS\\tMPAC +4\\t\\t',\n",
       " '\\t\\tCCS\\tZERLINA\\t\\t',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS\\t',\n",
       " '\\t\\tCS\\tFLAGWRD6\\t',\n",
       " '\\t\\tCS\\tMPAC\\t\\t',\n",
       " '\\t\\tCS\\tPROJMIN\\t\\t',\n",
       " '\\t\\tCS\\tTWO\\t\\t',\n",
       " '\\t\\tDAD\\t\\t\\t',\n",
       " '\\t\\tDAD\\tPDDL\\t\\t',\n",
       " '\\t\\tDAS\\tMPAC\\t\\t',\n",
       " '\\t\\tDAS\\tROOTPS\\t\\t',\n",
       " '\\t\\tDAS\\tTTF/8TMP\\t',\n",
       " '\\t\\tDAS\\tVDGVERT\\t\\t',\n",
       " '\\t\\tDCA\\tHDOTDISP\\t',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC +3\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC +5\\t\\t',\n",
       " '\\t\\tDCA\\tNEG0\\t\\t',\n",
       " '\\t\\tDCA\\tROOTPS\\t\\t',\n",
       " '\\t\\tDCS\\tMPAC\\t\\t',\n",
       " '\\t\\tDDV\\tBDDV\\t\\t',\n",
       " '\\t\\tDDV\\tDSU\\t\\t',\n",
       " '\\t\\tDDV\\tPDVL\\t\\t',\n",
       " '\\t\\tDEC\\t67\\t\\t',\n",
       " '\\t\\tDLOAD\\t\\t\\t',\n",
       " '\\t\\tDLOAD\\tDSU\\t\\t',\n",
       " '\\t\\tDLOAD\\tPUSH\\t\\t',\n",
       " '\\t\\tDSU\\tDSU\\t\\t',\n",
       " '\\t\\tDSU\\tPDDL\\t\\t',\n",
       " '\\t\\tDXCH\\t3\\t\\t',\n",
       " '\\t\\tDXCH\\tBUF\\t\\t',\n",
       " '\\t\\tDXCH\\tDXCRIT\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC +3\\t\\t',\n",
       " '\\t\\tDXCH\\tROOTPS\\t\\t',\n",
       " '\\t\\tDXCH\\tRUPTREG1\\t',\n",
       " '\\t\\tDXCH\\tTTF/8\\t\\t',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tINCR\\tFLPASS0\\t\\t',\n",
       " '\\t\\tINCR\\tMODE\\t\\t',\n",
       " '\\t\\tINDEX\\tMPAC +3\\t\\t',\n",
       " \"\\t\\tIt is part of the source code for the Lunar Module's (LM)\",\n",
       " '\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " '\\t\\tMASK\\tBIT4\\t\\t',\n",
       " '\\t\\tN:\\tDIMINISH ZERLINA, CONTINUE',\n",
       " '\\t\\tOCT\\t0\\t\\t',\n",
       " '\\t\\tOCT\\t00035\\t\\t',\n",
       " '\\t\\tOCT\\t05023\\t\\t',\n",
       " '\\t\\tOCT\\t21000\\t\\t',\n",
       " '\\t\\tOCT\\t34\\t\\t',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t',\n",
       " '\\t\\tPDDL\\tDMP\\t\\t',\n",
       " '\\t\\tPDDL\\tVDEF\\t\\t',\n",
       " '\\t\\tPDVL\\tABVAL\\t\\t',\n",
       " '\\t\\tPDVL\\tCALL\\t\\t',\n",
       " '\\t\\tPUSH\\tBDSU\\t\\t',\n",
       " '\\t\\tQXCH\\tRETROOT\\t\\t',\n",
       " '\\t\\tRGU = CG (R - LAND)',\n",
       " '\\t\\tRTB\\tDOT\\t\\t',\n",
       " '\\t\\tRTB\\tPUSH\\t\\t',\n",
       " '\\t\\tSETPD\\t\\t\\t',\n",
       " '\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t',\n",
       " '\\t\\tSTODL\\t/AFC/\\t\\t',\n",
       " '\\t\\tSTODL\\tHCALC1\\t\\t',\n",
       " '\\t\\tSTODL\\tHDOTDISP\\t',\n",
       " '\\t\\tSTODL\\tLASTTPIP\\t',\n",
       " '\\t\\tSTODL\\tTABLTTF +4\\t',\n",
       " '\\t\\tSTODL*\\tTABLTTF +2\\t',\n",
       " '\\t\\tSTODL*\\tTABLTTF +6\\t',\n",
       " '\\t\\tSTORE\\t30D\\t\\t',\n",
       " '\\t\\tSTORE\\tTABLTTF\\t\\t',\n",
       " '\\t\\tSTORE\\tUNFC/2\\t\\t',\n",
       " '\\t\\tSTORE\\tUNWC/2\\t\\t',\n",
       " '\\t\\tSTOVL\\t24D\\t\\t',\n",
       " '\\t\\tSTOVL\\tCG +6\\t\\t',\n",
       " '\\t\\tSTOVL\\tVHORIZ\\t\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tCHECKMM\\t\\t',\n",
       " '\\t\\tTC\\tDMPNSUB\\t\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tFASTCHNG\\t',\n",
       " '\\t\\tTC\\tPOWRSERS\\t',\n",
       " '\\t\\tTC\\tPOWRSERS\\t',\n",
       " '\\t\\tTC\\tROOTPSRS\\t',\n",
       " '\\t\\tTC\\tSHORTMP\\t\\t',\n",
       " '\\t\\tTC\\tUPFLAG\\t\\t',\n",
       " '\\t\\tTCF\\t1406ALM\\t\\t',\n",
       " '\\t\\tTCF\\t1406P00\\t\\t',\n",
       " '\\t\\tTCF\\tCALCRGVG\\t',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t',\n",
       " \"\\t\\tTCF\\tCOUNT'EM\\t\",\n",
       " '\\t\\tTCF\\tEXGSUB\\t\\t',\n",
       " '\\t\\tTCF\\tEXNORM\\t\\t',\n",
       " '\\t\\tTCF\\tGOTOP00H\\t',\n",
       " '\\t\\tTCF\\tGUILDRET\\t',\n",
       " '\\t\\tTCF\\tP64CEED\\t\\t',\n",
       " '\\t\\tTCF\\tP64DISPS\\t',\n",
       " '\\t\\tTCF\\tP64DISPS\\t',\n",
       " '\\t\\tTCF\\tP65START\\t',\n",
       " '\\t\\tTCF\\tP66VERT\\t\\t',\n",
       " '\\t\\tTCF\\tP67VERT\\t\\t',\n",
       " '\\t\\tTCF\\tPREMON1\\t\\t',\n",
       " '\\t\\tTCF\\tPREMON2\\t\\t',\n",
       " '\\t\\tTCF\\tREDESIG\\t\\t',\n",
       " '\\t\\tTCF\\tRESUME\\t\\t',\n",
       " '\\t\\tTCF\\tRGVGCALC\\t',\n",
       " '\\t\\tTCF\\tSTABL?\\t\\t',\n",
       " '\\t\\tTCF\\tSTARTP64\\t',\n",
       " '\\t\\tTCF\\tSTARTP66\\t',\n",
       " '\\t\\tTCF\\tSTEER?\\t\\t',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t',\n",
       " '\\t\\tTCF\\tTTFINCR\\t\\t',\n",
       " '\\t\\tTCF\\tVERTDISP\\t',\n",
       " '\\t\\tTCF\\tVERTGUID\\t',\n",
       " '\\t\\tTCF\\tVERTGUID\\t',\n",
       " '\\t\\tTS\\t26D\\t\\t',\n",
       " '\\t\\tTS\\t28D\\t\\t',\n",
       " '\\t\\tTS\\t30D\\t\\t',\n",
       " '\\t\\tTS\\tBUF\\t\\t',\n",
       " '\\t\\tTS\\tDERPTR\\t\\t',\n",
       " '\\t\\tTS\\tEBANK\\t\\t',\n",
       " '\\t\\tTS\\tFLPASS0\\t\\t',\n",
       " '\\t\\tTS\\tL\\t\\t',\n",
       " '\\t\\tTS\\tLOOKANGL\\t',\n",
       " '\\t\\tTS\\tMODE\\t\\t',\n",
       " '\\t\\tTS\\tMPAC\\t\\t',\n",
       " '\\t\\tTS\\tMPAC\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +1\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +2\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +3\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +6\\t\\t',\n",
       " '\\t\\tTS\\tPWRPTR\\t\\t',\n",
       " '\\t\\tTS\\tTABLTTF +10\\t',\n",
       " '\\t\\tTS\\tTEMX\\t\\t',\n",
       " '\\t\\tTS\\tTEMY\\t\\t',\n",
       " '\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '\\t\\tVAD\\tPUSH\\t\\t',\n",
       " '\\t\\tVAD\\tSTADR\\t\\t',\n",
       " '\\t\\tVAD\\tVSR2\\t\\t',\n",
       " '\\t\\tVGU = CG (V - WM * R)',\n",
       " '\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " '\\t\\tVLOAD\\t\\t\\t',\n",
       " '\\t\\tVLOAD\\tMXV\\t\\t',\n",
       " '\\t\\tVSU\\tPUSH\\t\\t',\n",
       " '\\t\\tVSU\\tVXSC\\t\\t',\n",
       " '\\t\\tVXSC\\tPDDL\\t\\t',\n",
       " '\\t\\tXCH\\tBUF +1\\t\\t',\n",
       " '\\t\\tY:\\tRESET RUPT. TERMINATE',\n",
       " '\\t\\t___   *   _   __   _',\n",
       " '\\t\\t___   *   _   ____',\n",
       " '\\t\\t___   4 (    TTF/8               )   ___',\n",
       " '\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)',\n",
       " '\\t\\t_______   _   _   __',\n",
       " '\\t                                               N        N-1',\n",
       " '\\t                                             N      N-1              1     0',\n",
       " '\\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.',\n",
       " '\\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT',\n",
       " '\\t    PRECLUDE EVENTUAL CONVERGENCE.',\n",
       " '\\t- RATE INCREMENT, BIT 6 + INCREMENT.',\n",
       " \"\\t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\",\n",
       " '\\t16:27 JULY 14, 1969',\n",
       " \"\\t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\",\n",
       " '\\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.',\n",
       " '\\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.',\n",
       " '\\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS',\n",
       " '\\tA\\tSP\\tLOC-3\\t\\tADRES FOR REFERENCING PWR COF TABL',\n",
       " '\\tAS HERE PROGRAMMED --',\n",
       " '\\tAS PUBLISHED --',\n",
       " '\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61',\n",
       " '\\tBEFORE TCGFAPPR IS REACHED',\n",
       " '\\tBY FORCING -TTF*LEADTIME > OR = ZERO',\n",
       " '\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " \"\\tDON'T CALL THROTTLE OR FINDCDUW\",\n",
       " '\\tHORIZONTAL VELOCITY FOR DISPLAY',\n",
       " '\\tIS.',\n",
       " \"\\tJUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " '\\tKNOW WHEN READACCS CHANGES THEM.',\n",
       " '\\tL\\tSP\\tN-1\\t\\tN IS THE DEGREE OF THE POWER SERIES',\n",
       " '\\tLOC\\tDP\\tA(N)',\n",
       " '\\tLOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)',\n",
       " '\\tLOC-2N\\tDP\\tA(0)',\n",
       " '\\tMPAC\\tDP\\tX\\t\\tINITIAL GUESS FOR ROOT',\n",
       " '\\tN: \\tHAS ZERLINA REACHED ZERO YET?',\n",
       " '\\tOUTPUT AND TRIM CORRECTION TERM',\n",
       " '\\tRESTORED BY NEXT GUIDANCE CYCLE.',\n",
       " '\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " '\\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A',\n",
       " '\\tSTATE IN GUIDANCE COORDINATES:',\n",
       " '\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '\\tVELOCITY RELATIVE TO THE SURFACE:',\n",
       " '\\tWCHPHASE =  0 ---> BRAKQUAD',\n",
       " '\\tWCHPHASE =  1 ---> APPRQUAD',\n",
       " '\\tWCHPHASE =  2 ---> VERTICAL',\n",
       " '\\tWCHPHASE = -1 ---> IGNALG',\n",
       " \"\\tY: \\tCOUNT 'EM, RESET RUPT, TERMINATE\",\n",
       " ' \\t\\t(CONTINUE TO DISPEXIT)',\n",
       " ' \\t\\t(CONTINUE TO QUADGUID)',\n",
       " ' \\t\\tTCF\\tSTARTP67\\t',\n",
       " ' \\tALTITUDE RATE.',\n",
       " ' \\tDEPRESSION ANGLE FOR DISPLAY:',\n",
       " ' \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --',\n",
       " ' \\tTOO CLOSE TO THE HORIZON.',\n",
       " '                            1    0',\n",
       " '                        2    2    2',\n",
       " '                    ___        ____   _',\n",
       " '                 ____   _',\n",
       " '                2      2',\n",
       " '              2         2',\n",
       " '             2',\n",
       " '             2',\n",
       " '           2   1',\n",
       " '           _   ____',\n",
       " ' (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       " ' (I-1) TO MPAC, FETCHING DERCOF',\n",
       " ' ************************',\n",
       " ' ********************************************************',\n",
       " ' ********************************************************',\n",
       " ' **********************************************************',\n",
       " ' **********************************************************',\n",
       " ' ****************************************************************',\n",
       " ' ****************************************************************',\n",
       " ' ******************************************************************',\n",
       " ' ******************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' ****************************************************************************',\n",
       " ' ****************************************************************************',\n",
       " ' *******************************************************************************',\n",
       " ' *******************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' ***********************************************************************************',\n",
       " ' ***********************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' +0',\n",
       " ' +3\\t\\tCS\\tFLAGWRD8\\t',\n",
       " ' +PITCH',\n",
       " ' - RATIO OF LAG-DIMINISHED TTF TO TTF',\n",
       " ' -PITCH',\n",
       " ' 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       " ' 1/2 DEGREE',\n",
       " ' 2 DEGREES',\n",
       " ' 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       " ' 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.',\n",
       " ' 30-31D CONTAINS TIME IN CS SINCE PIPTIME',\n",
       " ' A(0) = -24 (RGU  - RDG )/64 TO TABLTTF',\n",
       " ' A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF',\n",
       " ' A(2) = 6 ADG  TO TABLTTF',\n",
       " ' A(3) = 8 JDG  TO TABLTTF',\n",
       " ' A(N) TO MPAC',\n",
       " ' ABS(DX)-ABS(DXCRIT) IN MPAC',\n",
       " ' ADDRESS FOR REFERENCING TTF TABLE',\n",
       " ' ALARM ROUTINE FOR TTF COMPUTATION:',\n",
       " ' AMAXHORIZ = SQRT(ATOTAL - A  - A  )',\n",
       " ' AND IN ROOTPS',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' ARE WE IN ATTITUDE-HOLD?',\n",
       " ' ARE WE IN ATTITUDE-HOLD?',\n",
       " ' AUGMENT TTF/8',\n",
       " ' Assembler:\\tyaYUL',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' COEFFICIENT FOR ADG TERM',\n",
       " ' COEFFICIENT FOR RDG-RGU TERM',\n",
       " ' COEFFICIENT FOR VDG TERM',\n",
       " ' COEFFICIENT FOR VGU TERM',\n",
       " ' COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT',\n",
       " ' COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE',\n",
       " ' COME HERE FROM MARKRUPT CODING WITH BIT',\n",
       " ' COMPUTE CRITERION TO STOP ITERATING',\n",
       " ' COMPUTE LOOKANGLE ITSELF',\n",
       " ' COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " ' COMPUTE TRIM VELOCITY CORRECTION TERM.',\n",
       " ' CONVERGE ON ROOT',\n",
       " ' CORRECTED ROOT NOW IN ROOTPS',\n",
       " ' CORRECTED TTF/8',\n",
       " ' CRITERION',\n",
       " ' CURRENT ROOT TO MPAC, FETCHING DERIVATIVE',\n",
       " ' Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.',\n",
       " ' Copyright:\\tPublic domain.',\n",
       " ' DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES',\n",
       " ' DECREMENT DER POINTER',\n",
       " ' DECREMENT PWR POINTER',\n",
       " ' DEGREE - ONE',\n",
       " ' DER TABL ADRES',\n",
       " ' DER TABL POINTER',\n",
       " ' DERCOF TO DER TABLE',\n",
       " ' DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " ' DISPLAY ROUTINES:',\n",
       " ' DO ANY BITS APPEAR THIS PASS?',\n",
       " ' DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)',\n",
       " ' ENABLE REDESIGNATION LOGIC',\n",
       " ' ENABLE RUPT10',\n",
       " ' ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " ' ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " ' ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX',\n",
       " ' FETCH CURRENT ROOT',\n",
       " ' FETCH DX, LEAVING -DX IN MPAC',\n",
       " ' FETCH ROOT GUESS, KEEPING IT IN MPAC',\n",
       " ' FETCH TTF/8 KEEPING IT IN MPAC',\n",
       " ' FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       " ' FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " ' FRACTIONAL PRECISION FOR TTF TO TABLE',\n",
       " ' Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " ' GET COEFFICIENT FOR CG +14',\n",
       " ' GET COEFFICIENT FOR UNIT(LAND - R)',\n",
       " ' GOOD RETURN',\n",
       " ' GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " ' GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " ' GUIDANCE EQUATIONS:',\n",
       " ' GUIDANCE FOR P65',\n",
       " ' GUIDANCE FOR P66',\n",
       " ' GUIDANCE LOOP DISPLAYS',\n",
       " ' GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " ' HAS THERE BEEN A RESTART?',\n",
       " ' HAS TREDES REACHED ZERO?',\n",
       " ' HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " ' IF FLUNDISP IS SET, NO DISPLAY THIS PASS',\n",
       " ' IF NOT IN P64, NO REASON TO CONTINUE',\n",
       " ' IF OVERFLOW ANYWHERE IN GUIDANCE',\n",
       " ' IF STEERSW DOWN NO OUTPUTS',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " ' IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " ' INCREMENT ITERATION COUNTER',\n",
       " ' INCREMENT PASS COUNTER',\n",
       " ' INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " ' INDICES FOR REFERENCING TARGET PARAMETERS',\n",
       " ' INITIALIZATION FOR THIS PASS',\n",
       " ' INITIALIZE REDESIGNATION FLAG',\n",
       " ' IS REDFLAG SET?',\n",
       " ' IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " ' IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " ' KILL GROUP 3:  DISPLAYS WILL BE',\n",
       " ' KILL GROUP 5',\n",
       " ' KLUMPP SAYS GIVE UP AFTER EIGHT PASSES',\n",
       " ' LANDING SITE PERTURBATION EQUATIONS',\n",
       " ' LEADTIME IS A NEGATIVE NUMBER',\n",
       " ' LEAVE DERIVATIVE IN BUF AS DIVISOR',\n",
       " ' LEAVE IN MPAC',\n",
       " ' LOAD A, L WITH DER TABL ADRES, N-2',\n",
       " ' LOAD A, L WITH PWR TABL ADRES, N-1',\n",
       " ' LOADS TTF/8 (INITIAL GUESS) INTO MPAC',\n",
       " ' LOOKANGL FOR DISPLAY DURING P64',\n",
       " ' LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " ' LOOP COUNTER',\n",
       " ' LUNAR LANDING CONSTANTS',\n",
       " ' LUNAR LANDING FLIGHT SEQUENCE TABLES',\n",
       " ' MAGNITUDE OF AFC FOR THROTTLE',\n",
       " ' MAIN GUIDANCE EQUATION',\n",
       " ' MAKE SURE REDESIGNATION IS NOT',\n",
       " ' MODE USED AS ITERATION COUNTER.  MODE',\n",
       " ' MPAC = MEASURED ACCELERATION.',\n",
       " ' MPAC(X) = PIPAX + PIPATMPX',\n",
       " ' MPAC(Y) = PIPAY + PIPATMPY',\n",
       " ' MPAC(Z) = PIPAZ + PIPATMPZ',\n",
       " \" MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\",\n",
       " ' Mod history:\\t2009-05-23 HG\\tTranscribed from page images.',\n",
       " ' N = 3',\n",
       " ' N-1 TO A',\n",
       " ' N-2',\n",
       " ' N:\\tANY LAST PASS?',\n",
       " ' NO',\n",
       " ' NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " ' NO POWER SERIES DEGREE 1 OR LESS',\n",
       " ' NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " ' NO.',\n",
       " ' NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " ' NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " ' NO:  ARE WE IN P67 NOW?',\n",
       " ' NO:  DO A STOPRATE',\n",
       " ' NO:  IS REDFLAG SET?',\n",
       " ' NO:  SKIP REDESIGNATION LOGIC',\n",
       " ' NO: CONTINUE WITH R.O.D.',\n",
       " ' NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " ' NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " ' NOW IN MPAC IS SINE(LOOKANGL)/4',\n",
       " ' NUMERO MYSTERIOSO',\n",
       " ' Notations on the hardcopy document read, in part:',\n",
       " ' ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " ' OTHERWISE USE FLASHING DISPLAY',\n",
       " ' OUT-OF-PLANE',\n",
       " ' OUTPUTS ARE NOT TO BE TRUSTED.',\n",
       " ' P63',\n",
       " ' P64',\n",
       " ' P65, P66, P67',\n",
       " ' PARAMETER TABLE INDIRECT ADDRESSES',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " ' PICK UP UPDATED VELOCITY VECTOR.',\n",
       " ' POSITIVE NON-ZERO ---> P67',\n",
       " ' POST GUIDANCE EQUATION COMPUTATIONS:',\n",
       " ' PRE-GUIDANCE COMPUTATIONS:',\n",
       " ' PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD',\n",
       " ' PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE',\n",
       " ' PRECROOT TO A',\n",
       " ' PREPARE FOR PHASE SWITCHING LOGIC',\n",
       " ' PREPARE TO EXIT',\n",
       " ' PROCEED\\tPERMIT REDESIGNATIONS',\n",
       " ' PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " ' PUSH DOWN R - LAND',\n",
       " ' PUSH DOWN UNIT (LAND - R)',\n",
       " ' PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG',\n",
       " ' PWR TABLE ADRES',\n",
       " ' PWR TABLE ADRES, N-1',\n",
       " ' PWR TABLE POINTER',\n",
       " ' Page 798',\n",
       " ' Page 799',\n",
       " ' Page 800',\n",
       " ' Page 801',\n",
       " ' Page 802',\n",
       " ' Page 803',\n",
       " ' Page 804',\n",
       " ' Page 805',\n",
       " ' Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " ' Page 807',\n",
       " ' Page 808',\n",
       " ' Page 809',\n",
       " ' Page 810',\n",
       " ' Page 811',\n",
       " ' Page 812',\n",
       " ' Page 813',\n",
       " ' Page 814',\n",
       " ' Page 815',\n",
       " ' Page 816',\n",
       " ' Page 817',\n",
       " ' Page 818',\n",
       " ' Page 819',\n",
       " ' Page 820',\n",
       " ' Page 821',\n",
       " ' Page 822',\n",
       " ' Page 823',\n",
       " ' Page 824',\n",
       " ' Page 825',\n",
       " ' Page 826',\n",
       " ' Page 827',\n",
       " ' Page 828',\n",
       " ' Pages:\\t798-828',\n",
       " ' Purpose: \\tPart of the source code for Luminary 1A build 099.',\n",
       " ' R.O.D. TRAP',\n",
       " ' RATIO SQUARED - RATIO',\n",
       " ' RECYCLE',\n",
       " ' REDESIGNATOR MONITOR (INITIATED BY PITFALL)',\n",
       " ' REDESIGNATOR TRAP',\n",
       " ' RESCALE TO UNITS OF 2(9) M/CS',\n",
       " ' RESET FLPASS0',\n",
       " ' RESET PUSH DOWN POINTER',\n",
       " ' RESULT IS 0 IF PROJ - PROJMIN NEGATIVE',\n",
       " ' RESULT IS 0 IF PROJMAX - PROJ NEGATIVE',\n",
       " ' RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " ' RETURN ADRES',\n",
       " ' RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND',\n",
       " ' ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:',\n",
       " ' ROUTINES FOR EXITING FROM LANDING GUIDANCE',\n",
       " ' ROUTINES FOR STARTING NEW GUIDANCE PHASES:',\n",
       " ' ROUTINES TO START NEW PHASES',\n",
       " ' RSB 2009: Not originally a comment.',\n",
       " ' SAFEGUARD THE COMPUTATIONS THAT FOLLOW',\n",
       " ' SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)',\n",
       " ' SECOND ROW',\n",
       " ' SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " ' SET OLDPIPAX,Y,Z = PIPAX,Y,Z',\n",
       " ' SET PD TO 0',\n",
       " ' SET RUPTREG1,2,3 = OLDPIPAX,Y,Z',\n",
       " ' SET UP DER COF TABL',\n",
       " ' SET X1 ON THE WAY TO THE INTERPRETER',\n",
       " ' SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " \" SIN(15')/8 TO COMPARE WITH PROJ\",\n",
       " \" SIN(25')/8 TO COMPARE WITH PROJ\",\n",
       " ' SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " ' SNAPSHOT TIME OF PIPA READING.',\n",
       " ' SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " ' SOUND THE ALARM NON-ABORTIVELY',\n",
       " ' SPECIALIZED \"PHASCHNG\" SUBROUTINE',\n",
       " \" SPECIALIZED 'PHASCHNG' ROUTINE\",\n",
       " ' STERN\\t\\t\\t\\t\\t',\n",
       " ' STORE ENTERING DATA, INITIALIZE ERASABLES',\n",
       " ' STORE SP ITERATION COUNT IN MPAC+2',\n",
       " ' STORE UPDATED VELOCITY IN 24-29D',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " ' TERMINATE',\n",
       " ' TERMINATE GROUP 3.',\n",
       " ' TERMINATE GROUP 3.',\n",
       " ' TEST HI ORDER DX',\n",
       " ' TEST LO ORDER DX',\n",
       " ' THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.',\n",
       " ' THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM',\n",
       " ' TO PICK UP THE TAG',\n",
       " ' TO SEE IF ALREADY IN P67.',\n",
       " ' TRAP IS RESET WHEN SWITCH IS RELEASED',\n",
       " ' TRASHY LITTLE SUBROUTINES',\n",
       " ' TREDES BECOMES ZERO TWO PASSES',\n",
       " ' TTF/8 COMPUTATION',\n",
       " ' This source code has been transcribed or otherwise adapted from',\n",
       " ' UNFC/2 NEED NOT BE UNITIZED',\n",
       " ' UNIT(LAND - R) IS TENTATIVE CHOICE',\n",
       " ' UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " ' UPDATE DESIRED ALTITUDE RATE.',\n",
       " ' UPDATE HCALC1 FOR NOUN 63.',\n",
       " ' UPDATE HDOTDISP RATE FOR NOUN 63.',\n",
       " \" USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\",\n",
       " ' VERGUID COMES HERE',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL COMPONENT',\n",
       " ' VHORIZ FOR DISPLAY DURING P65.',\n",
       " ' WCHPHASE = 0   BRAKQUAD',\n",
       " ' WCHPHASE = 1   APPRQUAD',\n",
       " ' WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " ' WINDOW VECTOR COMPUTATIONS:',\n",
       " ' WITH PROJ IN MPAC 1/8 REAL SIZE',\n",
       " ' Website:\\twww.ibiblio.org/apollo.',\n",
       " ' Y:\\tCONTINUE MONITOR',\n",
       " ' YES',\n",
       " ' YES',\n",
       " ' YES',\n",
       " \" YES ALL'S WELL\",\n",
       " ' YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " ' YES. SWITCH INTO THE ROD MODE.',\n",
       " ' YES:  DO STATIC DISPLAY',\n",
       " ' YES:  HAS TREDES REACHED ZERO?',\n",
       " ' YES:  SKIP REDESIGNATION LOGIC',\n",
       " ' YES: CLEAR REDESIGNATION FLAG',\n",
       " ' YES: SKIP REDESIGNATION LOGIC.',\n",
       " ' YIELDS -DX IN MPAC',\n",
       " ' YIELDS ABS(DX) IN MPAC',\n",
       " ' YIELDS ABVAL OF CRITERION ON DX IN MPAC',\n",
       " ' YIELDS DERCOF = I X A(I) IN MPAC',\n",
       " ' YIELDS DERIVATIVE IN MPAC',\n",
       " ' YIELDS DP PRODUCT IN MPAC',\n",
       " ' YIELDS RESIDUAL IN MPAC',\n",
       " ' YIELDS TTF/8 IN MPAC',\n",
       " ' ZERO LO-ORDER MPAC COMPONENTS',\n",
       " ' ZERO TEMX, TEMY, AND TEMZ SO WE WILL',\n",
       " ' about getting access to the (much) higher-quality images which Paul',\n",
       " ' actually created.',\n",
       " ' available online at www.ibiblio.org/apollo.  If for some reason you',\n",
       " ' digitized images of a hardcopy from the MIT Museum.  The digitization',\n",
       " ' find that the images are illegible, contact me at info@sandroid.org',\n",
       " ' in storage size and consequent reduction in image quality as well) are',\n",
       " ' the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       " ' was performed by Paul Fjeld, and arranged for by Deborah Douglas of',\n",
       " '*********************************************************',\n",
       " '*******************************************************************',\n",
       " '*******************************************************************',\n",
       " '************************************************************************',\n",
       " '************************************************************************',\n",
       " '+ELBIT\\t\\t=\\tBIT2\\t\\t',\n",
       " '-2\\t\\tTC\\tPHASCHNG\\t',\n",
       " '-ELBIT\\t\\t=\\tBIT1\\t\\t',\n",
       " ...]"
      ]
     },
     "execution_count": 43,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "phrases"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 52,
   "id": "e46c733f",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Test me\n"
     ]
    }
   ],
   "source": [
    "testphrase=\"Test\\t\\tme\"\n",
    "print(re.sub('\\t+',\" \",testphrase))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "id": "cf36cd7a",
   "metadata": {},
   "outputs": [],
   "source": [
    "newphrases=[]\n",
    "for phrase in phrases:\n",
    "    newphrase = re.sub(\"\\t+\", \" \", phrase)\n",
    "    newphrase = re.sub(\"\t\t\", \"\t\", phrase)\n",
    "    newphrases.append(newphrase.strip())"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "id": "d1f29bf6",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '(0)',\n",
       " '(6)',\n",
       " '(8)',\n",
       " '(0)',\n",
       " '(0)',\n",
       " '(0)',\n",
       " '(0)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2)',\n",
       " '(2), (4), OR (6)',\n",
       " '(4)',\n",
       " '(4)',\n",
       " '(4)',\n",
       " '(4)',\n",
       " '(6)',\n",
       " '(6)',\n",
       " '(6)',\n",
       " '(8)',\n",
       " \"a couple of lines of code that shouldn't\",\n",
       " 'have survived from Luminary 131 to here.',\n",
       " 'legal in GAP but not in yaYUL.  Eliminated',\n",
       " '____   _',\n",
       " '0',\n",
       " 'ADG2TTF,1',\n",
       " 'CG',\n",
       " 'GAINBRAK,1',\n",
       " 'LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " 'MASS',\n",
       " 'R',\n",
       " 'R',\n",
       " 'RANGEDSP = ABVAL(LAND - R)',\n",
       " 'RDG +4,1',\n",
       " 'TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " 'UNFC/2',\n",
       " 'UNFC/2 +2',\n",
       " 'VATT1',\n",
       " 'VGU \\t+4',\n",
       " 'YNBPIP',\n",
       " 'ZEROVECS',\n",
       " '____               ____   ____                   __',\n",
       " '2    1',\n",
       " '_   ____  ______',\n",
       " 'TTF/8',\n",
       " 'TTF        (TTF)(TTF)',\n",
       " '___   __       ___   __',\n",
       " '___   __',\n",
       " 'TAUVERT',\n",
       " '- (------------- + VDG + VG)',\n",
       " '3 (1/4(RDG - RG)   ___   __)',\n",
       " 'V2FG - VGU',\n",
       " '____   ___',\n",
       " '(CONTINUE TO EXTLOGIC)',\n",
       " '(CONTINUE TO TTFINCR)',\n",
       " '...',\n",
       " '2009-06-05 RSB\\tFixed a goofy thing that was apparently',\n",
       " '2009-06-07 RSB\\tFixed a typo.',\n",
       " 'ABVAL\\tPDDL',\n",
       " 'ACG = ----------',\n",
       " 'ACG = ---------------------------- + ADG',\n",
       " 'ACG = ADG + ----------- + ------------',\n",
       " 'AD\\tLEADTIME',\n",
       " 'AD\\tPOSMAX',\n",
       " 'ADS\\tBUF',\n",
       " 'ADS\\tBUF +1',\n",
       " 'ADS\\tDERPTR',\n",
       " 'ADS\\tPWRPTR',\n",
       " 'ANGTERM = V + R * WM',\n",
       " 'Apollo Guidance Computer (AGC), for Apollo 11.',\n",
       " 'BDDV\\tSTADR',\n",
       " 'BMN\\tDLOAD',\n",
       " 'BPL\\tDLOAD',\n",
       " 'BZF\\tDISPEXIT',\n",
       " 'BZF\\tENDLLJOB',\n",
       " 'BZF\\tGUILDRET',\n",
       " 'BZF\\tRED-OVER',\n",
       " 'BZF\\tREDES-OK',\n",
       " 'BZF\\tRESETRPT',\n",
       " 'BZF\\tRGVGCALC',\n",
       " 'BZF\\tRGVGCALC',\n",
       " 'BZF\\tSTRTP66A',\n",
       " 'CA\\t5',\n",
       " 'CA\\tBIT12',\n",
       " 'CA\\tDELTTFAP',\n",
       " 'CA\\tEBANK5',\n",
       " 'CA\\tFIXLOC',\n",
       " 'CA\\tFIXLOC',\n",
       " 'CA\\tL',\n",
       " 'CA\\tMPAC',\n",
       " 'CA\\tMPAC +4',\n",
       " 'CA\\tRODCOUNT',\n",
       " 'CA\\tTENDBRAK',\n",
       " 'CA\\tTREDES',\n",
       " 'CA\\tWCHPHASE',\n",
       " 'CA\\tZERO',\n",
       " 'CADR\\tABS',\n",
       " 'CADR\\tABS',\n",
       " 'CADR\\tDDV/BDDV',\n",
       " 'CADR\\tSTOPRATE',\n",
       " 'CAF\\tTWO',\n",
       " 'CAF\\tTWO',\n",
       " 'CAF\\tTWO',\n",
       " 'CAF\\tV06N64',\n",
       " 'CAF\\tZERO',\n",
       " 'CCS\\tA',\n",
       " 'CCS\\tELVIRA',\n",
       " 'CCS\\tL',\n",
       " 'CCS\\tMPAC',\n",
       " 'CCS\\tMPAC +4',\n",
       " 'CCS\\tZERLINA',\n",
       " 'COUNT*\\t$$/F2DPS',\n",
       " 'CS\\tFLAGWRD6',\n",
       " 'CS\\tMPAC',\n",
       " 'CS\\tPROJMIN',\n",
       " 'CS\\tTWO',\n",
       " 'DAD',\n",
       " 'DAD\\tPDDL',\n",
       " 'DAS\\tMPAC',\n",
       " 'DAS\\tROOTPS',\n",
       " 'DAS\\tTTF/8TMP',\n",
       " 'DAS\\tVDGVERT',\n",
       " 'DCA\\tHDOTDISP',\n",
       " 'DCA\\tMPAC',\n",
       " 'DCA\\tMPAC',\n",
       " 'DCA\\tMPAC +3',\n",
       " 'DCA\\tMPAC +5',\n",
       " 'DCA\\tNEG0',\n",
       " 'DCA\\tROOTPS',\n",
       " 'DCS\\tMPAC',\n",
       " 'DDV\\tBDDV',\n",
       " 'DDV\\tDSU',\n",
       " 'DDV\\tPDVL',\n",
       " 'DEC\\t67',\n",
       " 'DLOAD',\n",
       " 'DLOAD\\tDSU',\n",
       " 'DLOAD\\tPUSH',\n",
       " 'DSU\\tDSU',\n",
       " 'DSU\\tPDDL',\n",
       " 'DXCH\\t3',\n",
       " 'DXCH\\tBUF',\n",
       " 'DXCH\\tDXCRIT',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC',\n",
       " 'DXCH\\tMPAC +3',\n",
       " 'DXCH\\tROOTPS',\n",
       " 'DXCH\\tRUPTREG1',\n",
       " 'DXCH\\tTTF/8',\n",
       " 'DXCH\\tVDGVERT',\n",
       " 'EXIT',\n",
       " 'EXIT',\n",
       " 'EXIT',\n",
       " 'EXTEND',\n",
       " 'EXTEND',\n",
       " 'EXTEND',\n",
       " 'EXTEND',\n",
       " 'INCR\\tFLPASS0',\n",
       " 'INCR\\tMODE',\n",
       " 'INDEX\\tMPAC +3',\n",
       " \"It is part of the source code for the Lunar Module's (LM)\",\n",
       " 'LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " 'LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " 'MASK\\tBIT4',\n",
       " 'N:\\tDIMINISH ZERLINA, CONTINUE',\n",
       " 'OCT\\t0',\n",
       " 'OCT\\t00035',\n",
       " 'OCT\\t05023',\n",
       " 'OCT\\t21000',\n",
       " 'OCT\\t34',\n",
       " 'PDDL\\tDDV',\n",
       " 'PDDL\\tDDV',\n",
       " 'PDDL\\tDMP',\n",
       " 'PDDL\\tVDEF',\n",
       " 'PDVL\\tABVAL',\n",
       " 'PDVL\\tCALL',\n",
       " 'PUSH\\tBDSU',\n",
       " 'QXCH\\tRETROOT',\n",
       " 'RGU = CG (R - LAND)',\n",
       " 'RTB\\tDOT',\n",
       " 'RTB\\tPUSH',\n",
       " 'SETPD',\n",
       " 'SLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " 'SLR\\tPUSH',\n",
       " 'STODL\\t/AFC/',\n",
       " 'STODL\\tHCALC1',\n",
       " 'STODL\\tHDOTDISP',\n",
       " 'STODL\\tLASTTPIP',\n",
       " 'STODL\\tTABLTTF +4',\n",
       " 'STODL*\\tTABLTTF +2',\n",
       " 'STODL*\\tTABLTTF +6',\n",
       " 'STORE\\t30D',\n",
       " 'STORE\\tTABLTTF',\n",
       " 'STORE\\tUNFC/2',\n",
       " 'STORE\\tUNWC/2',\n",
       " 'STOVL\\t24D',\n",
       " 'STOVL\\tCG +6',\n",
       " 'STOVL\\tVHORIZ',\n",
       " 'TC\\tBANKCALL',\n",
       " 'TC\\tBANKCALL',\n",
       " 'TC\\tBANKCALL',\n",
       " 'TC\\tCHECKMM',\n",
       " 'TC\\tDMPNSUB',\n",
       " 'TC\\tDOWNFLAG',\n",
       " 'TC\\tDOWNFLAG',\n",
       " 'TC\\tDOWNFLAG',\n",
       " 'TC\\tFASTCHNG',\n",
       " 'TC\\tPOWRSERS',\n",
       " 'TC\\tPOWRSERS',\n",
       " 'TC\\tROOTPSRS',\n",
       " 'TC\\tSHORTMP',\n",
       " 'TC\\tUPFLAG',\n",
       " 'TCF\\t1406ALM',\n",
       " 'TCF\\t1406P00',\n",
       " 'TCF\\tCALCRGVG',\n",
       " 'TCF\\tCGCALC',\n",
       " 'TCF\\tCGCALC',\n",
       " \"TCF\\tCOUNT'EM\",\n",
       " 'TCF\\tEXGSUB',\n",
       " 'TCF\\tEXNORM',\n",
       " 'TCF\\tGOTOP00H',\n",
       " 'TCF\\tGUILDRET',\n",
       " 'TCF\\tP64CEED',\n",
       " 'TCF\\tP64DISPS',\n",
       " 'TCF\\tP64DISPS',\n",
       " 'TCF\\tP65START',\n",
       " 'TCF\\tP66VERT',\n",
       " 'TCF\\tP67VERT',\n",
       " 'TCF\\tPREMON1',\n",
       " 'TCF\\tPREMON2',\n",
       " 'TCF\\tREDESIG',\n",
       " 'TCF\\tRESUME',\n",
       " 'TCF\\tRGVGCALC',\n",
       " 'TCF\\tSTABL?',\n",
       " 'TCF\\tSTARTP64',\n",
       " 'TCF\\tSTARTP66',\n",
       " 'TCF\\tSTEER?',\n",
       " 'TCF\\tTTF/8CL',\n",
       " 'TCF\\tTTF/8CL',\n",
       " 'TCF\\tTTFINCR',\n",
       " 'TCF\\tVERTDISP',\n",
       " 'TCF\\tVERTGUID',\n",
       " 'TCF\\tVERTGUID',\n",
       " 'TS\\t26D',\n",
       " 'TS\\t28D',\n",
       " 'TS\\t30D',\n",
       " 'TS\\tBUF',\n",
       " 'TS\\tDERPTR',\n",
       " 'TS\\tEBANK',\n",
       " 'TS\\tFLPASS0',\n",
       " 'TS\\tL',\n",
       " 'TS\\tLOOKANGL',\n",
       " 'TS\\tMODE',\n",
       " 'TS\\tMPAC',\n",
       " 'TS\\tMPAC',\n",
       " 'TS\\tMPAC +1',\n",
       " 'TS\\tMPAC +2',\n",
       " 'TS\\tMPAC +3',\n",
       " 'TS\\tMPAC +5',\n",
       " 'TS\\tMPAC +5',\n",
       " 'TS\\tMPAC +6',\n",
       " 'TS\\tPWRPTR',\n",
       " 'TS\\tTABLTTF +10',\n",
       " 'TS\\tTEMX',\n",
       " 'TS\\tTEMY',\n",
       " 'TTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " 'VAD\\tPUSH',\n",
       " 'VAD\\tSTADR',\n",
       " 'VAD\\tVSR2',\n",
       " 'VGU = CG (V - WM * R)',\n",
       " 'VHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " 'VLOAD',\n",
       " 'VLOAD\\tMXV',\n",
       " 'VSU\\tPUSH',\n",
       " 'VSU\\tVXSC',\n",
       " 'VXSC\\tPDDL',\n",
       " 'XCH\\tBUF +1',\n",
       " 'Y:\\tRESET RUPT. TERMINATE',\n",
       " '___   *   _   __   _',\n",
       " '___   *   _   ____',\n",
       " '___   4 (    TTF/8               )   ___',\n",
       " '___   ___   6(VDG + VG)   12(RDG - RG)',\n",
       " '_______   _   _   __',\n",
       " 'N        N-1',\n",
       " 'N      N-1              1     0',\n",
       " 'ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.',\n",
       " 'POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT',\n",
       " 'PRECLUDE EVENTUAL CONVERGENCE.',\n",
       " '- RATE INCREMENT, BIT 6 + INCREMENT.',\n",
       " \"1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\",\n",
       " '16:27 JULY 14, 1969',\n",
       " \"2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\",\n",
       " '3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.',\n",
       " '4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.',\n",
       " '7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS',\n",
       " 'A\\tSP\\tLOC-3\\tADRES FOR REFERENCING PWR COF TABL',\n",
       " 'AS HERE PROGRAMMED --',\n",
       " 'AS PUBLISHED --',\n",
       " 'Assemble revision 001 of AGC program LMY99 by NASA 2021112-61',\n",
       " 'BEFORE TCGFAPPR IS REACHED',\n",
       " 'BY FORCING -TTF*LEADTIME > OR = ZERO',\n",
       " 'COMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " \"DON'T CALL THROTTLE OR FINDCDUW\",\n",
       " 'HORIZONTAL VELOCITY FOR DISPLAY',\n",
       " 'IS.',\n",
       " \"JUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " 'KNOW WHEN READACCS CHANGES THEM.',\n",
       " 'L\\tSP\\tN-1\\tN IS THE DEGREE OF THE POWER SERIES',\n",
       " 'LOC\\tDP\\tA(N)',\n",
       " 'LOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)',\n",
       " 'LOC-2N\\tDP\\tA(0)',\n",
       " 'MPAC\\tDP\\tX\\tINITIAL GUESS FOR ROOT',\n",
       " 'N: \\tHAS ZERLINA REACHED ZERO YET?',\n",
       " 'OUTPUT AND TRIM CORRECTION TERM',\n",
       " 'RESTORED BY NEXT GUIDANCE CYCLE.',\n",
       " 'RGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " 'ROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A',\n",
       " 'STATE IN GUIDANCE COORDINATES:',\n",
       " 'TTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " 'VELOCITY RELATIVE TO THE SURFACE:',\n",
       " 'WCHPHASE =  0 ---> BRAKQUAD',\n",
       " 'WCHPHASE =  1 ---> APPRQUAD',\n",
       " 'WCHPHASE =  2 ---> VERTICAL',\n",
       " 'WCHPHASE = -1 ---> IGNALG',\n",
       " \"Y: \\tCOUNT 'EM, RESET RUPT, TERMINATE\",\n",
       " '(CONTINUE TO DISPEXIT)',\n",
       " '(CONTINUE TO QUADGUID)',\n",
       " 'TCF\\tSTARTP67',\n",
       " 'ALTITUDE RATE.',\n",
       " 'DEPRESSION ANGLE FOR DISPLAY:',\n",
       " 'THE P65 GUIDANCE EQUATION IS AS FOLLOWS --',\n",
       " 'TOO CLOSE TO THE HORIZON.',\n",
       " '1    0',\n",
       " '2    2    2',\n",
       " '___        ____   _',\n",
       " '____   _',\n",
       " '2      2',\n",
       " '2         2',\n",
       " '2',\n",
       " '2',\n",
       " '2   1',\n",
       " '_   ____',\n",
       " '(EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       " '(I-1) TO MPAC, FETCHING DERCOF',\n",
       " '************************',\n",
       " '********************************************************',\n",
       " '********************************************************',\n",
       " '**********************************************************',\n",
       " '**********************************************************',\n",
       " '****************************************************************',\n",
       " '****************************************************************',\n",
       " '******************************************************************',\n",
       " '******************************************************************',\n",
       " '*********************************************************************',\n",
       " '*********************************************************************',\n",
       " '*********************************************************************',\n",
       " '*********************************************************************',\n",
       " '*********************************************************************',\n",
       " '*********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '***********************************************************************',\n",
       " '**************************************************************************',\n",
       " '**************************************************************************',\n",
       " '**************************************************************************',\n",
       " '**************************************************************************',\n",
       " '**************************************************************************',\n",
       " '**************************************************************************',\n",
       " '****************************************************************************',\n",
       " '****************************************************************************',\n",
       " '*******************************************************************************',\n",
       " '*******************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '*********************************************************************************',\n",
       " '***********************************************************************************',\n",
       " '***********************************************************************************',\n",
       " '*************************************************************************************',\n",
       " '*************************************************************************************',\n",
       " '*************************************************************************************',\n",
       " '*************************************************************************************',\n",
       " '+0',\n",
       " '+3\\tCS\\tFLAGWRD8',\n",
       " '+PITCH',\n",
       " '- RATIO OF LAG-DIMINISHED TTF TO TTF',\n",
       " '-PITCH',\n",
       " '1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       " '1/2 DEGREE',\n",
       " '2 DEGREES',\n",
       " '2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       " '3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.',\n",
       " '30-31D CONTAINS TIME IN CS SINCE PIPTIME',\n",
       " 'A(0) = -24 (RGU  - RDG )/64 TO TABLTTF',\n",
       " 'A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF',\n",
       " 'A(2) = 6 ADG  TO TABLTTF',\n",
       " 'A(3) = 8 JDG  TO TABLTTF',\n",
       " 'A(N) TO MPAC',\n",
       " 'ABS(DX)-ABS(DXCRIT) IN MPAC',\n",
       " 'ADDRESS FOR REFERENCING TTF TABLE',\n",
       " 'ALARM ROUTINE FOR TTF COMPUTATION:',\n",
       " 'AMAXHORIZ = SQRT(ATOTAL - A  - A  )',\n",
       " 'AND IN ROOTPS',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'APPRQUAD',\n",
       " 'ARE WE IN ATTITUDE-HOLD?',\n",
       " 'ARE WE IN ATTITUDE-HOLD?',\n",
       " 'AUGMENT TTF/8',\n",
       " 'Assembler:\\tyaYUL',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'BRAKQUAD',\n",
       " 'COEFFICIENT FOR ADG TERM',\n",
       " 'COEFFICIENT FOR RDG-RGU TERM',\n",
       " 'COEFFICIENT FOR VDG TERM',\n",
       " 'COEFFICIENT FOR VGU TERM',\n",
       " 'COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT',\n",
       " 'COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE',\n",
       " 'COME HERE FROM MARKRUPT CODING WITH BIT',\n",
       " 'COMPUTE CRITERION TO STOP ITERATING',\n",
       " 'COMPUTE LOOKANGLE ITSELF',\n",
       " 'COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " 'COMPUTE TRIM VELOCITY CORRECTION TERM.',\n",
       " 'CONVERGE ON ROOT',\n",
       " 'CORRECTED ROOT NOW IN ROOTPS',\n",
       " 'CORRECTED TTF/8',\n",
       " 'CRITERION',\n",
       " 'CURRENT ROOT TO MPAC, FETCHING DERIVATIVE',\n",
       " 'Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.',\n",
       " 'Copyright:\\tPublic domain.',\n",
       " 'DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES',\n",
       " 'DECREMENT DER POINTER',\n",
       " 'DECREMENT PWR POINTER',\n",
       " 'DEGREE - ONE',\n",
       " 'DER TABL ADRES',\n",
       " 'DER TABL POINTER',\n",
       " 'DERCOF TO DER TABLE',\n",
       " 'DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " 'DISPLAY ROUTINES:',\n",
       " 'DO ANY BITS APPEAR THIS PASS?',\n",
       " 'DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)',\n",
       " 'ENABLE REDESIGNATION LOGIC',\n",
       " 'ENABLE RUPT10',\n",
       " 'ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " 'ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " 'ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX',\n",
       " 'FETCH CURRENT ROOT',\n",
       " 'FETCH DX, LEAVING -DX IN MPAC',\n",
       " 'FETCH ROOT GUESS, KEEPING IT IN MPAC',\n",
       " 'FETCH TTF/8 KEEPING IT IN MPAC',\n",
       " 'FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       " 'FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " 'FRACTIONAL PRECISION FOR TTF TO TABLE',\n",
       " 'Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " 'GET COEFFICIENT FOR CG +14',\n",
       " 'GET COEFFICIENT FOR UNIT(LAND - R)',\n",
       " 'GOOD RETURN',\n",
       " 'GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " 'GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " 'GUIDANCE EQUATIONS:',\n",
       " 'GUIDANCE FOR P65',\n",
       " 'GUIDANCE FOR P66',\n",
       " 'GUIDANCE LOOP DISPLAYS',\n",
       " 'GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " 'HAS THERE BEEN A RESTART?',\n",
       " 'HAS TREDES REACHED ZERO?',\n",
       " 'HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " 'IF FLUNDISP IS SET, NO DISPLAY THIS PASS',\n",
       " 'IF NOT IN P64, NO REASON TO CONTINUE',\n",
       " 'IF OVERFLOW ANYWHERE IN GUIDANCE',\n",
       " 'IF STEERSW DOWN NO OUTPUTS',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNALG',\n",
       " 'IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " 'IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " 'INCREMENT ITERATION COUNTER',\n",
       " 'INCREMENT PASS COUNTER',\n",
       " 'INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " 'INDICES FOR REFERENCING TARGET PARAMETERS',\n",
       " 'INITIALIZATION FOR THIS PASS',\n",
       " 'INITIALIZE REDESIGNATION FLAG',\n",
       " 'IS REDFLAG SET?',\n",
       " 'IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " 'IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " 'KILL GROUP 3:  DISPLAYS WILL BE',\n",
       " 'KILL GROUP 5',\n",
       " 'KLUMPP SAYS GIVE UP AFTER EIGHT PASSES',\n",
       " 'LANDING SITE PERTURBATION EQUATIONS',\n",
       " 'LEADTIME IS A NEGATIVE NUMBER',\n",
       " 'LEAVE DERIVATIVE IN BUF AS DIVISOR',\n",
       " 'LEAVE IN MPAC',\n",
       " 'LOAD A, L WITH DER TABL ADRES, N-2',\n",
       " 'LOAD A, L WITH PWR TABL ADRES, N-1',\n",
       " 'LOADS TTF/8 (INITIAL GUESS) INTO MPAC',\n",
       " 'LOOKANGL FOR DISPLAY DURING P64',\n",
       " 'LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " 'LOOP COUNTER',\n",
       " 'LUNAR LANDING CONSTANTS',\n",
       " 'LUNAR LANDING FLIGHT SEQUENCE TABLES',\n",
       " 'MAGNITUDE OF AFC FOR THROTTLE',\n",
       " 'MAIN GUIDANCE EQUATION',\n",
       " 'MAKE SURE REDESIGNATION IS NOT',\n",
       " 'MODE USED AS ITERATION COUNTER.  MODE',\n",
       " 'MPAC = MEASURED ACCELERATION.',\n",
       " 'MPAC(X) = PIPAX + PIPATMPX',\n",
       " 'MPAC(Y) = PIPAY + PIPATMPY',\n",
       " 'MPAC(Z) = PIPAZ + PIPATMPZ',\n",
       " \"MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\",\n",
       " 'Mod history:\\t2009-05-23 HG\\tTranscribed from page images.',\n",
       " 'N = 3',\n",
       " 'N-1 TO A',\n",
       " 'N-2',\n",
       " 'N:\\tANY LAST PASS?',\n",
       " 'NO',\n",
       " 'NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " 'NO POWER SERIES DEGREE 1 OR LESS',\n",
       " 'NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " 'NO.',\n",
       " 'NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " 'NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " 'NO:  ARE WE IN P67 NOW?',\n",
       " 'NO:  DO A STOPRATE',\n",
       " 'NO:  IS REDFLAG SET?',\n",
       " 'NO:  SKIP REDESIGNATION LOGIC',\n",
       " 'NO: CONTINUE WITH R.O.D.',\n",
       " 'NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " 'NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " 'NOW IN MPAC IS SINE(LOOKANGL)/4',\n",
       " 'NUMERO MYSTERIOSO',\n",
       " 'Notations on the hardcopy document read, in part:',\n",
       " 'ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " 'OTHERWISE USE FLASHING DISPLAY',\n",
       " 'OUT-OF-PLANE',\n",
       " 'OUTPUTS ARE NOT TO BE TRUSTED.',\n",
       " 'P63',\n",
       " 'P64',\n",
       " 'P65, P66, P67',\n",
       " 'PARAMETER TABLE INDIRECT ADDRESSES',\n",
       " 'PERMIT X-AXIS OVERRIDE',\n",
       " 'PERMIT X-AXIS OVERRIDE',\n",
       " 'PICK UP UPDATED VELOCITY VECTOR.',\n",
       " 'POSITIVE NON-ZERO ---> P67',\n",
       " 'POST GUIDANCE EQUATION COMPUTATIONS:',\n",
       " 'PRE-GUIDANCE COMPUTATIONS:',\n",
       " 'PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD',\n",
       " 'PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE',\n",
       " 'PRECROOT TO A',\n",
       " 'PREPARE FOR PHASE SWITCHING LOGIC',\n",
       " 'PREPARE TO EXIT',\n",
       " 'PROCEED\\tPERMIT REDESIGNATIONS',\n",
       " 'PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " 'PUSH DOWN R - LAND',\n",
       " 'PUSH DOWN UNIT (LAND - R)',\n",
       " 'PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG',\n",
       " 'PWR TABLE ADRES',\n",
       " 'PWR TABLE ADRES, N-1',\n",
       " 'PWR TABLE POINTER',\n",
       " 'Page 798',\n",
       " 'Page 799',\n",
       " 'Page 800',\n",
       " 'Page 801',\n",
       " 'Page 802',\n",
       " 'Page 803',\n",
       " 'Page 804',\n",
       " 'Page 805',\n",
       " 'Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " 'Page 807',\n",
       " 'Page 808',\n",
       " 'Page 809',\n",
       " 'Page 810',\n",
       " 'Page 811',\n",
       " 'Page 812',\n",
       " 'Page 813',\n",
       " 'Page 814',\n",
       " 'Page 815',\n",
       " 'Page 816',\n",
       " 'Page 817',\n",
       " 'Page 818',\n",
       " 'Page 819',\n",
       " 'Page 820',\n",
       " 'Page 821',\n",
       " 'Page 822',\n",
       " 'Page 823',\n",
       " 'Page 824',\n",
       " 'Page 825',\n",
       " 'Page 826',\n",
       " 'Page 827',\n",
       " 'Page 828',\n",
       " 'Pages:\\t798-828',\n",
       " 'Purpose: \\tPart of the source code for Luminary 1A build 099.',\n",
       " 'R.O.D. TRAP',\n",
       " 'RATIO SQUARED - RATIO',\n",
       " 'RECYCLE',\n",
       " 'REDESIGNATOR MONITOR (INITIATED BY PITFALL)',\n",
       " 'REDESIGNATOR TRAP',\n",
       " 'RESCALE TO UNITS OF 2(9) M/CS',\n",
       " 'RESET FLPASS0',\n",
       " 'RESET PUSH DOWN POINTER',\n",
       " 'RESULT IS 0 IF PROJ - PROJMIN NEGATIVE',\n",
       " 'RESULT IS 0 IF PROJMAX - PROJ NEGATIVE',\n",
       " 'RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " 'RETURN ADRES',\n",
       " 'RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND',\n",
       " 'ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:',\n",
       " 'ROUTINES FOR EXITING FROM LANDING GUIDANCE',\n",
       " 'ROUTINES FOR STARTING NEW GUIDANCE PHASES:',\n",
       " 'ROUTINES TO START NEW PHASES',\n",
       " 'RSB 2009: Not originally a comment.',\n",
       " 'SAFEGUARD THE COMPUTATIONS THAT FOLLOW',\n",
       " 'SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)',\n",
       " 'SECOND ROW',\n",
       " 'SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " 'SET OLDPIPAX,Y,Z = PIPAX,Y,Z',\n",
       " 'SET PD TO 0',\n",
       " 'SET RUPTREG1,2,3 = OLDPIPAX,Y,Z',\n",
       " 'SET UP DER COF TABL',\n",
       " 'SET X1 ON THE WAY TO THE INTERPRETER',\n",
       " 'SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " \"SIN(15')/8 TO COMPARE WITH PROJ\",\n",
       " \"SIN(25')/8 TO COMPARE WITH PROJ\",\n",
       " 'SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " 'SNAPSHOT TIME OF PIPA READING.',\n",
       " 'SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " 'SOUND THE ALARM NON-ABORTIVELY',\n",
       " 'SPECIALIZED \"PHASCHNG\" SUBROUTINE',\n",
       " \"SPECIALIZED 'PHASCHNG' ROUTINE\",\n",
       " 'STERN',\n",
       " 'STORE ENTERING DATA, INITIALIZE ERASABLES',\n",
       " 'STORE SP ITERATION COUNT IN MPAC+2',\n",
       " 'STORE UPDATED VELOCITY IN 24-29D',\n",
       " 'TEMPORARY, I HOPE HOPE HOPE',\n",
       " 'TEMPORARY, I HOPE HOPE HOPE',\n",
       " 'TERMINATE',\n",
       " 'TERMINATE GROUP 3.',\n",
       " 'TERMINATE GROUP 3.',\n",
       " 'TEST HI ORDER DX',\n",
       " 'TEST LO ORDER DX',\n",
       " 'THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.',\n",
       " 'THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM',\n",
       " 'TO PICK UP THE TAG',\n",
       " 'TO SEE IF ALREADY IN P67.',\n",
       " 'TRAP IS RESET WHEN SWITCH IS RELEASED',\n",
       " 'TRASHY LITTLE SUBROUTINES',\n",
       " 'TREDES BECOMES ZERO TWO PASSES',\n",
       " 'TTF/8 COMPUTATION',\n",
       " 'This source code has been transcribed or otherwise adapted from',\n",
       " 'UNFC/2 NEED NOT BE UNITIZED',\n",
       " 'UNIT(LAND - R) IS TENTATIVE CHOICE',\n",
       " 'UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " 'UPDATE DESIRED ALTITUDE RATE.',\n",
       " 'UPDATE HCALC1 FOR NOUN 63.',\n",
       " 'UPDATE HDOTDISP RATE FOR NOUN 63.',\n",
       " \"USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\",\n",
       " 'VERGUID COMES HERE',\n",
       " 'VERTICAL',\n",
       " 'VERTICAL',\n",
       " 'VERTICAL',\n",
       " 'VERTICAL',\n",
       " 'VERTICAL',\n",
       " 'VERTICAL COMPONENT',\n",
       " 'VHORIZ FOR DISPLAY DURING P65.',\n",
       " 'WCHPHASE = 0   BRAKQUAD',\n",
       " 'WCHPHASE = 1   APPRQUAD',\n",
       " 'WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " 'WINDOW VECTOR COMPUTATIONS:',\n",
       " 'WITH PROJ IN MPAC 1/8 REAL SIZE',\n",
       " 'Website:\\twww.ibiblio.org/apollo.',\n",
       " 'Y:\\tCONTINUE MONITOR',\n",
       " 'YES',\n",
       " 'YES',\n",
       " 'YES',\n",
       " \"YES ALL'S WELL\",\n",
       " 'YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " 'YES. SWITCH INTO THE ROD MODE.',\n",
       " 'YES:  DO STATIC DISPLAY',\n",
       " 'YES:  HAS TREDES REACHED ZERO?',\n",
       " 'YES:  SKIP REDESIGNATION LOGIC',\n",
       " 'YES: CLEAR REDESIGNATION FLAG',\n",
       " 'YES: SKIP REDESIGNATION LOGIC.',\n",
       " 'YIELDS -DX IN MPAC',\n",
       " 'YIELDS ABS(DX) IN MPAC',\n",
       " 'YIELDS ABVAL OF CRITERION ON DX IN MPAC',\n",
       " 'YIELDS DERCOF = I X A(I) IN MPAC',\n",
       " 'YIELDS DERIVATIVE IN MPAC',\n",
       " 'YIELDS DP PRODUCT IN MPAC',\n",
       " 'YIELDS RESIDUAL IN MPAC',\n",
       " 'YIELDS TTF/8 IN MPAC',\n",
       " 'ZERO LO-ORDER MPAC COMPONENTS',\n",
       " 'ZERO TEMX, TEMY, AND TEMZ SO WE WILL',\n",
       " 'about getting access to the (much) higher-quality images which Paul',\n",
       " 'actually created.',\n",
       " 'available online at www.ibiblio.org/apollo.  If for some reason you',\n",
       " 'digitized images of a hardcopy from the MIT Museum.  The digitization',\n",
       " 'find that the images are illegible, contact me at info@sandroid.org',\n",
       " 'in storage size and consequent reduction in image quality as well) are',\n",
       " 'the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       " 'was performed by Paul Fjeld, and arranged for by Deborah Douglas of',\n",
       " '*********************************************************',\n",
       " '*******************************************************************',\n",
       " '*******************************************************************',\n",
       " '************************************************************************',\n",
       " '************************************************************************',\n",
       " '+ELBIT\\t=\\tBIT2',\n",
       " '-2\\tTC\\tPHASCHNG',\n",
       " '-ELBIT\\t=\\tBIT1',\n",
       " ...]"
      ]
     },
     "execution_count": 57,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "newphrases"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 66,
   "id": "3ee4e5e1",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "261 \n",
      "5 \t\t\t\t\t\n",
      "1 \t\t\t\t\t(0)\n",
      "1 \t\t\t\t\t(6)\n",
      "1 \t\t\t\t\t(8)\n",
      "4 \t\t\t\t(0)\n",
      "7 \t\t\t\t(2)\n",
      "1 \t\t\t\t(2), (4), OR (6)\n",
      "4 \t\t\t\t(4)\n",
      "3 \t\t\t\t(6)\n",
      "1 \t\t\t\t(8)\n",
      "1 \t\t\t\ta couple of lines of code that shouldn't\n",
      "1 \t\t\t\thave survived from Luminary 131 to here.\n",
      "1 \t\t\t\tlegal in GAP but not in yaYUL.  Eliminated\n",
      "1 \t\t\t                 ____   _\n",
      "1 \t\t\t0\t\t\n",
      "1 \t\t\tADG2TTF,1\t\n",
      "1 \t\t\tCG\t\t\n",
      "1 \t\t\tGAINBRAK,1\t\n",
      "1 \t\t\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)\n",
      "1 \t\t\tMASS\t\t\n",
      "2 \t\t\tR\t\t\n",
      "1 \t\t\tRANGEDSP = ABVAL(LAND - R)\n",
      "1 \t\t\tRDG +4,1\t\n",
      "1 \t\t\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8\n",
      "1 \t\t\tUNFC/2\t\t\n",
      "1 \t\t\tUNFC/2 +2\t\n",
      "1 \t\t\tVATT1\t\t\n",
      "1 \t\t\tVGU \t+4\t\n",
      "1 \t\t\tYNBPIP\t\t\n",
      "1 \t\t\tZEROVECS\t\n",
      "1 \t\t\t____               ____   ____                   __\n",
      "1 \t\t                       2    1\n",
      "1 \t\t                       _   ____  ______\n",
      "1 \t\t                  TTF/8\n",
      "1 \t\t                TTF        (TTF)(TTF)\n",
      "1 \t\t              ___   __       ___   __\n",
      "1 \t\t             ___   __\n",
      "1 \t\t        TAUVERT\n",
      "1 \t\t      - (------------- + VDG + VG)\n",
      "1 \t\t      3 (1/4(RDG - RG)   ___   __)\n",
      "1 \t\t      V2FG - VGU\n",
      "1 \t\t      ____   ___\n",
      "1 \t\t(CONTINUE TO EXTLOGIC)\n",
      "1 \t\t(CONTINUE TO TTFINCR)\n",
      "1 \t\t...\n",
      "1 \t\t2009-06-05 RSB\tFixed a goofy thing that was apparently\n",
      "1 \t\t2009-06-07 RSB\tFixed a typo.\n",
      "1 \t\tABVAL\tPDDL\t\t\n",
      "1 \t\tACG = ----------\n",
      "1 \t\tACG = ---------------------------- + ADG\n",
      "1 \t\tACG = ADG + ----------- + ------------\n",
      "1 \t\tAD\tLEADTIME\t\n",
      "1 \t\tAD\tPOSMAX\t\t\n",
      "1 \t\tADS\tBUF\t\t\n",
      "1 \t\tADS\tBUF +1\t\t\n",
      "1 \t\tADS\tDERPTR\t\t\n",
      "1 \t\tADS\tPWRPTR\t\t\n",
      "1 \t\tANGTERM = V + R * WM\n",
      "1 \t\tApollo Guidance Computer (AGC), for Apollo 11.\n",
      "1 \t\tBDDV\tSTADR\t\t\n",
      "1 \t\tBMN\tDLOAD\t\t\n",
      "1 \t\tBPL\tDLOAD\t\t\n",
      "1 \t\tBZF\tDISPEXIT\t\n",
      "1 \t\tBZF\tENDLLJOB\t\n",
      "1 \t\tBZF\tGUILDRET\t\n",
      "1 \t\tBZF\tRED-OVER\t\n",
      "1 \t\tBZF\tREDES-OK\t\n",
      "1 \t\tBZF\tRESETRPT\t\n",
      "2 \t\tBZF\tRGVGCALC\t\n",
      "1 \t\tBZF\tSTRTP66A\t\n",
      "1 \t\tCA\t5\t\t\n",
      "1 \t\tCA\tBIT12\t\t\n",
      "1 \t\tCA\tDELTTFAP\t\n",
      "1 \t\tCA\tEBANK5\t\t\n",
      "2 \t\tCA\tFIXLOC\t\t\n",
      "1 \t\tCA\tL\t\t\n",
      "1 \t\tCA\tMPAC\t\t\n",
      "1 \t\tCA\tMPAC +4\t\t\n",
      "1 \t\tCA\tRODCOUNT\t\n",
      "1 \t\tCA\tTENDBRAK\t\n",
      "1 \t\tCA\tTREDES\t\t\n",
      "1 \t\tCA\tWCHPHASE\t\n",
      "1 \t\tCA\tZERO\t\t\n",
      "2 \t\tCADR\tABS\t\t\n",
      "1 \t\tCADR\tDDV/BDDV\t\n",
      "1 \t\tCADR\tSTOPRATE\t\n",
      "3 \t\tCAF\tTWO\t\t\n",
      "1 \t\tCAF\tV06N64\t\t\n",
      "1 \t\tCAF\tZERO\t\t\n",
      "1 \t\tCCS\tA\t\t\n",
      "1 \t\tCCS\tELVIRA\t\t\n",
      "1 \t\tCCS\tL\t\t\n",
      "1 \t\tCCS\tMPAC\t\t\n",
      "1 \t\tCCS\tMPAC +4\t\t\n",
      "1 \t\tCCS\tZERLINA\t\t\n",
      "1 \t\tCOUNT*\t$$/F2DPS\t\n",
      "1 \t\tCS\tFLAGWRD6\t\n",
      "1 \t\tCS\tMPAC\t\t\n",
      "1 \t\tCS\tPROJMIN\t\t\n",
      "1 \t\tCS\tTWO\t\t\n",
      "1 \t\tDAD\t\t\t\n",
      "1 \t\tDAD\tPDDL\t\t\n",
      "1 \t\tDAS\tMPAC\t\t\n",
      "1 \t\tDAS\tROOTPS\t\t\n",
      "1 \t\tDAS\tTTF/8TMP\t\n",
      "1 \t\tDAS\tVDGVERT\t\t\n",
      "1 \t\tDCA\tHDOTDISP\t\n",
      "2 \t\tDCA\tMPAC\t\t\n",
      "1 \t\tDCA\tMPAC +3\t\t\n",
      "1 \t\tDCA\tMPAC +5\t\t\n",
      "1 \t\tDCA\tNEG0\t\t\n",
      "1 \t\tDCA\tROOTPS\t\t\n",
      "1 \t\tDCS\tMPAC\t\t\n",
      "1 \t\tDDV\tBDDV\t\t\n",
      "1 \t\tDDV\tDSU\t\t\n",
      "1 \t\tDDV\tPDVL\t\t\n",
      "1 \t\tDEC\t67\t\t\n",
      "1 \t\tDLOAD\t\t\t\n",
      "1 \t\tDLOAD\tDSU\t\t\n",
      "1 \t\tDLOAD\tPUSH\t\t\n",
      "1 \t\tDSU\tDSU\t\t\n",
      "1 \t\tDSU\tPDDL\t\t\n",
      "1 \t\tDXCH\t3\t\t\n",
      "1 \t\tDXCH\tBUF\t\t\n",
      "1 \t\tDXCH\tDXCRIT\t\t\n",
      "6 \t\tDXCH\tMPAC\t\t\n",
      "1 \t\tDXCH\tMPAC +3\t\t\n",
      "1 \t\tDXCH\tROOTPS\t\t\n",
      "1 \t\tDXCH\tRUPTREG1\t\n",
      "1 \t\tDXCH\tTTF/8\t\t\n",
      "1 \t\tDXCH\tVDGVERT\t\t\n",
      "3 \t\tEXIT\t\t\t\n",
      "4 \t\tEXTEND\t\t\t\n",
      "1 \t\tINCR\tFLPASS0\t\t\n",
      "1 \t\tINCR\tMODE\t\t\n",
      "1 \t\tINDEX\tMPAC +3\t\t\n",
      "1 \t\tIt is part of the source code for the Lunar Module's (LM)\n",
      "1 \t\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:\n",
      "1 \t\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)\n",
      "1 \t\tMASK\tBIT4\t\t\n",
      "1 \t\tN:\tDIMINISH ZERLINA, CONTINUE\n",
      "1 \t\tOCT\t0\t\t\n",
      "1 \t\tOCT\t00035\t\t\n",
      "1 \t\tOCT\t05023\t\t\n",
      "1 \t\tOCT\t21000\t\t\n",
      "1 \t\tOCT\t34\t\t\n",
      "2 \t\tPDDL\tDDV\t\t\n",
      "1 \t\tPDDL\tDMP\t\t\n",
      "1 \t\tPDDL\tVDEF\t\t\n",
      "1 \t\tPDVL\tABVAL\t\t\n",
      "1 \t\tPDVL\tCALL\t\t\n",
      "1 \t\tPUSH\tBDSU\t\t\n",
      "1 \t\tQXCH\tRETROOT\t\t\n",
      "1 \t\tRGU = CG (R - LAND)\n",
      "1 \t\tRTB\tDOT\t\t\n",
      "1 \t\tRTB\tPUSH\t\t\n",
      "1 \t\tSETPD\t\t\t\n",
      "1 \t\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:\n",
      "1 \t\tSLR\tPUSH\t\t\n",
      "1 \t\tSTODL\t/AFC/\t\t\n",
      "1 \t\tSTODL\tHCALC1\t\t\n",
      "1 \t\tSTODL\tHDOTDISP\t\n",
      "1 \t\tSTODL\tLASTTPIP\t\n",
      "1 \t\tSTODL\tTABLTTF +4\t\n",
      "1 \t\tSTODL*\tTABLTTF +2\t\n",
      "1 \t\tSTODL*\tTABLTTF +6\t\n",
      "1 \t\tSTORE\t30D\t\t\n",
      "1 \t\tSTORE\tTABLTTF\t\t\n",
      "1 \t\tSTORE\tUNFC/2\t\t\n",
      "1 \t\tSTORE\tUNWC/2\t\t\n",
      "1 \t\tSTOVL\t24D\t\t\n",
      "1 \t\tSTOVL\tCG +6\t\t\n",
      "1 \t\tSTOVL\tVHORIZ\t\t\n",
      "3 \t\tTC\tBANKCALL\t\n",
      "1 \t\tTC\tCHECKMM\t\t\n",
      "1 \t\tTC\tDMPNSUB\t\t\n",
      "3 \t\tTC\tDOWNFLAG\t\n",
      "1 \t\tTC\tFASTCHNG\t\n",
      "2 \t\tTC\tPOWRSERS\t\n",
      "1 \t\tTC\tROOTPSRS\t\n",
      "1 \t\tTC\tSHORTMP\t\t\n",
      "1 \t\tTC\tUPFLAG\t\t\n",
      "1 \t\tTCF\t1406ALM\t\t\n",
      "1 \t\tTCF\t1406P00\t\t\n",
      "1 \t\tTCF\tCALCRGVG\t\n",
      "2 \t\tTCF\tCGCALC\t\t\n",
      "1 \t\tTCF\tCOUNT'EM\t\n",
      "1 \t\tTCF\tEXGSUB\t\t\n",
      "1 \t\tTCF\tEXNORM\t\t\n",
      "1 \t\tTCF\tGOTOP00H\t\n",
      "1 \t\tTCF\tGUILDRET\t\n",
      "1 \t\tTCF\tP64CEED\t\t\n",
      "2 \t\tTCF\tP64DISPS\t\n",
      "1 \t\tTCF\tP65START\t\n",
      "1 \t\tTCF\tP66VERT\t\t\n",
      "1 \t\tTCF\tP67VERT\t\t\n",
      "1 \t\tTCF\tPREMON1\t\t\n",
      "1 \t\tTCF\tPREMON2\t\t\n",
      "1 \t\tTCF\tREDESIG\t\t\n",
      "1 \t\tTCF\tRESUME\t\t\n",
      "1 \t\tTCF\tRGVGCALC\t\n",
      "1 \t\tTCF\tSTABL?\t\t\n",
      "1 \t\tTCF\tSTARTP64\t\n",
      "1 \t\tTCF\tSTARTP66\t\n",
      "1 \t\tTCF\tSTEER?\t\t\n",
      "2 \t\tTCF\tTTF/8CL\t\t\n",
      "1 \t\tTCF\tTTFINCR\t\t\n",
      "1 \t\tTCF\tVERTDISP\t\n",
      "2 \t\tTCF\tVERTGUID\t\n",
      "1 \t\tTS\t26D\t\t\n",
      "1 \t\tTS\t28D\t\t\n",
      "1 \t\tTS\t30D\t\t\n",
      "1 \t\tTS\tBUF\t\t\n",
      "1 \t\tTS\tDERPTR\t\t\n",
      "1 \t\tTS\tEBANK\t\t\n",
      "1 \t\tTS\tFLPASS0\t\t\n",
      "1 \t\tTS\tL\t\t\n",
      "1 \t\tTS\tLOOKANGL\t\n",
      "1 \t\tTS\tMODE\t\t\n",
      "2 \t\tTS\tMPAC\t\t\n",
      "1 \t\tTS\tMPAC +1\t\t\n",
      "1 \t\tTS\tMPAC +2\t\t\n",
      "1 \t\tTS\tMPAC +3\t\t\n",
      "2 \t\tTS\tMPAC +5\t\t\n",
      "1 \t\tTS\tMPAC +6\t\t\n",
      "1 \t\tTS\tPWRPTR\t\t\n",
      "1 \t\tTS\tTABLTTF +10\t\n",
      "1 \t\tTS\tTEMX\t\t\n",
      "1 \t\tTS\tTEMY\t\t\n",
      "1 \t\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:\n",
      "1 \t\tVAD\tPUSH\t\t\n",
      "1 \t\tVAD\tSTADR\t\t\n",
      "1 \t\tVAD\tVSR2\t\t\n",
      "1 \t\tVGU = CG (V - WM * R)\n",
      "1 \t\tVHORIZ = 8 ABVAL (0, VG , VG )\n",
      "1 \t\tVLOAD\t\t\t\n",
      "1 \t\tVLOAD\tMXV\t\t\n",
      "1 \t\tVSU\tPUSH\t\t\n",
      "1 \t\tVSU\tVXSC\t\t\n",
      "1 \t\tVXSC\tPDDL\t\t\n",
      "1 \t\tXCH\tBUF +1\t\t\n",
      "1 \t\tY:\tRESET RUPT. TERMINATE\n",
      "1 \t\t___   *   _   __   _\n",
      "1 \t\t___   *   _   ____\n",
      "1 \t\t___   4 (    TTF/8               )   ___\n",
      "1 \t\t___   ___   6(VDG + VG)   12(RDG - RG)\n",
      "1 \t\t_______   _   _   __\n",
      "1 \t                                               N        N-1\n",
      "1 \t                                             N      N-1              1     0\n",
      "1 \t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.\n",
      "1 \t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT\n",
      "1 \t    PRECLUDE EVENTUAL CONVERGENCE.\n",
      "1 \t- RATE INCREMENT, BIT 6 + INCREMENT.\n",
      "1 \t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\n",
      "1 \t16:27 JULY 14, 1969\n",
      "1 \t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\n",
      "1 \t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.\n",
      "1 \t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.\n",
      "1 \t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS\n",
      "1 \tA\tSP\tLOC-3\t\tADRES FOR REFERENCING PWR COF TABL\n",
      "1 \tAS HERE PROGRAMMED --\n",
      "1 \tAS PUBLISHED --\n",
      "1 \tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61\n",
      "1 \tBEFORE TCGFAPPR IS REACHED\n",
      "1 \tBY FORCING -TTF*LEADTIME > OR = ZERO\n",
      "1 \tCOMPUTED LAST PASS AND LEFT IN UNFC/2\n",
      "1 \tDON'T CALL THROTTLE OR FINDCDUW\n",
      "1 \tHORIZONTAL VELOCITY FOR DISPLAY\n",
      "1 \tIS.\n",
      "1 \tJUST HIGHER THAN SERVICER'S PRIORITY\n",
      "1 \tKNOW WHEN READACCS CHANGES THEM.\n",
      "1 \tL\tSP\tN-1\t\tN IS THE DEGREE OF THE POWER SERIES\n",
      "1 \tLOC\tDP\tA(N)\n",
      "1 \tLOC+2\tSP\tPRECROOT\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)\n",
      "1 \tLOC-2N\tDP\tA(0)\n",
      "1 \tMPAC\tDP\tX\t\tINITIAL GUESS FOR ROOT\n",
      "1 \tN: \tHAS ZERLINA REACHED ZERO YET?\n",
      "1 \tOUTPUT AND TRIM CORRECTION TERM\n",
      "1 \tRESTORED BY NEXT GUIDANCE CYCLE.\n",
      "1 \tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--\n",
      "1 \tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A\n",
      "1 \tSTATE IN GUIDANCE COORDINATES:\n",
      "1 \tTTFINCR COMPUTATIONS ARE AS FOLLOWS --\n",
      "1 \tVELOCITY RELATIVE TO THE SURFACE:\n",
      "1 \tWCHPHASE =  0 ---> BRAKQUAD\n",
      "1 \tWCHPHASE =  1 ---> APPRQUAD\n",
      "1 \tWCHPHASE =  2 ---> VERTICAL\n",
      "1 \tWCHPHASE = -1 ---> IGNALG\n",
      "1 \tY: \tCOUNT 'EM, RESET RUPT, TERMINATE\n",
      "1  \t\t(CONTINUE TO DISPEXIT)\n",
      "1  \t\t(CONTINUE TO QUADGUID)\n",
      "1  \t\tTCF\tSTARTP67\t\n",
      "1  \tALTITUDE RATE.\n",
      "1  \tDEPRESSION ANGLE FOR DISPLAY:\n",
      "1  \tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --\n",
      "1  \tTOO CLOSE TO THE HORIZON.\n",
      "1                             1    0\n",
      "1                         2    2    2\n",
      "1                     ___        ____   _\n",
      "1                  ____   _\n",
      "1                 2      2\n",
      "1               2         2\n",
      "2              2\n",
      "1            2   1\n",
      "1            _   ____\n",
      "1  (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)\n",
      "1  (I-1) TO MPAC, FETCHING DERCOF\n",
      "1  ************************\n",
      "2  ********************************************************\n",
      "2  **********************************************************\n",
      "2  ****************************************************************\n",
      "2  ******************************************************************\n",
      "6  *********************************************************************\n",
      "8  ***********************************************************************\n",
      "6  **************************************************************************\n",
      "2  ****************************************************************************\n",
      "2  *******************************************************************************\n",
      "6  *********************************************************************************\n",
      "2  ***********************************************************************************\n",
      "4  *************************************************************************************\n",
      "1  +0\n",
      "1  +3\t\tCS\tFLAGWRD8\t\n",
      "1  +PITCH\n",
      "1  - RATIO OF LAG-DIMINISHED TTF TO TTF\n",
      "1  -PITCH\n",
      "1  1.\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.\n",
      "1  1/2 DEGREE\n",
      "1  2 DEGREES\n",
      "1  2.\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.\n",
      "1  3.\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.\n",
      "1  30-31D CONTAINS TIME IN CS SINCE PIPTIME\n",
      "1  A(0) = -24 (RGU  - RDG )/64 TO TABLTTF\n",
      "1  A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF\n",
      "1  A(2) = 6 ADG  TO TABLTTF\n",
      "1  A(3) = 8 JDG  TO TABLTTF\n",
      "1  A(N) TO MPAC\n",
      "1  ABS(DX)-ABS(DXCRIT) IN MPAC\n",
      "1  ADDRESS FOR REFERENCING TTF TABLE\n",
      "1  ALARM ROUTINE FOR TTF COMPUTATION:\n",
      "1  AMAXHORIZ = SQRT(ATOTAL - A  - A  )\n",
      "1  AND IN ROOTPS\n",
      "8  APPRQUAD\n",
      "2  ARE WE IN ATTITUDE-HOLD?\n",
      "1  AUGMENT TTF/8\n",
      "1  Assembler:\tyaYUL\n",
      "8  BRAKQUAD\n",
      "1  COEFFICIENT FOR ADG TERM\n",
      "1  COEFFICIENT FOR RDG-RGU TERM\n",
      "1  COEFFICIENT FOR VDG TERM\n",
      "1  COEFFICIENT FOR VGU TERM\n",
      "1  COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT\n",
      "1  COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE\n",
      "1  COME HERE FROM MARKRUPT CODING WITH BIT\n",
      "1  COMPUTE CRITERION TO STOP ITERATING\n",
      "1  COMPUTE LOOKANGLE ITSELF\n",
      "1  COMPUTE STATE IN GUIDANCE COORDINATES\n",
      "1  COMPUTE TRIM VELOCITY CORRECTION TERM.\n",
      "1  CONVERGE ON ROOT\n",
      "1  CORRECTED ROOT NOW IN ROOTPS\n",
      "1  CORRECTED TTF/8\n",
      "1  CRITERION\n",
      "1  CURRENT ROOT TO MPAC, FETCHING DERIVATIVE\n",
      "1  Contact:\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.\n",
      "1  Copyright:\tPublic domain.\n",
      "1  DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES\n",
      "1  DECREMENT DER POINTER\n",
      "1  DECREMENT PWR POINTER\n",
      "1  DEGREE - ONE\n",
      "1  DER TABL ADRES\n",
      "1  DER TABL POINTER\n",
      "1  DERCOF TO DER TABLE\n",
      "1  DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66\n",
      "1  DISPLAY ROUTINES:\n",
      "1  DO ANY BITS APPEAR THIS PASS?\n",
      "1  DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)\n",
      "1  ENABLE REDESIGNATION LOGIC\n",
      "1  ENABLE RUPT10\n",
      "1  ENTER HERE TO RECOMPUTE RG AND VG\n",
      "1  ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT\n",
      "1  ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX\n",
      "1  FETCH CURRENT ROOT\n",
      "1  FETCH DX, LEAVING -DX IN MPAC\n",
      "1  FETCH ROOT GUESS, KEEPING IT IN MPAC\n",
      "1  FETCH TTF/8 KEEPING IT IN MPAC\n",
      "1  FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:\n",
      "1  FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS\n",
      "1  FRACTIONAL PRECISION FOR TTF TO TABLE\n",
      "1  Filename:\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc\n",
      "1  GET COEFFICIENT FOR CG +14\n",
      "1  GET COEFFICIENT FOR UNIT(LAND - R)\n",
      "1  GOOD RETURN\n",
      "1  GROUP 3:  PROTECT GUIDANCE WITH PRIO 21\n",
      "1  GROUP 5:  RETAIN ONLY PIPA TASK\n",
      "1  GUIDANCE EQUATIONS:\n",
      "1  GUIDANCE FOR P65\n",
      "1  GUIDANCE FOR P66\n",
      "1  GUIDANCE LOOP DISPLAYS\n",
      "1  GUILDENSTERN:  AUTO-MODES MONITOR (R13)\n",
      "1  HAS THERE BEEN A RESTART?\n",
      "1  HAS TREDES REACHED ZERO?\n",
      "1  HERE IS THE PHILOSOPHY OF GUILDENSTERN:\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE\n",
      "1  IF FLUNDISP IS SET, NO DISPLAY THIS PASS\n",
      "1  IF NOT IN P64, NO REASON TO CONTINUE\n",
      "1  IF OVERFLOW ANYWHERE IN GUIDANCE\n",
      "1  IF STEERSW DOWN NO OUTPUTS\n",
      "7  IGNALG\n",
      "1  IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE\n",
      "1  IN IGNALG, COMPUTE V FROM INTEGRATION\n",
      "1  INCREMENT ITERATION COUNTER\n",
      "1  INCREMENT PASS COUNTER\n",
      "1  INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS\n",
      "1  INDICES FOR REFERENCING TARGET PARAMETERS\n",
      "1  INITIALIZATION FOR THIS PASS\n",
      "1  INITIALIZE REDESIGNATION FLAG\n",
      "1  IS REDFLAG SET?\n",
      "1  IS UN-ATTITUDE-HOLD DISCRETE PRESENT?\n",
      "1  IS UN-AUTO-THROTTLE DISCRETE PRESENT?\n",
      "1  KILL GROUP 3:  DISPLAYS WILL BE\n",
      "1  KILL GROUP 5\n",
      "1  KLUMPP SAYS GIVE UP AFTER EIGHT PASSES\n",
      "1  LANDING SITE PERTURBATION EQUATIONS\n",
      "1  LEADTIME IS A NEGATIVE NUMBER\n",
      "1  LEAVE DERIVATIVE IN BUF AS DIVISOR\n",
      "1  LEAVE IN MPAC\n",
      "1  LOAD A, L WITH DER TABL ADRES, N-2\n",
      "1  LOAD A, L WITH PWR TABL ADRES, N-1\n",
      "1  LOADS TTF/8 (INITIAL GUESS) INTO MPAC\n",
      "1  LOOKANGL FOR DISPLAY DURING P64\n",
      "1  LOOKANGL WILL BE COMPUTED AT RGVGCALC\n",
      "1  LOOP COUNTER\n",
      "1  LUNAR LANDING CONSTANTS\n",
      "1  LUNAR LANDING FLIGHT SEQUENCE TABLES\n",
      "1  MAGNITUDE OF AFC FOR THROTTLE\n",
      "1  MAIN GUIDANCE EQUATION\n",
      "1  MAKE SURE REDESIGNATION IS NOT\n",
      "1  MODE USED AS ITERATION COUNTER.  MODE\n",
      "1  MPAC = MEASURED ACCELERATION.\n",
      "1  MPAC(X) = PIPAX + PIPATMPX\n",
      "1  MPAC(Y) = PIPAY + PIPATMPY\n",
      "1  MPAC(Z) = PIPAZ + PIPATMPZ\n",
      "1  MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\n",
      "1  Mod history:\t2009-05-23 HG\tTranscribed from page images.\n",
      "1  N = 3\n",
      "1  N-1 TO A\n",
      "1  N-2\n",
      "1  N:\tANY LAST PASS?\n",
      "1  NO\n",
      "1  NO HARM IN \"STARTING\" P67 OVER AND OVER\n",
      "1  NO POWER SERIES DEGREE 1 OR LESS\n",
      "1  NO SHIFT SINCE ANGTERM IS DOUBLE SIZED\n",
      "1  NO.\n",
      "1  NO. CONTINUE WITH AUTOMATIC LANDING\n",
      "1  NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?\n",
      "1  NO:  ARE WE IN P67 NOW?\n",
      "1  NO:  DO A STOPRATE\n",
      "1  NO:  IS REDFLAG SET?\n",
      "1  NO:  SKIP REDESIGNATION LOGIC\n",
      "1  NO: CONTINUE WITH R.O.D.\n",
      "1  NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT\n",
      "1  NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP\n",
      "1  NOW IN MPAC IS SINE(LOOKANGL)/4\n",
      "1  NUMERO MYSTERIOSO\n",
      "1  Notations on the hardcopy document read, in part:\n",
      "1  ON SUCCEEDING PASSES SKIP TTFINCR\n",
      "1  OTHERWISE USE FLASHING DISPLAY\n",
      "1  OUT-OF-PLANE\n",
      "1  OUTPUTS ARE NOT TO BE TRUSTED.\n",
      "1  P63\n",
      "1  P64\n",
      "1  P65, P66, P67\n",
      "1  PARAMETER TABLE INDIRECT ADDRESSES\n",
      "2  PERMIT X-AXIS OVERRIDE\n",
      "1  PICK UP UPDATED VELOCITY VECTOR.\n",
      "1  POSITIVE NON-ZERO ---> P67\n",
      "1  POST GUIDANCE EQUATION COMPUTATIONS:\n",
      "1  PRE-GUIDANCE COMPUTATIONS:\n",
      "1  PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD\n",
      "1  PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE\n",
      "1  PRECROOT TO A\n",
      "1  PREPARE FOR PHASE SWITCHING LOGIC\n",
      "1  PREPARE TO EXIT\n",
      "1  PROCEED\tPERMIT REDESIGNATIONS\n",
      "1  PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))\n",
      "1  PUSH DOWN R - LAND\n",
      "1  PUSH DOWN UNIT (LAND - R)\n",
      "1  PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG\n",
      "1  PWR TABLE ADRES\n",
      "1  PWR TABLE ADRES, N-1\n",
      "1  PWR TABLE POINTER\n",
      "1  Page 798\n",
      "1  Page 799\n",
      "1  Page 800\n",
      "1  Page 801\n",
      "1  Page 802\n",
      "1  Page 803\n",
      "1  Page 804\n",
      "1  Page 805\n",
      "1  Page 806 actually starts one line earlier but that would separate the markers from their variables\n",
      "1  Page 807\n",
      "1  Page 808\n",
      "1  Page 809\n",
      "1  Page 810\n",
      "1  Page 811\n",
      "1  Page 812\n",
      "1  Page 813\n",
      "1  Page 814\n",
      "1  Page 815\n",
      "1  Page 816\n",
      "1  Page 817\n",
      "1  Page 818\n",
      "1  Page 819\n",
      "1  Page 820\n",
      "1  Page 821\n",
      "1  Page 822\n",
      "1  Page 823\n",
      "1  Page 824\n",
      "1  Page 825\n",
      "1  Page 826\n",
      "1  Page 827\n",
      "1  Page 828\n",
      "1  Pages:\t798-828\n",
      "1  Purpose: \tPart of the source code for Luminary 1A build 099.\n",
      "1  R.O.D. TRAP\n",
      "1  RATIO SQUARED - RATIO\n",
      "1  RECYCLE\n",
      "1  REDESIGNATOR MONITOR (INITIATED BY PITFALL)\n",
      "1  REDESIGNATOR TRAP\n",
      "1  RESCALE TO UNITS OF 2(9) M/CS\n",
      "1  RESET FLPASS0\n",
      "1  RESET PUSH DOWN POINTER\n",
      "1  RESULT IS 0 IF PROJ - PROJMIN NEGATIVE\n",
      "1  RESULT IS 0 IF PROJMAX - PROJ NEGATIVE\n",
      "1  RESULTING VECTOR IS 1/2 REAL SIZE\n",
      "1  RETURN ADRES\n",
      "1  RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND\n",
      "1  ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:\n",
      "1  ROUTINES FOR EXITING FROM LANDING GUIDANCE\n",
      "1  ROUTINES FOR STARTING NEW GUIDANCE PHASES:\n",
      "1  ROUTINES TO START NEW PHASES\n",
      "1  RSB 2009: Not originally a comment.\n",
      "1  SAFEGUARD THE COMPUTATIONS THAT FOLLOW\n",
      "1  SCALE MPAC TO M/CS *2(-7) AND PUSH \t(6)\n",
      "1  SECOND ROW\n",
      "1  SET DESIRED ALTITUDE RATE = CURRENT\n",
      "1  SET OLDPIPAX,Y,Z = PIPAX,Y,Z\n",
      "1  SET PD TO 0\n",
      "1  SET RUPTREG1,2,3 = OLDPIPAX,Y,Z\n",
      "1  SET UP DER COF TABL\n",
      "1  SET X1 ON THE WAY TO THE INTERPRETER\n",
      "1  SHIFT SCALES DELTA TIME TO 2(17) CSECS\n",
      "1  SIN(15')/8 TO COMPARE WITH PROJ\n",
      "1  SIN(25')/8 TO COMPARE WITH PROJ\n",
      "1  SINCE REDESIG MAY CHANGE LANDTEMP\n",
      "1  SNAPSHOT TIME OF PIPA READING.\n",
      "1  SO NO NEED FOR A FASTCHNG AND NO NEED\n",
      "1  SOUND THE ALARM NON-ABORTIVELY\n",
      "1  SPECIALIZED \"PHASCHNG\" SUBROUTINE\n",
      "1  SPECIALIZED 'PHASCHNG' ROUTINE\n",
      "1  STERN\t\t\t\t\t\n",
      "1  STORE ENTERING DATA, INITIALIZE ERASABLES\n",
      "1  STORE SP ITERATION COUNT IN MPAC+2\n",
      "1  STORE UPDATED VELOCITY IN 24-29D\n",
      "2  TEMPORARY, I HOPE HOPE HOPE\n",
      "1  TERMINATE\n",
      "2  TERMINATE GROUP 3.\n",
      "1  TEST HI ORDER DX\n",
      "1  TEST LO ORDER DX\n",
      "1  THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.\n",
      "1  THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM\n",
      "1  TO PICK UP THE TAG\n",
      "1  TO SEE IF ALREADY IN P67.\n",
      "1  TRAP IS RESET WHEN SWITCH IS RELEASED\n",
      "1  TRASHY LITTLE SUBROUTINES\n",
      "1  TREDES BECOMES ZERO TWO PASSES\n",
      "1  TTF/8 COMPUTATION\n",
      "1  This source code has been transcribed or otherwise adapted from\n",
      "1  UNFC/2 NEED NOT BE UNITIZED\n",
      "1  UNIT(LAND - R) IS TENTATIVE CHOICE\n",
      "1  UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE\n",
      "1  UPDATE DESIRED ALTITUDE RATE.\n",
      "1  UPDATE HCALC1 FOR NOUN 63.\n",
      "1  UPDATE HDOTDISP RATE FOR NOUN 63.\n",
      "1  USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\n",
      "1  VERGUID COMES HERE\n",
      "5  VERTICAL\n",
      "1  VERTICAL COMPONENT\n",
      "1  VHORIZ FOR DISPLAY DURING P65.\n",
      "1  WCHPHASE = 0   BRAKQUAD\n",
      "1  WCHPHASE = 1   APPRQUAD\n",
      "1  WCHPHASE = 2 ---> VERTICAL: P65,P66,P67\n",
      "1  WINDOW VECTOR COMPUTATIONS:\n",
      "1  WITH PROJ IN MPAC 1/8 REAL SIZE\n",
      "1  Website:\twww.ibiblio.org/apollo.\n",
      "1  Y:\tCONTINUE MONITOR\n",
      "3  YES\n",
      "1  YES ALL'S WELL\n",
      "1  YES.  REINITIALIZE BUT LEAVE VDGVERT AS\n",
      "1  YES. SWITCH INTO THE ROD MODE.\n",
      "1  YES:  DO STATIC DISPLAY\n",
      "1  YES:  HAS TREDES REACHED ZERO?\n",
      "1  YES:  SKIP REDESIGNATION LOGIC\n",
      "1  YES: CLEAR REDESIGNATION FLAG\n",
      "1  YES: SKIP REDESIGNATION LOGIC.\n",
      "1  YIELDS -DX IN MPAC\n",
      "1  YIELDS ABS(DX) IN MPAC\n",
      "1  YIELDS ABVAL OF CRITERION ON DX IN MPAC\n",
      "1  YIELDS DERCOF = I X A(I) IN MPAC\n",
      "1  YIELDS DERIVATIVE IN MPAC\n",
      "1  YIELDS DP PRODUCT IN MPAC\n",
      "1  YIELDS RESIDUAL IN MPAC\n",
      "1  YIELDS TTF/8 IN MPAC\n",
      "1  ZERO LO-ORDER MPAC COMPONENTS\n",
      "1  ZERO TEMX, TEMY, AND TEMZ SO WE WILL\n",
      "1  about getting access to the (much) higher-quality images which Paul\n",
      "1  actually created.\n",
      "1  available online at www.ibiblio.org/apollo.  If for some reason you\n",
      "1  digitized images of a hardcopy from the MIT Museum.  The digitization\n",
      "1  find that the images are illegible, contact me at info@sandroid.org\n",
      "1  in storage size and consequent reduction in image quality as well) are\n",
      "1  the Museum.  Many thanks to both.  The images (with suitable reduction\n",
      "1  was performed by Paul Fjeld, and arranged for by Deborah Douglas of\n",
      "1 *********************************************************\n",
      "2 *******************************************************************\n",
      "2 ************************************************************************\n",
      "1 +ELBIT\t\t=\tBIT2\t\t\n",
      "1 -2\t\tTC\tPHASCHNG\t\n",
      "1 -ELBIT\t\t=\tBIT1\t\t\n",
      "1 AFCCALC1\tVXM\tVSL1\t\t\n",
      "1 AFCCALC2\tSTODL\t/AFC/\t\t\n",
      "1 AFCSPOT\t\tDLOAD\t\t\t\n",
      "1 AFTRGUID\tTCF\tCGCALC\t\t\n",
      "1 AZEACH\t\tDEC\t.03491\t\t\n",
      "1 CALCRGVG\tTC\tINTPRET\t\t\n",
      "1 COUNT'EM\tCAF\tBIT13\t\t\n",
      "1 DERCLOOP\tTS\tPWRCNT\t\t\n",
      "1 DESCBITS\tMASK\tBIT7\t\t\n",
      "1 DISPEXIT\tEXTEND\t\t\t\n",
      "1 ELEACH\t\tDEC\t.00873\t\t\n",
      "1 EXGSUB\t\tTC\tINTPRET\t\t\n",
      "1 EXOVFLOW\tTC\tALARM\t\t\n",
      "1 EXTLOGIC\tINDEX\tWCHPHASE\t\n",
      "1 EXVERT\t\tCA\tOVFIND\t\t\n",
      "1 FASTCHNG\tCA\tEBANK3\t\t\n",
      "1 GUIDSUB\t\tTS\tNGUIDSUB\t\n",
      "1 GUILDEN\t\tEXTEND\t\t\t\n",
      "1 INTPRETX\tINDEX\tWCHPHASE\t\n",
      "1 ITRPNT1\t\tVXSC\tPDDL\t\t\n",
      "1 NEWPHASE\tTCF\tTTFINCR\t\t\n",
      "1 P64DISPS\tCA\tTREDES\t\t\n",
      "1 P66VERTA\tTC\tPHASCHNG\t\n",
      "1 P67NOW?\t\tTC\tCHECKMM\t\t\n",
      "1 P67VERT\t\tTC\tPHASCHNG\t\n",
      "1 PREGUIDE\tTCF\tRGVGCALC\t\n",
      "1 PROJMAX\t\tDEC\t.42262 B-3\t\n",
      "1 PROJMIN\t\tDEC\t.25882 B-3\t\n",
      "1 RATESTOP\tCAF\tBIT13\t\t\n",
      "1 REDESIG\t\tCA\tFLAGWRD6\t\n",
      "1 RESETRPT\tCAF\tBIT12\t\t\n",
      "1 RESTART?\tCA\tFLAGWRD1\t\n",
      "1 RGVGCALC\tTC\tINTPRET\t\t\n",
      "1 STABL?\t\tCAF\tBIT13\t\t\n",
      "1 STARTP66\tTC\tFASTCHNG\t\n",
      "1 STARTP67\tTC\tNEWMODEX\t\n",
      "1 STEER?\t\tCA\tFLAGWRD2\t\n",
      "1 TABLTTFL\tADRES\tTABLTTF +3\t\n",
      "1 TARGTDEX\tOCT\t0\t\t\n",
      "1 TESTLODX\tCCS\tMPAC +1\t\t\n",
      "1 V06N60\t\tVN\t0660\t\t\n",
      "1 V06N63\t\tVN\t0663\t\t\n",
      "1 V06N64\t\tVN\t0664\t\t\n",
      "1 WHATALM\t\tTCF\t1406ALM\t\t\n",
      "1 WHATDISP\tTCF\tP63DISPS\t\n",
      "1 WHATEXIT\tTCF\tEXBRAK\t\t\n",
      "1 WHATGUID\tTCF\tTTF/8CL\t\t\n"
     ]
    }
   ],
   "source": [
    "desc=[]\n",
    "uniqPhrases = sorted(set(phrases)) #remove duplicate words and sort\n",
    "for phrase in uniqPhrases:\n",
    "    print( phrases.count(phrase), phrase)\n",
    "    desc.append({phrase,phrases.count(phrase)})"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "id": "538d837c",
   "metadata": {},
   "outputs": [],
   "source": [
    "#note to remmove double tabs within columns and white space"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 60,
   "id": "ee8dc9bf",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "675"
      ]
     },
     "execution_count": 60,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "len(uniqPhrases)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 67,
   "id": "78e67eb4",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "[{'', 261},\n",
       " {'\\t\\t\\t\\t\\t', 5},\n",
       " {'\\t\\t\\t\\t\\t(0)', 1},\n",
       " {'\\t\\t\\t\\t\\t(6)', 1},\n",
       " {'\\t\\t\\t\\t\\t(8)', 1},\n",
       " {'\\t\\t\\t\\t(0)', 4},\n",
       " {'\\t\\t\\t\\t(2)', 7},\n",
       " {'\\t\\t\\t\\t(2), (4), OR (6)', 1},\n",
       " {'\\t\\t\\t\\t(4)', 4},\n",
       " {'\\t\\t\\t\\t(6)', 3},\n",
       " {'\\t\\t\\t\\t(8)', 1},\n",
       " {\"\\t\\t\\t\\ta couple of lines of code that shouldn't\", 1},\n",
       " {'\\t\\t\\t\\thave survived from Luminary 131 to here.', 1},\n",
       " {'\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated', 1},\n",
       " {'\\t\\t\\t                 ____   _', 1},\n",
       " {'\\t\\t\\t0\\t\\t', 1},\n",
       " {'\\t\\t\\tADG2TTF,1\\t', 1},\n",
       " {'\\t\\t\\tCG\\t\\t', 1},\n",
       " {'\\t\\t\\tGAINBRAK,1\\t', 1},\n",
       " {'\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)', 1},\n",
       " {'\\t\\t\\tMASS\\t\\t', 1},\n",
       " {'\\t\\t\\tR\\t\\t', 2},\n",
       " {'\\t\\t\\tRANGEDSP = ABVAL(LAND - R)', 1},\n",
       " {'\\t\\t\\tRDG +4,1\\t', 1},\n",
       " {'\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8', 1},\n",
       " {'\\t\\t\\tUNFC/2\\t\\t', 1},\n",
       " {'\\t\\t\\tUNFC/2 +2\\t', 1},\n",
       " {'\\t\\t\\tVATT1\\t\\t', 1},\n",
       " {'\\t\\t\\tVGU \\t+4\\t', 1},\n",
       " {'\\t\\t\\tYNBPIP\\t\\t', 1},\n",
       " {'\\t\\t\\tZEROVECS\\t', 1},\n",
       " {'\\t\\t\\t____               ____   ____                   __', 1},\n",
       " {'\\t\\t                       2    1', 1},\n",
       " {'\\t\\t                       _   ____  ______', 1},\n",
       " {'\\t\\t                  TTF/8', 1},\n",
       " {'\\t\\t                TTF        (TTF)(TTF)', 1},\n",
       " {'\\t\\t              ___   __       ___   __', 1},\n",
       " {'\\t\\t             ___   __', 1},\n",
       " {'\\t\\t        TAUVERT', 1},\n",
       " {'\\t\\t      - (------------- + VDG + VG)', 1},\n",
       " {'\\t\\t      3 (1/4(RDG - RG)   ___   __)', 1},\n",
       " {'\\t\\t      V2FG - VGU', 1},\n",
       " {'\\t\\t      ____   ___', 1},\n",
       " {'\\t\\t(CONTINUE TO EXTLOGIC)', 1},\n",
       " {'\\t\\t(CONTINUE TO TTFINCR)', 1},\n",
       " {'\\t\\t...', 1},\n",
       " {'\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently', 1},\n",
       " {'\\t\\t2009-06-07 RSB\\tFixed a typo.', 1},\n",
       " {'\\t\\tABVAL\\tPDDL\\t\\t', 1},\n",
       " {'\\t\\tACG = ----------', 1},\n",
       " {'\\t\\tACG = ---------------------------- + ADG', 1},\n",
       " {'\\t\\tACG = ADG + ----------- + ------------', 1},\n",
       " {'\\t\\tAD\\tLEADTIME\\t', 1},\n",
       " {'\\t\\tAD\\tPOSMAX\\t\\t', 1},\n",
       " {'\\t\\tADS\\tBUF\\t\\t', 1},\n",
       " {'\\t\\tADS\\tBUF +1\\t\\t', 1},\n",
       " {'\\t\\tADS\\tDERPTR\\t\\t', 1},\n",
       " {'\\t\\tADS\\tPWRPTR\\t\\t', 1},\n",
       " {'\\t\\tANGTERM = V + R * WM', 1},\n",
       " {'\\t\\tApollo Guidance Computer (AGC), for Apollo 11.', 1},\n",
       " {'\\t\\tBDDV\\tSTADR\\t\\t', 1},\n",
       " {'\\t\\tBMN\\tDLOAD\\t\\t', 1},\n",
       " {'\\t\\tBPL\\tDLOAD\\t\\t', 1},\n",
       " {'\\t\\tBZF\\tDISPEXIT\\t', 1},\n",
       " {'\\t\\tBZF\\tENDLLJOB\\t', 1},\n",
       " {'\\t\\tBZF\\tGUILDRET\\t', 1},\n",
       " {'\\t\\tBZF\\tRED-OVER\\t', 1},\n",
       " {'\\t\\tBZF\\tREDES-OK\\t', 1},\n",
       " {'\\t\\tBZF\\tRESETRPT\\t', 1},\n",
       " {'\\t\\tBZF\\tRGVGCALC\\t', 2},\n",
       " {'\\t\\tBZF\\tSTRTP66A\\t', 1},\n",
       " {'\\t\\tCA\\t5\\t\\t', 1},\n",
       " {'\\t\\tCA\\tBIT12\\t\\t', 1},\n",
       " {'\\t\\tCA\\tDELTTFAP\\t', 1},\n",
       " {'\\t\\tCA\\tEBANK5\\t\\t', 1},\n",
       " {'\\t\\tCA\\tFIXLOC\\t\\t', 2},\n",
       " {'\\t\\tCA\\tL\\t\\t', 1},\n",
       " {'\\t\\tCA\\tMPAC\\t\\t', 1},\n",
       " {'\\t\\tCA\\tMPAC +4\\t\\t', 1},\n",
       " {'\\t\\tCA\\tRODCOUNT\\t', 1},\n",
       " {'\\t\\tCA\\tTENDBRAK\\t', 1},\n",
       " {'\\t\\tCA\\tTREDES\\t\\t', 1},\n",
       " {'\\t\\tCA\\tWCHPHASE\\t', 1},\n",
       " {'\\t\\tCA\\tZERO\\t\\t', 1},\n",
       " {'\\t\\tCADR\\tABS\\t\\t', 2},\n",
       " {'\\t\\tCADR\\tDDV/BDDV\\t', 1},\n",
       " {'\\t\\tCADR\\tSTOPRATE\\t', 1},\n",
       " {'\\t\\tCAF\\tTWO\\t\\t', 3},\n",
       " {'\\t\\tCAF\\tV06N64\\t\\t', 1},\n",
       " {'\\t\\tCAF\\tZERO\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tA\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tELVIRA\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tL\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tMPAC\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tMPAC +4\\t\\t', 1},\n",
       " {'\\t\\tCCS\\tZERLINA\\t\\t', 1},\n",
       " {'\\t\\tCOUNT*\\t$$/F2DPS\\t', 1},\n",
       " {'\\t\\tCS\\tFLAGWRD6\\t', 1},\n",
       " {'\\t\\tCS\\tMPAC\\t\\t', 1},\n",
       " {'\\t\\tCS\\tPROJMIN\\t\\t', 1},\n",
       " {'\\t\\tCS\\tTWO\\t\\t', 1},\n",
       " {'\\t\\tDAD\\t\\t\\t', 1},\n",
       " {'\\t\\tDAD\\tPDDL\\t\\t', 1},\n",
       " {'\\t\\tDAS\\tMPAC\\t\\t', 1},\n",
       " {'\\t\\tDAS\\tROOTPS\\t\\t', 1},\n",
       " {'\\t\\tDAS\\tTTF/8TMP\\t', 1},\n",
       " {'\\t\\tDAS\\tVDGVERT\\t\\t', 1},\n",
       " {'\\t\\tDCA\\tHDOTDISP\\t', 1},\n",
       " {'\\t\\tDCA\\tMPAC\\t\\t', 2},\n",
       " {'\\t\\tDCA\\tMPAC +3\\t\\t', 1},\n",
       " {'\\t\\tDCA\\tMPAC +5\\t\\t', 1},\n",
       " {'\\t\\tDCA\\tNEG0\\t\\t', 1},\n",
       " {'\\t\\tDCA\\tROOTPS\\t\\t', 1},\n",
       " {'\\t\\tDCS\\tMPAC\\t\\t', 1},\n",
       " {'\\t\\tDDV\\tBDDV\\t\\t', 1},\n",
       " {'\\t\\tDDV\\tDSU\\t\\t', 1},\n",
       " {'\\t\\tDDV\\tPDVL\\t\\t', 1},\n",
       " {'\\t\\tDEC\\t67\\t\\t', 1},\n",
       " {'\\t\\tDLOAD\\t\\t\\t', 1},\n",
       " {'\\t\\tDLOAD\\tDSU\\t\\t', 1},\n",
       " {'\\t\\tDLOAD\\tPUSH\\t\\t', 1},\n",
       " {'\\t\\tDSU\\tDSU\\t\\t', 1},\n",
       " {'\\t\\tDSU\\tPDDL\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\t3\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tBUF\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tDXCRIT\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tMPAC\\t\\t', 6},\n",
       " {'\\t\\tDXCH\\tMPAC +3\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tROOTPS\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tRUPTREG1\\t', 1},\n",
       " {'\\t\\tDXCH\\tTTF/8\\t\\t', 1},\n",
       " {'\\t\\tDXCH\\tVDGVERT\\t\\t', 1},\n",
       " {'\\t\\tEXIT\\t\\t\\t', 3},\n",
       " {'\\t\\tEXTEND\\t\\t\\t', 4},\n",
       " {'\\t\\tINCR\\tFLPASS0\\t\\t', 1},\n",
       " {'\\t\\tINCR\\tMODE\\t\\t', 1},\n",
       " {'\\t\\tINDEX\\tMPAC +3\\t\\t', 1},\n",
       " {\"\\t\\tIt is part of the source code for the Lunar Module's (LM)\", 1},\n",
       " {'\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:', 1},\n",
       " {'\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)', 1},\n",
       " {'\\t\\tMASK\\tBIT4\\t\\t', 1},\n",
       " {'\\t\\tN:\\tDIMINISH ZERLINA, CONTINUE', 1},\n",
       " {'\\t\\tOCT\\t0\\t\\t', 1},\n",
       " {'\\t\\tOCT\\t00035\\t\\t', 1},\n",
       " {'\\t\\tOCT\\t05023\\t\\t', 1},\n",
       " {'\\t\\tOCT\\t21000\\t\\t', 1},\n",
       " {'\\t\\tOCT\\t34\\t\\t', 1},\n",
       " {'\\t\\tPDDL\\tDDV\\t\\t', 2},\n",
       " {'\\t\\tPDDL\\tDMP\\t\\t', 1},\n",
       " {'\\t\\tPDDL\\tVDEF\\t\\t', 1},\n",
       " {'\\t\\tPDVL\\tABVAL\\t\\t', 1},\n",
       " {'\\t\\tPDVL\\tCALL\\t\\t', 1},\n",
       " {'\\t\\tPUSH\\tBDSU\\t\\t', 1},\n",
       " {'\\t\\tQXCH\\tRETROOT\\t\\t', 1},\n",
       " {'\\t\\tRGU = CG (R - LAND)', 1},\n",
       " {'\\t\\tRTB\\tDOT\\t\\t', 1},\n",
       " {'\\t\\tRTB\\tPUSH\\t\\t', 1},\n",
       " {'\\t\\tSETPD\\t\\t\\t', 1},\n",
       " {'\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:', 1},\n",
       " {'\\t\\tSLR\\tPUSH\\t\\t', 1},\n",
       " {'\\t\\tSTODL\\t/AFC/\\t\\t', 1},\n",
       " {'\\t\\tSTODL\\tHCALC1\\t\\t', 1},\n",
       " {'\\t\\tSTODL\\tHDOTDISP\\t', 1},\n",
       " {'\\t\\tSTODL\\tLASTTPIP\\t', 1},\n",
       " {'\\t\\tSTODL\\tTABLTTF +4\\t', 1},\n",
       " {'\\t\\tSTODL*\\tTABLTTF +2\\t', 1},\n",
       " {'\\t\\tSTODL*\\tTABLTTF +6\\t', 1},\n",
       " {'\\t\\tSTORE\\t30D\\t\\t', 1},\n",
       " {'\\t\\tSTORE\\tTABLTTF\\t\\t', 1},\n",
       " {'\\t\\tSTORE\\tUNFC/2\\t\\t', 1},\n",
       " {'\\t\\tSTORE\\tUNWC/2\\t\\t', 1},\n",
       " {'\\t\\tSTOVL\\t24D\\t\\t', 1},\n",
       " {'\\t\\tSTOVL\\tCG +6\\t\\t', 1},\n",
       " {'\\t\\tSTOVL\\tVHORIZ\\t\\t', 1},\n",
       " {'\\t\\tTC\\tBANKCALL\\t', 3},\n",
       " {'\\t\\tTC\\tCHECKMM\\t\\t', 1},\n",
       " {'\\t\\tTC\\tDMPNSUB\\t\\t', 1},\n",
       " {'\\t\\tTC\\tDOWNFLAG\\t', 3},\n",
       " {'\\t\\tTC\\tFASTCHNG\\t', 1},\n",
       " {'\\t\\tTC\\tPOWRSERS\\t', 2},\n",
       " {'\\t\\tTC\\tROOTPSRS\\t', 1},\n",
       " {'\\t\\tTC\\tSHORTMP\\t\\t', 1},\n",
       " {'\\t\\tTC\\tUPFLAG\\t\\t', 1},\n",
       " {'\\t\\tTCF\\t1406ALM\\t\\t', 1},\n",
       " {'\\t\\tTCF\\t1406P00\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tCALCRGVG\\t', 1},\n",
       " {'\\t\\tTCF\\tCGCALC\\t\\t', 2},\n",
       " {\"\\t\\tTCF\\tCOUNT'EM\\t\", 1},\n",
       " {'\\t\\tTCF\\tEXGSUB\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tEXNORM\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tGOTOP00H\\t', 1},\n",
       " {'\\t\\tTCF\\tGUILDRET\\t', 1},\n",
       " {'\\t\\tTCF\\tP64CEED\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tP64DISPS\\t', 2},\n",
       " {'\\t\\tTCF\\tP65START\\t', 1},\n",
       " {'\\t\\tTCF\\tP66VERT\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tP67VERT\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tPREMON1\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tPREMON2\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tREDESIG\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tRESUME\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tRGVGCALC\\t', 1},\n",
       " {'\\t\\tTCF\\tSTABL?\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tSTARTP64\\t', 1},\n",
       " {'\\t\\tTCF\\tSTARTP66\\t', 1},\n",
       " {'\\t\\tTCF\\tSTEER?\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tTTF/8CL\\t\\t', 2},\n",
       " {'\\t\\tTCF\\tTTFINCR\\t\\t', 1},\n",
       " {'\\t\\tTCF\\tVERTDISP\\t', 1},\n",
       " {'\\t\\tTCF\\tVERTGUID\\t', 2},\n",
       " {'\\t\\tTS\\t26D\\t\\t', 1},\n",
       " {'\\t\\tTS\\t28D\\t\\t', 1},\n",
       " {'\\t\\tTS\\t30D\\t\\t', 1},\n",
       " {'\\t\\tTS\\tBUF\\t\\t', 1},\n",
       " {'\\t\\tTS\\tDERPTR\\t\\t', 1},\n",
       " {'\\t\\tTS\\tEBANK\\t\\t', 1},\n",
       " {'\\t\\tTS\\tFLPASS0\\t\\t', 1},\n",
       " {'\\t\\tTS\\tL\\t\\t', 1},\n",
       " {'\\t\\tTS\\tLOOKANGL\\t', 1},\n",
       " {'\\t\\tTS\\tMODE\\t\\t', 1},\n",
       " {'\\t\\tTS\\tMPAC\\t\\t', 2},\n",
       " {'\\t\\tTS\\tMPAC +1\\t\\t', 1},\n",
       " {'\\t\\tTS\\tMPAC +2\\t\\t', 1},\n",
       " {'\\t\\tTS\\tMPAC +3\\t\\t', 1},\n",
       " {'\\t\\tTS\\tMPAC +5\\t\\t', 2},\n",
       " {'\\t\\tTS\\tMPAC +6\\t\\t', 1},\n",
       " {'\\t\\tTS\\tPWRPTR\\t\\t', 1},\n",
       " {'\\t\\tTS\\tTABLTTF +10\\t', 1},\n",
       " {'\\t\\tTS\\tTEMX\\t\\t', 1},\n",
       " {'\\t\\tTS\\tTEMY\\t\\t', 1},\n",
       " {'\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:', 1},\n",
       " {'\\t\\tVAD\\tPUSH\\t\\t', 1},\n",
       " {'\\t\\tVAD\\tSTADR\\t\\t', 1},\n",
       " {'\\t\\tVAD\\tVSR2\\t\\t', 1},\n",
       " {'\\t\\tVGU = CG (V - WM * R)', 1},\n",
       " {'\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )', 1},\n",
       " {'\\t\\tVLOAD\\t\\t\\t', 1},\n",
       " {'\\t\\tVLOAD\\tMXV\\t\\t', 1},\n",
       " {'\\t\\tVSU\\tPUSH\\t\\t', 1},\n",
       " {'\\t\\tVSU\\tVXSC\\t\\t', 1},\n",
       " {'\\t\\tVXSC\\tPDDL\\t\\t', 1},\n",
       " {'\\t\\tXCH\\tBUF +1\\t\\t', 1},\n",
       " {'\\t\\tY:\\tRESET RUPT. TERMINATE', 1},\n",
       " {'\\t\\t___   *   _   __   _', 1},\n",
       " {'\\t\\t___   *   _   ____', 1},\n",
       " {'\\t\\t___   4 (    TTF/8               )   ___', 1},\n",
       " {'\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)', 1},\n",
       " {'\\t\\t_______   _   _   __', 1},\n",
       " {'\\t                                               N        N-1', 1},\n",
       " {'\\t                                             N      N-1              1     0',\n",
       "  1},\n",
       " {'\\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.',\n",
       "  1},\n",
       " {'\\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT',\n",
       "  1},\n",
       " {'\\t    PRECLUDE EVENTUAL CONVERGENCE.', 1},\n",
       " {'\\t- RATE INCREMENT, BIT 6 + INCREMENT.', 1},\n",
       " {\"\\t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\",\n",
       "  1},\n",
       " {'\\t16:27 JULY 14, 1969', 1},\n",
       " {\"\\t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\",\n",
       "  1},\n",
       " {'\\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.',\n",
       "  1},\n",
       " {'\\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.',\n",
       "  1},\n",
       " {'\\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS', 1},\n",
       " {'\\tA\\tSP\\tLOC-3\\t\\tADRES FOR REFERENCING PWR COF TABL', 1},\n",
       " {'\\tAS HERE PROGRAMMED --', 1},\n",
       " {'\\tAS PUBLISHED --', 1},\n",
       " {'\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61', 1},\n",
       " {'\\tBEFORE TCGFAPPR IS REACHED', 1},\n",
       " {'\\tBY FORCING -TTF*LEADTIME > OR = ZERO', 1},\n",
       " {'\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2', 1},\n",
       " {\"\\tDON'T CALL THROTTLE OR FINDCDUW\", 1},\n",
       " {'\\tHORIZONTAL VELOCITY FOR DISPLAY', 1},\n",
       " {'\\tIS.', 1},\n",
       " {\"\\tJUST HIGHER THAN SERVICER'S PRIORITY\", 1},\n",
       " {'\\tKNOW WHEN READACCS CHANGES THEM.', 1},\n",
       " {'\\tL\\tSP\\tN-1\\t\\tN IS THE DEGREE OF THE POWER SERIES', 1},\n",
       " {'\\tLOC\\tDP\\tA(N)', 1},\n",
       " {'\\tLOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)', 1},\n",
       " {'\\tLOC-2N\\tDP\\tA(0)', 1},\n",
       " {'\\tMPAC\\tDP\\tX\\t\\tINITIAL GUESS FOR ROOT', 1},\n",
       " {'\\tN: \\tHAS ZERLINA REACHED ZERO YET?', 1},\n",
       " {'\\tOUTPUT AND TRIM CORRECTION TERM', 1},\n",
       " {'\\tRESTORED BY NEXT GUIDANCE CYCLE.', 1},\n",
       " {'\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--', 1},\n",
       " {'\\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A',\n",
       "  1},\n",
       " {'\\tSTATE IN GUIDANCE COORDINATES:', 1},\n",
       " {'\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --', 1},\n",
       " {'\\tVELOCITY RELATIVE TO THE SURFACE:', 1},\n",
       " {'\\tWCHPHASE =  0 ---> BRAKQUAD', 1},\n",
       " {'\\tWCHPHASE =  1 ---> APPRQUAD', 1},\n",
       " {'\\tWCHPHASE =  2 ---> VERTICAL', 1},\n",
       " {'\\tWCHPHASE = -1 ---> IGNALG', 1},\n",
       " {\"\\tY: \\tCOUNT 'EM, RESET RUPT, TERMINATE\", 1},\n",
       " {' \\t\\t(CONTINUE TO DISPEXIT)', 1},\n",
       " {' \\t\\t(CONTINUE TO QUADGUID)', 1},\n",
       " {' \\t\\tTCF\\tSTARTP67\\t', 1},\n",
       " {' \\tALTITUDE RATE.', 1},\n",
       " {' \\tDEPRESSION ANGLE FOR DISPLAY:', 1},\n",
       " {' \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --', 1},\n",
       " {' \\tTOO CLOSE TO THE HORIZON.', 1},\n",
       " {'                            1    0', 1},\n",
       " {'                        2    2    2', 1},\n",
       " {'                    ___        ____   _', 1},\n",
       " {'                 ____   _', 1},\n",
       " {'                2      2', 1},\n",
       " {'              2         2', 1},\n",
       " {'             2', 2},\n",
       " {'           2   1', 1},\n",
       " {'           _   ____', 1},\n",
       " {' (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       "  1},\n",
       " {' (I-1) TO MPAC, FETCHING DERCOF', 1},\n",
       " {' ************************', 1},\n",
       " {' ********************************************************', 2},\n",
       " {' **********************************************************', 2},\n",
       " {' ****************************************************************', 2},\n",
       " {' ******************************************************************', 2},\n",
       " {' *********************************************************************', 6},\n",
       " {' ***********************************************************************',\n",
       "  8},\n",
       " {' **************************************************************************',\n",
       "  6},\n",
       " {' ****************************************************************************',\n",
       "  2},\n",
       " {' *******************************************************************************',\n",
       "  2},\n",
       " {' *********************************************************************************',\n",
       "  6},\n",
       " {' ***********************************************************************************',\n",
       "  2},\n",
       " {' *************************************************************************************',\n",
       "  4},\n",
       " {' +0', 1},\n",
       " {' +3\\t\\tCS\\tFLAGWRD8\\t', 1},\n",
       " {' +PITCH', 1},\n",
       " {' - RATIO OF LAG-DIMINISHED TTF TO TTF', 1},\n",
       " {' -PITCH', 1},\n",
       " {' 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       "  1},\n",
       " {' 1/2 DEGREE', 1},\n",
       " {' 2 DEGREES', 1},\n",
       " {' 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       "  1},\n",
       " {' 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.', 1},\n",
       " {' 30-31D CONTAINS TIME IN CS SINCE PIPTIME', 1},\n",
       " {' A(0) = -24 (RGU  - RDG )/64 TO TABLTTF', 1},\n",
       " {' A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF', 1},\n",
       " {' A(2) = 6 ADG  TO TABLTTF', 1},\n",
       " {' A(3) = 8 JDG  TO TABLTTF', 1},\n",
       " {' A(N) TO MPAC', 1},\n",
       " {' ABS(DX)-ABS(DXCRIT) IN MPAC', 1},\n",
       " {' ADDRESS FOR REFERENCING TTF TABLE', 1},\n",
       " {' ALARM ROUTINE FOR TTF COMPUTATION:', 1},\n",
       " {' AMAXHORIZ = SQRT(ATOTAL - A  - A  )', 1},\n",
       " {' AND IN ROOTPS', 1},\n",
       " {' APPRQUAD', 8},\n",
       " {' ARE WE IN ATTITUDE-HOLD?', 2},\n",
       " {' AUGMENT TTF/8', 1},\n",
       " {' Assembler:\\tyaYUL', 1},\n",
       " {' BRAKQUAD', 8},\n",
       " {' COEFFICIENT FOR ADG TERM', 1},\n",
       " {' COEFFICIENT FOR RDG-RGU TERM', 1},\n",
       " {' COEFFICIENT FOR VDG TERM', 1},\n",
       " {' COEFFICIENT FOR VGU TERM', 1},\n",
       " {' COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT',\n",
       "  1},\n",
       " {' COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE',\n",
       "  1},\n",
       " {' COME HERE FROM MARKRUPT CODING WITH BIT', 1},\n",
       " {' COMPUTE CRITERION TO STOP ITERATING', 1},\n",
       " {' COMPUTE LOOKANGLE ITSELF', 1},\n",
       " {' COMPUTE STATE IN GUIDANCE COORDINATES', 1},\n",
       " {' COMPUTE TRIM VELOCITY CORRECTION TERM.', 1},\n",
       " {' CONVERGE ON ROOT', 1},\n",
       " {' CORRECTED ROOT NOW IN ROOTPS', 1},\n",
       " {' CORRECTED TTF/8', 1},\n",
       " {' CRITERION', 1},\n",
       " {' CURRENT ROOT TO MPAC, FETCHING DERIVATIVE', 1},\n",
       " {' Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.', 1},\n",
       " {' Copyright:\\tPublic domain.', 1},\n",
       " {' DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES', 1},\n",
       " {' DECREMENT DER POINTER', 1},\n",
       " {' DECREMENT PWR POINTER', 1},\n",
       " {' DEGREE - ONE', 1},\n",
       " {' DER TABL ADRES', 1},\n",
       " {' DER TABL POINTER', 1},\n",
       " {' DERCOF TO DER TABLE', 1},\n",
       " {' DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       "  1},\n",
       " {' DISPLAY ROUTINES:', 1},\n",
       " {' DO ANY BITS APPEAR THIS PASS?', 1},\n",
       " {' DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)', 1},\n",
       " {' ENABLE REDESIGNATION LOGIC', 1},\n",
       " {' ENABLE RUPT10', 1},\n",
       " {' ENTER HERE TO RECOMPUTE RG AND VG', 1},\n",
       " {' ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       "  1},\n",
       " {' ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX', 1},\n",
       " {' FETCH CURRENT ROOT', 1},\n",
       " {' FETCH DX, LEAVING -DX IN MPAC', 1},\n",
       " {' FETCH ROOT GUESS, KEEPING IT IN MPAC', 1},\n",
       " {' FETCH TTF/8 KEEPING IT IN MPAC', 1},\n",
       " {' FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       "  1},\n",
       " {' FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS', 1},\n",
       " {' FRACTIONAL PRECISION FOR TTF TO TABLE', 1},\n",
       " {' Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc', 1},\n",
       " {' GET COEFFICIENT FOR CG +14', 1},\n",
       " {' GET COEFFICIENT FOR UNIT(LAND - R)', 1},\n",
       " {' GOOD RETURN', 1},\n",
       " {' GROUP 3:  PROTECT GUIDANCE WITH PRIO 21', 1},\n",
       " {' GROUP 5:  RETAIN ONLY PIPA TASK', 1},\n",
       " {' GUIDANCE EQUATIONS:', 1},\n",
       " {' GUIDANCE FOR P65', 1},\n",
       " {' GUIDANCE FOR P66', 1},\n",
       " {' GUIDANCE LOOP DISPLAYS', 1},\n",
       " {' GUILDENSTERN:  AUTO-MODES MONITOR (R13)', 1},\n",
       " {' HAS THERE BEEN A RESTART?', 1},\n",
       " {' HAS TREDES REACHED ZERO?', 1},\n",
       " {' HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       "  1},\n",
       " {' IF FLUNDISP IS SET, NO DISPLAY THIS PASS', 1},\n",
       " {' IF NOT IN P64, NO REASON TO CONTINUE', 1},\n",
       " {' IF OVERFLOW ANYWHERE IN GUIDANCE', 1},\n",
       " {' IF STEERSW DOWN NO OUTPUTS', 1},\n",
       " {' IGNALG', 7},\n",
       " {' IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE', 1},\n",
       " {' IN IGNALG, COMPUTE V FROM INTEGRATION', 1},\n",
       " {' INCREMENT ITERATION COUNTER', 1},\n",
       " {' INCREMENT PASS COUNTER', 1},\n",
       " {' INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       "  1},\n",
       " {' INDICES FOR REFERENCING TARGET PARAMETERS', 1},\n",
       " {' INITIALIZATION FOR THIS PASS', 1},\n",
       " {' INITIALIZE REDESIGNATION FLAG', 1},\n",
       " {' IS REDFLAG SET?', 1},\n",
       " {' IS UN-ATTITUDE-HOLD DISCRETE PRESENT?', 1},\n",
       " {' IS UN-AUTO-THROTTLE DISCRETE PRESENT?', 1},\n",
       " {' KILL GROUP 3:  DISPLAYS WILL BE', 1},\n",
       " {' KILL GROUP 5', 1},\n",
       " {' KLUMPP SAYS GIVE UP AFTER EIGHT PASSES', 1},\n",
       " {' LANDING SITE PERTURBATION EQUATIONS', 1},\n",
       " {' LEADTIME IS A NEGATIVE NUMBER', 1},\n",
       " {' LEAVE DERIVATIVE IN BUF AS DIVISOR', 1},\n",
       " {' LEAVE IN MPAC', 1},\n",
       " {' LOAD A, L WITH DER TABL ADRES, N-2', 1},\n",
       " {' LOAD A, L WITH PWR TABL ADRES, N-1', 1},\n",
       " {' LOADS TTF/8 (INITIAL GUESS) INTO MPAC', 1},\n",
       " {' LOOKANGL FOR DISPLAY DURING P64', 1},\n",
       " {' LOOKANGL WILL BE COMPUTED AT RGVGCALC', 1},\n",
       " {' LOOP COUNTER', 1},\n",
       " {' LUNAR LANDING CONSTANTS', 1},\n",
       " {' LUNAR LANDING FLIGHT SEQUENCE TABLES', 1},\n",
       " {' MAGNITUDE OF AFC FOR THROTTLE', 1},\n",
       " {' MAIN GUIDANCE EQUATION', 1},\n",
       " {' MAKE SURE REDESIGNATION IS NOT', 1},\n",
       " {' MODE USED AS ITERATION COUNTER.  MODE', 1},\n",
       " {' MPAC = MEASURED ACCELERATION.', 1},\n",
       " {' MPAC(X) = PIPAX + PIPATMPX', 1},\n",
       " {' MPAC(Y) = PIPAY + PIPATMPY', 1},\n",
       " {' MPAC(Z) = PIPAZ + PIPATMPZ', 1},\n",
       " {\" MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\", 1},\n",
       " {' Mod history:\\t2009-05-23 HG\\tTranscribed from page images.', 1},\n",
       " {' N = 3', 1},\n",
       " {' N-1 TO A', 1},\n",
       " {' N-2', 1},\n",
       " {' N:\\tANY LAST PASS?', 1},\n",
       " {' NO', 1},\n",
       " {' NO HARM IN \"STARTING\" P67 OVER AND OVER', 1},\n",
       " {' NO POWER SERIES DEGREE 1 OR LESS', 1},\n",
       " {' NO SHIFT SINCE ANGTERM IS DOUBLE SIZED', 1},\n",
       " {' NO.', 1},\n",
       " {' NO. CONTINUE WITH AUTOMATIC LANDING', 1},\n",
       " {' NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?', 1},\n",
       " {' NO:  ARE WE IN P67 NOW?', 1},\n",
       " {' NO:  DO A STOPRATE', 1},\n",
       " {' NO:  IS REDFLAG SET?', 1},\n",
       " {' NO:  SKIP REDESIGNATION LOGIC', 1},\n",
       " {' NO: CONTINUE WITH R.O.D.', 1},\n",
       " {' NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT', 1},\n",
       " {' NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP', 1},\n",
       " {' NOW IN MPAC IS SINE(LOOKANGL)/4', 1},\n",
       " {' NUMERO MYSTERIOSO', 1},\n",
       " {' Notations on the hardcopy document read, in part:', 1},\n",
       " {' ON SUCCEEDING PASSES SKIP TTFINCR', 1},\n",
       " {' OTHERWISE USE FLASHING DISPLAY', 1},\n",
       " {' OUT-OF-PLANE', 1},\n",
       " {' OUTPUTS ARE NOT TO BE TRUSTED.', 1},\n",
       " {' P63', 1},\n",
       " {' P64', 1},\n",
       " {' P65, P66, P67', 1},\n",
       " {' PARAMETER TABLE INDIRECT ADDRESSES', 1},\n",
       " {' PERMIT X-AXIS OVERRIDE', 2},\n",
       " {' PICK UP UPDATED VELOCITY VECTOR.', 1},\n",
       " {' POSITIVE NON-ZERO ---> P67', 1},\n",
       " {' POST GUIDANCE EQUATION COMPUTATIONS:', 1},\n",
       " {' PRE-GUIDANCE COMPUTATIONS:', 1},\n",
       " {' PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD',\n",
       "  1},\n",
       " {' PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE',\n",
       "  1},\n",
       " {' PRECROOT TO A', 1},\n",
       " {' PREPARE FOR PHASE SWITCHING LOGIC', 1},\n",
       " {' PREPARE TO EXIT', 1},\n",
       " {' PROCEED\\tPERMIT REDESIGNATIONS', 1},\n",
       " {' PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))', 1},\n",
       " {' PUSH DOWN R - LAND', 1},\n",
       " {' PUSH DOWN UNIT (LAND - R)', 1},\n",
       " {' PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG', 1},\n",
       " {' PWR TABLE ADRES', 1},\n",
       " {' PWR TABLE ADRES, N-1', 1},\n",
       " {' PWR TABLE POINTER', 1},\n",
       " {' Page 798', 1},\n",
       " {' Page 799', 1},\n",
       " {' Page 800', 1},\n",
       " {' Page 801', 1},\n",
       " {' Page 802', 1},\n",
       " {' Page 803', 1},\n",
       " {' Page 804', 1},\n",
       " {' Page 805', 1},\n",
       " {' Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       "  1},\n",
       " {' Page 807', 1},\n",
       " {' Page 808', 1},\n",
       " {' Page 809', 1},\n",
       " {' Page 810', 1},\n",
       " {' Page 811', 1},\n",
       " {' Page 812', 1},\n",
       " {' Page 813', 1},\n",
       " {' Page 814', 1},\n",
       " {' Page 815', 1},\n",
       " {' Page 816', 1},\n",
       " {' Page 817', 1},\n",
       " {' Page 818', 1},\n",
       " {' Page 819', 1},\n",
       " {' Page 820', 1},\n",
       " {' Page 821', 1},\n",
       " {' Page 822', 1},\n",
       " {' Page 823', 1},\n",
       " {' Page 824', 1},\n",
       " {' Page 825', 1},\n",
       " {' Page 826', 1},\n",
       " {' Page 827', 1},\n",
       " {' Page 828', 1},\n",
       " {' Pages:\\t798-828', 1},\n",
       " {' Purpose: \\tPart of the source code for Luminary 1A build 099.', 1},\n",
       " {' R.O.D. TRAP', 1},\n",
       " {' RATIO SQUARED - RATIO', 1},\n",
       " {' RECYCLE', 1},\n",
       " {' REDESIGNATOR MONITOR (INITIATED BY PITFALL)', 1},\n",
       " {' REDESIGNATOR TRAP', 1},\n",
       " {' RESCALE TO UNITS OF 2(9) M/CS', 1},\n",
       " {' RESET FLPASS0', 1},\n",
       " {' RESET PUSH DOWN POINTER', 1},\n",
       " {' RESULT IS 0 IF PROJ - PROJMIN NEGATIVE', 1},\n",
       " {' RESULT IS 0 IF PROJMAX - PROJ NEGATIVE', 1},\n",
       " {' RESULTING VECTOR IS 1/2 REAL SIZE', 1},\n",
       " {' RETURN ADRES', 1},\n",
       " {' RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND',\n",
       "  1},\n",
       " {' ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:',\n",
       "  1},\n",
       " {' ROUTINES FOR EXITING FROM LANDING GUIDANCE', 1},\n",
       " {' ROUTINES FOR STARTING NEW GUIDANCE PHASES:', 1},\n",
       " {' ROUTINES TO START NEW PHASES', 1},\n",
       " {' RSB 2009: Not originally a comment.', 1},\n",
       " {' SAFEGUARD THE COMPUTATIONS THAT FOLLOW', 1},\n",
       " {' SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)', 1},\n",
       " {' SECOND ROW', 1},\n",
       " {' SET DESIRED ALTITUDE RATE = CURRENT', 1},\n",
       " {' SET OLDPIPAX,Y,Z = PIPAX,Y,Z', 1},\n",
       " {' SET PD TO 0', 1},\n",
       " {' SET RUPTREG1,2,3 = OLDPIPAX,Y,Z', 1},\n",
       " {' SET UP DER COF TABL', 1},\n",
       " {' SET X1 ON THE WAY TO THE INTERPRETER', 1},\n",
       " {' SHIFT SCALES DELTA TIME TO 2(17) CSECS', 1},\n",
       " {\" SIN(15')/8 TO COMPARE WITH PROJ\", 1},\n",
       " {\" SIN(25')/8 TO COMPARE WITH PROJ\", 1},\n",
       " {' SINCE REDESIG MAY CHANGE LANDTEMP', 1},\n",
       " {' SNAPSHOT TIME OF PIPA READING.', 1},\n",
       " {' SO NO NEED FOR A FASTCHNG AND NO NEED', 1},\n",
       " {' SOUND THE ALARM NON-ABORTIVELY', 1},\n",
       " {' SPECIALIZED \"PHASCHNG\" SUBROUTINE', 1},\n",
       " {\" SPECIALIZED 'PHASCHNG' ROUTINE\", 1},\n",
       " {' STERN\\t\\t\\t\\t\\t', 1},\n",
       " {' STORE ENTERING DATA, INITIALIZE ERASABLES', 1},\n",
       " {' STORE SP ITERATION COUNT IN MPAC+2', 1},\n",
       " {' STORE UPDATED VELOCITY IN 24-29D', 1},\n",
       " {' TEMPORARY, I HOPE HOPE HOPE', 2},\n",
       " {' TERMINATE', 1},\n",
       " {' TERMINATE GROUP 3.', 2},\n",
       " {' TEST HI ORDER DX', 1},\n",
       " {' TEST LO ORDER DX', 1},\n",
       " {' THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.',\n",
       "  1},\n",
       " {' THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM', 1},\n",
       " {' TO PICK UP THE TAG', 1},\n",
       " {' TO SEE IF ALREADY IN P67.', 1},\n",
       " {' TRAP IS RESET WHEN SWITCH IS RELEASED', 1},\n",
       " {' TRASHY LITTLE SUBROUTINES', 1},\n",
       " {' TREDES BECOMES ZERO TWO PASSES', 1},\n",
       " {' TTF/8 COMPUTATION', 1},\n",
       " {' This source code has been transcribed or otherwise adapted from', 1},\n",
       " {' UNFC/2 NEED NOT BE UNITIZED', 1},\n",
       " {' UNIT(LAND - R) IS TENTATIVE CHOICE', 1},\n",
       " {' UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE', 1},\n",
       " {' UPDATE DESIRED ALTITUDE RATE.', 1},\n",
       " {' UPDATE HCALC1 FOR NOUN 63.', 1},\n",
       " {' UPDATE HDOTDISP RATE FOR NOUN 63.', 1},\n",
       " {\" USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\",\n",
       "  1},\n",
       " {' VERGUID COMES HERE', 1},\n",
       " {' VERTICAL', 5},\n",
       " {' VERTICAL COMPONENT', 1},\n",
       " {' VHORIZ FOR DISPLAY DURING P65.', 1},\n",
       " {' WCHPHASE = 0   BRAKQUAD', 1},\n",
       " {' WCHPHASE = 1   APPRQUAD', 1},\n",
       " {' WCHPHASE = 2 ---> VERTICAL: P65,P66,P67', 1},\n",
       " {' WINDOW VECTOR COMPUTATIONS:', 1},\n",
       " {' WITH PROJ IN MPAC 1/8 REAL SIZE', 1},\n",
       " {' Website:\\twww.ibiblio.org/apollo.', 1},\n",
       " {' Y:\\tCONTINUE MONITOR', 1},\n",
       " {' YES', 3},\n",
       " {\" YES ALL'S WELL\", 1},\n",
       " {' YES.  REINITIALIZE BUT LEAVE VDGVERT AS', 1},\n",
       " {' YES. SWITCH INTO THE ROD MODE.', 1},\n",
       " {' YES:  DO STATIC DISPLAY', 1},\n",
       " {' YES:  HAS TREDES REACHED ZERO?', 1},\n",
       " {' YES:  SKIP REDESIGNATION LOGIC', 1},\n",
       " {' YES: CLEAR REDESIGNATION FLAG', 1},\n",
       " {' YES: SKIP REDESIGNATION LOGIC.', 1},\n",
       " {' YIELDS -DX IN MPAC', 1},\n",
       " {' YIELDS ABS(DX) IN MPAC', 1},\n",
       " {' YIELDS ABVAL OF CRITERION ON DX IN MPAC', 1},\n",
       " {' YIELDS DERCOF = I X A(I) IN MPAC', 1},\n",
       " {' YIELDS DERIVATIVE IN MPAC', 1},\n",
       " {' YIELDS DP PRODUCT IN MPAC', 1},\n",
       " {' YIELDS RESIDUAL IN MPAC', 1},\n",
       " {' YIELDS TTF/8 IN MPAC', 1},\n",
       " {' ZERO LO-ORDER MPAC COMPONENTS', 1},\n",
       " {' ZERO TEMX, TEMY, AND TEMZ SO WE WILL', 1},\n",
       " {' about getting access to the (much) higher-quality images which Paul', 1},\n",
       " {' actually created.', 1},\n",
       " {' available online at www.ibiblio.org/apollo.  If for some reason you', 1},\n",
       " {' digitized images of a hardcopy from the MIT Museum.  The digitization', 1},\n",
       " {' find that the images are illegible, contact me at info@sandroid.org', 1},\n",
       " {' in storage size and consequent reduction in image quality as well) are',\n",
       "  1},\n",
       " {' the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       "  1},\n",
       " {' was performed by Paul Fjeld, and arranged for by Deborah Douglas of', 1},\n",
       " {'*********************************************************', 1},\n",
       " {'*******************************************************************', 2},\n",
       " {'************************************************************************',\n",
       "  2},\n",
       " {'+ELBIT\\t\\t=\\tBIT2\\t\\t', 1},\n",
       " {'-2\\t\\tTC\\tPHASCHNG\\t', 1},\n",
       " {'-ELBIT\\t\\t=\\tBIT1\\t\\t', 1},\n",
       " {1, 'AFCCALC1\\tVXM\\tVSL1\\t\\t'},\n",
       " {1, 'AFCCALC2\\tSTODL\\t/AFC/\\t\\t'},\n",
       " {1, 'AFCSPOT\\t\\tDLOAD\\t\\t\\t'},\n",
       " {1, 'AFTRGUID\\tTCF\\tCGCALC\\t\\t'},\n",
       " {1, 'AZEACH\\t\\tDEC\\t.03491\\t\\t'},\n",
       " {1, 'CALCRGVG\\tTC\\tINTPRET\\t\\t'},\n",
       " {1, \"COUNT'EM\\tCAF\\tBIT13\\t\\t\"},\n",
       " {1, 'DERCLOOP\\tTS\\tPWRCNT\\t\\t'},\n",
       " {1, 'DESCBITS\\tMASK\\tBIT7\\t\\t'},\n",
       " {1, 'DISPEXIT\\tEXTEND\\t\\t\\t'},\n",
       " {1, 'ELEACH\\t\\tDEC\\t.00873\\t\\t'},\n",
       " {1, 'EXGSUB\\t\\tTC\\tINTPRET\\t\\t'},\n",
       " {1, 'EXOVFLOW\\tTC\\tALARM\\t\\t'},\n",
       " {1, 'EXTLOGIC\\tINDEX\\tWCHPHASE\\t'},\n",
       " {1, 'EXVERT\\t\\tCA\\tOVFIND\\t\\t'},\n",
       " {1, 'FASTCHNG\\tCA\\tEBANK3\\t\\t'},\n",
       " {1, 'GUIDSUB\\t\\tTS\\tNGUIDSUB\\t'},\n",
       " {1, 'GUILDEN\\t\\tEXTEND\\t\\t\\t'},\n",
       " {1, 'INTPRETX\\tINDEX\\tWCHPHASE\\t'},\n",
       " {1, 'ITRPNT1\\t\\tVXSC\\tPDDL\\t\\t'},\n",
       " {1, 'NEWPHASE\\tTCF\\tTTFINCR\\t\\t'},\n",
       " {1, 'P64DISPS\\tCA\\tTREDES\\t\\t'},\n",
       " {1, 'P66VERTA\\tTC\\tPHASCHNG\\t'},\n",
       " {1, 'P67NOW?\\t\\tTC\\tCHECKMM\\t\\t'},\n",
       " {1, 'P67VERT\\t\\tTC\\tPHASCHNG\\t'},\n",
       " {1, 'PREGUIDE\\tTCF\\tRGVGCALC\\t'},\n",
       " {1, 'PROJMAX\\t\\tDEC\\t.42262 B-3\\t'},\n",
       " {1, 'PROJMIN\\t\\tDEC\\t.25882 B-3\\t'},\n",
       " {1, 'RATESTOP\\tCAF\\tBIT13\\t\\t'},\n",
       " {1, 'REDESIG\\t\\tCA\\tFLAGWRD6\\t'},\n",
       " {1, 'RESETRPT\\tCAF\\tBIT12\\t\\t'},\n",
       " {1, 'RESTART?\\tCA\\tFLAGWRD1\\t'},\n",
       " {1, 'RGVGCALC\\tTC\\tINTPRET\\t\\t'},\n",
       " {1, 'STABL?\\t\\tCAF\\tBIT13\\t\\t'},\n",
       " {1, 'STARTP66\\tTC\\tFASTCHNG\\t'},\n",
       " {1, 'STARTP67\\tTC\\tNEWMODEX\\t'},\n",
       " {1, 'STEER?\\t\\tCA\\tFLAGWRD2\\t'},\n",
       " {1, 'TABLTTFL\\tADRES\\tTABLTTF +3\\t'},\n",
       " {1, 'TARGTDEX\\tOCT\\t0\\t\\t'},\n",
       " {1, 'TESTLODX\\tCCS\\tMPAC +1\\t\\t'},\n",
       " {1, 'V06N60\\t\\tVN\\t0660\\t\\t'},\n",
       " {1, 'V06N63\\t\\tVN\\t0663\\t\\t'},\n",
       " {1, 'V06N64\\t\\tVN\\t0664\\t\\t'},\n",
       " {1, 'WHATALM\\t\\tTCF\\t1406ALM\\t\\t'},\n",
       " {1, 'WHATDISP\\tTCF\\tP63DISPS\\t'},\n",
       " {1, 'WHATEXIT\\tTCF\\tEXBRAK\\t\\t'},\n",
       " {1, 'WHATGUID\\tTCF\\tTTF/8CL\\t\\t'}]"
      ]
     },
     "execution_count": 67,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "desc"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 70,
   "id": "ef7638f3",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['#',\n",
       " 'Copyright:',\n",
       " 'Public',\n",
       " 'domain.',\n",
       " '#',\n",
       " 'Filename:',\n",
       " 'LUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " '#',\n",
       " 'Purpose:',\n",
       " 'Part',\n",
       " 'of',\n",
       " 'the',\n",
       " 'source',\n",
       " 'code',\n",
       " 'for',\n",
       " 'Luminary',\n",
       " '1A',\n",
       " 'build',\n",
       " '099.',\n",
       " '#',\n",
       " 'It',\n",
       " 'is',\n",
       " 'part',\n",
       " 'of',\n",
       " 'the',\n",
       " 'source',\n",
       " 'code',\n",
       " 'for',\n",
       " 'the',\n",
       " 'Lunar',\n",
       " \"Module's\",\n",
       " '(LM)',\n",
       " '#',\n",
       " 'Apollo',\n",
       " 'Guidance',\n",
       " 'Computer',\n",
       " '(AGC),',\n",
       " 'for',\n",
       " 'Apollo',\n",
       " '11.',\n",
       " '#',\n",
       " 'Assembler:',\n",
       " 'yaYUL',\n",
       " '#',\n",
       " 'Contact:',\n",
       " 'HARTMUTH',\n",
       " 'GUTSCHE',\n",
       " '<hgutsche@xplornet.com>.',\n",
       " '#',\n",
       " 'Website:',\n",
       " 'www.ibiblio.org/apollo.',\n",
       " '#',\n",
       " 'Pages:',\n",
       " '798-828',\n",
       " '#',\n",
       " 'Mod',\n",
       " 'history:',\n",
       " '2009-05-23',\n",
       " 'HG',\n",
       " 'Transcribed',\n",
       " 'from',\n",
       " 'page',\n",
       " 'images.',\n",
       " '#',\n",
       " '2009-06-05',\n",
       " 'RSB',\n",
       " 'Fixed',\n",
       " 'a',\n",
       " 'goofy',\n",
       " 'thing',\n",
       " 'that',\n",
       " 'was',\n",
       " 'apparently',\n",
       " '#',\n",
       " 'legal',\n",
       " 'in',\n",
       " 'GAP',\n",
       " 'but',\n",
       " 'not',\n",
       " 'in',\n",
       " 'yaYUL.',\n",
       " 'Eliminated',\n",
       " '#',\n",
       " 'a',\n",
       " 'couple',\n",
       " 'of',\n",
       " 'lines',\n",
       " 'of',\n",
       " 'code',\n",
       " 'that',\n",
       " \"shouldn't\",\n",
       " '#',\n",
       " 'have',\n",
       " 'survived',\n",
       " 'from',\n",
       " 'Luminary',\n",
       " '131',\n",
       " 'to',\n",
       " 'here.',\n",
       " '#',\n",
       " '2009-06-07',\n",
       " 'RSB',\n",
       " 'Fixed',\n",
       " 'a',\n",
       " 'typo.',\n",
       " '#',\n",
       " '#',\n",
       " 'This',\n",
       " 'source',\n",
       " 'code',\n",
       " 'has',\n",
       " 'been',\n",
       " 'transcribed',\n",
       " 'or',\n",
       " 'otherwise',\n",
       " 'adapted',\n",
       " 'from',\n",
       " '#',\n",
       " 'digitized',\n",
       " 'images',\n",
       " 'of',\n",
       " 'a',\n",
       " 'hardcopy',\n",
       " 'from',\n",
       " 'the',\n",
       " 'MIT',\n",
       " 'Museum.',\n",
       " 'The',\n",
       " 'digitization',\n",
       " '#',\n",
       " 'was',\n",
       " 'performed',\n",
       " 'by',\n",
       " 'Paul',\n",
       " 'Fjeld,',\n",
       " 'and',\n",
       " 'arranged',\n",
       " 'for',\n",
       " 'by',\n",
       " 'Deborah',\n",
       " 'Douglas',\n",
       " 'of',\n",
       " '#',\n",
       " 'the',\n",
       " 'Museum.',\n",
       " 'Many',\n",
       " 'thanks',\n",
       " 'to',\n",
       " 'both.',\n",
       " 'The',\n",
       " 'images',\n",
       " '(with',\n",
       " 'suitable',\n",
       " 'reduction',\n",
       " '#',\n",
       " 'in',\n",
       " 'storage',\n",
       " 'size',\n",
       " 'and',\n",
       " 'consequent',\n",
       " 'reduction',\n",
       " 'in',\n",
       " 'image',\n",
       " 'quality',\n",
       " 'as',\n",
       " 'well)',\n",
       " 'are',\n",
       " '#',\n",
       " 'available',\n",
       " 'online',\n",
       " 'at',\n",
       " 'www.ibiblio.org/apollo.',\n",
       " 'If',\n",
       " 'for',\n",
       " 'some',\n",
       " 'reason',\n",
       " 'you',\n",
       " '#',\n",
       " 'find',\n",
       " 'that',\n",
       " 'the',\n",
       " 'images',\n",
       " 'are',\n",
       " 'illegible,',\n",
       " 'contact',\n",
       " 'me',\n",
       " 'at',\n",
       " 'info@sandroid.org',\n",
       " '#',\n",
       " 'about',\n",
       " 'getting',\n",
       " 'access',\n",
       " 'to',\n",
       " 'the',\n",
       " '(much)',\n",
       " 'higher-quality',\n",
       " 'images',\n",
       " 'which',\n",
       " 'Paul',\n",
       " '#',\n",
       " 'actually',\n",
       " 'created.',\n",
       " '#',\n",
       " '#',\n",
       " 'Notations',\n",
       " 'on',\n",
       " 'the',\n",
       " 'hardcopy',\n",
       " 'document',\n",
       " 'read,',\n",
       " 'in',\n",
       " 'part:',\n",
       " '#',\n",
       " '#',\n",
       " 'Assemble',\n",
       " 'revision',\n",
       " '001',\n",
       " 'of',\n",
       " 'AGC',\n",
       " 'program',\n",
       " 'LMY99',\n",
       " 'by',\n",
       " 'NASA',\n",
       " '2021112-61',\n",
       " '#',\n",
       " '16:27',\n",
       " 'JULY',\n",
       " '14,',\n",
       " '1969',\n",
       " '#',\n",
       " 'Page',\n",
       " '798',\n",
       " 'EBANK=',\n",
       " 'E2DPS',\n",
       " 'COUNT*',\n",
       " '$$/F2DPS',\n",
       " '#',\n",
       " '********************************************************',\n",
       " '#',\n",
       " 'LUNAR',\n",
       " 'LANDING',\n",
       " 'FLIGHT',\n",
       " 'SEQUENCE',\n",
       " 'TABLES',\n",
       " '#',\n",
       " '********************************************************',\n",
       " '#',\n",
       " 'FLIGHT',\n",
       " 'SEQUENCE',\n",
       " 'TABLES',\n",
       " 'ARE',\n",
       " 'ARRANGED',\n",
       " 'BY',\n",
       " 'FUNCTION.',\n",
       " 'THEY',\n",
       " 'ARE',\n",
       " 'REFERENCED',\n",
       " 'USING',\n",
       " 'AS',\n",
       " 'AN',\n",
       " 'INDEX',\n",
       " 'THE',\n",
       " 'REGISTER',\n",
       " 'WCHPHASE:',\n",
       " '#',\n",
       " 'WCHPHASE',\n",
       " '=',\n",
       " '-1',\n",
       " '--->',\n",
       " 'IGNALG',\n",
       " '#',\n",
       " 'WCHPHASE',\n",
       " '=',\n",
       " '0',\n",
       " '--->',\n",
       " 'BRAKQUAD',\n",
       " '#',\n",
       " 'WCHPHASE',\n",
       " '=',\n",
       " '1',\n",
       " '--->',\n",
       " 'APPRQUAD',\n",
       " '#',\n",
       " 'WCHPHASE',\n",
       " '=',\n",
       " '2',\n",
       " '--->',\n",
       " 'VERTICAL',\n",
       " '#*********************************************************',\n",
       " '#',\n",
       " 'ROUTINES',\n",
       " 'FOR',\n",
       " 'STARTING',\n",
       " 'NEW',\n",
       " 'GUIDANCE',\n",
       " 'PHASES:',\n",
       " 'TCF',\n",
       " 'TTFINCR',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'NEWPHASE',\n",
       " 'TCF',\n",
       " 'TTFINCR',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'STARTP64',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " 'TCF',\n",
       " 'P65START',\n",
       " '#',\n",
       " 'VERTICAL',\n",
       " '#',\n",
       " 'PRE-GUIDANCE',\n",
       " 'COMPUTATIONS:',\n",
       " 'TCF',\n",
       " 'CALCRGVG',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'PREGUIDE',\n",
       " 'TCF',\n",
       " 'RGVGCALC',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'REDESIG',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " 'TCF',\n",
       " 'RGVGCALC',\n",
       " '#',\n",
       " 'VERTICAL',\n",
       " '#',\n",
       " 'GUIDANCE',\n",
       " 'EQUATIONS:',\n",
       " 'TCF',\n",
       " 'TTF/8CL',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'WHATGUID',\n",
       " 'TCF',\n",
       " 'TTF/8CL',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'TTF/8CL',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " 'TCF',\n",
       " 'VERTGUID',\n",
       " '#',\n",
       " 'VERTICAL',\n",
       " '#',\n",
       " 'POST',\n",
       " 'GUIDANCE',\n",
       " 'EQUATION',\n",
       " 'COMPUTATIONS:',\n",
       " 'TCF',\n",
       " 'CGCALC',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'AFTRGUID',\n",
       " 'TCF',\n",
       " 'CGCALC',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'CGCALC',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " 'TCF',\n",
       " 'STEER?',\n",
       " '#',\n",
       " 'VERTICAL',\n",
       " '#',\n",
       " 'Page',\n",
       " '799',\n",
       " '#',\n",
       " 'WINDOW',\n",
       " 'VECTOR',\n",
       " 'COMPUTATIONS:',\n",
       " 'TCF',\n",
       " 'EXGSUB',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'WHATEXIT',\n",
       " 'TCF',\n",
       " 'EXBRAK',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'EXNORM',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " '#',\n",
       " 'DISPLAY',\n",
       " 'ROUTINES:',\n",
       " 'WHATDISP',\n",
       " 'TCF',\n",
       " 'P63DISPS',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " 'P64DISPS',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " 'TCF',\n",
       " 'VERTDISP',\n",
       " '#',\n",
       " 'VERTICAL',\n",
       " '#',\n",
       " 'ALARM',\n",
       " 'ROUTINE',\n",
       " 'FOR',\n",
       " 'TTF',\n",
       " 'COMPUTATION:',\n",
       " 'TCF',\n",
       " '1406P00',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'WHATALM',\n",
       " 'TCF',\n",
       " '1406ALM',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'TCF',\n",
       " '1406ALM',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " '#',\n",
       " 'INDICES',\n",
       " 'FOR',\n",
       " 'REFERENCING',\n",
       " 'TARGET',\n",
       " 'PARAMETERS',\n",
       " 'OCT',\n",
       " '0',\n",
       " '#',\n",
       " 'IGNALG',\n",
       " 'TARGTDEX',\n",
       " 'OCT',\n",
       " '0',\n",
       " '#',\n",
       " 'BRAKQUAD',\n",
       " 'OCT',\n",
       " '34',\n",
       " '#',\n",
       " 'APPRQUAD',\n",
       " '#************************************************************************',\n",
       " '#',\n",
       " 'ENTRY',\n",
       " 'POINTS:',\n",
       " '?GUIDSUB',\n",
       " 'FOR',\n",
       " 'THE',\n",
       " 'IGNITION',\n",
       " 'ALGORITHM,',\n",
       " 'LUNLAND',\n",
       " 'FOR',\n",
       " 'SERVOUT',\n",
       " '#************************************************************************',\n",
       " '#',\n",
       " 'IGNITION',\n",
       " 'ALGORITHM',\n",
       " 'ENTRY:',\n",
       " 'DELIVERS',\n",
       " 'N',\n",
       " 'PASSES',\n",
       " 'OF',\n",
       " 'QUADRATIC',\n",
       " 'GUIDANCE',\n",
       " '?GUIDSUB',\n",
       " 'EXIT',\n",
       " 'CAF',\n",
       " 'TWO',\n",
       " '#',\n",
       " 'N',\n",
       " '=',\n",
       " '3',\n",
       " 'TS',\n",
       " 'NGUIDSUB',\n",
       " 'TCF',\n",
       " 'GUILDRET',\n",
       " '+2',\n",
       " 'GUIDSUB',\n",
       " 'TS',\n",
       " 'NGUIDSUB',\n",
       " '#',\n",
       " 'ON',\n",
       " 'SUCCEEDING',\n",
       " 'PASSES',\n",
       " 'SKIP',\n",
       " 'TTFINCR',\n",
       " 'TCF',\n",
       " 'CALCRGVG',\n",
       " '#',\n",
       " 'NORMAL',\n",
       " 'ENTRY:',\n",
       " 'CONTROL',\n",
       " 'COMES',\n",
       " 'HERE',\n",
       " 'FROM',\n",
       " 'SERVOUT',\n",
       " 'LUNLAND',\n",
       " 'TC',\n",
       " 'PHASCHNG',\n",
       " 'OCT',\n",
       " '00035',\n",
       " '#',\n",
       " 'GROUP',\n",
       " '5:',\n",
       " 'RETAIN',\n",
       " 'ONLY',\n",
       " 'PIPA',\n",
       " 'TASK',\n",
       " 'TC',\n",
       " 'PHASCHNG',\n",
       " 'OCT',\n",
       " '05023',\n",
       " '#',\n",
       " 'GROUP',\n",
       " '3:',\n",
       " 'PROTECT',\n",
       " 'GUIDANCE',\n",
       " 'WITH',\n",
       " 'PRIO',\n",
       " '21',\n",
       " 'OCT',\n",
       " '21000',\n",
       " '#',\n",
       " 'JUST',\n",
       " 'HIGHER',\n",
       " 'THAN',\n",
       " \"SERVICER'S\",\n",
       " 'PRIORITY',\n",
       " '#',\n",
       " 'Page',\n",
       " '800',\n",
       " '#*******************************************************************',\n",
       " '#',\n",
       " 'GUILDENSTERN:',\n",
       " 'AUTO-MODES',\n",
       " 'MONITOR',\n",
       " '(R13)',\n",
       " '#*******************************************************************',\n",
       " 'COUNT*',\n",
       " '$$/R13',\n",
       " '#',\n",
       " 'HERE',\n",
       " 'IS',\n",
       " 'THE',\n",
       " 'PHILOSOPHY',\n",
       " 'OF',\n",
       " 'GUILDENSTERN:',\n",
       " 'ON',\n",
       " 'EVERY',\n",
       " 'APPEARANCE',\n",
       " 'OR',\n",
       " 'DISAPPEARANCE',\n",
       " 'OF',\n",
       " 'THE',\n",
       " 'MANUAL',\n",
       " 'THROTTLE',\n",
       " '#',\n",
       " 'DISCRETE',\n",
       " 'TO',\n",
       " 'SELECT',\n",
       " 'P67',\n",
       " 'OR',\n",
       " 'P66',\n",
       " 'RESPECTIVELY:',\n",
       " 'ON',\n",
       " 'EVERY',\n",
       " 'APPEARANCE',\n",
       " 'OF',\n",
       " 'THE',\n",
       " 'ATTITUDE-HOLD',\n",
       " 'DISCRETE',\n",
       " 'TO',\n",
       " 'SELECT',\n",
       " 'P66',\n",
       " '#',\n",
       " 'UNLESS',\n",
       " 'THE',\n",
       " 'CURRENT',\n",
       " 'PROGRAM',\n",
       " 'IS',\n",
       " 'P67',\n",
       " 'IN',\n",
       " 'WHICH',\n",
       " 'CASE',\n",
       " 'THERE',\n",
       " 'IS',\n",
       " 'NO',\n",
       " 'CHANGE',\n",
       " 'GUILDEN',\n",
       " 'EXTEND',\n",
       " '#',\n",
       " 'IS',\n",
       " 'UN-AUTO-THROTTLE',\n",
       " 'DISCRETE',\n",
       " 'PRESENT?',\n",
       " '#',\n",
       " 'STERN',\n",
       " '#',\n",
       " 'RSB',\n",
       " '2009:',\n",
       " 'Not',\n",
       " 'originally',\n",
       " 'a',\n",
       " 'comment.',\n",
       " 'READ',\n",
       " 'CHAN30',\n",
       " 'MASK',\n",
       " 'BIT5',\n",
       " 'CCS',\n",
       " 'A',\n",
       " 'TCF',\n",
       " 'STARTP67',\n",
       " '#',\n",
       " 'YES',\n",
       " 'P67NOW?',\n",
       " 'TC',\n",
       " 'CHECKMM',\n",
       " '#',\n",
       " 'NO:',\n",
       " 'ARE',\n",
       " 'WE',\n",
       " 'IN',\n",
       " 'P67',\n",
       " 'NOW?',\n",
       " 'DEC',\n",
       " '67',\n",
       " 'TCF',\n",
       " 'STABL?',\n",
       " '#',\n",
       " 'NO',\n",
       " 'STARTP66',\n",
       " 'TC',\n",
       " 'FASTCHNG',\n",
       " '#',\n",
       " 'YES',\n",
       " 'TC',\n",
       " 'NEWMODEX',\n",
       " 'DEC66',\n",
       " 'DEC',\n",
       " '66',\n",
       " 'EXTEND',\n",
       " 'DCA',\n",
       " 'HDOTDISP',\n",
       " '#',\n",
       " 'SET',\n",
       " 'DESIRED',\n",
       " 'ALTITUDE',\n",
       " 'RATE',\n",
       " '=',\n",
       " 'CURRENT',\n",
       " 'DXCH',\n",
       " 'VDGVERT',\n",
       " '#',\n",
       " 'ALTITUDE',\n",
       " 'RATE.',\n",
       " 'STRTP66A',\n",
       " 'TC',\n",
       " 'INTPRET',\n",
       " 'SLOAD',\n",
       " 'PUSH',\n",
       " 'PBIASZ',\n",
       " 'SLOAD',\n",
       " 'PUSH',\n",
       " 'PBIASY',\n",
       " 'SLOAD',\n",
       " 'VDEF',\n",
       " 'PBIASX',\n",
       " 'VXSC',\n",
       " 'SET',\n",
       " 'BIASFACT',\n",
       " 'RODFLAG',\n",
       " 'STOVL',\n",
       " 'VBIAS',\n",
       " 'TEMX',\n",
       " 'VCOMP',\n",
       " 'STOVL',\n",
       " 'OLDPIPAX',\n",
       " 'ZEROVECS',\n",
       " 'STODL',\n",
       " 'DELVROD',\n",
       " 'RODSCALE',\n",
       " 'STODL',\n",
       " 'RODSCAL1',\n",
       " 'PIPTIME',\n",
       " 'STORE',\n",
       " 'LASTTPIP',\n",
       " 'EXIT',\n",
       " 'CAF',\n",
       " 'ZERO',\n",
       " 'TS',\n",
       " 'FCOLD',\n",
       " 'TS',\n",
       " 'FWEIGHT',\n",
       " 'TS',\n",
       " 'FWEIGHT',\n",
       " '+1',\n",
       " 'VRTSTART',\n",
       " 'TS',\n",
       " 'WCHVERT',\n",
       " '#',\n",
       " 'Page',\n",
       " '801',\n",
       " 'CAF',\n",
       " 'TWO',\n",
       " '#',\n",
       " 'WCHPHASE',\n",
       " '=',\n",
       " '2',\n",
       " '--->',\n",
       " 'VERTICAL:',\n",
       " 'P65,P66,P67',\n",
       " 'TS',\n",
       " 'WCHPHOLD',\n",
       " 'TS',\n",
       " 'WCHPHASE',\n",
       " 'TC',\n",
       " 'BANKCALL',\n",
       " '#',\n",
       " 'TEMPORARY,',\n",
       " 'I',\n",
       " 'HOPE',\n",
       " 'HOPE',\n",
       " 'HOPE',\n",
       " 'CADR',\n",
       " 'STOPRATE',\n",
       " '#',\n",
       " 'TEMPORARY,',\n",
       " 'I',\n",
       " 'HOPE',\n",
       " 'HOPE',\n",
       " 'HOPE',\n",
       " 'TC',\n",
       " 'DOWNFLAG',\n",
       " '#',\n",
       " 'PERMIT',\n",
       " 'X-AXIS',\n",
       " 'OVERRIDE',\n",
       " 'ADRES',\n",
       " 'XOVINFLG',\n",
       " 'TC',\n",
       " 'DOWNFLAG',\n",
       " 'ADRES',\n",
       " 'REDFLAG',\n",
       " 'TCF',\n",
       " 'VERTGUID',\n",
       " 'STARTP67',\n",
       " 'TC',\n",
       " 'NEWMODEX',\n",
       " '#',\n",
       " 'NO',\n",
       " 'HARM',\n",
       " 'IN',\n",
       " '\"STARTING\"',\n",
       " 'P67',\n",
       " 'OVER',\n",
       " 'AND',\n",
       " 'OVER',\n",
       " 'DEC',\n",
       " '67',\n",
       " '#',\n",
       " 'SO',\n",
       " 'NO',\n",
       " 'NEED',\n",
       " 'FOR',\n",
       " 'A',\n",
       " 'FASTCHNG',\n",
       " 'AND',\n",
       " 'NO',\n",
       " 'NEED',\n",
       " 'CAF',\n",
       " 'ZERO',\n",
       " '#',\n",
       " 'TO',\n",
       " 'SEE',\n",
       " 'IF',\n",
       " 'ALREADY',\n",
       " 'IN',\n",
       " 'P67.',\n",
       " 'TS',\n",
       " 'RODCOUNT',\n",
       " 'CAF',\n",
       " 'TEN',\n",
       " 'TCF',\n",
       " 'VRTSTART',\n",
       " 'STABL?',\n",
       " 'CAF',\n",
       " 'BIT13',\n",
       " '#',\n",
       " 'IS',\n",
       " 'UN-ATTITUDE-HOLD',\n",
       " 'DISCRETE',\n",
       " 'PRESENT?',\n",
       " 'EXTEND',\n",
       " 'RAND',\n",
       " 'CHAN31',\n",
       " 'CCS',\n",
       " 'A',\n",
       " 'TCF',\n",
       " 'GUILDRET',\n",
       " '#',\n",
       " 'YES',\n",
       " \"ALL'S\",\n",
       " 'WELL',\n",
       " 'P66NOW?',\n",
       " 'CS',\n",
       " 'MODREG',\n",
       " 'AD',\n",
       " 'DEC66',\n",
       " 'EXTEND',\n",
       " 'BZF',\n",
       " 'RESTART?',\n",
       " 'CA',\n",
       " 'RODCOUNT',\n",
       " '#',\n",
       " 'NO.',\n",
       " 'HAS',\n",
       " 'THE',\n",
       " 'ROD',\n",
       " 'SWITCH',\n",
       " 'BEEN',\n",
       " '\"CLICKED\"?',\n",
       " 'EXTEND',\n",
       " 'BZF',\n",
       " 'GUILDRET',\n",
       " '#',\n",
       " 'NO.',\n",
       " 'CONTINUE',\n",
       " 'WITH',\n",
       " 'AUTOMATIC',\n",
       " 'LANDING',\n",
       " 'TCF',\n",
       " 'STARTP66',\n",
       " '#',\n",
       " 'YES.',\n",
       " 'SWITCH',\n",
       " 'INTO',\n",
       " 'THE',\n",
       " 'ROD',\n",
       " 'MODE.',\n",
       " 'RESTART?',\n",
       " 'CA',\n",
       " 'FLAGWRD1',\n",
       " '#',\n",
       " 'HAS',\n",
       " 'THERE',\n",
       " 'BEEN',\n",
       " 'A',\n",
       " 'RESTART?',\n",
       " 'MASK',\n",
       " 'RODFLBIT',\n",
       " 'EXTEND',\n",
       " 'BZF',\n",
       " 'STRTP66A',\n",
       " '#',\n",
       " 'YES.',\n",
       " 'REINITIALIZE',\n",
       " 'BUT',\n",
       " 'LEAVE',\n",
       " 'VDGVERT',\n",
       " 'AS',\n",
       " '#',\n",
       " 'IS.',\n",
       " 'TCF',\n",
       " 'VERTGUID',\n",
       " '#',\n",
       " 'NO:',\n",
       " 'CONTINUE',\n",
       " 'WITH',\n",
       " 'R.O.D.',\n",
       " '#',\n",
       " '*******************************************************************************',\n",
       " '#',\n",
       " 'INITIALIZATION',\n",
       " 'FOR',\n",
       " 'THIS',\n",
       " 'PASS',\n",
       " '#',\n",
       " '*******************************************************************************',\n",
       " 'COUNT*',\n",
       " '$$/F2DPS',\n",
       " 'GUILDRET',\n",
       " 'CAF',\n",
       " 'ZERO',\n",
       " 'TS',\n",
       " 'RODCOUNT',\n",
       " '#',\n",
       " 'Page',\n",
       " '802',\n",
       " '+2',\n",
       " 'EXTEND',\n",
       " 'DCA',\n",
       " 'TPIP',\n",
       " 'DXCH',\n",
       " 'TPIPOLD',\n",
       " 'TC',\n",
       " 'FASTCHNG',\n",
       " 'EXTEND',\n",
       " 'DCA',\n",
       " 'PIPTIME1',\n",
       " 'DXCH',\n",
       " 'TPIP',\n",
       " 'EXTEND',\n",
       " 'DCA',\n",
       " 'TTF/8',\n",
       " 'DXCH',\n",
       " 'TTF/8TMP',\n",
       " 'CCS',\n",
       " 'FLPASS0',\n",
       " 'TCF',\n",
       " 'TTFINCR',\n",
       " 'BRSPOT1',\n",
       " 'INDEX',\n",
       " 'WCHPHASE',\n",
       " 'TCF',\n",
       " 'NEWPHASE',\n",
       " '#',\n",
       " '******************************************************************',\n",
       " '#',\n",
       " 'ROUTINES',\n",
       " 'TO',\n",
       " 'START',\n",
       " 'NEW',\n",
       " 'PHASES',\n",
       " '#',\n",
       " '******************************************************************',\n",
       " 'P65START',\n",
       " 'TC',\n",
       " 'NEWMODEX',\n",
       " 'DEC',\n",
       " '65',\n",
       " 'CS',\n",
       " 'TWO',\n",
       " 'TS',\n",
       " 'WCHVERT',\n",
       " 'TC',\n",
       " 'DOWNFLAG',\n",
       " '#',\n",
       " 'PERMIT',\n",
       " 'X-AXIS',\n",
       " 'OVERRIDE',\n",
       " 'ADRES',\n",
       " 'XOVINFLG',\n",
       " 'TCF',\n",
       " 'TTFINCR',\n",
       " 'STARTP64',\n",
       " 'TC',\n",
       " 'NEWMODEX',\n",
       " 'DEC',\n",
       " '64',\n",
       " 'CA',\n",
       " 'DELTTFAP',\n",
       " '#',\n",
       " 'AUGMENT',\n",
       " 'TTF/8',\n",
       " 'ADS',\n",
       " 'TTF/8TMP',\n",
       " 'CA',\n",
       " 'BIT12',\n",
       " '#',\n",
       " 'ENABLE',\n",
       " 'RUPT10',\n",
       " 'EXTEND',\n",
       " 'WOR',\n",
       " 'CHAN13',\n",
       " 'TC',\n",
       " 'DOWNFLAG',\n",
       " '#',\n",
       " 'INITIALIZE',\n",
       " 'REDESIGNATION',\n",
       " 'FLAG',\n",
       " 'ADRES',\n",
       " 'REDFLAG',\n",
       " '#',\n",
       " '(CONTINUE',\n",
       " 'TO',\n",
       " 'TTFINCR)',\n",
       " '#',\n",
       " '*********************************************************************************',\n",
       " '#',\n",
       " 'INCREMENT',\n",
       " 'TTF/8,',\n",
       " 'UPDATE',\n",
       " 'LAND',\n",
       " 'FOR',\n",
       " 'LUNAR',\n",
       " 'ROTATION,',\n",
       " 'DO',\n",
       " 'OTHER',\n",
       " 'USEFUL',\n",
       " 'THINGS',\n",
       " '#',\n",
       " '*********************************************************************************',\n",
       " ...]"
      ]
     },
     "execution_count": 70,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "corpus= helloContent.split()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "99bc5795",
   "metadata": {},
   "outputs": [],
   "source": [
    "for word in corpus:\n",
    "    if word in sensoryarray:\n",
    "        fillColor(lookup[word])\n",
    "        text(\"word\")\n",
    "        positionincrement"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "0b788b3b",
   "metadata": {},
   "outputs": [],
   "source": [
    "ten most used words"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 71,
   "id": "b8e98e20",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t',\n",
       " '\\t\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t\\t(8)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(0)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2)',\n",
       " '\\t\\t\\t\\t(2), (4), OR (6)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(4)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(6)',\n",
       " '\\t\\t\\t\\t(8)',\n",
       " \"\\t\\t\\t\\ta couple of lines of code that shouldn't\",\n",
       " '\\t\\t\\t\\thave survived from Luminary 131 to here.',\n",
       " '\\t\\t\\t\\tlegal in GAP but not in yaYUL.  Eliminated',\n",
       " '\\t\\t\\t                 ____   _',\n",
       " '\\t\\t\\t0\\t\\t',\n",
       " '\\t\\t\\tADG2TTF,1\\t',\n",
       " '\\t\\t\\tCG\\t\\t',\n",
       " '\\t\\t\\tGAINBRAK,1\\t',\n",
       " '\\t\\t\\tLAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)',\n",
       " '\\t\\t\\tMASS\\t\\t',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '\\t\\t\\tR\\t\\t',\n",
       " '\\t\\t\\tRANGEDSP = ABVAL(LAND - R)',\n",
       " '\\t\\t\\tRDG +4,1\\t',\n",
       " '\\t\\t\\tTTF/8 = TTF/8 + (TPIP - TPIPOLD)/8',\n",
       " '\\t\\t\\tUNFC/2\\t\\t',\n",
       " '\\t\\t\\tUNFC/2 +2\\t',\n",
       " '\\t\\t\\tVATT1\\t\\t',\n",
       " '\\t\\t\\tVGU \\t+4\\t',\n",
       " '\\t\\t\\tYNBPIP\\t\\t',\n",
       " '\\t\\t\\tZEROVECS\\t',\n",
       " '\\t\\t\\t____               ____   ____                   __',\n",
       " '\\t\\t                       2    1',\n",
       " '\\t\\t                       _   ____  ______',\n",
       " '\\t\\t                  TTF/8',\n",
       " '\\t\\t                TTF        (TTF)(TTF)',\n",
       " '\\t\\t              ___   __       ___   __',\n",
       " '\\t\\t             ___   __',\n",
       " '\\t\\t        TAUVERT',\n",
       " '\\t\\t      - (------------- + VDG + VG)',\n",
       " '\\t\\t      3 (1/4(RDG - RG)   ___   __)',\n",
       " '\\t\\t      V2FG - VGU',\n",
       " '\\t\\t      ____   ___',\n",
       " '\\t\\t(CONTINUE TO EXTLOGIC)',\n",
       " '\\t\\t(CONTINUE TO TTFINCR)',\n",
       " '\\t\\t...',\n",
       " '\\t\\t2009-06-05 RSB\\tFixed a goofy thing that was apparently',\n",
       " '\\t\\t2009-06-07 RSB\\tFixed a typo.',\n",
       " '\\t\\tABVAL\\tPDDL\\t\\t',\n",
       " '\\t\\tACG = ----------',\n",
       " '\\t\\tACG = ---------------------------- + ADG',\n",
       " '\\t\\tACG = ADG + ----------- + ------------',\n",
       " '\\t\\tAD\\tLEADTIME\\t',\n",
       " '\\t\\tAD\\tPOSMAX\\t\\t',\n",
       " '\\t\\tADS\\tBUF\\t\\t',\n",
       " '\\t\\tADS\\tBUF +1\\t\\t',\n",
       " '\\t\\tADS\\tDERPTR\\t\\t',\n",
       " '\\t\\tADS\\tPWRPTR\\t\\t',\n",
       " '\\t\\tANGTERM = V + R * WM',\n",
       " '\\t\\tApollo Guidance Computer (AGC), for Apollo 11.',\n",
       " '\\t\\tBDDV\\tSTADR\\t\\t',\n",
       " '\\t\\tBMN\\tDLOAD\\t\\t',\n",
       " '\\t\\tBPL\\tDLOAD\\t\\t',\n",
       " '\\t\\tBZF\\tDISPEXIT\\t',\n",
       " '\\t\\tBZF\\tENDLLJOB\\t',\n",
       " '\\t\\tBZF\\tGUILDRET\\t',\n",
       " '\\t\\tBZF\\tRED-OVER\\t',\n",
       " '\\t\\tBZF\\tREDES-OK\\t',\n",
       " '\\t\\tBZF\\tRESETRPT\\t',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " '\\t\\tBZF\\tRGVGCALC\\t',\n",
       " '\\t\\tBZF\\tSTRTP66A\\t',\n",
       " '\\t\\tCA\\t5\\t\\t',\n",
       " '\\t\\tCA\\tBIT12\\t\\t',\n",
       " '\\t\\tCA\\tDELTTFAP\\t',\n",
       " '\\t\\tCA\\tEBANK5\\t\\t',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t',\n",
       " '\\t\\tCA\\tFIXLOC\\t\\t',\n",
       " '\\t\\tCA\\tL\\t\\t',\n",
       " '\\t\\tCA\\tMPAC\\t\\t',\n",
       " '\\t\\tCA\\tMPAC +4\\t\\t',\n",
       " '\\t\\tCA\\tRODCOUNT\\t',\n",
       " '\\t\\tCA\\tTENDBRAK\\t',\n",
       " '\\t\\tCA\\tTREDES\\t\\t',\n",
       " '\\t\\tCA\\tWCHPHASE\\t',\n",
       " '\\t\\tCA\\tZERO\\t\\t',\n",
       " '\\t\\tCADR\\tABS\\t\\t',\n",
       " '\\t\\tCADR\\tABS\\t\\t',\n",
       " '\\t\\tCADR\\tDDV/BDDV\\t',\n",
       " '\\t\\tCADR\\tSTOPRATE\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tTWO\\t\\t',\n",
       " '\\t\\tCAF\\tV06N64\\t\\t',\n",
       " '\\t\\tCAF\\tZERO\\t\\t',\n",
       " '\\t\\tCCS\\tA\\t\\t',\n",
       " '\\t\\tCCS\\tELVIRA\\t\\t',\n",
       " '\\t\\tCCS\\tL\\t\\t',\n",
       " '\\t\\tCCS\\tMPAC\\t\\t',\n",
       " '\\t\\tCCS\\tMPAC +4\\t\\t',\n",
       " '\\t\\tCCS\\tZERLINA\\t\\t',\n",
       " '\\t\\tCOUNT*\\t$$/F2DPS\\t',\n",
       " '\\t\\tCS\\tFLAGWRD6\\t',\n",
       " '\\t\\tCS\\tMPAC\\t\\t',\n",
       " '\\t\\tCS\\tPROJMIN\\t\\t',\n",
       " '\\t\\tCS\\tTWO\\t\\t',\n",
       " '\\t\\tDAD\\t\\t\\t',\n",
       " '\\t\\tDAD\\tPDDL\\t\\t',\n",
       " '\\t\\tDAS\\tMPAC\\t\\t',\n",
       " '\\t\\tDAS\\tROOTPS\\t\\t',\n",
       " '\\t\\tDAS\\tTTF/8TMP\\t',\n",
       " '\\t\\tDAS\\tVDGVERT\\t\\t',\n",
       " '\\t\\tDCA\\tHDOTDISP\\t',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC +3\\t\\t',\n",
       " '\\t\\tDCA\\tMPAC +5\\t\\t',\n",
       " '\\t\\tDCA\\tNEG0\\t\\t',\n",
       " '\\t\\tDCA\\tROOTPS\\t\\t',\n",
       " '\\t\\tDCS\\tMPAC\\t\\t',\n",
       " '\\t\\tDDV\\tBDDV\\t\\t',\n",
       " '\\t\\tDDV\\tDSU\\t\\t',\n",
       " '\\t\\tDDV\\tPDVL\\t\\t',\n",
       " '\\t\\tDEC\\t67\\t\\t',\n",
       " '\\t\\tDLOAD\\t\\t\\t',\n",
       " '\\t\\tDLOAD\\tDSU\\t\\t',\n",
       " '\\t\\tDLOAD\\tPUSH\\t\\t',\n",
       " '\\t\\tDSU\\tDSU\\t\\t',\n",
       " '\\t\\tDSU\\tPDDL\\t\\t',\n",
       " '\\t\\tDXCH\\t3\\t\\t',\n",
       " '\\t\\tDXCH\\tBUF\\t\\t',\n",
       " '\\t\\tDXCH\\tDXCRIT\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC\\t\\t',\n",
       " '\\t\\tDXCH\\tMPAC +3\\t\\t',\n",
       " '\\t\\tDXCH\\tROOTPS\\t\\t',\n",
       " '\\t\\tDXCH\\tRUPTREG1\\t',\n",
       " '\\t\\tDXCH\\tTTF/8\\t\\t',\n",
       " '\\t\\tDXCH\\tVDGVERT\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXIT\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tEXTEND\\t\\t\\t',\n",
       " '\\t\\tINCR\\tFLPASS0\\t\\t',\n",
       " '\\t\\tINCR\\tMODE\\t\\t',\n",
       " '\\t\\tINDEX\\tMPAC +3\\t\\t',\n",
       " \"\\t\\tIt is part of the source code for the Lunar Module's (LM)\",\n",
       " '\\t\\tLANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:',\n",
       " '\\t\\tLOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)',\n",
       " '\\t\\tMASK\\tBIT4\\t\\t',\n",
       " '\\t\\tN:\\tDIMINISH ZERLINA, CONTINUE',\n",
       " '\\t\\tOCT\\t0\\t\\t',\n",
       " '\\t\\tOCT\\t00035\\t\\t',\n",
       " '\\t\\tOCT\\t05023\\t\\t',\n",
       " '\\t\\tOCT\\t21000\\t\\t',\n",
       " '\\t\\tOCT\\t34\\t\\t',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t',\n",
       " '\\t\\tPDDL\\tDDV\\t\\t',\n",
       " '\\t\\tPDDL\\tDMP\\t\\t',\n",
       " '\\t\\tPDDL\\tVDEF\\t\\t',\n",
       " '\\t\\tPDVL\\tABVAL\\t\\t',\n",
       " '\\t\\tPDVL\\tCALL\\t\\t',\n",
       " '\\t\\tPUSH\\tBDSU\\t\\t',\n",
       " '\\t\\tQXCH\\tRETROOT\\t\\t',\n",
       " '\\t\\tRGU = CG (R - LAND)',\n",
       " '\\t\\tRTB\\tDOT\\t\\t',\n",
       " '\\t\\tRTB\\tPUSH\\t\\t',\n",
       " '\\t\\tSETPD\\t\\t\\t',\n",
       " '\\t\\tSLANT RANGE TO LANDING SITE, FOR DISPLAY:',\n",
       " '\\t\\tSLR\\tPUSH\\t\\t',\n",
       " '\\t\\tSTODL\\t/AFC/\\t\\t',\n",
       " '\\t\\tSTODL\\tHCALC1\\t\\t',\n",
       " '\\t\\tSTODL\\tHDOTDISP\\t',\n",
       " '\\t\\tSTODL\\tLASTTPIP\\t',\n",
       " '\\t\\tSTODL\\tTABLTTF +4\\t',\n",
       " '\\t\\tSTODL*\\tTABLTTF +2\\t',\n",
       " '\\t\\tSTODL*\\tTABLTTF +6\\t',\n",
       " '\\t\\tSTORE\\t30D\\t\\t',\n",
       " '\\t\\tSTORE\\tTABLTTF\\t\\t',\n",
       " '\\t\\tSTORE\\tUNFC/2\\t\\t',\n",
       " '\\t\\tSTORE\\tUNWC/2\\t\\t',\n",
       " '\\t\\tSTOVL\\t24D\\t\\t',\n",
       " '\\t\\tSTOVL\\tCG +6\\t\\t',\n",
       " '\\t\\tSTOVL\\tVHORIZ\\t\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tBANKCALL\\t',\n",
       " '\\t\\tTC\\tCHECKMM\\t\\t',\n",
       " '\\t\\tTC\\tDMPNSUB\\t\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tDOWNFLAG\\t',\n",
       " '\\t\\tTC\\tFASTCHNG\\t',\n",
       " '\\t\\tTC\\tPOWRSERS\\t',\n",
       " '\\t\\tTC\\tPOWRSERS\\t',\n",
       " '\\t\\tTC\\tROOTPSRS\\t',\n",
       " '\\t\\tTC\\tSHORTMP\\t\\t',\n",
       " '\\t\\tTC\\tUPFLAG\\t\\t',\n",
       " '\\t\\tTCF\\t1406ALM\\t\\t',\n",
       " '\\t\\tTCF\\t1406P00\\t\\t',\n",
       " '\\t\\tTCF\\tCALCRGVG\\t',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t',\n",
       " '\\t\\tTCF\\tCGCALC\\t\\t',\n",
       " \"\\t\\tTCF\\tCOUNT'EM\\t\",\n",
       " '\\t\\tTCF\\tEXGSUB\\t\\t',\n",
       " '\\t\\tTCF\\tEXNORM\\t\\t',\n",
       " '\\t\\tTCF\\tGOTOP00H\\t',\n",
       " '\\t\\tTCF\\tGUILDRET\\t',\n",
       " '\\t\\tTCF\\tP64CEED\\t\\t',\n",
       " '\\t\\tTCF\\tP64DISPS\\t',\n",
       " '\\t\\tTCF\\tP64DISPS\\t',\n",
       " '\\t\\tTCF\\tP65START\\t',\n",
       " '\\t\\tTCF\\tP66VERT\\t\\t',\n",
       " '\\t\\tTCF\\tP67VERT\\t\\t',\n",
       " '\\t\\tTCF\\tPREMON1\\t\\t',\n",
       " '\\t\\tTCF\\tPREMON2\\t\\t',\n",
       " '\\t\\tTCF\\tREDESIG\\t\\t',\n",
       " '\\t\\tTCF\\tRESUME\\t\\t',\n",
       " '\\t\\tTCF\\tRGVGCALC\\t',\n",
       " '\\t\\tTCF\\tSTABL?\\t\\t',\n",
       " '\\t\\tTCF\\tSTARTP64\\t',\n",
       " '\\t\\tTCF\\tSTARTP66\\t',\n",
       " '\\t\\tTCF\\tSTEER?\\t\\t',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t',\n",
       " '\\t\\tTCF\\tTTF/8CL\\t\\t',\n",
       " '\\t\\tTCF\\tTTFINCR\\t\\t',\n",
       " '\\t\\tTCF\\tVERTDISP\\t',\n",
       " '\\t\\tTCF\\tVERTGUID\\t',\n",
       " '\\t\\tTCF\\tVERTGUID\\t',\n",
       " '\\t\\tTS\\t26D\\t\\t',\n",
       " '\\t\\tTS\\t28D\\t\\t',\n",
       " '\\t\\tTS\\t30D\\t\\t',\n",
       " '\\t\\tTS\\tBUF\\t\\t',\n",
       " '\\t\\tTS\\tDERPTR\\t\\t',\n",
       " '\\t\\tTS\\tEBANK\\t\\t',\n",
       " '\\t\\tTS\\tFLPASS0\\t\\t',\n",
       " '\\t\\tTS\\tL\\t\\t',\n",
       " '\\t\\tTS\\tLOOKANGL\\t',\n",
       " '\\t\\tTS\\tMODE\\t\\t',\n",
       " '\\t\\tTS\\tMPAC\\t\\t',\n",
       " '\\t\\tTS\\tMPAC\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +1\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +2\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +3\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +5\\t\\t',\n",
       " '\\t\\tTS\\tMPAC +6\\t\\t',\n",
       " '\\t\\tTS\\tPWRPTR\\t\\t',\n",
       " '\\t\\tTS\\tTABLTTF +10\\t',\n",
       " '\\t\\tTS\\tTEMX\\t\\t',\n",
       " '\\t\\tTS\\tTEMY\\t\\t',\n",
       " '\\t\\tTTF/8 UPDATED FOR TIME SINCE LAST PASS:',\n",
       " '\\t\\tVAD\\tPUSH\\t\\t',\n",
       " '\\t\\tVAD\\tSTADR\\t\\t',\n",
       " '\\t\\tVAD\\tVSR2\\t\\t',\n",
       " '\\t\\tVGU = CG (V - WM * R)',\n",
       " '\\t\\tVHORIZ = 8 ABVAL (0, VG , VG )',\n",
       " '\\t\\tVLOAD\\t\\t\\t',\n",
       " '\\t\\tVLOAD\\tMXV\\t\\t',\n",
       " '\\t\\tVSU\\tPUSH\\t\\t',\n",
       " '\\t\\tVSU\\tVXSC\\t\\t',\n",
       " '\\t\\tVXSC\\tPDDL\\t\\t',\n",
       " '\\t\\tXCH\\tBUF +1\\t\\t',\n",
       " '\\t\\tY:\\tRESET RUPT. TERMINATE',\n",
       " '\\t\\t___   *   _   __   _',\n",
       " '\\t\\t___   *   _   ____',\n",
       " '\\t\\t___   4 (    TTF/8               )   ___',\n",
       " '\\t\\t___   ___   6(VDG + VG)   12(RDG - RG)',\n",
       " '\\t\\t_______   _   _   __',\n",
       " '\\t                                               N        N-1',\n",
       " '\\t                                             N      N-1              1     0',\n",
       " '\\t    ALL ERASABLES USED BY ROOTPSRS ARE UNSWITCHED LOCATED IN THE REGION FROM MPAC-33 OCT TO MPAC+7.',\n",
       " '\\t    POWER SERIES.  THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT',\n",
       " '\\t    PRECLUDE EVENTUAL CONVERGENCE.',\n",
       " '\\t- RATE INCREMENT, BIT 6 + INCREMENT.',\n",
       " \"\\t1.  USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.\",\n",
       " '\\t16:27 JULY 14, 1969',\n",
       " \"\\t2.  USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE\",\n",
       " '\\t3.  AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5.  AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.',\n",
       " '\\t4.  THE ITERATION COUNT RETURNED IN MPAC+2 MAY BE USED TO DETECT ABNORMAL PERFORMANCE.',\n",
       " '\\t7 OR 6 OF CHANNEL 16 IN A; BIT 7 MEANS',\n",
       " '\\tA\\tSP\\tLOC-3\\t\\tADRES FOR REFERENCING PWR COF TABL',\n",
       " '\\tAS HERE PROGRAMMED --',\n",
       " '\\tAS PUBLISHED --',\n",
       " '\\tAssemble revision 001 of AGC program LMY99 by NASA 2021112-61',\n",
       " '\\tBEFORE TCGFAPPR IS REACHED',\n",
       " '\\tBY FORCING -TTF*LEADTIME > OR = ZERO',\n",
       " '\\tCOMPUTED LAST PASS AND LEFT IN UNFC/2',\n",
       " \"\\tDON'T CALL THROTTLE OR FINDCDUW\",\n",
       " '\\tHORIZONTAL VELOCITY FOR DISPLAY',\n",
       " '\\tIS.',\n",
       " \"\\tJUST HIGHER THAN SERVICER'S PRIORITY\",\n",
       " '\\tKNOW WHEN READACCS CHANGES THEM.',\n",
       " '\\tL\\tSP\\tN-1\\t\\tN IS THE DEGREE OF THE POWER SERIES',\n",
       " '\\tLOC\\tDP\\tA(N)',\n",
       " '\\tLOC+2\\tSP\\tPRECROOT\\t PREC RQD OF ROOT (AS FRACT OF 1ST GUESS)',\n",
       " '\\tLOC-2N\\tDP\\tA(0)',\n",
       " '\\tMPAC\\tDP\\tX\\t\\tINITIAL GUESS FOR ROOT',\n",
       " '\\tN: \\tHAS ZERLINA REACHED ZERO YET?',\n",
       " '\\tOUTPUT AND TRIM CORRECTION TERM',\n",
       " '\\tRESTORED BY NEXT GUIDANCE CYCLE.',\n",
       " '\\tRGVGCALC COMPUTATIONS ARE AS FOLLOWS:--',\n",
       " '\\tROOTPSRS FINDS ONE ROOT OF THE POWER SERIES A X  + A   X    + ... + A X + A',\n",
       " '\\tSTATE IN GUIDANCE COORDINATES:',\n",
       " '\\tTTFINCR COMPUTATIONS ARE AS FOLLOWS --',\n",
       " '\\tVELOCITY RELATIVE TO THE SURFACE:',\n",
       " '\\tWCHPHASE =  0 ---> BRAKQUAD',\n",
       " '\\tWCHPHASE =  1 ---> APPRQUAD',\n",
       " '\\tWCHPHASE =  2 ---> VERTICAL',\n",
       " '\\tWCHPHASE = -1 ---> IGNALG',\n",
       " \"\\tY: \\tCOUNT 'EM, RESET RUPT, TERMINATE\",\n",
       " ' \\t\\t(CONTINUE TO DISPEXIT)',\n",
       " ' \\t\\t(CONTINUE TO QUADGUID)',\n",
       " ' \\t\\tTCF\\tSTARTP67\\t',\n",
       " ' \\tALTITUDE RATE.',\n",
       " ' \\tDEPRESSION ANGLE FOR DISPLAY:',\n",
       " ' \\tTHE P65 GUIDANCE EQUATION IS AS FOLLOWS --',\n",
       " ' \\tTOO CLOSE TO THE HORIZON.',\n",
       " '                            1    0',\n",
       " '                        2    2    2',\n",
       " '                    ___        ____   _',\n",
       " '                 ____   _',\n",
       " '                2      2',\n",
       " '              2         2',\n",
       " '             2',\n",
       " '             2',\n",
       " '           2   1',\n",
       " '           _   ____',\n",
       " ' (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)',\n",
       " ' (I-1) TO MPAC, FETCHING DERCOF',\n",
       " ' ************************',\n",
       " ' ********************************************************',\n",
       " ' ********************************************************',\n",
       " ' **********************************************************',\n",
       " ' **********************************************************',\n",
       " ' ****************************************************************',\n",
       " ' ****************************************************************',\n",
       " ' ******************************************************************',\n",
       " ' ******************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' *********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' ***********************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' **************************************************************************',\n",
       " ' ****************************************************************************',\n",
       " ' ****************************************************************************',\n",
       " ' *******************************************************************************',\n",
       " ' *******************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' *********************************************************************************',\n",
       " ' ***********************************************************************************',\n",
       " ' ***********************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' *************************************************************************************',\n",
       " ' +0',\n",
       " ' +3\\t\\tCS\\tFLAGWRD8\\t',\n",
       " ' +PITCH',\n",
       " ' - RATIO OF LAG-DIMINISHED TTF TO TTF',\n",
       " ' -PITCH',\n",
       " ' 1.\\tEXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.',\n",
       " ' 1/2 DEGREE',\n",
       " ' 2 DEGREES',\n",
       " ' 2.\\tEXBRAK IN THE EXIT USED DURING THE BRAKING PHASE.  IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.',\n",
       " ' 3.\\tEXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.',\n",
       " ' 30-31D CONTAINS TIME IN CS SINCE PIPTIME',\n",
       " ' A(0) = -24 (RGU  - RDG )/64 TO TABLTTF',\n",
       " ' A(1) = (6 VGU  + 18 VDG )/8 TO TABLTTF',\n",
       " ' A(2) = 6 ADG  TO TABLTTF',\n",
       " ' A(3) = 8 JDG  TO TABLTTF',\n",
       " ' A(N) TO MPAC',\n",
       " ' ABS(DX)-ABS(DXCRIT) IN MPAC',\n",
       " ' ADDRESS FOR REFERENCING TTF TABLE',\n",
       " ' ALARM ROUTINE FOR TTF COMPUTATION:',\n",
       " ' AMAXHORIZ = SQRT(ATOTAL - A  - A  )',\n",
       " ' AND IN ROOTPS',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' APPRQUAD',\n",
       " ' ARE WE IN ATTITUDE-HOLD?',\n",
       " ' ARE WE IN ATTITUDE-HOLD?',\n",
       " ' AUGMENT TTF/8',\n",
       " ' Assembler:\\tyaYUL',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' BRAKQUAD',\n",
       " ' COEFFICIENT FOR ADG TERM',\n",
       " ' COEFFICIENT FOR RDG-RGU TERM',\n",
       " ' COEFFICIENT FOR VDG TERM',\n",
       " ' COEFFICIENT FOR VGU TERM',\n",
       " ' COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED.  ROOTPSRS MAY CONVERGE ON THE CORRECT',\n",
       " ' COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N.  IF AN ELEMENT OF THE DERIVATIVE',\n",
       " ' COME HERE FROM MARKRUPT CODING WITH BIT',\n",
       " ' COMPUTE CRITERION TO STOP ITERATING',\n",
       " ' COMPUTE LOOKANGLE ITSELF',\n",
       " ' COMPUTE STATE IN GUIDANCE COORDINATES',\n",
       " ' COMPUTE TRIM VELOCITY CORRECTION TERM.',\n",
       " ' CONVERGE ON ROOT',\n",
       " ' CORRECTED ROOT NOW IN ROOTPS',\n",
       " ' CORRECTED TTF/8',\n",
       " ' CRITERION',\n",
       " ' CURRENT ROOT TO MPAC, FETCHING DERIVATIVE',\n",
       " ' Contact:\\tHARTMUTH GUTSCHE <hgutsche@xplornet.com>.',\n",
       " ' Copyright:\\tPublic domain.',\n",
       " ' DECIDE (1) HOW TO EXIT, AND (2) WHETHER TO SWITCH PHASES',\n",
       " ' DECREMENT DER POINTER',\n",
       " ' DECREMENT PWR POINTER',\n",
       " ' DEGREE - ONE',\n",
       " ' DER TABL ADRES',\n",
       " ' DER TABL POINTER',\n",
       " ' DERCOF TO DER TABLE',\n",
       " ' DISCRETE TO SELECT P67 OR P66 RESPECTIVELY:   ON EVERY APPEARANCE OF THE ATTITUDE-HOLD DISCRETE TO SELECT P66',\n",
       " ' DISPLAY ROUTINES:',\n",
       " ' DO ANY BITS APPEAR THIS PASS?',\n",
       " ' DOUBLE PRECISION ROOT FINDER SUBROUTINE (BY ALLAN KLUMPP)',\n",
       " ' ENABLE REDESIGNATION LOGIC',\n",
       " ' ENABLE RUPT10',\n",
       " ' ENTER HERE TO RECOMPUTE RG AND VG',\n",
       " ' ENTRY POINTS:  ?GUIDSUB FOR THE IGNITION ALGORITHM, LUNLAND FOR SERVOUT',\n",
       " ' ERECT GUIDANCE-STABLE MEMBER TRANSFORMATION MATRIX',\n",
       " ' FETCH CURRENT ROOT',\n",
       " ' FETCH DX, LEAVING -DX IN MPAC',\n",
       " ' FETCH ROOT GUESS, KEEPING IT IN MPAC',\n",
       " ' FETCH TTF/8 KEEPING IT IN MPAC',\n",
       " ' FLIGHT SEQUENCE TABLES ARE ARRANGED BY FUNCTION.  THEY ARE REFERENCED USING AS AN INDEX THE REGISTER WCHPHASE:',\n",
       " ' FORM (0,VG ,VG ) IN UNITS OF 2(10) M/CS',\n",
       " ' FRACTIONAL PRECISION FOR TTF TO TABLE',\n",
       " ' Filename:\\tLUNAR_LANDING_GUIDANCE_EQUATIONS.agc',\n",
       " ' GET COEFFICIENT FOR CG +14',\n",
       " ' GET COEFFICIENT FOR UNIT(LAND - R)',\n",
       " ' GOOD RETURN',\n",
       " ' GROUP 3:  PROTECT GUIDANCE WITH PRIO 21',\n",
       " ' GROUP 5:  RETAIN ONLY PIPA TASK',\n",
       " ' GUIDANCE EQUATIONS:',\n",
       " ' GUIDANCE FOR P65',\n",
       " ' GUIDANCE FOR P66',\n",
       " ' GUIDANCE LOOP DISPLAYS',\n",
       " ' GUILDENSTERN:  AUTO-MODES MONITOR (R13)',\n",
       " ' HAS THERE BEEN A RESTART?',\n",
       " ' HAS TREDES REACHED ZERO?',\n",
       " ' HERE IS THE PHILOSOPHY OF GUILDENSTERN:\\tON EVERY APPEARANCE OR DISAPPEARANCE OF THE MANUAL THROTTLE',\n",
       " ' IF FLUNDISP IS SET, NO DISPLAY THIS PASS',\n",
       " ' IF NOT IN P64, NO REASON TO CONTINUE',\n",
       " ' IF OVERFLOW ANYWHERE IN GUIDANCE',\n",
       " ' IF STEERSW DOWN NO OUTPUTS',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNALG',\n",
       " ' IGNITION ALGORITHM ENTRY:  DELIVERS N PASSES OF QUADRATIC GUIDANCE',\n",
       " ' IN IGNALG, COMPUTE V FROM INTEGRATION',\n",
       " ' INCREMENT ITERATION COUNTER',\n",
       " ' INCREMENT PASS COUNTER',\n",
       " ' INCREMENT TTF/8, UPDATE LAND FOR LUNAR ROTATION, DO OTHER USEFUL THINGS',\n",
       " ' INDICES FOR REFERENCING TARGET PARAMETERS',\n",
       " ' INITIALIZATION FOR THIS PASS',\n",
       " ' INITIALIZE REDESIGNATION FLAG',\n",
       " ' IS REDFLAG SET?',\n",
       " ' IS UN-ATTITUDE-HOLD DISCRETE PRESENT?',\n",
       " ' IS UN-AUTO-THROTTLE DISCRETE PRESENT?',\n",
       " ' KILL GROUP 3:  DISPLAYS WILL BE',\n",
       " ' KILL GROUP 5',\n",
       " ' KLUMPP SAYS GIVE UP AFTER EIGHT PASSES',\n",
       " ' LANDING SITE PERTURBATION EQUATIONS',\n",
       " ' LEADTIME IS A NEGATIVE NUMBER',\n",
       " ' LEAVE DERIVATIVE IN BUF AS DIVISOR',\n",
       " ' LEAVE IN MPAC',\n",
       " ' LOAD A, L WITH DER TABL ADRES, N-2',\n",
       " ' LOAD A, L WITH PWR TABL ADRES, N-1',\n",
       " ' LOADS TTF/8 (INITIAL GUESS) INTO MPAC',\n",
       " ' LOOKANGL FOR DISPLAY DURING P64',\n",
       " ' LOOKANGL WILL BE COMPUTED AT RGVGCALC',\n",
       " ' LOOP COUNTER',\n",
       " ' LUNAR LANDING CONSTANTS',\n",
       " ' LUNAR LANDING FLIGHT SEQUENCE TABLES',\n",
       " ' MAGNITUDE OF AFC FOR THROTTLE',\n",
       " ' MAIN GUIDANCE EQUATION',\n",
       " ' MAKE SURE REDESIGNATION IS NOT',\n",
       " ' MODE USED AS ITERATION COUNTER.  MODE',\n",
       " ' MPAC = MEASURED ACCELERATION.',\n",
       " ' MPAC(X) = PIPAX + PIPATMPX',\n",
       " ' MPAC(Y) = PIPAY + PIPATMPY',\n",
       " ' MPAC(Z) = PIPAZ + PIPATMPZ',\n",
       " \" MUST BE POS SO ABS WON'T COMP MPAC+3 ETC.\",\n",
       " ' Mod history:\\t2009-05-23 HG\\tTranscribed from page images.',\n",
       " ' N = 3',\n",
       " ' N-1 TO A',\n",
       " ' N-2',\n",
       " ' N:\\tANY LAST PASS?',\n",
       " ' NO',\n",
       " ' NO HARM IN \"STARTING\" P67 OVER AND OVER',\n",
       " ' NO POWER SERIES DEGREE 1 OR LESS',\n",
       " ' NO SHIFT SINCE ANGTERM IS DOUBLE SIZED',\n",
       " ' NO.',\n",
       " ' NO. CONTINUE WITH AUTOMATIC LANDING',\n",
       " ' NO. HAS THE ROD SWITCH BEEN \"CLICKED\"?',\n",
       " ' NO:  ARE WE IN P67 NOW?',\n",
       " ' NO:  DO A STOPRATE',\n",
       " ' NO:  IS REDFLAG SET?',\n",
       " ' NO:  SKIP REDESIGNATION LOGIC',\n",
       " ' NO: CONTINUE WITH R.O.D.',\n",
       " ' NORMAL ENTRY:  CONTROL COMES HERE FROM SERVOUT',\n",
       " ' NOW HAVE INCREMENTED TTF/8 IN TTF/8TMP',\n",
       " ' NOW IN MPAC IS SINE(LOOKANGL)/4',\n",
       " ' NUMERO MYSTERIOSO',\n",
       " ' Notations on the hardcopy document read, in part:',\n",
       " ' ON SUCCEEDING PASSES SKIP TTFINCR',\n",
       " ' OTHERWISE USE FLASHING DISPLAY',\n",
       " ' OUT-OF-PLANE',\n",
       " ' OUTPUTS ARE NOT TO BE TRUSTED.',\n",
       " ' P63',\n",
       " ' P64',\n",
       " ' P65, P66, P67',\n",
       " ' PARAMETER TABLE INDIRECT ADDRESSES',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " ' PERMIT X-AXIS OVERRIDE',\n",
       " ' PICK UP UPDATED VELOCITY VECTOR.',\n",
       " ' POSITIVE NON-ZERO ---> P67',\n",
       " ' POST GUIDANCE EQUATION COMPUTATIONS:',\n",
       " ' PRE-GUIDANCE COMPUTATIONS:',\n",
       " ' PRECAUTION:  ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE.  IMPROPER USAGE COULD',\n",
       " ' PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS.  AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE',\n",
       " ' PRECROOT TO A',\n",
       " ' PREPARE FOR PHASE SWITCHING LOGIC',\n",
       " ' PREPARE TO EXIT',\n",
       " ' PROCEED\\tPERMIT REDESIGNATIONS',\n",
       " ' PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))',\n",
       " ' PUSH DOWN R - LAND',\n",
       " ' PUSH DOWN UNIT (LAND - R)',\n",
       " ' PUT UP V06N60 DISPLAY BUT AVOID PHASCHNG',\n",
       " ' PWR TABLE ADRES',\n",
       " ' PWR TABLE ADRES, N-1',\n",
       " ' PWR TABLE POINTER',\n",
       " ' Page 798',\n",
       " ' Page 799',\n",
       " ' Page 800',\n",
       " ' Page 801',\n",
       " ' Page 802',\n",
       " ' Page 803',\n",
       " ' Page 804',\n",
       " ' Page 805',\n",
       " ' Page 806 actually starts one line earlier but that would separate the markers from their variables',\n",
       " ' Page 807',\n",
       " ' Page 808',\n",
       " ' Page 809',\n",
       " ' Page 810',\n",
       " ' Page 811',\n",
       " ' Page 812',\n",
       " ' Page 813',\n",
       " ' Page 814',\n",
       " ' Page 815',\n",
       " ' Page 816',\n",
       " ' Page 817',\n",
       " ' Page 818',\n",
       " ' Page 819',\n",
       " ' Page 820',\n",
       " ' Page 821',\n",
       " ' Page 822',\n",
       " ' Page 823',\n",
       " ' Page 824',\n",
       " ' Page 825',\n",
       " ' Page 826',\n",
       " ' Page 827',\n",
       " ' Page 828',\n",
       " ' Pages:\\t798-828',\n",
       " ' Purpose: \\tPart of the source code for Luminary 1A build 099.',\n",
       " ' R.O.D. TRAP',\n",
       " ' RATIO SQUARED - RATIO',\n",
       " ' RECYCLE',\n",
       " ' REDESIGNATOR MONITOR (INITIATED BY PITFALL)',\n",
       " ' REDESIGNATOR TRAP',\n",
       " ' RESCALE TO UNITS OF 2(9) M/CS',\n",
       " ' RESET FLPASS0',\n",
       " ' RESET PUSH DOWN POINTER',\n",
       " ' RESULT IS 0 IF PROJ - PROJMIN NEGATIVE',\n",
       " ' RESULT IS 0 IF PROJMAX - PROJ NEGATIVE',\n",
       " ' RESULTING VECTOR IS 1/2 REAL SIZE',\n",
       " ' RETURN ADRES',\n",
       " ' RETURN IS NORMALLY TO LOC(TC ROOTPSRS)+3.  IF ROOTPSRS FAILS TO CONVERGE TO IN 8 PASSES, RETURN IS TO LOC+1 AND',\n",
       " ' ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS.  THEREFORE THE USER SHOULD RECOGNIZE:',\n",
       " ' ROUTINES FOR EXITING FROM LANDING GUIDANCE',\n",
       " ' ROUTINES FOR STARTING NEW GUIDANCE PHASES:',\n",
       " ' ROUTINES TO START NEW PHASES',\n",
       " ' RSB 2009: Not originally a comment.',\n",
       " ' SAFEGUARD THE COMPUTATIONS THAT FOLLOW',\n",
       " ' SCALE MPAC TO M/CS *2(-7) AND PUSH \\t(6)',\n",
       " ' SECOND ROW',\n",
       " ' SET DESIRED ALTITUDE RATE = CURRENT',\n",
       " ' SET OLDPIPAX,Y,Z = PIPAX,Y,Z',\n",
       " ' SET PD TO 0',\n",
       " ' SET RUPTREG1,2,3 = OLDPIPAX,Y,Z',\n",
       " ' SET UP DER COF TABL',\n",
       " ' SET X1 ON THE WAY TO THE INTERPRETER',\n",
       " ' SHIFT SCALES DELTA TIME TO 2(17) CSECS',\n",
       " \" SIN(15')/8 TO COMPARE WITH PROJ\",\n",
       " \" SIN(25')/8 TO COMPARE WITH PROJ\",\n",
       " ' SINCE REDESIG MAY CHANGE LANDTEMP',\n",
       " ' SNAPSHOT TIME OF PIPA READING.',\n",
       " ' SO NO NEED FOR A FASTCHNG AND NO NEED',\n",
       " ' SOUND THE ALARM NON-ABORTIVELY',\n",
       " ' SPECIALIZED \"PHASCHNG\" SUBROUTINE',\n",
       " \" SPECIALIZED 'PHASCHNG' ROUTINE\",\n",
       " ' STERN\\t\\t\\t\\t\\t',\n",
       " ' STORE ENTERING DATA, INITIALIZE ERASABLES',\n",
       " ' STORE SP ITERATION COUNT IN MPAC+2',\n",
       " ' STORE UPDATED VELOCITY IN 24-29D',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " ' TEMPORARY, I HOPE HOPE HOPE',\n",
       " ' TERMINATE',\n",
       " ' TERMINATE GROUP 3.',\n",
       " ' TERMINATE GROUP 3.',\n",
       " ' TEST HI ORDER DX',\n",
       " ' TEST LO ORDER DX',\n",
       " ' THE DP RESULT IS LEFT IN MPAC UPON EXIT, AND A SP COUNT OF THE ITERATIONS TO CONVERGENCE IS LEFT IN MPAC+2.',\n",
       " ' THESE EQUIVALENCES ARE BASED ON GSOP CHAPTER 4, REVISION 16 OF P64LM',\n",
       " ' TO PICK UP THE TAG',\n",
       " ' TO SEE IF ALREADY IN P67.',\n",
       " ' TRAP IS RESET WHEN SWITCH IS RELEASED',\n",
       " ' TRASHY LITTLE SUBROUTINES',\n",
       " ' TREDES BECOMES ZERO TWO PASSES',\n",
       " ' TTF/8 COMPUTATION',\n",
       " ' This source code has been transcribed or otherwise adapted from',\n",
       " ' UNFC/2 NEED NOT BE UNITIZED',\n",
       " ' UNIT(LAND - R) IS TENTATIVE CHOICE',\n",
       " ' UNLESS THE CURRENT PROGRAM IS P67 IN WHICH CASE THERE IS NO CHANGE',\n",
       " ' UPDATE DESIRED ALTITUDE RATE.',\n",
       " ' UPDATE HCALC1 FOR NOUN 63.',\n",
       " ' UPDATE HDOTDISP RATE FOR NOUN 63.',\n",
       " \" USING NEWTON'S METHOD STARTING WITH AN INITIAL GUESS FOR THE ROOT.  THE ENTERING DATA MUST BE AS FOLLOWS:\",\n",
       " ' VERGUID COMES HERE',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL',\n",
       " ' VERTICAL COMPONENT',\n",
       " ' VHORIZ FOR DISPLAY DURING P65.',\n",
       " ' WCHPHASE = 0   BRAKQUAD',\n",
       " ' WCHPHASE = 1   APPRQUAD',\n",
       " ' WCHPHASE = 2 ---> VERTICAL: P65,P66,P67',\n",
       " ' WINDOW VECTOR COMPUTATIONS:',\n",
       " ' WITH PROJ IN MPAC 1/8 REAL SIZE',\n",
       " ' Website:\\twww.ibiblio.org/apollo.',\n",
       " ' Y:\\tCONTINUE MONITOR',\n",
       " ' YES',\n",
       " ' YES',\n",
       " ' YES',\n",
       " \" YES ALL'S WELL\",\n",
       " ' YES.  REINITIALIZE BUT LEAVE VDGVERT AS',\n",
       " ' YES. SWITCH INTO THE ROD MODE.',\n",
       " ' YES:  DO STATIC DISPLAY',\n",
       " ' YES:  HAS TREDES REACHED ZERO?',\n",
       " ' YES:  SKIP REDESIGNATION LOGIC',\n",
       " ' YES: CLEAR REDESIGNATION FLAG',\n",
       " ' YES: SKIP REDESIGNATION LOGIC.',\n",
       " ' YIELDS -DX IN MPAC',\n",
       " ' YIELDS ABS(DX) IN MPAC',\n",
       " ' YIELDS ABVAL OF CRITERION ON DX IN MPAC',\n",
       " ' YIELDS DERCOF = I X A(I) IN MPAC',\n",
       " ' YIELDS DERIVATIVE IN MPAC',\n",
       " ' YIELDS DP PRODUCT IN MPAC',\n",
       " ' YIELDS RESIDUAL IN MPAC',\n",
       " ' YIELDS TTF/8 IN MPAC',\n",
       " ' ZERO LO-ORDER MPAC COMPONENTS',\n",
       " ' ZERO TEMX, TEMY, AND TEMZ SO WE WILL',\n",
       " ' about getting access to the (much) higher-quality images which Paul',\n",
       " ' actually created.',\n",
       " ' available online at www.ibiblio.org/apollo.  If for some reason you',\n",
       " ' digitized images of a hardcopy from the MIT Museum.  The digitization',\n",
       " ' find that the images are illegible, contact me at info@sandroid.org',\n",
       " ' in storage size and consequent reduction in image quality as well) are',\n",
       " ' the Museum.  Many thanks to both.  The images (with suitable reduction',\n",
       " ' was performed by Paul Fjeld, and arranged for by Deborah Douglas of',\n",
       " '*********************************************************',\n",
       " '*******************************************************************',\n",
       " '*******************************************************************',\n",
       " '************************************************************************',\n",
       " '************************************************************************',\n",
       " '+ELBIT\\t\\t=\\tBIT2\\t\\t',\n",
       " '-2\\t\\tTC\\tPHASCHNG\\t',\n",
       " '-ELBIT\\t\\t=\\tBIT1\\t\\t',\n",
       " ...]"
      ]
     },
     "execution_count": 71,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "phrases"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 72,
   "id": "d53f09f6",
   "metadata": {},
   "outputs": [],
   "source": [
    "import pandas as pd"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "fec9b5d9",
   "metadata": {},
   "outputs": [],
   "source": [
    "pd."
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Python 3 (ipykernel)",
   "language": "python",
   "name": "python3"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 3
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython3",
   "version": "3.8.12"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}