# Copyright: Public domain. # Filename: ERASABLE ASSIGNMENTS.agc # Purpose: Part of the source code for Luminary 1A build 099. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC), for Apollo 11. # Assembler: yaYUL # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. # Pages: 0090-0152 # Mod history: 2009-05-16 OH Transcribed from page images. # 2009-06-05 RSB Eliminated a variable that shouldn't have # survived from Luminary 131. # 2010-12-31 JL Fixed page number comment. # # This source code has been transcribed or otherwise adapted from # digitized images of a hardcopy from the MIT Museum. The digitization # was performed by Paul Fjeld, and arranged for by Deborah Douglas of # the Museum. Many thanks to both. The images (with suitable reduction # in storage size and consequent reduction in image quality as well) are # available online at www.ibiblio.org/apollo. If for some reason you # find that the images are illegible, contact me at info@sandroid.org # about getting access to the (much) higher-quality images which Paul # actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061 # 16:27 JULY 14, 1969 # Page 90 # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS. # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE # CHANGING OF ONLY ONE CARD. EXAMPLE: # # X EQUALS START # Y EQUALS X +SIZE.X # Z EQUALS Y +SIZE.Y # # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. # SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y. # USUALLY NUMERIC, IE. 1, 2, 6, 18D, ETC.) # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES # AND DIFFERENT DATA). EXAMPLE: # # X EQUALS Y # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA. # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING.) EXAMPLE: # # X = Y # THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN # THE COMMENTS IN THE FOLLOWING FORM: M(SIZE)N. # # M REFERS TO THE MOBILITY OF THE ASSIGNMENT. # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE. # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK # INSENSITIVE AND MAY APPEAR IN ANY E-BANK. # # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL. # # N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS. # PL MEANS THAT THE CONTENTS ARE PAD LOADED. # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY. # PRM MEANS THAT THE REGISTER IS PERMANENT. IE., IT # IS USED DURING THE ENTIRE MISSION FOR ONE # PURPOSE AND CANNOT BE SHARED. # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS # Page 91 # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH # IS NOT ACTIVE IN PARALLEL # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. # Page 92 # SPECIAL REGISTERS. A EQUALS 0 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS Q EQUALS 2 EBANK EQUALS 3 FBANK EQUALS 4 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF). # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL. ARUPT EQUALS 10 # INTERRUPT STORAGE LRUPT EQUALS 11 QRUPT EQUALS 12 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2. ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.) BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK. BRUPT EQUALS 17 # RESUME ADDRESS AS WELL. CYR EQUALS 20 SR EQUALS 21 CYL EQUALS 22 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS. TIME2 EQUALS 24 TIME1 EQUALS 25 TIME3 EQUALS 26 TIME4 EQUALS 27 TIME5 EQUALS 30 TIME6 EQUALS 31 CDUX EQUALS 32 CDUY EQUALS 33 CDUZ EQUALS 34 CDUT EQUALS 35 # REND RADAR TRUNNION CDU CDUS EQUALS 36 # REND RADAR SHAFT CDU PIPAX EQUALS 37 PIPAY EQUALS 40 PIPAZ EQUALS 41 Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS P-RHCCTR EQUALS 43 R-RHCCTR EQUALS 44 INLINK EQUALS 45 RNRAD EQUALS 46 GYROCMD EQUALS 47 CDUXCMD EQUALS 50 CDUYCMD EQUALS 51 CDUZCMD EQUALS 52 CDUTCMD EQUALS 53 CDUSCMD EQUALS 54 # Page 93 THRUST EQUALS 55 LEMONM EQUALS 56 OUTLINK EQUALS 57 ALTM EQUALS 60 # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA. LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT. X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTER RELATIVE X2 EQUALS 39D # TO THE WORK AREA. S1 EQUALS 40D S2 EQUALS 41D QPRET EQUALS 42D # INPUT/OUTPUT CHANNELS # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. *** LCHAN EQUALS L QCHAN EQUALS Q HISCALAR EQUALS 3 LOSCALAR EQUALS 4 CHAN5 EQUALS 5 CHAN6 EQUALS 6 SUPERBNK EQUALS 7 # SUPER-BANK. OUT0 EQUALS 10 DSALMOUT EQUALS 11 CHAN12 EQUALS 12 CHAN13 EQUALS 13 CHAN14 EQUALS 14 MNKEYIN EQUALS 15 NAVKEYIN EQUALS 16 CHAN30 EQUALS 30 CHAN31 EQUALS 31 CHAN32 EQUALS 32 CHAN33 EQUALS 33 DNTM1 EQUALS 34 DNTM2 EQUALS 35 # END OF CHANNEL ASSIGNMENTS # Page 94 # INTERPRETIVE SWITCH BIT ASSIGNMENTS # ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. ** # Page 95 # GENERAL ERASABLE ASSIGNMENTS SETLOC 61 # INTERRUPT TEMPORARY STORAGE POOL. (11D) # (ITEMP1 THROUGH RUPTREG4) # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT. ITEMP1 ERASE WAITEXIT EQUALS ITEMP1 EXECTEM1 EQUALS ITEMP1 ITEMP2 ERASE WAITBANK EQUALS ITEMP2 EXECTEM2 EQUALS ITEMP2 ITEMP3 ERASE RUPTSTOR EQUALS ITEMP3 WAITADR EQUALS ITEMP3 NEWPRIO EQUALS ITEMP3 ITEMP4 ERASE LOCCTR EQUALS ITEMP4 WAITTEMP EQUALS ITEMP4 ITEMP5 ERASE NEWLOC EQUALS ITEMP5 ITEMP6 ERASE NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS. SETLOC 67 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING. RUPTREG1 ERASE RUPTREG2 ERASE RUPTREG3 ERASE RUPTREG4 ERASE KEYTEMP1 EQUALS RUPTREG4 DSRUPTEM EQUALS RUPTREG4 # FLAGWORD RESERVATIONS. (16D) STATE ERASE +15D # +15D FLAGWORD REGISTERS # P25 RADAR STORAGE. (MAY BE UNSHARED IN E7) (TEMP OVERLAY) (2D) OVERLAYS FLGWRD 14 & 15 # Page 96 LASTYCMD EQUALS STATE +14D # B(1)PRM THESE ARE CALLED BY T4RUPT LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS, Y FIRST # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS (32D) (INTB15+ THROUGH RUPTMXTM) INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES DSEXIT = INTB15+ # RETURN FOR DSPIN EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT BLANKRET = INTB15+ # RETURN FOR 2BLANK INTBIT15 ERASE # SIMILAR TO ABOVE. WRDRET = INTBIT15 # RETURN FOR 5BLANK WDRET = INTBIT15 # RETURN FOR DSPWD DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD) 21/22REG = INTBIT15 # TEMP FOR CHARIN # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE. ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS. POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS. UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB CHAR = POLISH # TEMP FOR CHARIN ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC) FIXLOC ERASE # WORK AREA ADDRESS. OVFIND ERASE # SET NON-ZERO ON OVERFLOW. VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS. SGNON = VBUF # TEMP FOR +,- ON NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERB DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS) SGNOFF = VBUF +1 # TEMP FOR +,- ON NVTEMP = VBUF +1 # TEMP FOR NVSUB SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART (=SFTEMP2-1) HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS,MIN,SEC # MUST = LOTEMIN-1. CODE = VBUF +2 # FOR DSPIN SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART (=SFTEMP1+1) LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS,MIN,SEC # MUST = HITEMIN+1 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA SIGNRET = VBUF +3 # RETURN FOR +,- ON # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5 BUF ERASE +2 # TEMPORARY SCALAR STORAGE. # Page 97 BUF2 ERASE +1 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX. SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD. SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN THE SWITCH WORD MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT DMPNTEMP = MPTEMP # DMPSUB TEMPORARY DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS. ENTRET = DOTINC # EXIT FROM ENTER DOTRET ERASE # RETURN FROM DOT SUBROUTINE DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH WDCNT = DOTRET # CHAR COUNTER FOR DSPWD INREL = DOTRET # INPUT BUFFER SELECTION ( X,Y,Z, REG) MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1. POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN TEM1 ERASE # EXEC TEMP POLYRET = TEM1 DSREL = TEM1 # REL ADDRESS FOR DSPIN TEM2 ERASE # EXEC TEMP DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS (garbled) TEM3 ERASE # EXEC TEMP COUNT = TEM3 # FOR DSPIN TEM4 ERASE # EXEC TEMP LSTPTR = TEM4 # LIST POINTER FOR GRABUSY RELRET = TEM4 # RETURN FOR RELDSP FREERET = TEM4 # RETURN FOR FREEDSP DSPWDRET = TEM4 # RETURN FOR DSPSIGN SEPSCRET = TEM4 # RETURN FOR SEPSEC SEPMNRET = TEM4 # RETURN FOR SEPMIN TEM5 ERASE # EXEC TEMP NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY IDAD1TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) # MUST = IDAD2TEM-1, = IDAD3TEM-2 IDAD2TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) # Page 98 # MUST = IDAD1TEM+1, = IDAD3TEM-1. IDAD3TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) # MUST = IDAD1TEM+2, = IDAD2TEM+1. RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY) # AX*SR*T STORAGE. (6D) DEXDEX EQUALS TEM2 # B(1)TMP DEX1 EQUALS TEM3 # B(1)TMP DEX2 EQUALS TEM4 # B(1)TMP RTNSAVER EQUALS TEM5 # B(1)TMP TERM1TMP EQUALS MPAC +3 # B(2)TMP DEXI = DEX1 # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF # SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY). # DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR. DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER DERCOFN = MPAC -2 # ROOTPSRS DER COF N, HI ORDER DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N, LO ORDER PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LOW ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER # Page 99 # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS (84D) MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR. MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR. LOC ERASE # LOCATION ASSOCIATED WITH JOB. BANKSET ERASE # USUALLY CONTAINS BBANK SETTING. PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS. PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA. ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH # INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D) R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V # STANDBY VERB ERASABLES. REDOCTR BEFORE THETADS. (14D) TIME2SAV ERASE +1 SCALSAVE ERASE +1 REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS THETAD ERASE +2 CPHI = THETAD # O DESIRED GIMBAL ANGLES CTHETA = THETAD +1 # I FOR CPSI = THETAD +2 # M MANEUVER DELV ERASE +5 DELVX = DELV DELVY = DELV +2 DELVZ = DELV +4 # DOWNLINK STORAGE. (28D) DNLSTADR EQUALS DNLSTCOD DNLSTCOD ERASE # B(1)PRM DOWNLINK LIST CODE DUMPCNT ERASE # B(1) LDATALST ERASE +25D # (26D) DNTMGOTO EQUALS LDATALST +1 # B(1) TMINDEX EQUALS DNTMGOTO +1 # B(1) DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMPED # AND COUNT OF COMPLETE DUMPS ALREADY # SENT. DNQ EQUALS TMINDEX +1 # B(1) DNTMBUFF EQUALS DNQ +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) FIVE MORE IN EBANK 2. # Page 100 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS NVWORD ERASE MARKNV ERASE NVSAVE ERASE # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES) CADRFLSH ERASE CADRMARK ERASE TEMPFLSH ERASE FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS # VAC AREAS. -- BE CAREFUL OF PLACEMENT -- (220D) VAC1USE ERASE VAC1 ERASE +42D VAC2USE ERASE VAC2 ERASE +42D VAC3USE ERASE VAC3 ERASE +42D VAC4USE ERASE VAC4 ERASE +42D VAC5USE ERASE VAC5 ERASE +42D # WAITLIST REPEAT FLAG. (1D) RUPTAGN ERASE KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT # STARALIGN ERASABLES. (13D) STARCODE ERASE # (1) AOTCODE = STARCODE STARALGN ERASE +11D SINCDU = STARALGN COSCDU = STARALGN +6 SINCDUX = SINCDU +4 SINCDUY = SINCDU SINCDUZ = SINCDU +2 COSCDUX = COSCDU +4 COSCDUY = COSCDU COSCDUZ = COSCDU +2 # PHASE TABLE AND RESTART COUNTERS (12D) -PHASE1 ERASE # Page 101 PHASE1 ERASE -PHASE2 ERASE PHASE2 ERASE -PHASE3 ERASE PHASE3 ERASE -PHASE4 ERASE PHASE4 ERASE -PHASE5 ERASE PHASE5 ERASE -PHASE6 ERASE PHASE6 ERASE # A**SR*T STORAGE. (6D) CDUSPOT ERASE +5 # B(6) CDUSPOTY = CDUSPOT CDUSPOTZ = CDUSPOT +2 CDUSPOTX = CDUSPOT +4 # VERB 37 STORAGE (2D) MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37 # PINBALL INTERRUPT ACTION (1D) DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT # PINBALL EXECUTIVE ACTION (44D) DSPCOUNT ERASE # DISPLAY POSITION INDICATOR DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR VERBREG ERASE # VERB CODE NOUNREG ERASE # NOUN CODE XREG ERASE # R1 INPUT BUFFER YREG ERASE # R2 INPUT BUFFER ZREG ERASE # R3 INPUT BUFFER XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY) YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY) HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC # MUST = LOTEMOUT-1. ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY) LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC # MUST = HITEMOUT+1 MODREG ERASE # MODE CODE # Page 102 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK REQRET ERASE # RETURN REGISTER FOR LOAD LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST CLPASS ERASE # PASS INDICATOR CLEAR NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB NOUNCADR ERASE # MACHINE CADR FOR NOUN MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1) MONSAVE1 ERASE # NOUNCADR FOR MONITOR (MATBS1) = MONSAVE+1 MONSAVE2 ERASE # NVMONOPT OPTIONS DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS. NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS # MUST = NVBNKTEM-1. NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK # MUST = NVQTEM+1 VERBSAVE ERASE # NEEDED FOR RECYCLE CADRSTOR ERASE # ENDIDLE STORAGE DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME) DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG) DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS. # DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) ) (2D) OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE # TBASES AND PHSPRDT S. (12D) TBASE1 ERASE PHSPRDT1 ERASE TBASE2 ERASE PHSPRDT2 ERASE TBASE3 ERASE PHSPRDT3 ERASE TBASE4 ERASE PHSPRDT4 ERASE TBASE5 ERASE PHSPRDT5 ERASE TBASE6 ERASE PHSPRDT6 ERASE # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D) # Page 103 NVWORD1 ERASE # B(1) PROBABLY FOR DISPLAY DURING SERVICER EBANKSAV ERASE MARKEBAN ERASE EBANKTEM ERASE MARK2PAC ERASE R1SAVE ERASE # IMU COMPENSATION UNSWITCHED ERASABLE. (1D) 1/PIPADT ERASE # SINGLE PRECISION SUBROUTINE TEMPORARIES (2D) TEMK ERASE # (1) SQ ERASE # (1) # UNSWITCHED RADAR ERASABLE SAMPLIM ERASE SAMPLSUM ERASE +3 TIMEHOLD ERASE +1 RRTARGET EQUALS SAMPLSUM # HALF U IT VECTOR IN SM OR NB AXES. TANG ERASE +1 # DESIRE TRUNNION AND SHAFT ANGLES. MODEA EQUALS TANG MODEB ERASE +1 # DODES LOBBERS TANG +2. NSAMP EQUALS MODEB DESRET ERASE OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES. DESCOUNT ERASE # ****** P22 ****** (6D) RSUBC EQUALS RRTARGET # I(6) S-S CSM POSITION VECTOR. # Page 104 # UNSWITCHED FOR ORBIT INTEGRATION (21D) TDEC ERASE +20D # I(2) COLREG EQUALS TDEC +2 # I(1) LAT EQUALS COLREG +1 # I(2) LONG EQUALS LAT +2 # I(2) ALT EQUALS LONG +2 # I(2) YV EQUALS ALT +2 # I(6) ZV EQUALS YV +6 # I(6) # MISCELLANEOUS UNSWITCHED. (20D) P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM) GENRET ERASE # B(1) R61 RETURN CADR. OPTION1 ERASE # B(1) NOUN 06 USES THIS OPTION2 ERASE # B(1) NOUN 06 USES THIS OPTION3 ERASE # B(1) NOUN 06 USES THIS LONGCADR ERASE +1 # B(2) LONGCALL REGISTER LONGBASE ERASE +1 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER CDUTEMPX ERASE # B(1)TMP CDUTEMPY ERASE # B(1)TMP CDUTEMPZ ERASE # B(1)TMP PIPATMPX ERASE # B(1)TMP PIPATMPY ERASE # B(1)TMP PIPATMPZ ERASE # B(1)TMP DISPDEX ERASE # B(1) TEMPR60 ERASE # B(1) PRIOTIME ERASE # B(1) # P27 (UPDATE PROGRAM) STORAGE (26D) UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED. UPTEMP ERASE +24D # B(1)TMP SCRATCH INTWAK1Q EQUALS UPTEMP # (BORROWS UPTEMP REGISTERS) # RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES. COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTD PROGRAM MM UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX UPBUFF EQUALS UPCOUNT +1 # B(20D) # SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D) EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST. # Page 105 # PERM STATE VECTORS FOR BOOST AND DOWNLINK -- WHOLE MISSION -- (14D) RN ERASE +5 # B(6)PRM VN ERASE +5 # B(6)PRM PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2) # SERVICER -- MUST FOLLOW PIPTIME -- (19D) GDT/2 ERASE +19D # B(6)TMP ** MUST FOLLOW PIPTIME ** MASS EQUALS GDT/2 +6 # B(2) WEIGHT/G = MASS ABDELV EQUALS MASS +2 # (KALCMANU STORAGE) PGUIDE EQUALS ABDELV +1 # (2) DVTHRUSH EQUALS PGUIDE +2 # (1) AVEGEXIT EQUALS DVTHRUSH +1 # (2) AVGEXIT = AVEGEXIT TEMX EQUALS AVEGEXIT +2 # (1) TEMY EQUALS TEMX +1 # (1) TEMZ EQUALS TEMY +1 # (1) PIPAGE EQUALS TEMZ +1 # B(1) OUTROUTE EQUALS PIPAGE +1 # B(1) # PERMANENT LEM DAP STORAGE (12D) CH5MASK ERASE # B(1)PRM CH6MASK ERASE # B(1)PRM JET FAILURE MASK. DTHETASM ERASE +5 # (6) SPNDX ERASE # B(1) RCSFLAGS ERASE # AUTOPILOT FLAG WORD # BIT ASSIGNMENTS: # 1) ALTERYZ SWITCH (ZEROOR1) # 2) NEEDLER SWITCH # 3) NEEDLER SWITCH # 4) NEEDLER SWITCH # 5) NEEDLER SWITCH # 9) JUST-IN-DETENT SWITCH # 10) PBIT -- MANUAL CONTROL SWITCH # 11) QRBIT -- MANUAL CONTROL SWITCH # 12) PSKIP CONTROL (PJUMPADR) # 13) 1/ACCJOB CONTROL (ACCSET) T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR * # BBCON OF NEXT LM DAP T5RUPT. 2CADR # ERASABLES FOR P64: OVERLAY OF DTHETASM, WHICH IS UNUSED (4D) ZERLINA EQUALS DTHETASM # B(1) P64 # Page 106 ELVIRA EQUALS ZERLINA +1 # B(1) P64 AZINCR1 EQUALS ELVIRA +1 # B(1) P64 ELINCR1 EQUALS AZINCR1 +1 # B(1) P64 # RCS FAILURE MONITOR STORAGE (1) PVALVEST ERASE # B(1)PRM # KALCMANU/DAP INTERFACE (3D) DELPEROR ERASE # B(1)PRM COMMAND LAGS. DELQEROR ERASE # B(1)PRM DELREROR ERASE # B(1)PRM # MODE SWITCHING ERASABLE. (9D) # RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES IMODES30 ERASE # B(1) IMODES33 ERASE MODECADR ERASE +2 # B(3)PRM IMUCADR EQUALS MODECADR OPTCADR EQUALS MODECADR +1 RADCADR EQUALS MODECADR +2 ATTCADR ERASE +2 # B(3)PRM ATTPRIO = ATTCADR +2 MARKSTAT ERASE # T4RUPT ERASABLE (2D) DSRUPTSW ERASE LGYRO ERASE # (1) # RENDEZVOUS RADAR TASK STORAGE (3D) RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12 RDES EQUALS RRRET +1 # B(1)TMP RRINDEX EQUALS RDES +1 # B(1)TMP # MEASINC (4D) WIXA ERASE # B(1) WIXB ERASE # B(1) ZIXA ERASE # B(1) ZIXB ERASE # B(1) # Page 107 # AGS DUMMY ID WORD. (1D) AGSWORD ERASE # SOME MISCELLANEOUS UNSWITCHED. (6D) RATEINDX ERASE # (1) USED BY KALCMANU DELAYLOC ERASE +2 LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS. (1) EACH CSMMASS ERASE # LESS IS MORE. # RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D) # # (NORMALLY USED DURING P20, BUT MAY ALSO) # (BE REQUIRED FOR THE V62 SPURIOUS TEST.) # # (PLEASE KEEP IN THIS ORDER) DNRRANGE ERASE +6 # B(1)TMP DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP DNINDEX EQUALS DNRRDOT +1 # B(1)TMP DNLRVELX EQUALS DNINDEX +1 # B(1)TMP DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP DNLRALT EQUALS DNLRVELZ +1 # B(1)TMP # INCORPORATION UNSWITCHED (2D) W.IND EQUALS PIPAGE # B(1) W.INDI EQUALS W.IND +1 # I(1) # SUBROUTINE BALLANGS OF R60. BALLEXIT ERASE # B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT # SOME LEM DAP STORAGE. (4D) DAPDATR1 ERASE # B(1)DSP DAP CONFIG. TEVENT ERASE +1 # B(2)DSP DB ERASE # B(1)TMP DEAD BAND. # NOUN 87 (2D) AZ ERASE +1D # B(1) AZ AND EL MUST BE CONTIGUOUS # Page 108 EL EQUALS AZ +1D # B(1) # P63, P64, P65, P66, AND P67. (1D) WCHPHASE ERASE # B(1) # ERASABLES FOR THE R2 LUNAR POTENTIAL MODEL (2D) E3J22R2M ERASE # I(1) E32C31RM ERASE # I(1) RADSKAL ERASE +1 # LR ALT DOPPLER BIAS: 2T/LAMBDA SCALED # AT 1/(2(7) M/CS) SKALSKAL ERASE # LR ALT SCALE FACTOR RATIO: .2 NOM END-UE EQUALS # NEXT UNUSED UE ADDRESS # SELF-CHECK ASSIGNMENTS (17D) SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED *** SFAIL EQUALS SELFERAS # B(1) ERESTORE EQUALS SFAIL +1 # B(1) SELFRET EQUALS ERESTORE +1 # B(1) RETURN SMODE EQUALS SELFRET +1 # B(1) ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR ERCOUNT EQUALS ALMCADR +2 # B(1) SCOUNT EQUALS ERCOUNT +1 # B(3) SKEEP1 EQUALS SCOUNT +3 # B(1) SKEEP2 EQUALS SKEEP1 +1 # B(1) SKEEP3 EQUALS SKEEP2 +1 # B(1) SKEEP4 EQUALS SKEEP3 +1 # B(1) SKEEP5 EQUALS SKEEP4 +1 # B(1) SKEEP6 EQUALS SKEEP5 +1 # B(1) SKEEP7 EQUALS SKEEP6 +1 # B(1) # Page 109 # EBANK-3 ASSIGNMENTS SETLOC 1400 # WAITLIST TASK LISTS. (26D) LST1 ERASE +7 # B(8D)PRM DELTA T'S. LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES. # RESTART STORAGE. (2D) RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS # MORE LONGCALL STORAGE. (MUST BE IN LST1'S BANK. (2D) LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED. # PHASE-CHANGE LISTS PART II. (12D) PHSNAME1 ERASE # B(1)PRM PHSBB1 ERASE # B(1)PRM PHSNAME2 ERASE # B(1)PRM PHSBB2 ERASE # B(1)PRM PHSNAME3 ERASE # B(1)PRM PHSBB3 ERASE # B(1)PRM PHSNAME4 ERASE # B(1)PRM PHSBB4 ERASE # B(1)PRM PHSNAME5 ERASE # B(1)PRM PHSBB5 ERASE # B(1)PRM PHSNAME6 ERASE # B(1)PRM PHSBB6 ERASE # B(1)PRM # IMU COMPENSATION PARAMETERS (22D) PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTOR TERMS PIPABIAS = PBIASX # INTERMIXED. PIPASCFX ERASE PIPASCF = PIPASCFX PBIASY ERASE PIPASCFY ERASE PBIASZ ERASE PIPASCFZ ERASE NBDX ERASE # GYRO BIAS DRIFT NBDY ERASE NBDZ ERASE # Page 110 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE ADIAY ERASE # INPUT AXIS ADIAZ ERASE ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE ADSRAY ERASE # SPIN REFERENCE AXIS ADSRAZ ERASE GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES COMMAND EQUALS GCOMP CDUIND EQUALS GCOMP +3 GCOMPSW ERASE # STATE VECTORS FOR ORBIT INTEGRATION. (44D) # (DIFEQCNT THUR XKEP MUST BE IN THE SAME # EBANK AS RRECTCSM, RRECTLEM ETC # BECAUSE THE COPY-CYCLES (ATOPCSM, # PTOACSM ETC) ARE EXECUTED IN BASIC. # ALL OTHER REFERENCES TO THIS GROUP # ARE BY INTERPRETIVE INSTRUCTIONS.) # DIFEQCNT ERASE +43D # B(1) # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER) UPSVFLAG EQUALS DIFEQCNT +1 # B(1) RRECT EQUALS UPSVFLAG +1 # B(6) VRECT EQUALS RRECT +6 # B(6) TET EQUALS VRECT +6 # B(2) TDELTAV EQUALS TET +2 # B(6) TNUV EQUALS TDELTAV +6 # B(6) RCV EQUALS TNUV +6 # B(6) VCV EQUALS RCV +6 # B(6) TC EQUALS VCV +6 # B(2) XKEP EQUALS TC +2 # B(2) # PERMANENT STATE VECTORS AND TIMES. # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST) # (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER) RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES. RRECTOTH = RRECTCSM VRECTCSM ERASE +5 # B(6)PRM # Page 111 TETCSM ERASE +1 # B(2)PRM TETOTHER = TETCSM DELTACSM ERASE +5 # B(6)PRM NUVCSM ERASE +5 # B(6)PRM RCVCSM ERASE +5 # B(6)PRM VCVCSM ERASE +5 # B(6)PRM TCCSM ERASE +1 # B(2)PRM XKEPCSM ERASE +1 # B(2)PRM # (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER) RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES RRECTHIS = RRECTLEM VRECTLEM ERASE +5 # B(6)PRM TETLEM ERASE +1 # B(2)PRM TETTHIS = TETLEM DELTALEM ERASE +5 # B(6)PRM NUVLEM ERASE +5 # B(6)PRM RCVLEM ERASE +5 # B(6)PRM VCVLEM ERASE +5 # B(6)PRM TCLEM ERASE +1 # B(2)PRM XKEPLEM ERASE +1 # B(2)PRM X789 ERASE +5 TEPHEM ERASE +2 AZO ERASE +1 -AYO ERASE +1 AXO ERASE +1 # STATE VECTORS FOR DOWNLINK (12D) R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK # REFSMMAT. (18D) REFSMMAT ERASE +17D # I(18D)PRM # ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D) ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE # VEHICLE AT TPI TIG AND TARGET VECTOR. # **** USED IN CONICSEX (PLAN INERT ORIENT) **** # Page 112 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION) # LPS20.1 STORAGE -- ALL ARE PRM -- (9D) LS21X ERASE # I(1) LOSVEL ERASE +5 # I(6) MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS. METERS B-29 # ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D) VSUBC EQUALS LOSVEL # I(6) S-S CSM VELOCITY VECTOR # PADLOADED ERASABLES FOR P20/P22 (6D) RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE RATEVAR ERASE +1 # I(2) RR RANGE RATE ERROR VARIANCE RVARMIN ERASE # I(1) MINIMUM RANGE ERROR VARIANCE VVARMIN ERASE # I(1) MINIMUM RANGE-RATE ERROR VARIANCE # P32-P33 STORAGE (2D) TCDH ERASE +1 # I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED) END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 ** # Page 113 # EBANK-4 ASSIGNMENTS SETLOC 2000 # E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE. AMEMORY EQUALS # P20 STORAGE. -- PAD LOADED -- (6D) WRENDPOS ERASE # B(1)PL KM*2(-7) WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11) WSHAFT ERASE # B(1)PL KM*2(-7) WTRUN ERASE # B(1)PL KM*2(-7) RMAX ERASE # B(1)PL METERS*2(-19) VMAX ERASE # B(1)PL M/CSEC*2(-7) # LUNAR SURFACE NAVIGATION (2D) WSURFPOS ERASE # B(1)PL WSURFVEL ERASE # B(1)PL # P22 STORAGE. -- PAD LOADED -- (2D) SHAFTVAR ERASE # B(1)PL RAD SQ*2(12) TRUNVAR ERASE # B(1)PL RAD SQ*2(10) # CONISEX STORAGE. -- PAD LOADED -- 504LM ERASE +5 # I(6) MOON LIBRATION VECTOR # V47 (R47) AGS INITIALIZATION STORAGE. -- PAD LOADED -- (2D) AGSK ERASE +1 # LUNAR LANDING STORAGE. -- PAD LOADED -- (6D) RLS ERASE +5 # I(6) LANDING SITE VECTOR -- MOON REF # INTEGRATION STORAGE. (102D) PBODY ERASE +101D # I(1) # Page 114 ALPHAV EQUALS PBODY +1 # I(6) BETAV EQUALS ALPHAV +6 # I(6) PHIV EQUALS BETAV +6 # I(6) PSIV EQUALS PHIV +6 # I(6) FV EQUALS PSIV +6 # I(6) PERTURBING ACCELERATIONS ALPHAM EQUALS FV +6 # I(2) BETAM EQUALS ALPHAM +2 # I(2) TAU. EQUALS BETAM +2 # I(2) DT/2 EQUALS TAU. +2 # I(2) H EQUALS DT/2 +2 # I(2) GMODE EQUALS H +2 # I(1) IRETURN EQUALS GMODE +1 # I(1) NORMGAM EQUALS IRETURN +1 # I(1) RPQV EQUALS NORMGAM +1 ORIGEX EQUALS RPQV +6 # I(1) KEPRTN EQUALS ORIGEX # I(1) RQVV EQUALS ORIGEX +1 # I(6) RPSV EQUALS RQVV +6 # I(6) XKEPNEW EQUALS RPSV +6 # I(2) VECTAB EQUALS XKEPNEW +2 # I(36D) VECTABND EQUALS VECTAB +35D # END MARK # THESE PROBABLY CAN SHARE MID-COURSE VARIABLES. (6D) VACX EQUALS VECTAB +6 # I(2) VACY EQUALS VACX +2 # I(2) VACZ EQUALS VACY +2 # I(2) # SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D) XNBPIP EQUALS VECTAB +12D # I(6) YNBPIP EQUALS XNBPIP +6 # I(6) ZNBPIP EQUALS YNBPIP +6 # I(6) # SOME VERB 82 STORAGE (4D) HAPOX EQUALS RQVV +4 # I(2) HPERX EQUALS HAPOX +2 # I(2) # V82 STORAGE (6D) VONE' EQUALS VECTAB +30D # I(T)TMP NORMAL VELOCITY VONE / SQRT. MU # R32(V83) STORAGE. -- SHARES WITH INTEGRATION STORAGE -- (28D) # Page 115 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =2 FOR MOON STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP BASEOTV EQUALS RQVV +4 # I(6) BASE VEL VECTOR OTHER VEH BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH # KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D) # CONICS) EPSILONT ERASE +1 # I(2) # VERB 83 STORAGE (18D) RANGE ERASE +17D # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54. RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH) VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH) # VERB 67 STORAGE WWPOS = RANGE # NOUN 99 (V67) WWVEL = RRATE # NOUN 99 (V67) WWBIAS = RTHETA # NOUN 99 (V67) # V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (11D) TWO SEPARAT LOCATIONS V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS. TFF EQUALS V82FLAGS +1 # I(2) -TPER EQUALS TFF +2 # I(2) HPERMIN EQUALS RANGE # I(2) SET TO 300KFT FOR SR30.1 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE VOR V82. # VARIOUS DISPLAY REGISTERS (6D) NOUN 84; P76 # Page 116 DELVOV ERASE +5D # (6) # ALIGNMENT PLANETARY -- INERTIAL TRANSFORMATION STORAGE. (18D) # UNSHARED WHILE LM ON LUNAR SURFACE. GSAV ERASE +17D # I(6) YNBSAV EQUALS GSAV +6 # I(6) ZNBSAV EQUALS YNBSAV +6 # I(6) # KALCMANU STORAGE, CAN OVERLAY GSAV. (18D) MFS EQUALS GSAV # I(18) MFI EQUALS MFS # I KEL EQUALS MFS # I(18) E01 EQUALS MFS # I(6) E02 EQUALS E01 +6 # I(6) # LR VEL BEAM VECTORS. (26D) # CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY. VZBEAMNB EQUALS GSAV # I(6) LR VELOCITY BEAMS IN NB COORDS. VYBEAMNB EQUALS VZBEAMNB +6 # I(6) VXBEAMNB EQUALS VYBEAMNB +6 # I(6) PRESERVE Z,Y,X ORDER LRVTIME = VXBEAMNB +6 # B(2) LR LRXCDU = LRVTIME +2 # B(1) LR LRYCDU = LRXCDU +1 # B(1) LR LRZCDU = LRYCDU +1 # B(1) LR PIPTEM = LRZCDU +1 # B(3) LR # P32-P35, P72-P75 STORAGE. (40D) T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH T2TOT3 ERASE +1 # (2) ELEV ERASE +1 # (2) UP1 ERASE +5 # (6) DELVEET1 ERASE +5 # I(6) DV CSI IN REF DELVEET2 ERASE +5 # I(6) DV CSH IN REF RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME # Page 117 RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE RTMU ERASE +1 # (2) MU STORAGE # (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION) +MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3 UNRM EQUALS UP1 # I(6) S-S DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY, LOS COORD-DISPLAY ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI-TIME FOR RECYCLE # SOME P30 STORAGE. (4D) HAPO EQUALS RTSR1/MU # I(2) HPER EQUALS HAPO +2 # I(2) # SOME P38-P39,P78-79 STORAGE # (6D) DELTAR EQUALS DVLOS # I(2) DELTTIME EQUALS DELTAR +2 # I(2) TIME REPRESENTATION OF DELTAR TARGTIME EQUALS DELTTIME +2 # I(2) TINT MINUS DELTTIME TINTSOI EQUALS DELTAR # I(2) TIME OF INTERCEPT FOR SOI PHASE # THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST. TRANSM1 = WRENDPOS # E4,1400 ALFDK = TRANSM1 +18D # ****** THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE ****** # V47 (R47) AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D) AGSBUFF EQUALS RANGE # B(14D) AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK # Page 118 # R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D) RPASS36 EQUALS RONE # I(6) S-S UNP36 EQUALS RPASS36 +6 # I(6) S-S # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (V64). (OVERLAYS V83) (10D) # (OPERATES DURING P00 ONLY) ALPHASB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE. BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE. RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR. # **** USED IN S-BAND ANTENNA FOR LM **** YAWANG EQUALS BETASB PITCHANG EQUALS ALPHASB # NOUN 56 DATA -- COMPUTED AND DISPLAYED BY VERB 85. RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE # R04 (V62) RADAR TEST STORAGE. # R04 IS RESTRICTED TO P00. RSTACK EQUALS RANGE # B(8) BUFFER FOR R04 NOUNS. # INITVEL STORAGE. ALSO USED BY P31, P34, P35, P74, P75, P10, P11, MIDGIM, S40.1 AND S40.9. (18D) # (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE) RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS. # VARIOUS DISPLAY REGISTERS. BALLANGS (3D) FDAIX ERASE # I(1) FDAIY ERASE # I(1) FDAIZ ERASE # I(1) # P34-P35 STORAGE. DOWNLINKED. (2D) DELVTPF ERASE +1 # I(2) DELTA V FOR TPF # SOME R04(V63)-R77 RADAR TEST STORAGE. (6D) # Page 119 RTSTDEX ERASE # (1) RTSTMAX ERASE # (1) RTSTBASE ERASE # (1) RTSTLOC ERASE # (1) RSTKLOC = RTSTLOC RSAMPDT ERASE # (1) RFAILCNT ERASE # (1) # LPS20.1 STORAGE. (12D) LMPOS EQUALS RTSTDEX # I(6)TMP STORAGE FOR LM POS. VECTOR. LMVEL EQUALS LMPOS +6 # I(6)TMP STORAGE FOR LM VEL. VECTOR. # INITVEL STORAGE. ALSU USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED. (6D) DELVEET3 EQUALS LMVEL +6 # I(6) DELTA V IN INERTIAL COORDINATES END-E4 EQUALS # FIRST UNUSED LOCATION IN E4 # SECOND DPS GUIDANCE (LUNAR LANDING) (OVERLAY P32-35, INITVEL) (14D) VHORIZ EQUALS PIPTEM +3 # I(2) DISPLAY ANGTERM EQUALS VHORIZ +2 # I(6) GUIDANCE HBEAMNB EQUALS ANGTERM +6 # I(6) LANDING RADAR # R12 DOWNLINK QUANTITIES (5D) LRXCDUDL EQUALS /LAND/ +2 # B(1) LANDING RADAR DOWNLINK LRYCDUDL EQUALS LRXCDUDL +1 # B(1) LANDING RADAR DOWNLINK LRZCDUDL EQUALS LRYCDUDL +1 # B(1) LANDING RADAR DOWNLINK LRVTIMDL EQUALS LRZCDUDL +1 # B(2) LANDING RADAR DOWNLINK # ASCENT GUIDANCE FOR LUNAR LANDING (54D) AT EQUALS PIPTEM +3 # I(2)TMP ENGINE DATA -- THRUST ACC*2(9) VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS. TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS. TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS. RDOTD EQUALS TBUP +2 # I(2)TMP TARGET VELOCITY COMPONENTS YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS. ZDOTD EQUALS YDOTD +2 # I(2)TMP /R/MAG EQUALS ZDOTD +2 # I(2)TMP LAXIS EQUALS /R/MAG +2 # I(6)TMP # Page 120 ZAXIS1 = UHZP RDOT = HDOTDISP YDOT = LAXIS +6 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7) ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL * 2(-7) GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY # THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION Y EQUALS /LAND/ +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION ATY EQUALS YRATE +2 # I(2)TMP OUT-OF-PLANE THRUST COMP. *2(9) ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP. * 2(9) ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP YAW EQUALS ATP +2 # I(2)TMP PITCH EQUALS YAW +2 # I(2)TMP # SERVICER FOR LUNAR ASCENT AND DESCENT (14D) G(CSM) EQUALS GEFF +2 # I(6) FOR UPDATE OF COMMAND MODULE STATE R(CSM) EQUALS R-OTHER # VECTORS BY LEM: ANALOGS OF GDT/2, V(CSM) EQUALS V-OTHER # R, AND V, RESPECTIVELY OF THE CSM WM EQUALS G(CSM) +6 # I(6)TMP -- LUNAR ROTATION VECTOR (SM) /LAND/ EQUALS WM +6 # B(2) LUNAR RADIUS AT LANDING SITE # Page 121 # EBANK-5 ASSIGNMENTS SETLOC 2400 # W-MATRIX. ESSENTIALLY UNSHARABLE. (162D) W ERASE +161D ENDW EQUALS W +162D # ******* OVERLAY NUMBER 1 IN EBANK 5 ******* # W-MATRIX PADLOADS (124D) TLAND EQUALS W # I(2) NOMINAL TIME OF LANDING RBRFG EQUALS TLAND +2 # I(6) BRAKING VBRFG EQUALS RBRFG +6 # I(6) PHASE ABRFG EQUALS VBRFG +6 # I(6) TARGET VBRFG* EQUALS ABRFG +6 # I(2) PARAMETERS: ABRFG* EQUALS VBRFG* +2 # I(2) HIGH JBRFG* EQUALS ABRFG* +2 # I(2) GATE GAINBRAK EQUALS JBRFG* +2 # B(2) TCGFBRAK EQUALS GAINBRAK +2 # B(1) TCGIBRAK EQUALS TCGFBRAK +1 # B(1) RAPFG EQUALS TCGIBRAK +1 # I(6) APPROACH VAPFG EQUALS RAPFG +6 # I(6) PHASE AAPFG EQUALS VAPFG +6 # I(6) TARGET VAPFG* EQUALS AAPFG +6 # I(2) PARAMETERS: AAPFG* EQUALS VAPFG* +2 # I(2) LOW JAPFG* EQUALS AAPFG* +2 # I(2) GATE GAINAPPR EQUALS JAPFG* +2 # B(2) TCGFAPPR EQUALS GAINAPPR +2 # B(1) TCGIAPPR EQUALS TCGFAPPR +1 # B(1) VIGN EQUALS TCGIAPPR +1 # I(2) DESIRED SPEED FOR IGNITION RIGNX EQUALS VIGN +2 # I(2) DESIRED `ALTITUDE' FOR IGNITION RIGNZ EQUALS RIGNX +2 # I(2) DESIRED GROUND RANGE FOR IGNITION KIGNX/B4 EQUALS RIGNZ +2 # I(2) KIGNY/B8 EQUALS KIGNX/B4 +2 # I(2) KIGNV/B4 EQUALS KIGNY/B8 +2 # I(2) LOWCRIT EQUALS KIGNV/B4 +2 # B(1) (HIGHCRIT MUST FOLLOW LOWCRIT) HIGHCRIT EQUALS LOWCRIT +1 # B(1) V2FG EQUALS HIGHCRIT +1 # I(6) DESIRED VELOCITY FOR P65. TAUVERT EQUALS V2FG +6 # I(2) TIME CONSTANT FOR P65 VEL. NULLING. DELQFIX EQUALS TAUVERT +2 # I(2) LR ALTITUDE DATA REASONABLE PARM. LRALPHA EQUALS DELQFIX +2 # B(1) POS1 X ROTATION * MUST * # Page 122 LRBETA1 EQUALS LRALPHA +1 # B(1) POS1 Y ROTATION * BE * LRALPHA2 EQUALS LRBETA1 +1 # B(1) POS2 X ROTATION * IN * LRBETA2 EQUALS LRALPHA2 +1 # B(1) POS2 Y ROTATION * ORDER* LRVMAX EQUALS LRBETA2 +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRVF EQUALS LRVMAX +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVZ EQUALS LRVF +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVY EQUALS LRWVZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVX EQUALS LRWVY +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVFZ EQUALS LRWVX +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVFY EQUALS LRWVFZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVFX EQUALS LRWVFY +1 # B(1) LR VEL WEIGHTING FUNCTIONS LRWVFF EQUALS LRWVFX +1 # B(1) LR VEL WEIGHTING FUNCTIONS ABVEL* EQUALS BUF # B(1) LR TEMP VSELECT* EQUALS BUF +1 # B(1) LR TEMP RODSCALE EQUALS LRWVFF +1 # I(1) CLICK SCALE FACTOR FOR ROD TAUROD EQUALS RODSCALE +1 # I(2) TIME CONSTANT FOR R.O.D. LAG/TAU EQUALS TAUROD +2 # I(2) LAG TIME DIVIDED BY TAUROD (P66) MINFORCE EQUALS LAG/TAU +2 # I(2) MINIMUM FORCE P66 WILL COMMAND MAXFORCE EQUALS MINFORCE +2 # I(2) MAXIMUM FORCE P66 WILL COMMAND. ABTCOF EQUALS MAXFORCE +2 # I(16) COEFFICIENTS FOR ABORT TFI POLYS. VMIN EQUALS ABTCOF +16D # I(2) MINIMUM VELOCITY FOR ABORT INJ. YLIM EQUALS VMIN +2 # I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS ABTRDOT EQUALS YLIM +2 # I(2) DESIRED RADIAL VEL. FOR ABORTS. COSTHET1 EQUALS ABTRDOT +2 # I(2) COS CONE 1 ANGLE FOR ABORTS. COSTHET2 EQUALS COSTHET1 +2 # I(2) COS OF CONE 2 ANGLE FOR ABORTS. # SOME VARIABLES FOR SECOND DPS GUIDANCE. (34D) CG EQUALS COSTHET2 +2 # I(18D) GUIDANCE RANGEDSP EQUALS CG +18D # B(2) DISPLAY OUTOFPLN EQUALS RANGEDSP +2 # B(2) DISPLAY R60VSAVE EQUALS OUTOFPLN +2 # I(6)TMP SAVES VALUE OF POINTVSM THRU R51 RGU EQUALS R60VSAVE +6 # I(6) UNSHARED FOR DOWNLINK VBIAS EQUALS R60VSAVE # I(6) PIPA BIAS EQUIV. VELOCITY VECTOR. L*WCR*T = BUF H*GHCR*T = BUF +1 # ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (36D) XSM EQUALS ENDW # B(6) YSM EQUALS XSM +6 # B(6) ZSM EQUALS YSM +6 # B(6) XDC EQUALS ZSM +6 # B(6) YDC EQUALS XDC +6 # B(6) ZDC EQUALS YDC +6 # B(6) # Page 123 XNB = XDC YNB = YDC ZNB = ZDC # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (4D) -COSB EQUALS XSM +2 # (2)TMP SINB EQUALS -COSB +2 # (2)TMP # MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52) (6D) LANDLAT EQUALS STARAD # (2) LATTITUDE, LONGITUDE LANDLONG EQUALS LANDLAT +2 # (2) AND ALTITUDE LANDALT EQUALS LANDLONG +2 # (2) OF LANDING SITE # ALIGNMENT/SYSTEST COMMON STORAGE. (31D) STARAD EQUALS ZDC +6 # I(18D)TMP STAR EQUALS STARAD +18D # I(6) GCTR EQUALS STAR +6 # B(1) OGC EQUALS GCTR +1 # I(2) IGC EQUALS OGC +2 # I(2) MGC EQUALS IGC +2 # I(2) # P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D) GACC = STARAD # (6) SS GOUT = STARAD +6 # (6) SS # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D) VEARTH EQUALS STARAD # (6)TMP VSUN EQUALS VEARTH +6 # (6)TMP VMOON EQUALS VSUN +6 # (6)TMP SAX EQUALS VMOON +6 # (6)TMP # P50'S, R50'S Q STORES (2D) QMIN EQUALS MGC +2 # B(1)TMP QMAJ EQUALS QMIN +1 # B(1)TMP # **** USED IN P50S **** (SCATTERED OVERLAYS) XSCI EQUALS STARAD YSCI EQUALS XSCI +6 # Page 124 ZSCI EQUALS YSCI CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON VEC1 EQUALS STARAD +12D VEC2 EQUALS STAR # ALIGNMENT STORAGE. (23D) OGCT EQUALS QMAJ +1 # I(6) BESTI EQUALS OGCT +6 # I(1) BESTJ EQUALS BESTI +1 STARIND EQUALS BESTJ +1 # RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES STARSAV1 EQUALS STARIND +1 # I(6) STARSAV2 EQUALS STARSAV1 +6 # I(6) TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED) # P32-35 + SERVICER RTX1 EQUALS TALIGN +2 # I(1) X1 -2 EARTH, -10 MOON RTX2 EQUALS RTX1 +1 # I(1) X2 0 EARTH, 2 MOON ZPRIME = 22D PDA = 22D COSTH = 16D SINTH = 18D THETA = 20D STARM = 32D # Page 125 # ******* OVERLAY NUMBER 2 IN EBANK 5 ******* # CONICS ROUTINE STORAGE. (85D) DELX EQUALS ENDW # I(2)TMP DELT EQUALS DELX +2 # I(2)TMP URRECT EQUALS DELT +2 # I(6)TMP RCNORM EQUALS 34D # I(2)TMP XPREV EQUALS XKEP # I(2)TMP R1VEC EQUALS URRECT +6 # I(6)TMP R2VEC EQUALS R1VEC +6 # I(6)TMP TDESIRED EQUALS R2VEC +6 # I(2)TMP GEOMSGN EQUALS TDESIRED +2 # I(1)TMP UN EQUALS GEOMSGN +1 # I(6)TMP VTARGTAG EQUALS UN +6 # I(1)TMP VTARGET EQUALS VTARGTAG +1 # I(6)TMP RTNLAMB EQUALS VTARGET +6 # I(1)TMP U2 EQUALS RTNLAMB +1 # I(6)TMP MAGVEC2 EQUALS U2 +6 # I(2)TMP UR1 EQUALS MAGVEC2 +2 # I(6)TMP SNTH EQUALS UR1 +6 # I(2)TMP CSTH EQUALS SNTH +2 # I(2)TMP 1-CSTH EQUALS CSTH +2 # I(2)TMP CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP P EQUALS CSTH-RHO +2 # I(2)TMP R1A EQUALS P +2 # I(2)TMP RVEC EQUALS R1VEC # I(6)TMP VVEC EQUALS R1A +2 # I(6)TMP RTNTT EQUALS RTNLAMB # I(1)TMP ECC EQUALS VVEC +6 # I(2)TMP RTNTR EQUALS RTNLAMB # I(1)TMP RTNAPSE EQUALS RTNLAMB # I(1)TMP R2 EQUALS MAGVEC2 # I(2)TMP RTNPRM EQUALS ECC +2 # I(1)TMP SGNRDOT EQUALS RTNPRM +1 # I(1)TMP RDESIRED EQUALS SGNRDOT +1 # I(2)TMP DELDEP EQUALS RDESIRED +2 # I(2)TMP DEPREV EQUALS DELDEP +2 # I(2)TMP TERRLAMB EQUALS DELDEP # I(2)TMP TPREV EQUALS DEPREV # I(2)TMP EPSILONL EQUALS DEPREV +2 # I(2)TMP COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE. INDEP EQUALS COGA # USED BY SUBROUTINE `ITERATOR'. # Page 126 # ******* OVERLAY NUMBER 3 IN EBANK 5 ******* # INCORP STORAGE. (18D) ZI EQUALS ENDW # I(18D)TMP # INCORP/L SR22.3 STORAGE. (21D) DELTAX EQUALS ZI +18D # I(18) VARIANCE EQUALS DELTAX +18D # I(3) # MEASUREMENT INCORPORATION -R22- STORAGE. (49D) GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS OMEGAM1 EQUALS GRP2SVQ +1 # I(6) OMEGAM2 EQUALS OMEGAM1 +6 # I(6) OMEGAM3 EQUALS OMEGAM2 +6 # I(6) HOLDW EQUALS OMEGAM3 +6 # I(18) TDPOS EQUALS HOLDW +18D # I(6) TDVEL EQUALS TDPOS +6 # I(6) TRIPA EQUALS DELTAX # I(3)TMP TEMPVAR EQUALS TRIPA +3 # I(3)TMP # INCORPORATION/INTEGRATION Q STORAGE. (1D) EGRESS EQUALS TDVEL +6 # I(1) # P30/P31 STORAGE. (1D) AND ONE OVERLAY P30EXIT EQUALS EGRESS +1 # B(1)TMP ORIGIN EQUALS P30EXIT # I(1)TMP INTEX DURING INITVEL. # Page 127 # SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D) # ******* OVERLAY NUMBER 0 IN EBANK 5 ******* AZIMUTH EQUALS W # 2 LATITUDE EQUALS AZIMUTH +2 # 2 ERVECTOR EQUALS LATITUDE +2 # 6 LENGTHOT EQUALS ERVECTOR +6 # 1 LOSVEC EQUALS LENGTHOT +1 # 6 NDXCTR EQUALS LOSVEC +1 # 1 PIPINDEX EQUALS NDXCTR +1 # 1 POSITON EQUALS PIPINDEX +1 # 1 QPLACE EQUALS POSITON +1 # 1 QPLACES EQUALS QPLACE +1 # 1 SOUTHDR EQUALS QPLACES +1 # 7 TEMPTIME EQUALS SOUTHDR +7 # 2 TMARK EQUALS TEMPTIME +2 # 2 GENPL EQUALS TMARK +2 CDUTIMEI = GENPL CDUTIMEF = GENPL +2 CDUDANG = GENPL +4 CDUREADF = GENPL +5 CDUREADI = GENPL +6 CDULIMIT = GENPL +7 TEMPADD = GENPL +4 TEMP = GENPL +5 NOBITS = GENPL +6 CHAN = GENPL +7 LOS1 = GENPL +8D LOS2 = GENPL +14D CALCDIR EQUALS GENPL +20D CDUFLAG EQUALS GENPL +21D GYTOBETQ EQUALS GENPL +22D OPTNREG EQUALS GENPL +23D SAVE EQUALS GENPL +24D # THREE ONSEC LOC SFCONST1 EQUALS GENPL +27D TIMER EQUALS GENPL +28D DATAPL EQUALS GENPL +30D RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1 MASKREG EQUALS GENPL +64D CDUNDX EQUALS GENPL +66D RESULTCT EQUALS GENPL +67D COUNTPL EQUALS GENPL +70D CDUANG EQUALS GENPL +71D # Page 128 AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS WANGO EQUALS AINLA # VERT ERATE WANGI EQUALS AINLA +2D # HORIZONTAL ERATE WANGT EQUALS AINLA +4D # T TORQNDX = WANGT DRIFTT EQUALS AINLA +6D ALX1S EQUALS AINLA +8D CMPX1 EQUALS AINLA +9D # IND ALK EQUALS AINLA +10D # GAINS VLAUNS EQUALS AINLA +22D WPLATO EQUALS AINLA +24D INTY EQUALS AINLA +28D # SOUTH IP INTE ANGZ EQUALS AINLA +30D # EAST A IS INTZ EQUALS AINLA +32D # EAST P P I ANGY EQUALS AINLA +34D # SOUTH ANGX EQUALS AINLA +36D # VE DRIFTO EQUALS AINLA +38D # VERT DRIFTI EQUALS AINLA +40D # SOU VLAUN EQUALS AINLA +44D ACCWD EQUALS AINLA +46D POSNV EQUALS AINLA +52D DPIPAY EQUALS AINLA +54D # SOUTH DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT ALTIM EQUALS AINLA +60D ALTIMS EQUALS AINLA +61D # INDEX ALDK EQUALS AINLA +62D # TIME ONSTAN DELM EQUALS AINLA +76D WPLATI EQUALS AINLA +84D GEOCOMPS EQUALS AINLA +86D ERCOMP EQUALS AINLA +87D ZERONDX EQUALS AINLA +93D THETAN = ALK +4 FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE INTVEC EQUALS FILDELV +2 1SECXT = AINLA +94D ASECXT = AINLA +95D PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 *** # Page 129 # EBANK-6 ASSIGNMENTS. SETLOC 3000 # DAP PAD-LOADED DATA. (10D) # ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP. HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG. ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC. PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC. DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001 DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012 DKKAOSN ERASE # (1) METERS FOR THE 00074 LMTRAP ERASE # (1) DOCKED AND 77001 LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000 LMKAOSN ERASE # (1) RESPECTIVELY 00074 DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS # AUTOPILOT (DB=1.4DEG IN FRESH START # DEADBAND = PI/DKDB RAD. # PADLOADS FOR INTITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION) (2D) IGNAOSQ ERASE # B(1)PL IGNAOSR ERASE # B(1)PL # AXIS TRANSFORMATION MATRIX -- GIMBAL TO PILOT AXES: (5D) M11 ERASE # SCALED AT 1 M21 ERASE # SCALED AT 1 M31 ERASE M22 ERASE # SCALED AT 1. M32 ERASE # SCALED AT 1. # ANGLE MEASUREMENTS OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8. OMEGAR EQUALS OMEGAP +2 # RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES. ALPHAQ EQUALS OMEGAP +3 ALPHAR EQUALS OMEGAP +4 OMEGAU ERASE +1 OMEGAV = OMEGAU +1 TRAPEDP ERASE +5 TRAPEDQ = TRAPEDP +1 TRAPEDR = TRAPEDP +2 NPTRAPS = TRAPEDP +3 # Page 130 NQTRAPS = TRAPEDP +4 NRTRAPS = TRAPEDP +5 EDOTP = EDOT EDOTQ ERASE +1 EDOTR = EDOTQ +1 # MANY SHAREING NAMES QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES: RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0 URATEDIF EQUALS OMEGAU VRATEDIF EQUALS OMEGAV OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S) OLDZFORQ EQUALS OLDXFORP +2 # RATE-COMMAND AND MINIMUM IMPULSE MODES CH31TEMP ERASE STIKSENS ERASE TCP ERASE DXERROR ERASE +5 DYERROR EQUALS DXERROR +2 DZERROR EQUALS DXERROR +4 PLAST ERASE QLAST ERASE RLAST ERASE TCQR ERASE # OTHER VARIABLES (5D) OLDPMIN ERASE # THESE THREE USED IN MIN IMPUSE MODE OLDQRMIN ERASE TEMP31 EQUALS DAPTEMP1 SAVEHAND ERASE +1 PERROR ERASE QERROR EQUALS DYERROR RERROR EQUALS DZERROR # JET STATE CHANGE VARIABLES -- TIME (TOFJTCHG), JET BITS WRITTEN NOW (10D) # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG). NXT6ADR ERASE T6NEXT ERASE +1 T6FURTHA ERASE +1 NEXTP ERASE +2 NEXTU = NEXTP +1 NEXTV = NEXTP +2 -2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT -RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT. # ***Q,R AXIS ERASABLES *** (3) # Page 131 PBIT EQUALS BIT10 QRBIT EQUALS BIT11 UERROR EQUALS DAPTREG5 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS. VERROR = UERROR +1 RETJADR ERASE TEMPNUM EQUALS DAPTEMP4 NUMBERT EQUALS DAPTEMP5 ROTINDEX EQUALS DAPTEMP6 ROTEMP1 EQUALS DAPTEMP1 ROTEMP2 EQUALS DAPTEMP2 POLYTEMP EQUALS DAPTEMP3 SENSETYP ERASE ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME ABSEDOTP EQUALS DAPTEMP1 DPSBURN EQUALS DAPTREG4 # USED WITH SNUFFBIT. VERY TEMPORARY. # Page 132 # TRIM GIMBAL CONTROL LAW ERASABLES: (11D) GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK. SHFTFLAG EQUALS GTSTEMPS +2 # COUNT BITS FOR GTSQRT SHIFTING. ININDEX EQUALS GTSTEMPS +5 # INDEX FOR SHIFT LOOP IN GTSQRT. SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP -- GTS USES THEM ALL. SCRATCH EQUALS GTSTEMPS +7 # ROOTCYCL ERASABLE. HALFARG EQUALS GTSTEMPS +8D # ROOTCYCL ERASABLE. K2THETA EQUALS GTSTEMPS # D,P., K*ERROR, NEGUSUM KCENTRAL EQUALS GTSTEMPS +2 # S.P., K FROM KQ OR KRDAP, AT PI/2(8) K2CNTRAL EQUALS GTSTEMPS +3 # D.P., GTS SCRATCH CELLS. WCENTRAL EQUALS GTSTEMPS +4 # S.P., OMEGA, AT PI/4 RAD/SEC ACENTRAL EQUALS GTSTEMPS +5 # S.P., ALPHA, AT PI/4 RAD/SEC(2) DEL EQUALS GTSTEMPS +6 # S.P., SGN FUNCTION VALUE. A2CNTRAL EQUALS GTSTEMPS +7 # D.P., GTS SCRATCH CELLS. QRCNTR EQUALS GTSTEMPS +9D # S.P., INDEX FOR GTS LOOP THROUGH Q,R AXES FUNCTION EQUALS GTSTEMPS +10D # D.P., ARGUMENT FOR GRSQRT, SCRATCH FOR GTS. NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE. EQUALS NEGUQ +1 # DEFINED AND USED ELSEWHERE. NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE. KQ ERASE +2 # S.P., JERK TERM FOR GTS, AT PI/2(8) AXISCTR EQUALS KQ +1 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8) ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED QDIFF EQUALS QERROR # ATTITUDE ERRORS: RDIFF EQUALS RERROR # SCALED AT PI RADIANS. # TORQUE VECTOR RECONSTRUCTION VARIABLES: (18D) JETRATE EQUALS DAPTREG1 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS. JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND DOWNTORK ERASE +5 # ACCUMULATED JET TORQUE COMMANDED ABOUT POSTORKP EQUALS DOWNTORK # +,-p, +,-u, +,-v RESPECTIVELY. NETTOTKP EQUALS DOWNTORK +1 # EMPLOYED EXCLUSIVELY FOR DOWNLIST. POSTORKU EQUALS DOWNTORK +2 # NOT INITIALIZED: PERMITTED TO OVERFLOW. # Page 133 NEGTORKU EQUALS DOWNTORK +3 # SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET- POSTORKV EQUALS DOWNTORK +4 # MSEC. PER BIT. NEGTORKV EQUALS DOWNTORK +5 NO.PJETS ERASE +2 NO.UJETS = NO.PJETS +1 NO.VJETS = NO.UJETS +1 TJP ERASE +2 TJU = TJP +1 TJV = TJP +2 L,PVT-CG ERASE 1JACC ERASE +4 # ACCELERATIONS DUE TO 1 JET TORQUING 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND 1JACCR EQUALS 1JACC +2 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DOFF: 1JACCV EQUALS 1JACC +4 # SCALED AT PI/2 RADIANS/SECOND (FOR ASC) # ASCENT VARIABLES (10D) SKIPU ERASE +1 SKIPV = SKIPU +1 # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE # SECTIONS AND ELSEWHERE. AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P., AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2. AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR AOSV EQUALS AOSQ +5 # ADDITION OF Q,R. AT PI/2 RAD/SEC(2). AOSQTERM ERASE +1 # (.1-.05K)AOS AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND. # FOR TJET LAW SUBROUTINES: (TEMPS ONLY) #NUMBERT EQUALS DAPTEMP5 # DEFINED IN QRAXIS. EDOTSQ EQUALS DAPTEMP1 ROTSENSE EQUALS DAPTEMP2 FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS. TTOAXIS EQUALS DAPTEMP4 ADRSDIF2 EQUALS DAPTEMP6 HOLDQ EQUALS DAPTREG1 ADRSDIF1 EQUALS DAPTREG2 HH EQUALS DAPTREG3 # DOUBLE PRECISION. # HH +1 EQUALS DAPTREG4 E EQUALS DAPTREG6 # TIME SHARE WITH VERROR EDOT EQUALS OMEGAV # Page 134 # INPUT TO TJET LAW (PERMANENT ERASABLES). (48D) TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1. BLOCKTOP ERASE +47D 1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS 1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN 1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48 COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK. AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED # IN BY THE FOLLOWING: ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS. FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE. ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC.) COEFFQ ERASE +1 # COEFFQ AND COEFFR ARE USED IN ROT-TOUV COEFFR EQUALS COEFFQ +1 # TO REXOLVE Q,R COMPONENTS INTO U,V COMP. # VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4) ALLOWGTS EQUALS NEGUQ +1 # INSERT INTO UNUSED LOCATION COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE. QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS. INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL. RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS. # PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES. # KALCMANU:DAP INTERFACE (9D) CDUXD ERASE +2 # CDU DESIRED REGISTERS: CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES) CDUZD EQUALS CDUXD +2 # (STORE IN 2'S COMPLEMENT) DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT: DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES) DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2'S COMPLEMENT) # RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES. OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES: OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL) OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND # KALCMANU STORAGE. (24D) MIS ERASE +23D # I(18D) # Page 135 COF EQUALS MIS +18D # I(6) # KALCMANU STORAGE. (33D) BCDU ERASE +30D # B(3) KSPNDX EQUALS BCDU +3 # B(1) KDPNDX EQUALS KSPNDX +1 # B(1) TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN THE SAME BANK AS RCS DAP CAM EQUALS COFSKEW +6 # I(2) MUST BE IN THE SAME BANK AS RCS DAP AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC # FIRST-ODER OVERLAYS IN KALCMANU (25D) KV1 EQUALS TMIS # I(6) MFISYM EQUALS TMIS # I TMFI EQUALS TMIS # I NCDU EQUALS TMIS # B NEXTIME EQUALS TMIS +3 # B TTEMP EQUALS TMIS +4 # B KV2 EQUALS TMIS +6 # I(6) BIASTEMP EQUALS TMIS +6 # B KV3 EQUALS TMIS +12D # I(6) OGF EQUALS TMIS +12D # I BRATE EQUALS COFSKEW # B IG EQUALS COFSKEW # I TM EQUALS CAM # B # SECOND-ORDER OVERLAYS IN KALCMANU (24D) K1 = KV1 K2 = KV2 K3 = KV3 P21 EQUALS KV1 # I(2) D21 EQUALS KV1 +2 # I(2) G21 EQUALS KV1 +4 # I(2) C2SQP EQUALS KV2 # I(2) C2SQM EQUALS KV2 +2 # I(2) C2PP EQUALS KV2 +4 # I(2) C2MP EQUALS KV3 # I(2) C1PP EQUALS KV3 +2 # I(2) C1MP EQUALS KV3 +4 # I(2) # Page 136 VECQTEMP = COFSKEW DCDU = CDUXD DELDCDU = DELCDUX DELDCDU1 = DELCDUY DELDCDU2 = DELCDUZ # * * * * * * * * * * * * * * * * * * * * * * * * * # STORAGE FOR FINDCDUW # OVERLAYING KALCMANU STORAGE: (26D) ECDUW EQUALS MIS ECDUWUSR EQUALS ECDUW # B(1)TMP QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP FLPAUTNO EQUALS FLAGOODW +1 # B(1)TMP UNFC/2 EQUALS FLPAUTNO +1 # I(6)IN UNWC/2 EQUALS UNFC/2 +6 # I(6)IN UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S UNFVX/2 = UNFV/2 UNFVY/2 = UNFV/2 +2 UNFVZ/2 = UNFV/2 +4 -DELGMB EQUALS UNFV/2 +6 # B(3)TMP # DEFINED IN THE WORK AREA: (18D) UNX/2 = 0 UNY/2 = 6 UNZ/2 = 14 # END OF FINDCDUW ERASABLES # * * * * * * * * * * * * * * * * * * * * * * * * * # THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS, NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK # ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (18D) DAPTEMP1 ERASE +17D DAPTEMP2 EQUALS DAPTEMP1 +1 DAPTEMP3 EQUALS DAPTEMP1 +2 DAPTEMP4 EQUALS DAPTEMP1 +3 DAPTEMP5 EQUALS DAPTEMP1 +4 DAPTEMP6 EQUALS DAPTEMP1 +5 DAPTREG1 EQUALS DAPTEMP1 +6 DAPTREG2 EQUALS DAPTEMP1 +7 DAPTREG3 EQUALS DAPTEMP1 +8D # Page 137 DAPTREG4 EQUALS DAPTEMP1 +9D DAPTREG5 EQUALS DAPTEMP1 +10D DAPTREG6 EQUALS DAPTEMP1 +11D DAPARUPT EQUALS DAPTEMP1 +12D DAPLRUPT EQUALS DAPARUPT +1 DAPBQRPT EQUALS DAPARUPT +2 DAPZRUPT EQUALS DAPARUPT +4 # (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG) # NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D) T5TEMP EQUALS ITEMP1 DINDX EQUALS ITEMP3 AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180 AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2. AK2 EQUALS AK +2 EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES. EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEGREES. EDRIVEZ EQUALS EDRIVEX +2 # DOCKED JET INHIBITION COUNTERS (3D) PJETCTR ERASE +2 UJETCTR EQUALS PJETCTR +1 VJETCTR EQUALS PJETCTR +2 END-E6 EQUALS VJETCTR # Page 138 # EBANK-7 ASSIGNMENTS SETLOC 3400 # P35 CONSTANTS. -- PAD LOADED -- (4D) ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST PTIGINC ERASE +1 # B(2)PL # AOTMARK STORAGE. -- PAD LOADED -- (12D) AOTAZ ERASE +5 # B(6)PL AOTEL ERASE +5 # B(6)PL # LANDING RADAR -- PAD LOADED -- (2D) LRHMAX ERASE # B(1) LRWH ERASE # B(1) # THROTTLE STORAGE. -- PAD LOADED -- (1D) ZOOMTIME ERASE # B(1)PL TIME OF DPS THROTTLE-UP COMMAND # P63 AND P64 CONSTANTS. -- PAD LOADED -- (4D) TENDBRAK ERASE # B(1) LANDING PHASE SWITCHING CRITERION. TENDAPPR ERASE # B(1) LANDING PHASE SWITCHING CRITERION. DELTTFAP ERASE # B(1) INCREMENT ADDED TO TTF/8 WHEN # SWITCHING FROM P63 TO P64. LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH # GUIDANCE IS PROJECTED FORWARD # LANDING RADAR. -- PAD LOADED -- (2D) RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME) RPCRTQSW ERASE # B(1) REPOSITIONING CRITERION (ANGLE) # ASTEER. -- PAD LOADED -- (2D) TNEWA ERASE +1 # I(2)PL LAMBERT CYCLE PERIOD. # P22 STORAGE -- OVERLAYS LANDING PADLOADS -- (5D) # Page 139 REPOSCNT EQUALS TENDBRAK # B(1)TMP COUNTS NUMBER OF PASSES THROUGH # REPOSITION ROUTINE. REPOSTM EQUALS REPOSCNT +1 # I(2)TMP PRESENT TIME PLUS INCREMENTS OF # TEN SECONDS. DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING # DESIGNATE TASK. # *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. *** # P32-35 P72-75 STORAGE. (6D) DELVLVC ERASE +5 # I(6) DELTA VELOCITY -- LOCAL VERTICAL COO DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE # P30-P40 INTERFACE UNSHARED. (2D) TIG ERASE +1 # B(2) # INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS (8D) RTARG ERASE +5 # I(6) TARGET VECTOR DELLT4 ERASE +1 # I(2) TIME DIFFERENCE # P30-P40 INTERFACE UNSHARED. (3D) TTOGO ERASE +1 # B(2) TFI EQUALS TTOGO WHICH ERASE # B(1) # *** R21 *** (1D) LOSCOUNT ERASE # B(1) # L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE. (4D) # RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES. AIG ERASE # B(1)OUT GIMBAL ANGLES AMG ERASE # B(1)OUT (MUST BE AOG ERASE # B(1)OUT CONSECUTIVE) TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE. MARKCTR = TRKMKCNT # Page 140 # P32-P35, P72-P75 STORAGE. -- PERMANENT -- (6) NORMEX ERASE # B(1)PRM SAVE FOR Q QSAVED ERASE # B(1)PRM SAVE FOR Q RTRN ERASE # B(1)PRM SAVE FOR Q NN ERASE +1 # B(2) SUBEXIT ERASE # B(1)PRM SAVE Q E7OVERLA EQUALS # START OF E7 OVERLAYS WHOCARES EQUALS E7OVERLA # DUMMY FOR EBANK INSENSITIVE 2CADRS. # LUNAR LANDING OVERLAYS (6D) /AFC/ EQUALS NORMEX # B(2)TMP THROTTLE FCODD EQUALS /AFC/ +2 # B(2)TMP THROTTLE FP EQUALS FCODD +2 # B(2)TMP THROTTLE # Page 141 # ******* OVERLAY NUMBER 0 IN EBANK 7 ******* # RENDEZVOUS GUIDANCE STORAGE --P32.....P35-- (89D) TSTRT EQUALS DELDV # MIDCOURSE START TIME TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE. DELVCSI ERASE +1D # THRUST VALUE AT CSI DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID DELVMID EQUALS DELVTPI DIFFALT ERASE +1D # ALT DIFFERENT AT CDH POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER HAFPA1 EQUALS POSTCDH # HALF PERIOD GAMPREV ERASE +1 # PREVIOUS GAMMA DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI DELDV ERASE +1D CSIALRM ERASE +1 # FIRST SOLUTION ALARM VERBNOUN ERASE TITER EQUALS CSIALRM # ITERATION COUNTER RDOTV ERASE +1 VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE) RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE) VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE) RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE) DELEL EQUALS DELVTPI # I(2) S-S DELTEE EQUALS DELDV # I(2) S-S SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME CENTANG ERASE +1 # I(2) CENTRAL ANGLE COVERED (TPI-TPF) # Page 142 # SOME P47 STORAGE (6D) DELVIMU ERASE +5 # I(6)DSP NOUN 83 FOR P47 DELTA V (IMU) # P30-P40 COMMON STORAGE. (3D) TPASS4 ERASE +1 # INTERCEPT TIME QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER. # P32,33,34 STORAGE. (6D) TCSI ERASE +1 # B(2)TMP CSI TIME IN CENTISECONDS TTPI ERASE +1 # B(2)TMP TPI TIME IN CENTISECONDS TTPIO ERASE +1 # B(2)TMP TTPI STORAGE FOR RECYCLE # P30,P40 INTERFACE. (21D) RTIG ERASE +19D # I(6)TMP VTIG EQUALS RTIG +6 # I(6)TMP DELVSIN EQUALS VTIG +6 # I(6)TMP DELVSAB EQUALS DELVSIN +6 # I(2)TMP VGDISP = DELVSAB QTEMP1 ERASE # I(1)TMP HOLDS RETURN. RGEXIT EQUALS QTEMP1 # SAVE Q SAVQR52 EQUALS QTEMP1 # INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D) # (CALLS LAMBERT, CONIC SUBROUTINES) VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS ITCTR EQUALS RDOTV # ITERATION COUNTER COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS X1INPUT EQUALS DELDV # X1 TEMP STORAGE INTIME EQUALS GAMPREV # TIME OF RINIT # PERIAPO STORAGE. (2D) XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SITE END-IN/M EQUALS XXXALT +2 # NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM # Page 143 # S40.1 STORAGE. (12D) UT ERASE +11D # I(6) THRUST DIRECTION VGTIG EQUALS UT +6 # I(6)OUT VGPREV = VGTIG # ASTEER STORAGE. (22D) VG ERASE +21D # I(6) RMAG EQUALS VG +6 # I(2) MUASTEER EQUALS RMAG +2 # I(2) MU/A EQUALS MUASTEER +2 # I(2) RTMAG EQUALS MU/A +2 # I(2) R1C EQUALS RTMAG +2 # I(6) SS EQUALS R1C +6 # I(2) IC = DELVSIN TIGSAVE = P21TIME TIGSAVEP = SCAXIS MUSCALE = SCAXIS +2 # P40 STORAGE. (6D) # F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR WLOAD F ERASE +5 # I(2)TMP S40.1 GENERATES THIS FOR S40.3 MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3. TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS. VEX ERASE +1 # I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N # MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D) IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2. # Page 144 # ******* OVERLAY NUMBER 1 IN EBANK 7 ******* # INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1) (6D) RTARG1 EQUALS VACT1 # I(6)S TEMP STORAGE OF RTARG # P35-P40 INTERFACE. (6D) VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT # INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O) # SOME P38-30,P78-79 STORAGE (2D) TINT EQUALS TPASS4 # I(2) TIME OF INTERCEPT # LAT-LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D) ERADM EQUALS UT # I(2) INCORPEX EQUALS ERADM +2 # I(1) # LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D) RLMSRCH EQUALS INCORPEX +1 # I(6)TMP LM POSITION VECTOR VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 -- ALL 1-S WHEN LOCKON OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2 OMEGAD = OMEGDISP # PINBALL DEFINITION NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER. SAVLEMV EQUALS NSRCHPNT +1 # I(6)S-S SAVES LOSVEL # Page 145 # ******* OVERLAY NUMBER 2 IN EBANK 7 ******* # INCORP STORAGE IN E7. (47D) TX789 EQUALS E7OVERLA # I(6) GAMMA EQUALS TX789 +6 # I(3) OMEGA EQUALS GAMMA +3 # I(18) BVECTOR EQUALS OMEGA +18D # I(18) DELTAQ EQUALS BVECTOR +18D # I(2) # AOTMARK STORAGE (3D) MARKCNTR EQUALS DELTAQ +2 # I(1) XYMARK EQUALS MARKCNTR +1 # B(1) MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK # PLANET STORAGE (8D) PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK # LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1) (30D) LGRET EQUALS RLMSRCH # I(1)TMP RDRET EQUALS LGRET # B(1) TEMP RETURN. IGRET EQUALS LGRET # B(1) TEMP RETURN. MX EQUALS RDRET +1 # I(6) MY EQUALS MX +6 # I(6) MZ EQUALS MY +6 # I(6) E0 EQUALS MX # I(2) E1 EQUALS MX +2 # I(2) E2 EQUALS MX +4 # I(2) E3 EQUALS E2 +2 # I(2) SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON RXZ EQUALS SCALSHFT +1 # I(2) ULC EQUALS RXZ +2 # I(6) SINTHETA EQUALS ULC +6 # I(2) # ***** IN OVERLAY ONE ***** N49FLAG EQUALS RDOTMSAV # B(1)S FLAG INDICATING V0649 RESPONSE # LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D) # (OUTPUTS ARE TO LRS22.3) # Page 146 RRTRUN EQUALS SINTHETA +2 # B(2)OUT RR TRUNNION ANGLE RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RR SHAFT ANGLE LRS22.1X EQUALS RRSHAFT +2 # B(1)TMP RRBORSIT EQUALS LRS22.1X +1 # I(6)TMP RADAR BORESIGHT VECTOR. RDOTMSAV EQUALS RRBORSIT +6 # B(2)S RR RANGE-RATE (FPS) # LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29) (10D) CANNOT SHARE WITH L.A.D. RDOTM EQUALS RDOTMSAV +2 # B(2)OUT RANGE-RATE READING TANGNB EQUALS RDOTM +2 # B(2)TMP RR GIMBAL ANGLES # RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES MKTIME EQUALS TANGNB +2 # B(2)OUT TIME OF RR READING RM EQUALS MKTIME +2 # I(2)OUT RANGE READING RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE # R61LEM -- PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE** # (CALLED BY P20, R22LEM, LSR22.3) (1D) R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED # TRACKING ROUTINE IS TO CYCLE WHCHREAD EQUALS R65CNTR # TELLS WHICH RR DATA TRIGGERED N49 DISPLAY # P21 STORAGE (2D) P21TIME EQUALS RANGRDOT +2 # I(2)TMP # KALCMANU, VECPOINT STORAGE. CALLED BY R63, R61, R65. (12D) SCAXIS EQUALS P21TIME +2 # I(6) POINTVSM EQUALS SCAXIS +6 # I(6) # Page 147 # ******* OVERLAY NUMBER 3 IN EBANK 7 ******* # SERVICER STORAGE (6D) ABVEL EQUALS E7OVERLA # B(2) DISPLAY HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY # BURN PROG STORAGE. (2D) SAVET-30 EQUALS TTFDISP +2 # B(2)TMP TIG-30 RESTART # SERVICER STORAGE. (69D) VGBODY EQUALS SAVET-30 +2 # B(6)OUT SET BY S41.1 VG LEM, SC.COORDS DELVCTL = VGBODY DVTOTAL EQUALS VGBODY +6 # B(2) DISPLAY NOUN GOBLTIME EQUALS DVTOTAL +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE. ABDVCONV EQUALS GOBLTIME +2 # I(2) DVCNTR EQUALS ABDVCONV +2 # B(1) TGO EQUALS DVCNTR +1 # B(2) R EQUALS TGO +2 # I(6) UNITGOBL EQUALS R # I(6) V EQUALS R +6 DELVREF EQUALS V # I(6) HCALC EQUALS DELVREF +6 # B(2) LR UNIT/R/ EQUALS HCALC +2 # I(6) # (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE) RN1 EQUALS UNIT/R/ +6 # B(6) VN1 EQUALS RN1 +6 # I(6) ( IN ORDER ) PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR ) GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY ) MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE ) R1S EQUALS MASS1 +2 # I(6) V1S EQUALS R1S +6 # I(6) # ALIGNMENT/S40.2,3 COMMON STORAGE. (18D) XSMD EQUALS V1S +6 # I(6) YSMD EQUALS XSMD +6 # I(6) ZSMD EQUALS YSMD +6 # I(6) XSCREF = XSMD YSCREF = YSMD # Page 148 ZSCREF = ZSMD END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3 # ****** P22 ****** (24D) RSUBL EQUALS END-ALIG # I(6)S-S LM POSITION VECTOR UCSM EQUALS RSUBL +6 # I(6)S-S VECTOR U NEWVEL EQUALS UCSM +6 # I(6)S-S TERMINAL VELOCITY VECTOR NEWPOS EQUALS NEWVEL +6 # I(6)S-S TERMINAL POSITION VECTOR LNCHTM EQUALS NEWPOS +6 # I(2)S-S EST. LAUNCH TIME FOR LEM TRANSTM EQUALS LNCHTM +2 # I(2)S-S TRANSFER TIME NCSMVEL EQUALS TRANSTM +2 # I(6)S-S NEW CSM VELOCITY # ****** P21 ****** (18D) P21ORIG = DISPDEX P21BASER EQUALS RLMSRCH # I(6)TMP P21BASEV EQUALS P21BASER +6 # I(6)TMP P21VEL EQUALS P21BASEV +6 # I(2)TMP *** NOUN 91 *** P21GAM EQUALS P21VEL +2 # I(2)TMP *** NOUN 91 *** P21ALT EQUALS P21GAM +2 # I(2)TMP *** NOUN 91 *** # Page 149 # ******* OVERLAY NUMBER 4 IN EBANK 7 ******* # VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (18D) # THESE ERASABLES MAY BE SHARED WITH CARE OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER LANDTEMP = OURTEMPS # B(6) GUIDANCE TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE ELINCR = TTF/8TMP +2 # B(2) GUIDANCE AZINCR = ELINCR +2 # B(2) GUIDANCE KEEP-2 = AZINCR +2 # B(2) TP PREVENT PIPTIME1 OVERLAY TABLTTF = KEEP-2 +2 # B(2) GUIDANCE TPIPOLD = TABLTTF +9D # B(2) GUIDANCE E2DPS EQUALS OURPERMS # THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER PIFPSET = XSMD # B(1) THROTTLE RTNHOLD = PIFPSET +1 # B(1) THROTTLE FWEIGHT = RTNHOLD +1 # B(2) THROTTLE PIF = FWEIGHT +2 # B(2) THROTTLE PSEUDO55 = PIF +2 # B(1) THROTTLE DOWNLINK FC = PSEUDO55 +1 # B(2) THROTTLE TTHROT = FC +2 # B(1) THROTTLE FCOLD = TTHROT +1 # B(1) THROTTLE # THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67 OURPERMS = FCOLD +1 # MUSTN'T OVERLAY OURTEMPS OR SERVICER WCHPHOLD = OURPERMS # B(1) GUIDANCE FILLER = WCHPHOLD +1 FLPASS0 = FILLER +1 # B(1) GUIDANCE TPIP = FLPASS0 +1 # B(2) VGU = TPIP +2 # B(6) GUIDANCE LAND = VGU +6 # B(6) GUIDANCE CONTIGUOUS TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS ELIDUMMY = TTF/8 +2 # (1) DUMMY FOR ELINCR1 AZIDUMMY = ELIDUMMY +1 # (1) DUMMY FOR AZINCR1 ZERDUMMY = AZIDUMMY +1 # (1) DUMMY FOR ZERLINA ELVDUMMY = ZERDUMMY +1 # (1) DUMMY FOR ELVIRA LRADRET = ELVDUMMY +1 # B(1) LR VSELECT = LRADRET +1 # B(1) LR VMEAS = VSELECT +1 # B(2) LR HMEAS = VMEAS +2 # B(2) LR VN2 = HMEAS +2 # B(6) LR # Page 150 GNUR = VN2 # B(6) LR GNUV = VN2 # B(6) LR LRADRET1 = VN2 # B(1) LR DELTAH = VN2 +6 # B(2) DISPLAY FUNNYDSP = DELTAH +2 # B(2) DISPLAY EOURPERM EQUALS FUNNYDSP +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS # (ERASABLES WHICH OVERLAY THE ABOVE BLOCK) VDGVERT = ELIDUMMY # B(2) P65,P66 NIGNLOOP = ZERDUMMY # B(1) IGNALG NGUIDSUB = ELVDUMMY # B(1) IGNALG WCHVERT = ELVDUMMY # B(1) P65,P66,P67 FUELNEED = FUNNYDSP # B(1) DISPLAY TREDES = FUNNYDSP # B(1) DISPLAY LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY # ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA PROJ = 18D # I(2) GUIDANCE UNLRB/2 = 20D # I(6) GUIDANCE (DURING P64 ONLY) UNLR/2 = 20D # I(6) GUIDANCE # THE END OF THE LUNAR LANDING ERASABLES # R12 (FOR LUNAR LANDING) (6D) LRLCTR EQUALS EOURPERM # B(1) LR DATA TEST LRRCTR EQUALS LRLCTR +1 # B(1) LRMCTR EQUALS LRRCTR +1 # B(1) LRSCTR EQUALS LRMCTR +1 # B(1) STILBADH EQUALS LRSCTR +1 # B(1) STILBADV EQUALS STILBADH +1 # B(1) # LANDING ANALOGS DISPLAY STORAGE. (40D) LATVMETR EQUALS STILBADV +1 # B(1)PRM LATVEL MONITOR METER (AN ORDER) FORVMETR EQUALS LATVMETR +1 # B(1)PRM FORVEL MONITOR METER (-ED PAIR) LATVEL EQUALS FORVMETR +1 # B(1)PRM LATERAL VELOCITY (AN ORDER) FORVEL EQUALS LATVEL +1 # B(1)PRM FORWARD VELOCITY (-ED PAIR) TRAKLATV EQUALS FORVEL +1 # B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER) TRAKFWDV EQUALS TRAKLATV +1 # B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR) VHY EQUALS TRAKFWDV +1 # B(1)PRM VHY=VMP.UHYP (AN ORDER) # Page 151 VHZ EQUALS VHY +1 # B(1)PRM VHZ=VMP.UHZP (-ED PAIR) VVECT EQUALS VHZ +1 # B(3)PRM UPDATED S.P. VELOCITY VECTOR ALTRATE EQUALS VVECT +3 # B(1)PRM ALTITUDE RATE IN BIT UNITS ALTSAVE EQUALS ALTRATE +1 # B(2)PRM ALTITUDE IN BIT UNITS LADQSAVE EQUALS ALTSAVE +2 # B(1)PARM SAVE Q IN LAND1SP DT EQUALS LADQSAVE +1 # B(1)PRM TIME 1 MINUS (PIPTIME +1) DALTRATE EQUALS DT +1 # B(1)PRM ALTITUDE RATE ERROR CORRECTION UHYP EQUALS DALTRATE +1 # B(6)PRM SM UNIT VECTOR QAXIS = UHYP UHZP EQUALS UHYP +6 # B(6)PRM SM UNIT VECTOR DELVS EQUALS UHZP +6 # B(6)PRM DELVS = WMXR ALTBITS EQUALS DELVS +6 # B(2)PRM ALTITUDE IN BIT UNITS. 2.34 FT/BIT RUNIT EQUALS ALTBITS +2 # B(3)PRM SM HALF-UNIT R VECTOR LASTLADW EQUALS RUNIT +2 # ONLY A TAG TO SIGNIFY LAST L.A.D. WORD # P66 ERASABLES (R.O.D.) (1D) RODCOUNT EQUALS RUNIT +3 # P66 ERASABLES (R.O.D.) (14D) RODSCAL1 EQUALS RM # B(1) LASTTPIP EQUALS RODSCAL1 +1 # I(2) THISTPIP EQUALS LASTTPIP +2 # B(2) OLDPIPAX EQUALS THISTPIP +2 # B(1) OLDPIPAY EQUALS OLDPIPAX +1 # B(1) OLDPIPAZ EQUALS OLDPIPAY +1 # B(1) DELVROD EQUALS OLDPIPAZ +1 # B(6) # NOUN 63 COMPONENT (2D) HCALC1 EQUALS DELVROD +6 # I(2) # Page 152 # ******* OVERLAY NUMBER 5 IN EBANK 7 ******* # ASCENT GUIDANCE ERASABLES. (21D) RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24). 1/DV1 EQUALS YCO +2 # B(2)TMP ATMAG 1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG 1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG XRANGE EQUALS 1/DV3 +2 # B(2)TMP ENGOFFDT EQUALS XRANGE +2 # B(1)TMP VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED. TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE # IS ALLOWED. # END OF THE ASCENT GUIDANCE ERASABLES # THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES. END-E7.0 EQUALS IRETURN1 +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 0 END-E7.1 EQUALS N49FLAG +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 1 END-E7.2 EQUALS POINTVSM +6 # FIRST UNUSED LOCATION IN E7 OVERLAY 2 END-E7.3 EQUALS END-ALIG # FIRST UNUSED LOCATION IN E7 OVERLAY 3 END-E7.4 EQUALS 3777 # ** LAST LOCATION USED IN E7 OVERLAY 4 ** END-E7.5 EQUALS TXO +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 5 END-E7 EQUALS 3777 # ** LAST LOCATION USED IN E7 **