ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris
2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1284
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967

2
Luminary099/AGS_INITIALIZATION.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 206

4
Luminary099/ALARM_AND_ABORT.agc
View File

@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1381
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
@ -248,4 +248,4 @@ FLAGS CS STATEBIT
MASK FLAGWRD2
TS FLAGWRD2
TC Q

30
Luminary099/AOSTASK_AND_AOSJOB.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1485-1506
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Corrected a memory-bank error type.
# 2009-06-07 RSB Corrected a typo.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1485
# PROGRAM NAME: 1/ACCS
@ -281,7 +281,7 @@ LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
EXTEND
MP L,PVT-CG # SCALED AT 8 FEET.
# Page 1490
# Page 1490
INHINT
TS MPAC
EXTEND
@ -425,19 +425,19 @@ MAXPLUS CAF POSMAX # -,- OR +,+
# AND C IS SCALED AT B+16 KG.
2DEC +.0410511917 # L A DESCENT
INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
2DEC +.0014979264 # 1JACCQ A DESCENT
2DEC +.0010451889 # 1JACCR A DESCENT
2DEC +.0065443852 # 1JACCP A ASCENT
2DEC +.0035784354 # 1JACCQ A ASCENT
2DEC +.0056946631 # 1JACCR A ASCENT
DEC +.155044 # L B DESCENT
DEC -.025233 # L C DESCENT
# Page 1494
@ -754,7 +754,7 @@ NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
AD L # L HAS ABS(AOS) - AMIN
EXTEND # RESULT IS ABS(AOS)- AMIN/2
BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
INDEX -SIGNAOS
TS DBB3 # DB3(4) = DB/2
@ -781,7 +781,7 @@ ACCTHERE INDEX -SIGNAOS
CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
AD 1JACCU
# Page 1501
# Page 1501
AD BIT9 # MAXIMUM POSSIBLE VALUE
TS A # OVERFLOW POSSIBLE BUT REMOTE
TCF +2
@ -879,7 +879,7 @@ STORV CA ACCSW # STORE V AXIS VALUES
TS ACCSWV
CA NINE
TC GENTRAN +1
# Page 1503
# Page 1503
ADRES 1/ATEM1 # TEMPORARY BUFFER
ADRES 1/ANET1 +16D # THE REAL PLACE
@ -980,7 +980,7 @@ DOACCFUN EXTEND
NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN
TS ANET
# Page 1505
# Page 1505
TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
FIXMIN CCS SIGNAOS
@ -1066,4 +1066,4 @@ PAXISADR GENADR PAXIS
OCT 00022 # -V
+UMASK OCT 00204 # +U
OCT 00041 # +V

146
Luminary099/AOTMARK.agc
View File

@ -24,28 +24,28 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 244
BANK 12
SETLOC AOTMARK1
BANK
EBANK= XYMARK
COUNT* $$/MARK
AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM
TC EXTVBCHK
TC P00DOO
OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
MASK EXTVBACT
CCS A
TCF MKABORT # YES -- ABORT
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION
ADS EXTVBACT # BIT2 RESET IN ENDMARK
MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
@ -61,10 +61,10 @@ MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
DXCH BUF2
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT.
OCT 01207
MKVACFND AD TWO
TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
CAF ZERO
INDEX MARKSTAT
TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
@ -73,14 +73,14 @@ MKVACFND AD TWO
TC FINDVAC # SET UP JOB FOR GETDAT
EBANK= XYMARK
2CADR GETDAT
RELINT
TCF SWRETURN
# Page 245
MKABORT DXCH BUF2
TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
OCT 01211
MKRELEAS CAF ZERO
XCH MARKSTAT # SET MARKSTAT TO ZERO
MASK LOW9 # PICK UP VAC AREA AOR
@ -90,7 +90,7 @@ MKRELEAS CAF ZERO
CAF ONE
TC IBNKCALL
CADR GOODEND # GO WAKE UP CALLING JOB
# Page 246
KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
@ -98,11 +98,11 @@ KILLAOT CAF ZERO
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK
ADS MARKSTAT
CAF V01N71 # DISPLAY DETENT AND STAR CODE
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
@ -112,20 +112,20 @@ DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
EXTEND
MP BIT9
TS XYMARK # STORE DETENT
EXTEND
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
AD NEG7 # SEE IF DETENT 7 FOR COAS
EXTEND
BZF CODE7
TCF CODE1TO6
CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF +2 # PROCEED
TCF CODE7 # ON ENTER, RECYCLE
@ -135,27 +135,27 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
CAF ZERO # BACKUP SYSTEM TO BE USED
TCF COASCODE # ZERO APPARENT ROTATION
CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
CA AOTEL -1
INDEX FIXLOC
TS 9D # STORE ELEVATION IN VAC+9D
INDEX XYMARK # INDEX DET CODE 1,2 OR 3
# Page 247
CA AOTAZ -1
INDEX FIXLOC
TS 8D # STORE AZIMUTH IN VAC +8D
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
MSU 8D # PRECISION ONE'S COMPLEMENT
COASCODE INDEX FIXLOC
TS 10D # ROT ANGLE
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
# Page 248
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
# ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
@ -192,7 +192,7 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
STORE STARAD +6
EXIT
TCF GETMKS
# Page 249
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
@ -207,9 +207,9 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
BANK 05
SETLOC AOTMARK2
BANK
COUNT* $$/MARK
OANB SETPD STQ
0
GCTR # STORE RETURN
@ -245,7 +245,7 @@ OANB SETPD STQ
# Page 250
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
#
#
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
@ -256,7 +256,7 @@ OANB SETPD STQ
SETLOC P50S
BANK
COUNT* $$/R59
SURFSTAR VLOAD*
0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
STORE CDUSPOT
@ -312,7 +312,7 @@ YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
YSZERO VLOAD GOTO
SCAXIS
JUSTOA
# Page 252
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
@ -325,11 +325,11 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
CAF MKVB54* # DISPLAY VB54 INITIALLY
PASTIT TC BANKCALL
CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12
ADS MARKSTAT
@ -349,7 +349,7 @@ CNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD
TCF +2 # PAIR BURIED -- DECREMENT COUNTER
TCF MKALARM # NO PAIR -- ALARM
TS MARKCNTR # STORE DECREMENTED COUNTER
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
CS MARKCNTR
@ -359,10 +359,10 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX
INDEX FIXLOC
TS X1 # JAM -- CDU ADR OF X-MARK IN X1
CA FIXLOC # SET PD POINTER TO ZERO
TS PUSHLOC
TC INTPRET
# Page 253
BON VLOAD*
@ -382,7 +382,7 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
VXV UNIT # UNIT(XPSM * YPSM)
STADR
STORE 24D
AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
MKDEX
24D # LOAD CURRENT VECTOR
@ -405,13 +405,13 @@ ENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK
TC WAITLIST
EBANK= XYMARK
2CADR MKRELEAS
TC ENDMARK
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS
OCT 111
TCF GETMKS
V01N71 VN 171
V06N87* VN 687
@ -431,14 +431,14 @@ MARKRUPT TS BANKRUPT
DXCH ITEMP1
XCH Q
TS QRUPT
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
EXTEND
RAND NAVKEYIN
CCS A
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED
TCF SOMEKEY # ITS SOME OTHER KEY
CAF BIT12 # ARE WE ASKING FOR A MARK
MASK MARKSTAT
CCS A
@ -449,42 +449,42 @@ MARKRUPT TS BANKRUPT
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM
OCT 112
TC RESUME
FINDKEY CAF BIT5 # SEE IF MARK REJECT.
EXTEND
RAND NAVKEYIN
CCS A
TCF MKREJ # IT'S A MARK REJECT
CAF BIT4 # SEE IF Y MARK
EXTEND
RAND NAVKEYIN
CCS A
TCF YMKRUPT # IT'S A Y MARK
CAF BIT3 # SEE IF X MARK
EXTEND
RAND NAVKEYIN
# Page 255
CCS A
TCF XMKRUPT # IT'S A X MARK
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
EXTEND
RAND NAVKEYIN
EXTEND
BZF +3 # IF NO BITS
TC POSTJUMP # IF DESCENT BITS
CADR DESCBITS
TC ALARM # NO INBITS IN CHANNEL 16.
OCT 113
TC RESUME
XMKRUPT CAF ZERO
TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
CAF BIT10
@ -493,10 +493,10 @@ YMKRUPT CAF ONE
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
CAF BIT11
TS XYMARK # SET MARK IDENTIFICATION
TC MARKTYPE # SEE IF SURFACE MARK
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE
MASK MARKSTAT
EXTEND
@ -509,7 +509,7 @@ YMKRUPT CAF ONE
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
MASK MARKSTAT
TS MARKSTAT
VERIFYMK CA XYMARK
MASK MARKSTAT
CCS A
@ -525,11 +525,11 @@ VERIFYMK CA XYMARK
TC MARKTYPE # SEE IF SURFACE MARK
TCF DSPV6N79 # IT IS
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
# Page 257
MKREJ TC MARKTYPE # SEE IF SURFACE
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE
MASK MARKSTAT
CCS A
@ -537,7 +537,7 @@ MKREJ TC MARKTYPE # SEE IF SURFACE
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM
OCT 115
TC RESUME # DESIRED ACTION DISPLAYED
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
MASK MARKSTAT # LAST REJECT
AD BIT13
@ -545,15 +545,15 @@ REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
MASK BIT13
CCS A
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D
RENEWMK MASK MARKSTAT
TS MARKSTAT
TCF REMARK # GO REQUEST NEW MARK ACTION
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN
TCF RENEWMK
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
TCF +2
TCF REJALM # NO MARKS TO REJECT -- ALARM
@ -568,14 +568,14 @@ MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ******
CCS A
INCR Q # IF SURFACE MARK RETURN TO LOC +1
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
TS RUPTREG1
CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
MASK PRIO3 # FOR MARKCHEX
ADS MARKSTAT
VACSTOR CAF LOW9
MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
TS RUPTREG2
@ -600,7 +600,7 @@ VACSTOR CAF LOW9
TS 4 # STORE CDUX
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB
TCF SURFJOB
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
AD XYMARK # SET MARK ID IN MARKSTAT
COM
@ -609,7 +609,7 @@ VACSTOR CAF LOW9
TS MARKSTAT
MASK PRIO3 # SEE IF X, Y MARK MADE
TS L
# Page 259
CA PRIO3
EXTEND
@ -620,7 +620,7 @@ VACSTOR CAF LOW9
MASK BIT14
ADS MARKSTAT
TCF REMARK # GO DISPLAY V54
# Page 260
REMARK CAF PRIO3 # BITS 10 AND 11
MASK MARKSTAT
@ -631,15 +631,15 @@ SURFJOB CAF PRIO15
TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
EBANK= XYMARK # REQUEST NEXT ACTION
2CADR CHANGEVB
TC RESUME
CHANGEVB TC MARKTYPE
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX
CAF MKVB54
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
MKVB54 VN 5471 # MAKE X OR Y MARK
@ -655,11 +655,11 @@ V06N79* VN 679
# Page 261
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
COUNT* $$/R59
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF SURFEND # V33 -- PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
@ -667,19 +667,19 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
CCS A # RE-DISPLAY V06N79
TCF SURFAGAN # VB32 -- RECYCLE
TCF DSPV6N79 # ENTER
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
MASK MARKSTAT
AD BIT14
TS MARKSTAT
SURFAGAN CA CURSOR
INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
TS 1 # STORE CURSOR SP 2COMP
CA SPIRAL
INDEX MKDEX
TS 3 # STORE SPIRAL
CS MARKSTAT # IF BIT 14 SET -- END MARKING
MASK BIT14
EXTEND
@ -692,4 +692,4 @@ SURFAGAN CA CURSOR
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER
TCF GETMKS +3 # GO DISPLAY MARK VB

8
Luminary099/ASCENT_GUIDANCE.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 843
BANK 34
@ -446,7 +446,7 @@ CHECKYAW SET
EXITVR1
GOTO
KEEPVR
BANK 5
SETLOC ASENT3
BANK
@ -568,7 +568,7 @@ V16N85C VN 1685
SETLOC ASENT1
BANK
COUNT* $$/ASENT
YCOMP VLOAD DOT
UNIT/R/
QAXIS
@ -576,7 +576,7 @@ YCOMP VLOAD DOT
RCO
STORE Y
RVQ
BANK 30
SETLOC ASENT
BANK

10
Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
View File

@ -33,7 +33,7 @@
# FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
# USING PROGRAM LUMINARY
# THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY, MASSACHUSETTS INSTITUTE OF
# THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY, MASSACHUSETTS INSTITUTE OF
# TECHNOLOGY, 75 CAMBRIDGE PARKWAY, CAMBRIDGE, MASSACHUSETTS, UNDER PROJECT 55-238-70, SPONSORED BY THE MANNED
# SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION, CONTRACT NAS 9-4065.
@ -179,7 +179,7 @@
# 14 MONITOR OCTAL COMP 1,2 IN R1,R2
# 15 MONITOR OCTAL COMP 1,2,3 IN R1,R2,R3
# 16 MONITOR DECIMAL IN R1 OR R1,R2 OR R1,R2,R3
# 17 MONITOR DP DECIMAL IN R1,R2 (TEST ONLY)
# 17 MONITOR DP DECIMAL IN R1,R2 (TEST ONLY)
# 18
# 19
# 20
@ -842,7 +842,7 @@
# (B IS A BLANK 1 UNIT OF XX
# POSITION. DECIMAL BIT 1 OF LOW REGISTER =
# ONLY, DISPLAY OR 1 UNIT OF YY
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
# BE LOADED.) CONTAIN A POSITIVE INTEGER
# (MAX 99B99) LESS THAN 100)
@ -899,7 +899,7 @@
# CODE * TYPE SET BY
# 00105 ** AOTMARK SYSTEM IN USE
# 00105 ** AOTMARK SYSTEM IN USE
# 00107 MORE THAN 5 MARK PAIRS AOTMARK
# 00111 MARK MISSING AOTMARK
# 00112 MARK OR MARK REJECT NOT BEING ACCEPTED AOTMARK
@ -948,7 +948,7 @@
# 00602 PERIGEE ALTITUDE CDH LT PMIN2 P32, P72.
# 00603 CSI TO CDH TIME LT TMIN12 P32, P72, P33, P73
# 00604 CDH TO TPI TIME LT TMIN23 P32, P72,
# 00604 CDH TO TPI TIME LT TMIN23 P32, P72,
# OR COMPUTED CDH TIME GREATER THAN INPUT TP1 TIME
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32, P72
# 00606 DV EXCEEDS MAXIMUM P32, P72

78
Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 342-363
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 342
# BLOCK 2 LGC ATTITUDE MANEUVER ROUTINE -- KALCMANU
@ -35,7 +35,7 @@
#
# KALCMANU IS A ROUTINE WHICH GENERATES COMMANDS FOR THE LM DAP TO CHANGE THE ATTITUDE OF THE SPACECRAFT
# DURING FREE FALL. IT IS DESIGNED TO MANEUVER THE SPACECRAFT FROM ITS INITIAL ORIENTATION TO SOME DESIRED
# ORIENTATION SPECIFIED BY THE PROGRAM WHICH CALLS KALCMANU, AVOIDING GIMBAL LOCK IN THE PROCESS. IN THE
# ORIENTATION SPECIFIED BY THE PROGRAM WHICH CALLS KALCMANU, AVOIDING GIMBAL LOCK IN THE PROCESS. IN THE
# MOD 2 VERSION, THIS DESIRED ATTITUDE IS SPECIFIED BY A SET OF OF THREE COMMANDED CDU ANGLES STORES AS 2'S COMPLEMENT
# SINGLE PRECISION ANGLES IN THE THREE CONSECUTIVE LOCATIONS, CPHI, CTHETA, CPSI, WHERE
#
@ -48,7 +48,7 @@
#
# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALENT ROTATION (COF ALSO U) AND THE
# MAGNITUDE OF THE ROTATION (AM) TO BRING THE S/C FROM ITS INITIAL ORIENTATION TO ITS FINAL ORIENTATION.
# THIS DIRECTION REMAINS FIXED BOTH IN INERTIAL COORDINATES AND IN COMMANDED S/C AXES THROUGHOUT THE
# THIS DIRECTION REMAINS FIXED BOTH IN INERTIAL COORDINATES AND IN COMMANDED S/C AXES THROUGHOUT THE
# _
# MANEUVER. ONCE COF AND AM HAVE BEEN DETERMINED, KALCMANU THEN EXAMINES THE MANEUVER TO SEE IF IT WILL BRING
# _
@ -103,7 +103,7 @@
# P AXIS YAW WILL BE NECESSARY, A SWITCH IS RESET (STATE SWITCH 31) TO ALLOW FOR THE COMPUTATION OF THIS FINAL
# YAW.
#
# AS STATED PREVIOUSLY, KALCMANU GENERATES A SEQUENCE OF DESIRED GIMBAL ANGLES WHICH ARE UPDATED EVERY
# AS STATED PREVIOUSLY, KALCMANU GENERATES A SEQUENCE OF DESIRED GIMBAL ANGLES WHICH ARE UPDATED EVERY
# _
# SECOND. THIS IS ACCOMPLISHED BY A SMALL ROTATION OF THE DESIRED S/C FRAME ABOUT THE VECTOR COF. THE NEW
# DESIRED REFERENCE MATRIX IS THEN,
@ -115,7 +115,7 @@
# *
# FROM MIS.
#
# AT THE BEGINNING OF THE MANEUVER THE AUTOPILOT DESIRED RATES (OMEGAPD, OMEGAQD, OMEGARD) AND THE
# AT THE BEGINNING OF THE MANEUVER THE AUTOPILOT DESIRED RATES (OMEGAPD, OMEGAQD, OMEGARD) AND THE
# MANEUVER TIMINGS ARE ESTABLISHED. ON THE FIRST PASS AND ON ALL SUBSEQUENT UPDATES THE CDU DESIRED
# ANGLES ARE LOADED WITH THE APPROPRIATE VALUES AND THE INCREMENTAL CDU ANGLES ARE COMPUTED. THE AGC CLOCKS
# (TIME1 AND TIME2) ARE THEN CHECKED TO SEE IF THE MANEUVER WILL TERMINATE BEFORE THE NEXT UPDATE. IF
@ -129,7 +129,7 @@
# CALLING SEQUENCE
#
# IN ORDER TO PERFORM A KALCMANU SUPERVISED MANEUVER, THE COMMANDED GIMBAL ANGLES MUST BE PRECOMPUTED AND
# STORED IN LOCATIONS CPHI, CTHETA, CPSI. THE USER'S PROGRAM MUST THEN CLEAR STATE SWITCH NO 33 TO ALLOW THE
# STORED IN LOCATIONS CPHI, CTHETA, CPSI. THE USER'S PROGRAM MUST THEN CLEAR STATE SWITCH NO 33 TO ALLOW THE
# ATTITUDE MANEUVER ROUTINE TO PERFORM ANY FINAL P-AXIS YAW INCURRED BY AVOIDING GIMBAL LOCK. THE MANEUVER IS
# THEN INITIATED BY ESTABLISHING THE FOLLOWING EXECUTIVE JOB
# *
@ -186,7 +186,7 @@
# --------
#
# THIS ROUTINE TRANSPOSES A 3X3 MATRIX AND LEAVES THE RESULT IN THE PUSH DOWN LIST, I.E.,
#
#
# * * T
# M = M1
#
@ -220,7 +220,7 @@
#
# M = -SINY COSZ
# 6
#
#
# M = SINY SINZ COSX + COSY SINX
# 7
# Page 346
@ -346,7 +346,7 @@
# THE LOCATION CALLED DEL. IN ORDER TO USE THE ROUTINE, THE CALLING PROGRAM MUST FIRST STORE U (A HALF UNIT
# DOUBLE PRECISION VECTOR) IN THE SET OF ERASABLE LOCATIONS BEGINNING WITH THE ADDRESS CALLED COF. THE ANGLE, A,
# MUST THEN BE LOADED INTO D(MPAC).
#
#
# INTERNALLY, THE PROGRAM ALSO USES THE FIRST 10 LOCATIONS OF THE PUSH DOWN LIST.
#
# READCDUK
@ -419,9 +419,9 @@
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
# THE THREE DESIRED CDU ANGLES MUST BE STORED AS SINGLE PRECISION TWO'S COMPLEMENT ANGLES IN THE THREE SUCCESSIVE
# LOCATIONS, CPHI, CTHETA, CPSI.
@ -475,7 +475,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
STOVL TMFI +6
STADR
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
# CALCULATE COFSKEW AND MFISYM
DLOAD DSU
@ -489,7 +489,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
MFI +10D
VDEF
STORE COFSKEW # EQUALS MFISKEW
# CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
DLOAD DAD
@ -508,7 +508,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
CPHI # GO DIRECTLY INTO ATTITUDE HOLD
STCALL CDUXD # ABOUT COMMANDED ANGLES
TOOBADI # STOP RATE AND EXIT
CHECKMAX DLOAD DSU
AM
MAXANG
@ -533,7 +533,7 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
VAD VSR1
TMFI +12D
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
# CALCULATE COF
DLOAD SR1
@ -560,7 +560,7 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2
UNIT
STORE COF
# DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
COFMAXGO DLOAD DSU
@ -578,9 +578,9 @@ COFMAXGO DLOAD DSU
COMP12 DLOAD DSU
COF +2
COF +4
BMN
BMN
METHOD3 # COFZ G COFY OR COFX
METHOD2 DLOAD BPL # COFY MAX
COFSKEW +2 # UY
U2POS
@ -648,9 +648,9 @@ OKU31 DLOAD BPL
BANK 13
SETLOC KALCMON2
BANK
EBANK= BCDU
MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
0 # AND LEAVES RESULT IN PD LIST
0,1 # AND MPAC
@ -663,7 +663,7 @@ MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
VXM* PUSH
0,2
RVQ
# RETURN WITH MIXM2 IN PD LIST
TRANSPOS SETPD VLOAD* # TRANSPOS TRANSPOSES A 3X3 MATRIX
@ -695,13 +695,13 @@ TRNSPSPD EXIT # ENTER WITH MATRIX AT 0 IN PD LIST
# Page 357
TC INTPRET
RVQ
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
MINANG 2DEC 0.00069375
MAXANG 2DEC 0.472222222
@ -732,7 +732,7 @@ READCDUK CA CDUZ # LOAD T(MPAC) WITH CDU ANGLES
EXTEND
DCA CDUX # AND CHANGE MODE TO TRIPLE PRECISION
TCF TLOAD +6
CDUTODCM AXT,1 SSP
OCT 3
S1
@ -814,7 +814,7 @@ LOOPSIN SLOAD* RTB
STADR
STORE 16D,2 # C8=-SIN(THETA)SIN(PHI)SIN(PSI)
RVQ # +COS(THETA)COS(PHI)
# CALCULATION OF THE MATRIX DEL......
#
# * * __T *
@ -834,7 +834,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
DPHALF
SIGNMPAC
PDDL # PDA = 1-COS(A)
# COMPUTE THE DIAGONAL COMPONENTS OF DEL
COF
@ -859,10 +859,10 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
4
DAD SL3
2
BOVB
BOVB
SIGNMPAC
STORE KEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
# COMPUTE THE OFF DIAGONAL TERMS OF DEL
DLOAD DMP
@ -918,7 +918,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
SIGNMPAC
STORE KEL +10D # UY UZ (1-COS(A)) -UX SIN(A)
RVQ
# DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
# X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2).
# LEAVE CDU ANGLES SCALED 2PI IN V(MPAC).
@ -1004,24 +1004,24 @@ VECOFANG VDEF RVQ
TOOBADF EXIT
TC ALARM
OCT 00401
TCF NOGO # DO NOT ZERO ATTITUDE ERRORS
TC BANKCALL
CADR ZATTEROR # ZERO ATTITUDE ERRORS
NOGO TC BANKCALL
CADR STOPRATE # STOP RATES
CAF TWO
INHINT # ALL RETURNS ARE NOW MADE VIA GOODEND
TC WAITLIST
EBANK= BCDU
2CADR GOODMANU
TCF ENDOFJOB
TOOBADI EXIT
TCF NOGO

24
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 731-751
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected 3 typos.
# 2009-07-23 RSB Added Onno's notes on the naming
@ -28,7 +28,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 731
## At the get-together of the AGC developers celebrating the 40th anniversary
@ -36,11 +36,11 @@
## with Peter Adler) has related to us a little interesting history behind the
## naming of the routine.
##
## It traces back to 1965 and the Los Angeles riots, and was inspired
## It traces back to 1965 and the Los Angeles riots, and was inspired
## by disc jockey extraordinaire and radio station owner Magnificent Montague.
## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the
## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the
## hottest new records. Magnificent Montague was the charismatic voice of
## soul music in Chicago, New York, and Los Angeles from the mid-1950s to
## soul music in Chicago, New York, and Los Angeles from the mid-1950s to
## the mid-1960s.
# BURN, BABY, BURN -- MASTER IGNITION ROUTINE
@ -363,7 +363,7 @@ TIG-5 EXTEND
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
TC DOWNFLAG
ADRES ASTNFLAG
INDEX WHICH
TCF 11
@ -380,7 +380,7 @@ P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
DISPCHNG CS VB99DEX # (11)
TS DISPDEX
# Page 738
# Page 738
COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
OCT 40074
TCF TASKOVER
@ -449,11 +449,11 @@ P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
CS FLAGWRD9 # SET FLAG FOR P70-P71
MASK LETABBIT
ADS FLAGWRD9
CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
MASK SWANDBIT
ADS FLAGWRD7
CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
TS DAPBOOLS
@ -680,7 +680,7 @@ STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
DXCH MPAC
EXTEND
DCS TIME2
# Page 744
# Page 744
DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER
TC TPAGREE # POSITIVE, SINCE WE PASSED THE
CAF 1SEC # 45 SECOND CHECK.
@ -726,7 +726,7 @@ CLOKJOB EXTEND
DCS TIG
DXCH TTOGO
EXTEND
# Page 745
# Page 745
DCA TIME2
DAS TTOGO
INHINT

8
Luminary099/CONIC_SUBROUTINES.agc
View File

@ -98,7 +98,7 @@
# * +27 FOR MOON *
# Page 1161
# VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
# * +5 FOR MOON *
# * +5 FOR MOON *
# X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
# * * RESPECTIVELY, IS THE CENTRAL BODY
# TAU * +28 * DESIRED TRANSFER TIME IN CENTISECONDS (DP)
@ -188,7 +188,7 @@
# SGA MEMO 67-4.
#
# INPUT - ERASABLE INITIALIZATION REQUIRED
#
#
# * SCALE FACTOR *
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
# -------- *-------------- * -----------------------
@ -365,7 +365,7 @@
# Page 1168
# DEBRIS -
# PARAMETERS WHICH MAY BE OF USE -
#
#
# * SCALE FACTOR *
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
# -------- *-------------- * -----------------------
@ -1641,7 +1641,7 @@ TIMERAD STQ SETPD # PL AT 0
BADR2
SQRT SIGN
SGNRDOT
CLEAR
CLEAR
APSESW
# Page 1199
TERMNVEC VXSC VSL1

144
Luminary099/CONTROLLED_CONSTANTS.agc
View File

@ -30,7 +30,7 @@
SETLOC P40S
BANK
COUNT* $$/P40
# *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
@ -48,7 +48,7 @@ FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
SETLOC P40S1
BANK
COUNT* $$/P40
# *** APS IMPULSE DATA FOR P42 ***************************************
K1VAL 2DEC 124.55 B-23 # 2800 LB-SEC
@ -75,7 +75,7 @@ S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
(AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
(AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
# ASSUMPTIONS SAME AS FOR (1/DV)A.
(TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG.
# ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
@ -90,7 +90,7 @@ AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
SETLOC SERVICES
BANK
COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
@ -101,7 +101,7 @@ DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
SETLOC F2DPS*31
BANK
COUNT* $$/F2DPS
TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
# Page 40
@ -110,7 +110,7 @@ TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
SETLOC P40S
BANK
COUNT* $$/P40
THRESH1 DEC 24
THRESH3 DEC 12
HIRTHROT = BIT13
@ -118,13 +118,13 @@ HIRTHROT = BIT13
SETLOC FFTAG5
BANK
COUNT* $$/P40
THRESH2 DEC 308
SETLOC FTHROT
BANK
COUNT* $$/THROT
FMAXODD DEC +3841 # FSAT +4.81454413 E+4
FMAXPOS DEC +3467 # FMAX +4.34546769 E+4
THROTLAG DEC +20 # TAU (TH) +1.99999999 E-1
@ -133,7 +133,7 @@ SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872 E-2
SETLOC F2DPS*32
BANK
COUNT* $$/F2DPS
DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
# Page 41
@ -142,25 +142,25 @@ DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
SETLOC RADARUPT
BANK
COUNT* $$/RRUPT
LVELBIAS DEC -12288 # LANDING RADAR BIAS FOR 153.6 KC.
RDOTBIAS 2DEC 17000 # BIAS COUNT FOR RR RANGE RATE.
SETLOC LRS22
BANK
COUNT* $$/LRS22
RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
SETLOC SERVICES
BANK
COUNT* $$/SERV
HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
2DEC 0
2DEC -.1741224271
HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
# ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *********
@ -182,7 +182,7 @@ ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
SETLOC R10
BANK
COUNT* $$/R10
ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
ARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.
ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
@ -193,7 +193,7 @@ MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
SETLOC DAPS3
BANK
COUNT* $$/DAPAO
TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
# Page 43
@ -202,13 +202,13 @@ TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
SETLOC FRANDRES
BANK
COUNT* $$/START
FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
SETLOC LOADDAP1
BANK
COUNT* $$/R03
MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
@ -216,7 +216,7 @@ MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
SETLOC DAPS3
BANK
COUNT* $$/DAPAD
LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
@ -227,7 +227,7 @@ LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
SETLOC IMU2
BANK
COUNT* $$/P07
OMEG/MS 2DEC .24339048
SETLOC R30LOC
@ -244,20 +244,20 @@ OMEG/MS 2DEC .24339048
SETLOC P40S1
BANK
COUNT* $$/S40.9
EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
SETLOC ASENT1
BANK
COUNT* $$/P12
MUM(-37) 2DEC* 4.9027780 E8 B-37*
MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
SETLOC SERVICES
BANK
COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
-MUDT 2DEC* -7.9720645 E+12 B-44*
@ -275,7 +275,7 @@ RESQ 2DEC* 40.6809913 E12 B-58*
SETLOC P50S1
BANK
COUNT* $$/LOSAM
RSUBEM 2DEC 384402000 B-29
RSUBM 2DEC 1738090 B-29
RSUBE 2DEC 6378166 B-29
@ -284,14 +284,14 @@ ROE 2DEC .00257125
SETLOC CONICS1
BANK
COUNT* $$/LT-LG
ERAD 2DEC 6373338 B-29 # PAD RADIUS
504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
SETLOC CONICS1
BANK
COUNT* $$/CONIC
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED **************
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
@ -302,20 +302,20 @@ MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
2DEC* .203966 E-8 B+28* # 1/MUM
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
# *************************************************************************
# Page 46
SETLOC INTINIT
BANK
COUNT* $$/INTIN
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
SETLOC ORBITAL2
BANK
COUNT* $$/ORBIT
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ************
2DEC* 1.32715445 E16 B-54*
@ -334,13 +334,13 @@ J2REQSQ 2DEC* 1.75501139 E21 B-72*
SETLOC TOF-FF1
BANK
COUNT* $$/TFF
1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
SETLOC SBAND
BANK
COUNT* $$/R05
REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
# Page 47
@ -349,167 +349,167 @@ REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
SETLOC STARTAB
BANK
COUNT* $$/STARS
2DEC +.8342971408 B-1 # STAR 37 X
2DEC -.2392481515 B-1 # STAR 37 Y
2DEC -.4966976975 B-1 # STAR 37 Z
2DEC +.8139832631 B-1 # STAR 36 X
2DEC -.5557243189 B-1 # STAR 36 Y
2DEC +.1691204557 B-1 # STAR 36 Z
2DEC +.4541086270 B-1 # STAR 35 X
2DEC -.5392368197 B-1 # STAR 35 Y
2DEC +.7092312789 B-1 # STAR 35 Z
2DEC +.3201817378 B-1 # STAR 34 X
2DEC -.4436021946 B-1 # STAR 34 Y
2DEC -.8370786986 B-1 # STAR 34 Z
2DEC +.5520184464 B-1 # STAR 33 X
2DEC -.7933187400 B-1 # STAR 33 Y
2DEC -.2567508745 B-1 # STAR 33 Z
2DEC +.4537196908 B-1 # STAR 32 X
2DEC -.8779508801 B-1 # STAR 32 Y
2DEC +.1527766153 B-1 # STAR 32 Z
2DEC +.2069525789 B-1 # STAR 31 X
2DEC -.8719885748 B-1 # STAR 31 Y
2DEC -.4436288486 B-1 # STAR 31 Z
2DEC +.1217293692 B-1 # STAR 30 X
2DEC -.7702732847 B-1 # STAR 30 Y
# Page 48
2DEC +.6259880410 B-1 # STAR 30 Z
2DEC -.1124304773 B-1 # STAR 29 X
2DEC -.9694934200 B-1 # STAR 29 Y
2DEC +.2178116072 B-1 # STAR 29 Z
2DEC -.1146237858 B-1 # STAR 28 X
2DEC -.3399692557 B-1 # STAR 28 Y
2DEC -.9334250333 B-1 # STAR 28 Z
2DEC -.3516499609 B-1 # STAR 27 X
2DEC -.8240752703 B-1 # STAR 27 Y
2DEC -.4441196390 B-1 # STAR 27 Z
2DEC -.5326876930 B-1 # STAR 26 X
2DEC -.7160644554 B-1 # STAR 26 Y
2DEC +.4511047742 B-1 # STAR 26 Z
2DEC -.7861763936 B-1 # STAR 25 X
2DEC -.5217996305 B-1 # STAR 25 Y
2DEC +.3311371675 B-1 # STAR 25 Z
2DEC -.6898393233 B-1 # STAR 24 X
2DEC -.4182330640 B-1 # STAR 24 Y
2DEC -.5909338474 B-1 # STAR 24 Z
2DEC -.5812035376 B-1 # STAR 23 X
2DEC -.2909171294 B-1 # STAR 23 Y
2DEC +.7599800468 B-1 # STAR 23 Z
2DEC -.9170097662 B-1 # STAR 22 X
2DEC -.3502146628 B-1 # STAR 22 Y
2DEC -.1908999176 B-1 # STAR 22 Z
# Page 49
2DEC -.4523440203 B-1 # STAR 21 X
2DEC -.0493710140 B-1 # STAR 21 Y
2DEC -.8904759346 B-1 # STAR 21 Z
2DEC -.9525211695 B-1 # STAR 20 X
2DEC -.0593434796 B-1 # STAR 20 Y
2DEC -.2986331746 B-1 # STAR 20 Z
2DEC -.9656605484 B-1 # STAR 19 X
2DEC +.0525933156 B-1 # STAR 19 Y
2DEC +.2544280809 B-1 # STAR 19 Z
2DEC -.8608205219 B-1 # STAR 18 X
2DEC +.4636213989 B-1 # STAR 18 Y
2DEC +.2098647835 B-1 # STAR 18 Z
2DEC -.7742591356 B-1 # STAR 17 X
2DEC +.6152504197 B-1 # STAR 17 Y
2DEC -.1482892839 B-1 # STAR 17 Z
2DEC -.4657947941 B-1 # STAR 16 X
2DEC +.4774785033 B-1 # STAR 16 Y
2DEC +.7450164351 B-1 # STAR 16 Z
2DEC -.3612508532 B-1 # STAR 15 X
2DEC +.5747270840 B-1 # STAR 15 Y
2DEC -.7342932655 B-1 # STAR 15 Z
2DEC -.4118589524 B-1 # STAR 14 X
2DEC +.9065485360 B-1 # STAR 14 Y
2DEC +.0924226975 B-1 # STAR 14 Z
2DEC -.1820751783 B-1 # STAR 13 X
# Page 50
2DEC +.9404899869 B-1 # STAR 13 Y
2DEC -.2869271926 B-1 # STAR 13 Z
2DEC -.0614937230 B-1 # STAR 12 X
2DEC +.6031563286 B-1 # STAR 12 Y
2DEC -.7952489957 B-1 # STAR 12 Z
2DEC +.1371725575 B-1 # STAR 11 X
2DEC +.6813721061 B-1 # STAR 11 Y
2DEC +.7189685267 B-1 # STAR 11 Z
2DEC +.2011399589 B-1 # STAR 10 X
2DEC +.9690337941 B-1 # STAR 10 Y
2DEC -.1432348512 B-1 # STAR 10 Z
2DEC +.3507315038 B-1 # STAR 9 X
2DEC +.8926333307 B-1 # STAR 9 Y
2DEC +.2831839492 B-1 # STAR 9 Z
2DEC +.4105636020 B-1 # STAR 8 X
2DEC +.4988110001 B-1 # STAR 8 Y
2DEC +.7632988371 B-1 # STAR 8 Z
2DEC +.7032235469 B-1 # STAR 7 X
2DEC +.7075846047 B-1 # STAR 7 Y
2DEC +.0692868685 B-1 # STAR 7 Z
2DEC +.5450107404 B-1 # STAR 6 X
2DEC +.5314955466 B-1 # STAR 6 Y
2DEC -.6484410356 B-1 # STAR 6 Z
2DEC +.0130968840 B-1 # STAR 5 X
2DEC +.0078062795 B-1 # STAR 5 Y
# Page 51
2DEC +.9998837600 B-1 # STAR 5 Z
2DEC +.4917678276 B-1 # STAR 4 X
2DEC +.2204887125 B-1 # STAR 4 Y
2DEC -.8423473935 B-1 # STAR 4 Z
2DEC +.4775639450 B-1 # STAR 3 X
2DEC +.1166004340 B-1 # STAR 3 Y
2DEC +.8708254803 B-1 # STAR 3 Z
2DEC +.9342640400 B-1 # STAR 2 X
2DEC +.1735073142 B-1 # STAR 2 Y
2DEC -.3115219339 B-1 # STAR 2 Z
2DEC +.8748658918 B-1 # STAR 1 X
2DEC +.0260879174 B-1 # STAR 1 Y
2DEC +.4836621670 B-1 # STAR 1 Z
CATLOG DEC 6970
# *******************************************************************************
SETLOC EPHEM1
BANK
COUNT* $$/EPHEM
KONMAT 2DEC 1.0 B-1 # ********************
2DEC 0 # *
2DEC 0 # *
@ -538,13 +538,13 @@ VAL67 2DEC* .01726666666 B+1* # AMOD
2DEC .005325277 B+1 # CMOD
2DEC -.01106341036 # CARG
2DEC .002737925 B+1 # 1/365
# ********************************************************************************
SETLOC PLANTIN2
BANK
COUNT* $$/LUROT
COSI 2DEC .99964173 B-1 # COS (5521.5 SEC.) B-1
SINI 2DEC .02676579 B-1 # SIN (5521.5 SEC.) B-1
NODDOT 2DEC -.457335121 E-2 # REV/CSEC B+28 = -1.07047011 E-8 RAD/SEC

2
Luminary099/DAPIDLER_PROGRAM.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1410
# THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES

2
Luminary099/DAP_INTERFACE_SUBROUTINES.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1406
BANK 20

6
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1341-1373
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1341
# DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --

18
Luminary099/DOWN_TELEMETRY_PROGRAM.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 988-997
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 988
# PROGRAM NAME -- DOWN TELEMETRY PROGRAM
@ -161,7 +161,7 @@
BANK
EBANK= DNTMBUFF
COUNT* $$/DPROG
DODOWNTM TS BANKRUPT
EXTEND
@ -184,7 +184,7 @@ MINTIME2 -1DNADR TIME2 # NEGATIVE OF TIME2 1DNADR
CCS SUBLIST # IS THE SUBLIST IN CONTROL
TCF NEXTINSL # YES
# Page 992
# Page 992
DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
CHKLIST CA CTLIST
@ -235,7 +235,7 @@ DODNCHAN TC 6 # (EXECUTED AS EXTEND) IT'S A CHANNEL
WOZERO CS BIT7
EXTEND
WAND CHAN13 # SET WORD ORDER CODE TO ZERO
# Page 993
# Page 993
TC Q # RETURN TO CALLER
DODNPTR INDEX DNECADR # DNECADR CONTAINS ADRES OF SUBLIST
@ -415,7 +415,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
TCF DNPHASE1 # YES -- START SENDING INTERRUPTED DOWNLIST
# AGAIN
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALIZE NEXT BANK
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
@ -439,7 +439,7 @@ SENDID EXTEND # ** ENTRANCE USED BY ERASABLE DUMP PROG. **
CAF ERASID # TO LOCATION FOLLOWING `TC SENDID'
TS L # ** ENTRANCE USED BY REGULAR DOWNLINK PG **
# Page 997
# Page 997
TC WOZERO # GO SET WORD ORDER CODE TO ZERO
CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
XCH L # AND ID BACK INTO A
@ -452,4 +452,4 @@ WOTEST CA BIT7 # AT THE BEGINNING OF THE LIST THE WORD
TC DNTMGOTO
CA BIT7
TCF WO1

28
Luminary099/ERASABLE_ASSIGNMENTS.agc
View File

@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 90
# CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
@ -94,7 +94,7 @@ 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
@ -186,7 +186,7 @@ DNTM2 EQUALS 35
SETLOC 61
# INTERRUPT TEMPORARY STORAGE POOL. (11D)
# (ITEMP1 THROUGH RUPTREG4)
# (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.
@ -381,7 +381,7 @@ 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
@ -800,7 +800,7 @@ 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
END-UE EQUALS # NEXT UNUSED UE ADDRESS
# SELF-CHECK ASSIGNMENTS (17D)
@ -992,7 +992,7 @@ END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 **
# EBANK-4 ASSIGNMENTS
SETLOC 2000
# E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
AMEMORY EQUALS
@ -1673,7 +1673,7 @@ END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 ***
# 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.
@ -1902,7 +1902,7 @@ 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
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.
@ -2046,7 +2046,7 @@ 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
@ -2071,7 +2071,7 @@ END-E6 EQUALS VJETCTR
# EBANK-7 ASSIGNMENTS
SETLOC 3400
# P35 CONSTANTS. -- PAD LOADED -- (4D)
ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
@ -2099,7 +2099,7 @@ 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)
@ -2117,7 +2117,7 @@ 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)
@ -2400,7 +2400,7 @@ RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE
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
@ -2621,7 +2621,7 @@ 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.

6
Luminary099/EXECUTIVE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1103-1114
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1103
BLOCK 02

372
Luminary099/EXTENDED_VERBS.agc
View File

File diff suppressed because it is too large Load Diff

2
Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 908
# PROGRAM NAME: FINDCDUW

18
Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1095-1099
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1095
BLOCK 02
@ -37,11 +37,11 @@ POSMAX OCT 37777
LIMITS = NEG1/2
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
# LOCATIONS IN FRONT OF BIT14)
# BIT TABLE
# BIT TABLE
BIT15 OCT 40000
BIT14 OCT 20000
BIT13 OCT 10000
@ -162,7 +162,7 @@ OCT17770 OCT 17770
# OCT 20033 # T4RUPT RELTAB +3D
PRIO21 OCT 21000
BLOCK 03
COUNT* $$/FCONS
COUNT* $$/FCONS
PRIO22 OCT 22000 # SERVICE ROUTINES
PRIO23 OCT 23000
PRIO24 OCT 24000
@ -178,7 +178,7 @@ C1/2 DEC .7853134 # (OCTAL 31103)
PRIO32 OCT 32000
PRIO33 OCT 33000
PRIO34 OCT 34000
# OCT 34034 # T4RUPT RELTAB +6D
# OCT 34034 # T4RUPT RELTAB +6D
# Page 1098
PRIO35 OCT 35000
PRIO36 OCT 36000

180
Luminary099/FLAGWORD_ASSIGNMENTS.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 61
@ -244,7 +244,7 @@ FLAGWRD0 = STATE +0 # (000-014)
# BIT 15 FLAG 0 (S)
= 000D
= BIT15
# BIT 14 FLAG 0 (S)
JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
JSWCHBIT = BIT14 # MATRIX VECTOR
@ -311,7 +311,7 @@ FLAGWRD1 = STATE +1 # (015-029)
# Page 67
# (SET) (RESET)
# BIT 15 FLAG 1 (S)
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
NJETSBIT = BIT15
@ -332,7 +332,7 @@ RODFLBIT = BIT12 # OPERATION CONTINUES. IALIZATION IS PER-
# BIT 11 FLAG 1
= 019D
= BIT11
# BIT 10 FLAG 1 (L)
R61FLAG = 020D # RUN R61 LEM RUN R65 LEM
R61FLBIT = BIT10
@ -340,7 +340,7 @@ R61FLBIT = BIT10
# BIT 9 FLAG 1
= 021D
= BIT9
# BIT 8 FLAG 1 (S)
VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR
VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
@ -359,10 +359,10 @@ NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
TRACKBIT = BIT5
# BIT 4 FLAG 1
# BIT 4 FLAG 1
= 026D
= BIT4
# BIT 3 FLAG 1 (S)
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
# METHOD IN ITERATOR FALSI METHOD IN
@ -372,14 +372,14 @@ SLOPEBIT = BIT3 # ITERATOR
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
# BIT 1 FLAG 1
# BIT 1 FLAG 1
= 029D
= BIT1 # OH 2009-05-15 Scan does not have this line
FLAGWRD2 = STATE +2 # (030-044)
# (SET) (RESET)
# BIT 15 FLAG 2 (S)
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
DRFTBIT = BIT15 # COMPENSATION COMPENSATION
@ -405,7 +405,7 @@ STEERBIT = BIT11 # IS PRESENT IS PRESENT
# BIT 10 FLAG 2 (S)
= 035D # OH 2009-05-15 These two line don't appear in scan
= BIT10
# BIT 9 FLAG 2 (S)
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
# BURN (CUTOFF TIME CUTOFF TIME YET
@ -454,8 +454,8 @@ NODOBIT = BIT1
FLAGWRD3 = STATE +3 # (045-059)
# (SET) (RESET)
# BIT 15 FLAG 3
# BIT 15 FLAG 3
= 045D #
= BIT15 # OH 2009-05-15 This line is not in scans
@ -493,7 +493,7 @@ READRBIT = BIT9 # PURSUANT TO R29 PURSUANT TO R29
PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP
# IN P00 (P00) LOGIC IN INTE-
PRECIBIT = BIT8 # GRATION
# BIT 7 FLAG 3 (S)
CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
CULTBIT = BIT7
@ -526,7 +526,7 @@ FLAGWRD4 = STATE +4 # (060-074)
# Page 72
# (SET) (RESET)
# BIT 15 FLAG 4 (S)
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
@ -544,7 +544,7 @@ PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP
# TURN A NORMAL DIS-
PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
# DISPLAY IN R60
# BIT 11 FLAG 4 (S)
MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
@ -556,7 +556,7 @@ NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
# DISPLAY INITIATED INITIATED
# BIT 9 FLAG 4 (S)
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
@ -567,7 +567,7 @@ NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
# INITIATED INITIATED
# BIT 7 FLAG 4 (S)
PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
@ -575,7 +575,7 @@ PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
# INITIATED INITIATED
# BIT 6 FLAG 4 (S)
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
# INTERFERED WITH INTERFERED WITH
@ -591,7 +591,7 @@ NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
# DISPLAY DISPLAY
# BIT 3 FLAG 4 (S)
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
MKOVBIT = BIT3 # NORMAL NORMAL
@ -599,8 +599,8 @@ MKOVBIT = BIT3 # NORMAL NORMAL
# BIT 2 FLAG 4
= 073D
= BIT2 # OH 2009-05-15 Not in scan.
# BIT 1 FLAG 4 (S)
XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
@ -608,7 +608,7 @@ XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
FLAGWRD5 = STATE +5 # (075-089)
# (SET) (RESET)
# BIT 15 FLAG 5 (S)
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
DSKYFBIT = BIT15 # DSKY
@ -616,7 +616,7 @@ DSKYFBIT = BIT15 # DSKY
# BIT 14 FLAG 5
= 076D
= BIT14
# Page 74
# BIT 13 FLAG 5 (S,L)
SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED
@ -648,7 +648,7 @@ DMENFBIT = BIT9 # FOR INCORPORATION FOR INCORPORATION
# BIT 7 FLAG 5 (S)
ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
ENGONBIT = BIT7 #
ENGONBIT = BIT7 #
# BIT 6 FLAG 5 (S)
3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
@ -703,25 +703,25 @@ S32.1F3B = 093D # = FIRST NEWTON ITERATION BEING DONE
S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWTON ITERATION
# (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION
# (1,0)= REMAINDER OF SECOND NEWTON ITERATION
# BIT 11 FLAG 6 (S)
= 094D #
= BIT11 #
# BIT 11 FLAG 6 (S)
= 094D #
= BIT11 #
# Page 76
# BIT 10 FLAG 6 (S)
GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
GMBDRBIT = BIT10 #
GMBDRBIT = BIT10 #
# BIT 9 FLAG 6
= 096D #
= BIT9 #
= BIT9 #
# BIT 8 FLAG 6 (S)
MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
MUNFLBIT = BIT8 # MUNRVG CALCRVG
# BIT 7 FLAG 6 (L)
= 098D #
= BIT7 #
= 098D #
= BIT7 #
# BIT 6 FLAG 6 (L)
REDFLAG = 099D # LANDING SITE LANDING SITE
@ -729,12 +729,12 @@ REDFLAG = 099D # LANDING SITE LANDING SITE
REDFLBIT = BIT6 # PERMITTED PERMITTED
# BIT 5 FLAG 6
= 100D #
= 100D #
= BIT5 # OH 2009-05-15 Not in scan
# BIT 4 FLAG 6
= 101D #
= BIT4 # OH 2009-05-15 Not in scan
= BIT4 # OH 2009-05-15 Not in scan
# BIT 3 FLAG 6 (S)
NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
@ -772,7 +772,7 @@ MANUFBIT = BIT14 # SEARCH
# BIT 13 FLAG 7 (S)
IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
IGNFLBIT = BIT13 #
IGNFLBIT = BIT13 #
# BIT 12 FLAG 7 (S)
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
@ -789,7 +789,7 @@ NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL
# BIT 9 FLAG 7 (S)
RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
# FINAL STATE VECTOR VECTOR IN TIME-THETA
RVSWBIT = BIT9 # IN TIME-DELTA
RVSWBIT = BIT9 # IN TIME-DELTA
# BIT 8 FLAG 7 (S)
V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
@ -799,7 +799,7 @@ V67FLBIT = BIT8 # VALUES INITIAL VALUES
# Page 78
# BIT 7 FLAG 7 (S)
IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
IDLEFBIT = BIT7 #
IDLEFBIT = BIT7 #
# BIT 6 FLAG 7 (S)
V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
@ -811,19 +811,19 @@ AVEGFBIT = BIT5 # DESIRED NOT DESIRED
# BIT 4 FLAG 7 (S)
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
UPLOCBIT = BIT4 #
UPLOCBIT = BIT4 #
# BIT 3 FLAG 7 (S)
VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
VERIFBIT = BIT3 #
VERIFBIT = BIT3 #
# BIT 2 FLAG 7 (L,C)
V82EMFLG = 118D # MOON VICINITY EARTH VICINITY
V82EMBIT = BIT2 #
V82EMBIT = BIT2 #
# BIT 1 FLAG 7 (S)
TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
TFFSWBIT = BIT1 #
TFFSWBIT = BIT1 #
FLAGWRD8 = STATE +8D # (120-134)
@ -837,8 +837,8 @@ RPQFLBIT = BIT15 # TWEEN SECONDARY BODY
# AND PRIMARY BODY)
# BIT 14 FLAG 8
= 121D #
= BIT14 #
= 121D #
= BIT14 #
# Page 79
# BIT 13 FLAG 8 (S)
@ -859,10 +859,10 @@ FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED
# BIT 9 FLAG 8 (L)
P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
P39SWBIT = BIT9 #
P39SWBIT = BIT9 #
# BIT 8 FLAG 8 *** PROTECTED FROM FRESH START ***
SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
SURFFBIT = BIT8 # SURFACE
# BIT 7 FLAG 8 (S)
@ -904,8 +904,8 @@ FLAGWRD9 = STATE +9D # (135-149)
# (SET) (RESET)
# BIT 15 FLAG 9
= 135D #
= BIT15 #
= 135D #
= BIT15 #
# BIT 14 FLAG 9 (L)
FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
@ -929,7 +929,7 @@ FLRCSBIT = BIT10 # (ASCENT GUIDANCE)
# BIT 9 FLAG 9 (L)
# Page 81
# Page 81
LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
@ -941,24 +941,24 @@ FLAPBIT = BIT8 # (ASCENT GUIDANCE)
# BIT 7 FLAG 9 (L)
= 143D
= BIT7 # OH 2009-05-15 Line not in scan
# BIT 6 FLAG 9 (L)
ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT
ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE
# ROTATION IN THE ROTATION IN THE
# ROTATION IN THE ROTATION IN THE
# PREFERRED DIRECTION PREFERRED DIRECTION
# BIT 5 FLAG 9 (S)
QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
QUITBIT = BIT5 #
QUITBIT = BIT5 #
# BIT 4 FLAG 9
= 146D #
= BIT4 #
= 146D #
= BIT4 #
# BIT 3 FLAG 9 (L)
MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE
MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE
MID1FBIT = BIT3 # THEN-PRESENT TIME
# BIT 2 FLAG 9 (L)
@ -981,7 +981,7 @@ FLGWRD10 = STATE +10D # (150-164)
# (SET) (RESET)
# BIT 15 FLAG 10 (S)
= 150D #
= 150D #
= BIT15 # OH 2009-05-15 Line not in scan
# BIT 14 FLAG 10 (L,C)
@ -989,57 +989,57 @@ INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
INTFLBIT = BIT14 # PROGRESS PROGRESS
# BIT 13 FLAG 10 (S,L)
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
APSFLBIT = BIT13 # *** PROTECTED FROM FRESH START ***
# BIT 12 FLAG 10
= 153D #
= BIT12 # OH 2009-05-15 Line not in scan
= 153D #
= BIT12 # OH 2009-05-15 Line not in scan
# BIT 11 FLAG 10
= 154D #
= BIT11 # OH 2009-05-15 Line not in scan
= 154D #
= BIT11 # OH 2009-05-15 Line not in scan
# BIT 10 FLAG 10
= 155D #
= BIT10 # OH 2009-05-15 Line not in scan
= 155D #
= BIT10 # OH 2009-05-15 Line not in scan
# BIT 9 FLAG 10
= 156D #
= BIT9 # OH 2009-05-15 Line not in scan
= 156D #
= BIT9 # OH 2009-05-15 Line not in scan
# BIT 8 FLAG 10
= 157D #
= BIT8 # OH 2009-05-15 Line not in scan
= 157D #
= BIT8 # OH 2009-05-15 Line not in scan
# BIT 7 FLAG 10 (L,C)
REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
REINTBIT = BIT7 # TO BE RESTARTED NOT TO BE RESTARTED
# BIT 6 FLAG 10
= 159D #
= BIT6 # OH 2009-05-15 Line not in scan
= 159D #
= BIT6 # OH 2009-05-15 Line not in scan
# BIT 5 FLAG 10
= 160D #
= BIT5 # OH 2009-05-15 Line not in scan
= 160D #
= BIT5 # OH 2009-05-15 Line not in scan
# Page 83
# BIT 4 FLAG 10
= 161D #
= BIT4 # OH 2009-05-15 Line not in scan
= 161D #
= BIT4 # OH 2009-05-15 Line not in scan
# BIT 3 FLAG 10
= 162D #
= BIT3 # OH 2009-05-15 Line not in scan
= BIT3 # OH 2009-05-15 Line not in scan
# BIT 2 FLAG 10
= 163D #
= BIT2 # OH 2009-05-15 Line not in scan
= 163D #
= BIT2 # OH 2009-05-15 Line not in scan
# BIT 1 FLAG 10
= 164D #
= BIT1 # OH 2009-05-15 Line not in scan
= 164D #
= BIT1 # OH 2009-05-15 Line not in scan
@ -1051,13 +1051,13 @@ FLGWRD11 = STATE +11D # (165-179)
LRBYPASS = 165D # BYPASS ALL LANDING DO NOT BYPASS LR
LRBYBIT = BIT15 # RADAR UPDATES UPDATES
# BIT 14 FLAG 11
= 166D #
= BIT14 #
# BIT 14 FLAG 11
= 166D #
= BIT14 #
# BIT 13 FLAG 11
= 167D #
= BIT13 #
# BIT 13 FLAG 11
= 167D #
= BIT13 #
# BIT 12 FLAG 11 (L)(R12)
VXINH = 168D # IF Z VELOCITY DATA UPDATE X AXIS
@ -1067,7 +1067,7 @@ VXINHBIT = BIT12 # BYPASS X VELOCITY
# BIT 11 FLAG 11 (L)(R12)
PSTHIGAT = 169D # PAST HIGATE PREHIGATE
PSTHIBIT = BIT11 #
PSTHIBIT = BIT11 #
# BIT 10 FLAG 11 (L)(R12)
@ -1114,7 +1114,7 @@ VFLSHBIT = BIT2 # FLASHING
# BIT 1 FLAG 11 (L)(R12)
# Page 85
HFLSHFLG = 179D # LR ALTITUDE FAIL LR ALTITUDE FAIL
HFLSHFLG = 179D # LR ALTITUDE FAIL LR ALTITUDE FAIL
HFLSHBIT = BIT1 # LAMP SHOULD BE LAMP SHOULD NOT BE
# FLASHING FLASHING
@ -1124,7 +1124,7 @@ FLGWRD12 = STATE +12D # (180-194) WAS RADMODES
# (SET) (RESET)
# BIT 15 FLAG 12
# BIT 15 FLAG 12
CDESFLAG = 180D # CONTINUOUS DESIG- LGC CHECKS FOR LOCK-
CDESBIT = BIT15 # NATE, LGC COMMANDS ON WHEN ANTENNA
# RR REGARDLESS OF BEING DESIGNATED
@ -1148,12 +1148,12 @@ REPOSMON = 184D # REPOSITION MONITOR. NO REPOSITION TAKING
REPOSBIT = BIT11 # RR REPOSITION IS PLACE
# TAKING PLACE
# BIT 10 FLAG 12
# BIT 10 FLAG 12
DESIGFLG = 185D # RR DESIGNATE RR DESIGNATE NOT
DESIGBIT = BIT10 # REQUESTED OR IN REQUESTED OR IN
# PROGRESS PROGRESS
# BIT 9 FLAG 12
# BIT 9 FLAG 12
ALTSCALE = 186D # LR ALTITUDE READING LR ALTITUDE READING
ALTSCBIT = BIT9 # IS ON HIGH SCALE IS ON LOW SCALE

232
Luminary099/FRESH_START_AND_RESTART.agc
View File

@ -25,19 +25,19 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 211
BANK 10
SETLOC FRANDRES
BANK
EBANK= LST1
COUNT* $$/START # FRESH AND RESTART
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION
STARTSIM CAF BIT14
TC FINDVAC
@ -48,31 +48,31 @@ SKIPSIM CA DSPTAB +11D # TURN OFF ALL DSPTAB +11D LAMPS
MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
AD BIT15 # REQUESTED FRESH START.
TS DSPTAB +11D
CA BIT12 # INITIALIZE DOWNLINK EARASABLE MEMORY
TS DUMPCNT # DUMP FOR ONE PASS
CA ZERO
TS ERCOUNT
TS FAILREG
TS FAILREG +1
TS FAILREG +2
TS REDOCTR
CS PRIO12
TS DSRUPTSW
DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
EXTEND
WRITE DSALMOUT
CS ZERO
TS THRUST
DOFSTRT1 CAF FOUR
TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
CA PRIO30
TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
CA ZERO
TS ABDELV # DAP INITIALIZATION
TS NVSAVE
@ -88,7 +88,7 @@ DOFSTRT1 CAF FOUR
TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
EXTEND
WRITE CHAN5 # TURN OFF RCS JETS.
EXTEND
EXTEND
WRITE CHAN6 # TURN OFF RCS JETS.
EXTEND
WRITE CHAN12
@ -107,10 +107,10 @@ DOFSTRT1 CAF FOUR
CS ZERO
TS MODREG
CAF IM30INIF # FRESH START IMU INITIALIZATION
TS IMODES30
CAF MAXDB
TS DB
CAF FOUR
@ -120,7 +120,7 @@ DOFSTRT1 CAF FOUR
CAF EBANK6
TS EBANK
EBANK= HIASCENT
CA STIKSTRT
TS STIKSENS
CA RATESTRT
@ -143,7 +143,7 @@ DOFSTRT1 CAF FOUR
CAF IM33INIT
AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
DCA SWINIT
DXCH STATE
@ -173,10 +173,10 @@ DOFSTRT1 CAF FOUR
TS STATE +10D
CAF SWINIT +11D
TS STATE +11D
ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DON'T ZERO NEWJOB)
MR.KLEAN INHINT
# Page 214
EXTEND
@ -258,10 +258,10 @@ SETINFL CS INTFLBIT
MASK IMODES30 # HARDWARE RESTART, RESET ALL FAILURE
AD IM30INIR # CODES.
TS IMODES30
CA AGSWORD # BE SURE OF CORRECT DOWNLIST
TS DNLSTCOD
CA BIT4 # TURN ON THROTTLE COUNTER
EXTEND
WOR CHAN14 # TURN ON THRUST DRIVE
@ -286,7 +286,7 @@ GOPROG2A TC LIGHTSET
CS RSFLGBTS # CLEAR BITS 7 AND 14.
MASK FLGWRD10
TS FLGWRD10
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
PCLOOP TS MPAC +5
DOUBLE
@ -302,24 +302,24 @@ PCLOOP TS MPAC +5
# Page 217
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF PCLOOP
TS MPAC +6 # SET TO +0.
TC MMDSPLAY # DISPLAY MAJOR MODE
INHINT # RELINT DONE IN MMDSPLAY
CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
TS FLAGWRD1 # OPERATION AT THE TIME OF THE RESTART.
CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
TS FLAGWRD1 # CONTINUE.
CS P21FLBIT # CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
MASK FLAGWRD0 # NEW BASE STATE VECTORS.
TS FLAGWRD0
CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
NXTRST TS MPAC +5
DOUBLE
@ -327,16 +327,16 @@ NXTRST TS MPAC +5
CCS PHASE1
TCF PACTIVE # PNZ -- GROUP ACTIVE.
TCF PINACT # +0 -- GROUP NOT RUNNING.
PACTIVE TS MPAC
INCR MPAC # ABS OF PHASE.
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
CA RACTCADR
TC SWCALL # MUST RETURN TO SWRETURN.
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF NXTRST
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
TCF ENDRSTRT # PHASE ACTIVE
CAF BIT15 # IS MODE -0
@ -346,7 +346,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107
TCF DOFSTRT1
#******** ****** ******
# Page 218
@ -428,12 +428,12 @@ STARTSB1 CAF POSMAX
STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # ENGINE ON, OFF AND ISS WARNING.
WAND DSALMOUT
CS READRBIT # CLEAR READRFLG FOR R29
MASK FLAGWRD3
TS FLAGWRD3
# Page 220
CS FLAGWRD3 # DURING SOFTWARE RESTART, CLEAR TURNON,
MASK NR29FBIT # REPOSITION, CDU ZERO AND REMODE BITS
EXTEND # IN RADMODES, SINCE TASKS ASSOCIATED
@ -448,30 +448,30 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
# TRIM DRIVES. LEAVE RR LOCKON ENABLE
# ALONE.
CS NORRMBIT # ENABLE R25.
MASK FLAGWRD5
TS FLAGWRD5
CS R77FLBIT # CLEAR R77FLAG
MASK FLAGWRD5
TS FLAGWRD5
CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
WAND CHAN13 # ENABLE T6RUPT FLAG.
CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
EXTEND # RESUMES EXCEPT DURING P64)
WOR CHAN13
CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # GYRO ENABLE FLAG.
WAND CHAN14
EBANK= LST1
CAF STARTEB
TS EBANK # SET FOR E3
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
TS LST1 +7
TS LST1 +6
@ -503,7 +503,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS LST2 +13D
TS LST2 +15D
TS LST2 +17D
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
TS PRIORITY # AVAILABLE.
TS PRIORITY +12D
@ -513,10 +513,10 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS PRIORITY +60D
TS PRIORITY +72D
TS PRIORITY +84D
TS DSRUPTSW
TS NEWJOB # SHOWS NO ACTIVE JOBS.
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
TS VAC1USE
AD LTHVACA
@ -527,7 +527,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS VAC4USE
AD LTHVACA
TS VAC5USE
CAF TEN
DSPOFF TS MPAC # R1, R2, R3
CS BIT12
@ -535,8 +535,8 @@ DSPOFF TS MPAC # R1, R2, R3
TS DSPTAB
CCS MPAC
TCF DSPOFF
# Page 222
# Page 222
TS DELAYLOC
TS DELAYLOC +1
TS DELAYLOC +2
@ -562,20 +562,20 @@ DSPOFF TS MPAC # R1, R2, R3
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
CAF NOUTCON
TS NOUT
CS ONE
TS SAMPLIM
CAF BIT6
MASK IMODES33 # LEAVE BIT 6 UNCHANGED
AD IM33INIT # NO PIP OR TM FAILS. BIT6=0 IN THIS WORD.
TS IMODES33
CAF LESCHK # SELF CHECK GO-TO REGISTER.
TS SELFRET
CS VD1
TS DSPCOUNT
TC Q
EBANK= AOSQ
IDLEADR 2CADR DAPIDLER
@ -607,7 +607,7 @@ SWINIT OCT 0
OCT 0
OCT 0
OCT 00100
OCT 0
OCT 0
OCT 0
@ -637,13 +637,13 @@ SWINIT OCT 0
BLOCK 03
SETLOC FFTAG5
BANK
COUNT* $$/P00
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
TS L
COM
DXCH -PHASE4
TC POSTJUMP
CADR GOP00FIX
OCT24 MM 20
@ -652,11 +652,11 @@ OCT31 MM 25
BANK 20
SETLOC VERB37
BANK
COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
ADRES XOVINFLG
TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
ADRES ULLAGFLG
# Page 225
@ -667,7 +667,7 @@ GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
TCF -3
TCF -4
TCF -5
V37N99 VN 3799
# Page 226
@ -739,12 +739,12 @@ V37N99 VN 3799
V37 TS MMNUMBER # SAVE MAJOR MODE
CAF PRIO30 # RESTART AT PINBALL PRIORITY
TS RESTREG
CA IMODES30 # IS IMU BEING INITIALIZED
MASK BIT6
CCS A
TCF CANTROD
CS MMNUMBER # IS P70 REQUESTED?
AD DEC70
EXTEND
@ -752,23 +752,23 @@ V37 TS MMNUMBER # SAVE MAJOR MODE
AD ONE # IS P71 REQUESTED?
EXTEND
BZF SETUP71 # YES
CA MMNUMBER # IS NEW REQUEST P00
EXTEND
BZF ISSERVON # YES, CHECK SERVICER STATUS
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
MASK NODOBIT
CCS A
TCF CHECKTAB # NO
CANTROD TC ALARM
OCT 1520
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
# Page 228
@ -782,10 +782,10 @@ AGAINMM TS MPAC +1
CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
TCF AGAINMM # YES, GET NEXT ONE
TCF V37NONO # LAST TIME OR PASSED MM
CA MPAC +1
TS MINDEX # SAVE INDEX FOR LATER
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
MASK V37FLBIT
CCS A
@ -793,12 +793,12 @@ ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND
ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37
CAF V37RETAD
TS OUTROUTE
TCF ENDOFJOB
V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
MASK RNDVZBIT
CCS A
@ -811,19 +811,19 @@ V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
2.11SPT AD BIT5
2.7SPT AD OCT40072
TC PHSCHNGA
CANV37 CAF ZERO
EXTEND
WRITE SUPERBNK
CAF R00AD
TS TEMPFLSH
TC PHASCHNG
OCT 14
# Page 229
R00 TC INTPRET
CALL # WAIT FOR INTEGRATION TO FINISH
@ -832,41 +832,41 @@ DUMMYAD EXIT
TC DOWNFLAG
ADRES 3AXISFLG # RESET 3-AXIT FLAG
CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
TS FLGWRD11
TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
ADRES R04FLAG
TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
ADRES MUNFLAG
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
ADRES XOVINFLG
CCS MMNUMBER # IS THIS A P00H REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
TS PHSPRDT2 # P00 INTEGRATION.
TC CLRADMOD # CLRADMOD DOES AN INHINT.
CS NODOBIT # TURN OFF NODOFLAG.
MASK FLAGWRD2
TS FLAGWRD2
CA FIVE # SET RESTART FOR STATEINT1
TS L
COM
DXCH -PHASE2
CS OCT700 # TURN OFF P20, P25, IMU IN USE FLAG
MASK FLAGWRD0
TS FLAGWRD0 # REMDFLG
CAF DNLADP00
SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
@ -874,16 +874,16 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
# NEW ONE IS STARTED)
TC IBNKCALL
CADR ENGINOF1
# Page 230
TC IBNKCALL # INSURE ALLCOAST.
CADR ALLCOAST # DOES A RESTORDB.
CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
TS EBANKTEM
MASK FLAGWRD1
TS FLAGWRD1
TC IBNKCALL # KILL GROUPS 1,3,5,6
CADR V37KLEAN
@ -891,23 +891,23 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TCF RENDV00 # NO
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
CADR P00KLEAN
CA MMNUMBER
TS MODREG
GOGOPROG TC POSTJUMP
CADR GOPROG2
RENDV00 CS MODREG # IS CURRENT PROGRAM 22
AD OCT26
EXTEND
BZF RESET22 # YES -- CLEAR RENDEZVOUS FLAG
CS MMNUMBER # IS NE PROGRAM P22
AD OCT26
EXTEND
BZF RESET22
AD NEG2 # IS NEW PROGRAM = P20 OR P25
EXTEND
BZF RENDN00 # YES
@ -919,31 +919,31 @@ RENDV00 CS MODREG # IS CURRENT PROGRAM 22
MASK FLAGWRD0
CCS A
TCF P00FIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
RESET22 CS OCT700 # CLEAR RENDEZVOUS, P25
MASK FLAGWRD0 # AND IMU IN USE FLAGS
TS FLAGWRD0
TC CLRADMOD
# Page 231
KILL2 EXTEND # NO, KILL 2
DCA NEG0
DXCH -PHASE2
P00FIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
TS TEMPFLSH
TCF GOGOPROG
RENDN00 CS MODREG
AD OCT24
EXTEND
BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 --
AD FIVE
EXTEND
BZF KILL2
CA OCT500
MASK FLAGWRD0
AD MMNUMBER
@ -974,11 +974,11 @@ NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
INHINT
TCF SEUDOP00
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
# Page 232
TCF V37BAD
OCT00010 EQUALS BIT4
OCT500 OCT 500 # BITS 7 AND 9
OCT305 OCT 305
@ -990,37 +990,37 @@ V37XEQ INHINT
CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
TS MMTEMP
TS CYR # SHIFT RIGHT TO BITS 14-10
CA CYR
MASK PRIO37
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
TS NEWPRIO # STORE PRIO FOR SPVAC
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
EXTEND
MP BIT8
MASK LOW3
TS L
INDEX MINDEX
CAF FCADRMM1
TS BASETEMP # MAKE BBCON BY ADDING HI5 OR FCADR
MASK HI5
ADS L
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
MASK LOW10
AD BIT11
TC SPVAC
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
TC NEWMODEA # PHSPRDT1)
TC RELDSP # RELEASE DISPLAY
TC ENDOFJOB # AND EXIT
NEG7 EQUALS OCT77770
MMTEMP EQUALS PHSPRDT3
@ -1040,7 +1040,7 @@ SETUP70 TS Q
DCA P70CADR
AD Q
DTCB
DEC70 DEC 70
EBANK= R
P70CADR 2CADR P70
@ -1051,7 +1051,7 @@ P70CADR 2CADR P70
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
#
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
# THE MAJOR MODE. FOR EXAMPLE,
# THE MAJOR MODE. FOR EXAMPLE,
#
# FCADRMM1 FCADR P79 # START OF P 79
# FCADR PROG18 # START OF P 18
@ -1091,7 +1091,7 @@ FCADRMM1 FCADR P79
FCADR PROG20
FCADR P12LM
FCADR P06
# THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
# INFORMATION, IT IS IN THE FOLLOWING FORM,
#
@ -1144,7 +1144,7 @@ PREMM1 OCT 27717 # MM 79 EBANK 7 PRIO 13
OCT 27624 # MM 20 EBANK 7 PRIO 13
OCT 27614 # MM 12 EBANK 7 PRIO 13
OCT 27006 # MM 06 EBANK 4 PRIO 13
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
@ -1153,7 +1153,7 @@ NOV37MM DEC 29 # MM'S -1
DNLADMM1 ADRES RENDEZVU # P79
ADRES RENDEZVU # P78
ADRES RENDEZVU
ADRES RENDEZVU
ADRES RENDEZVU # P75
ADRES RENDEZVU # P74
ADRES RENDEZVU # P73
@ -1193,11 +1193,11 @@ LUNRSALN = 5
BANK 13
SETLOC INTINIT
BANK
COUNT* $$/INTIN
EBANK= RRECTCSM
# THIS ROUTINE DOES THE P00 INTEGRATION
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
@ -1211,7 +1211,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
DOINT CLEAR CALL
PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
INTEGRV # WHEN MODREG = 0
BON DLOAD
SURFFLAG
NO-INT
@ -1233,10 +1233,10 @@ DOINT2 SET CALL
NO-INT CLRGO
NODOFLAG
ENDINT
# Page 237
# Page 237
# THISVINT IS CALLED BY MIDTOAV1 AND 2
THISVINT CLEAR RVQ
VINTFLAG

22
Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 364
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2010-12-31 JL Fixed page number comment.
#
@ -25,14 +25,14 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 364
BANK 15
SETLOC KALCMON1
BANK
# DETECTING GIMBAL LOCK
LOCSKIRT EQUALS NOGIMLOC
@ -55,22 +55,22 @@ WCALC LXC,1 DLOAD*
SR
5
STORE TM # MANEUVER EXECUTION TIME SCALED AS T2
SETGO
SETGO
CALCMAN2 # D(OFF) = CONTINUE MANEUVER
NEWANGL +1 # 1(ON) = START MANEUVER
# THE FOUR SELECTABLE FREE FALL MANEUVER RATES SELECTED BY
# LOADING RATEINDX WITH 0, 2, 4, 6, RESPECTIVELY
ARATE 2DEC .0088888888 # = 0.2 DEG/SEC $ 22.5 DEG/SEC
2DEC .0222222222 # = 0.5 DEG/SEC $ 22.5 DEG/SEC
2DEC .0888888888 # = 2.0 DEG/SEC $ 22.5 DEG/SEC
2DEC .4444444444 # = 10.0 DEG/SEC $ 22.5 DEG/SEC
ANGLTIME 2DEC .0001907349 # = 100B-19 FUDGE FACTOR TO CONVERT
# MANEUVER ANGLE TO MANEUVER TIME

10
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 654-657
# Mod history: 2009-05-18 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-18 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 654
# GROUND TRACKING DETERMINATION PROGRAM -- P21
@ -124,7 +124,7 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
P21CONT VLOAD
P21BASER # RECYCLE -- INTEG FROM BASE VECTOR
STOVL RCV # --POS
# Page 656
# Page 656
P21BASEV
STODL VCV # --VEL
P21TIME
@ -175,7 +175,7 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
LUNAFLAG
VLOAD
RATT
# Page 657
# Page 657
STODL ALPHAV
TAT
CLEAR CALL

6
Luminary099/HeaderTemplate.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: XXXX-XXXX
# Mod history: 2009-05-XX XXX Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-XX XXX Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,5 +24,5 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969

124
Luminary099/IMU_COMPENSATION_PACKAGE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 326-337
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected a typo.
#
@ -25,47 +25,47 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 326
BANK 7
SETLOC IMUCOMP
BANK
EBANK= NBDX
COUNT* $$/ICOMP
1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
XCH EBANK
TS MODE
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
TCF +2
TCF IRIG1 # RETURN
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF +2
INDEX BUF +2
CA PIPASCF # (P.P.M.) X 2(-9)
EXTEND
INDEX BUF +2
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
TS Q # SAVE MAJOR PART
CA L # MINOR PART
EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
CA Q # MAJOR PART
EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2
INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SF)
INDEX BUF +2
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-5) * *
EXTEND
@ -74,7 +74,7 @@
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 *
INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF 1/PIPA1 +1
@ -84,48 +84,48 @@
# Page 328
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
TC IRIGX # COMPENSATE ACCELERATION TERMS
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
TC IRIGY # COMPENSATE ACCELERATION TERMS
CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
TC IRIGZ # COMPENSATE ACCELERATION TERMS
CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS.
TCF IRIG1 # NO RETURN
CA PRIO21 # PRIO GREATER THAN SERVICER.
TC NOVAC # SEND OUT GYRO TORQUING COMMANDS.
EBANK= NBDX
2CADR 1/GYRO
RELINT
IRIG1 CA MODE # RESTORE CALLER'S EBANK
TS EBANK
TCF SWRETURN
# Page 329
IRIGX EXTEND
IRIGX EXTEND
QXCH MPAC +2 # SAVE Q
EXTEND
DCS DELVX # (PIPA PULSES) X 2(+14)
DXCH MPAC
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
EXTEND #
EXTEND #
DCS DELVY # (PIPA PULSES) X 2(+14)
DXCH MPAC #
DXCH MPAC #
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
@ -167,13 +167,13 @@ IRIGZ EXTEND
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# Page 330
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
EXTEND
DCS DELVZ # (PIPA PULSES) X 2(+14)
DXCH MPAC
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
# EXTEND # ***
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
# DXCH MPAC # ***
@ -222,7 +222,7 @@ DRIFTSUB EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA MPAC +1 # NO MINOR PART
EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
@ -230,7 +230,7 @@ DRIFTSUB EXTEND
CAF ZERO
INDEX BUF # ADD IN FRACTIONAL COMPENSATION
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
AD BUF
XCH BUF
@ -238,23 +238,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
TCF +2 # YES
TC BUF +1 # NO
MASK COMPCHK # DEC -1
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
TC BUF +1 # NO
# Page 333
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
CA GCOMP +1 # FRACTIONAL PULSES
EXTEND
MP BIT8 # SHIFT RIGHT 7
INDEX BUF
TS GCOMP +1 # FRACTIONAL PULSES SCALED
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
INDEX BUF
XCH GCOMP # GYRO PULSES
@ -262,7 +262,7 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
MP BIT8 # SHIFT RIGHT 7
INDEX BUF
DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
CCS BUF # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF 1/GYRO +1
@ -274,23 +274,23 @@ LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
TC BANKCALL
CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
TCF ENDOFJOB # TEMPORARY
GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF
INDEX BUF # RESCALE
CA GCOMP +1
EXTEND
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
INDEX BUF
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
CCS BUF # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF GCOMP1 +1
COMPCHK DEC -1 # LESS THAN ZERO IMPOSSIBLE
TCF ENDOFJOB
# Page 334
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
@ -302,16 +302,16 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF ENDOFJOB
TCF ENDOFJOB
TCF +1
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
MASK BIT8 # POSITIVE SO THAT THE ACCELERATION TERMS
TS TEM1 # WILL BE COMPENSATED.
EXTEND
BZF +3 # ARE WE ON THE SURFACE
TC IBNKCALL # ON THE SURFACE
CADR PIPASR +3 # READ PIPAS, BUT DO NOT SCALE THEM
CA TIME1 # (CS) X 2(+14)
XCH 1/PIPADT # PREVIOUS TIME
RELINT
@ -321,25 +321,25 @@ NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK
AD HALF
XCH L # IF TIME1 DID NOT DICK, REMOVE RESULTING
XCH L # OVERFLOW.
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
MP BIT10 # SHIFT RIGHT 5
DXCH VBUF +2
CA ZERO
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX X, Y, Z.
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGX # COMPENSATE ACCELERATION TERMS.
EXTEND
DCA VBUF +2
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGY # COMPENSATE ACCELERATION TERMS.
# Page 335
@ -348,16 +348,16 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGZ # COMPENSATE ACCELERATION TERMS
EXTEND
DCS VBUF +2
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF 1/GYRO # YES
TCF ENDOFJOB # NO
@ -365,13 +365,13 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
# Page 336
FBIASSUB XCH Q
TS BUF +1
CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
EXTEND
MP MPAC # DELTAT SCALED (CS) X 2(+19)
INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA Q # NOW FRACTIONAL PART
EXTEND
MP MPAC +1
@ -379,17 +379,17 @@ FBIASSUB XCH Q
CAF ZERO
INDEX BUF
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
LASTBIAS TC BANKCALL
CADR PIPUSE1
CCS GCOMPSW
TCF +3
TCF +2
TCF ENDOFJOB
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
MASK SURFFBIT # POSITIVE SO THAT THE ACCELERATION TERMS
TS TEM1 # WILL BE COMPENSATED.
@ -399,11 +399,11 @@ LASTBIAS TC BANKCALL
COM
AD PIPTIME +1
TCF NBD2
GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
XCH EBANK # CALL TO 1/PIPA
TS MODE
CAF ZERO
TS GCOMPSW
TS GCOMP
@ -413,6 +413,6 @@ GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
TS GCOMP +4
# Page 337
TS GCOMP +5
TCF IRIG1 # RESTORE EBANK AND RETURN

12
Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-28 OH Transcribed from page images.
# 2009-06-05 RSB Fixed a typo.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround. Flagged SBANK=
# 2011-05-08 JL Removed workaround. Flagged SBANK=
# workaround for future removal.
# This source code has been transcribed or otherwise adapted from
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1309
@ -705,7 +705,7 @@ CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION
MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED,
CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION
TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY
CS ZERO # TO SWRETURN.
TS IMUCADR
TCF MODEEXIT
@ -844,10 +844,10 @@ IMUFIN20 = IMUFINE
GOMANUR CA ATTCADR # IS KALCMANU FREE
EXTEND
BZF +3
TC POODOO # NO
OCT 1210 # 2 TRYING TO USE SAME DEVICE
+3 EXTEND
DCA BUF2
DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3
@ -1064,4 +1064,4 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
ADRES NODOFLAG
TC GOTOPOOH

50
Luminary099/IMU_PERFORMANCE_TESTS_4.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 382-389
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 382
# PROGRAM -- IMU PERFORMANCE TESTS 4
@ -61,9 +61,9 @@
SETLOC IMU4
BANK
COUNT* $$/P07
EBANK= XSM
ESTIMS INHINT
CAE 1SECXT
TC TWIDDLE
@ -91,11 +91,11 @@ ESTIMS INHINT
TORQNDX
DCOMP BMN
VERTSKIP
CALL
CALL
ERTHRVSE
VERTSKIP EXIT
TC SLEEPIE +1
# Page 384
ALLOOP CA OVFLOWCK
EXTEND
@ -130,9 +130,9 @@ SPECSTS CAF PRIO20
TC FINDVAC
EBANK= XSM
2CADR ALFLT # START THE JOB
TC TASKOVER
# Page 385
ALFLT CCS GEOCOMPS
TC +2
@ -151,13 +151,13 @@ NORMLOP TC INTPRET
STODL DPIPAY
MPAC +5
STORE DPIPAZ
SETPD AXT,1
0
8D
SLOAD DCOMP
GEOCOMPS
BMN
BMN
PERFERAS
ALCGKK SLOAD BMN
ALTIMS
@ -172,7 +172,7 @@ ALKCG2 DLOAD* INCR,1
TIX,2 SXA,1
ALKCG2
ALX1S
ALFLT3 AXT,1
8D
DELMLP DLOAD* DMP
@ -226,7 +226,7 @@ ALKLP LXC,1 SXA,1
TIX,2 AXT,1
ALKLP
8D
LOOSE DLOAD* PDDL*
ACCWD +8D,1
VLAUN +8D,1
@ -246,7 +246,7 @@ LOOSE DLOAD* PDDL*
STORE ACCWD +8D,1
TIX,1
LOOSE
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
6
2
@ -263,13 +263,13 @@ BOOP DLOAD* DMPR
STORE 22D,2 # COSINES
TIX,2
BOOP
PERFERAS EXIT
CA EBANK7
TS EBANK
EBANK= ATIGINC
TC ATIGINC # GOTO ERASABLE TO CALCULATE ONLY TO RETN
# CAUTION
#
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
@ -283,7 +283,7 @@ PERFERAS EXIT
TC SETUPER1
CA CDUX
TS LOSVEC +1 # FOR TROUBLESHOOTING VD POSNS 2$4
# Page 388
SETUPER1 TC INTPRET
DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
@ -297,7 +297,7 @@ SETUPER1 TC INTPRET
XSM
STORE OGC
EXIT
CA OGCPL
TC BANKCALL
CADR IMUPULSE
@ -309,12 +309,12 @@ GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
ERTHRVSE
EXIT
TC TORQUE
SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
CCS TORQNDX # ARE WE DOING VERTDRIFT
TC EARTHR*
TC ENDOFJOB
SOMEERRR CA EBANK5
TS EBANK
CA ONE
@ -327,17 +327,17 @@ SOMERR2 CAF OCT1601
TC DOWNFLAG
ADRES IMUSE
TC ENDOFJOB
OCT1601 OCT 01601
DEC585 OCT 06200 # 3200 B+14 ORDER IS IMPORTANT
SCHZEROS 2DEC .00000000
# Page 389
2DEC .00000000
OCT 00000
ONEDPP OCT 00000 # ORDER IS IMPORTANT
OCT 00001
INTVAL OCT 4
OCT 2
DEC 144
@ -345,7 +345,7 @@ INTVAL OCT 4
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
77DECML DEC 77
ALXXXZ GENADR ALX1S -1
PIPASC 2DEC .13055869
@ -355,7 +355,7 @@ VELSC 2DEC -.52223476 # 512/980.402
ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
GEORGEJ 2DEC .63661977
GEORGEK 2DEC .59737013

46
Luminary099/IMU_PERFORMANCE_TEST_2.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 373-381
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 373
# NAME -- IMU PERFORMANCE TESTS 2
@ -46,10 +46,10 @@
BANK
EBANK= POSITON
COUNT* $$/P07
REDO TC NEWMODEX
MM 07
GEOIMUTT TC IMUZERR
IMUBACK CA ZERO
TS NDXCTR
@ -120,7 +120,7 @@ POSGMBL STCALL ZNB +2
TC LONGCALL # DELAY WHILE SUSPENSION STABILIZES
EBANK= POSITON
2CADR GOESTIMS
CA ESTICADR
TC JOBSLEEP
GOESTIMS CA ESTICADR
@ -135,7 +135,7 @@ TORQUE CA ZERO
INDEX POSITON
TS SOUTHDR -1
TC SHOW
PIPACHK INDEX NDXCTR # PIPA TEST
TC +1
TC EARTHR*
@ -156,7 +156,7 @@ PIPACHK INDEX NDXCTR # PIPA TEST
EBANK= XSM
ADRES PIPATASK
TC ENDOFJOB
PIPATASK EXTEND
DIM LENGTHOT
CA LENGTHOT
@ -170,9 +170,9 @@ STARTPIP CAF PRIO20
TC FINDVAC
EBANK= XSM
2CADR PIPJOBB
TC TASKOVER
PIPJOBB INDEX NDXCTR
TC +1
TC EARTHR*
@ -181,7 +181,7 @@ PIPJOBB INDEX NDXCTR
EXTEND
BZMF +2
TC ENDOFJOB
CA FIVE
TS RESULTCT
TC CHECKG
@ -193,7 +193,7 @@ PIPJOBB INDEX NDXCTR
EXTEND
DCS DATAPL
DAS DATAPL +4
TC INTPRET
DLOAD DSU
DATAPL +6
@ -243,19 +243,19 @@ VALMIS CA DRIFTO
CA ZERO
TS DSPTEM2
TC SHOW
ENDTEST1 TC DOWNFLAG
ADRES IMUSE
CS ZERO
TC NEWMODEA
TC ENDEXT
# Page 378
OVERFFIX DAD DAD
DPPOSMAX
ONEDPP
RVQ
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
QXCH ZERONDX
CA ZERO
@ -272,19 +272,19 @@ ALIGNCOA TC BANKCALL
IMUSLLLG EXTEND
QXCH ZERONDX
TC ALIGNCOA
FINIMUDD EXTEND
QXCH ZERONDX
TC BANKCALL
CADR IMUFINE
TC ALIGNCOA
IMUZERR EXTEND
QXCH ZERONDX
TC BANKCALL
CADR IMUZERO
TC ALIGNCOA
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
QXCH QPLACE
TC +6
@ -343,7 +343,7 @@ ERTHRVSE DLOAD PDDL
SCHZEROS
STORE ERCOMP
RVQ
EARTHR ITA RTB
S2
LOADTIME
@ -367,7 +367,7 @@ ERTHR SL VXSC
PULSEIMU
GOTO
S2
EARTHR* EXTEND
QXCH QPLACES
TC INTPRET
@ -376,7 +376,7 @@ EARTHR* EXTEND
EXIT
TC IMUSLLLG
TC QPLACES
SHOW EXTEND
# Page 381
QXCH QPLACE
@ -388,7 +388,7 @@ SHOW1 CA POSITON
TC ENDTEST1 # V34
TC QPLACE # V33
TCF SHOW1
3990DEC DEC 3990
VB06N98 VN 0698
VN0641 VN 0641
@ -418,4 +418,4 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
EXTEND
READ HISCALAR
TC Q

6
Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1249-1258
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1249
BANK 22

2
Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 54

8
Luminary099/INTEGRATION_INITIALIZATION.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1205-1226
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1205
# 1.0 INTRODUCTION
@ -784,7 +784,7 @@ INTSTALL EXIT
MASK INTBITAB # IS THIS STALL AREA FREE
EXTEND
BZF OKTOGRAB # YES
# Page 1220
# Page 1220
CAF WAKESTAL
TC JOBSLEEP
INTWAKE0 EXIT

8
Luminary099/INTER-BANK_COMMUNICATION.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 998-1001
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-05-08 JL Removed workaround.
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 998
# THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE
@ -172,4 +172,4 @@ SUPERSW EXTEND
# CHANNEL 07
TC Q # TC TO INSTRUCTION FOLLOWING
# TC SUPERSW

206
Luminary099/INTERPRETER.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1002-1094
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workarounds.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1002
# SECTION 1: DISPATCHER
@ -38,12 +38,12 @@
# E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
BLOCK 03
COUNT* $$/INTER
INTPRET RELINT
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
QXCH LOC
+2 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
TS BANKSET
MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
@ -126,15 +126,15 @@ NEG4 DEC -4
CCS A
AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
TCF IERASTST
NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
ADS ADDRWD # ADDRWD AND DISPATCH.
ITR15 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
IERASTST EXTEND
BZMF GEADDR # GO PROCESS GENERAL-ERASABLE ADDRESS.
MASK LOW10 # FIXED BANK ADDRESS. RESTORE AND ADD B15.
AD LOW10 # SWITCH BANKS AND LEAVE SUBADDRESS IN
XCH ADDRWD # ADDRWD FOR OPERAND RETRIEVAL. (THIS
@ -142,7 +142,7 @@ IERASTST EXTEND
TS FBANK # LOCATION IN EACH FBANK.)
ITR12 INDEX CYR
7 INDJUMP -1
GEADDR MASK LOW8
AD OCT1400
XCH ADDRWD
@ -157,7 +157,7 @@ ITR10 INDEX CYR
DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
TS CYR # (STOVL* ENTERS HERE).
INDEX CA FIXLOC # SET UP INDEX LOCATION.
TS INDEXLOC
INCR LOC # (ADDRESS ALWAYS GIVEN).
@ -166,7 +166,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
INCR INDEXLOC
NOOP
TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
MASK HIGH4 # IF ADDRESS GREATER THAN 2K, ADD INTBIT15
EXTEND
@ -177,7 +177,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
INDEX2 INDEX INDEXLOC
CS X1
ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
EXTEND
BZF INDWORK
@ -192,7 +192,7 @@ INDEX2 INDEX INDEXLOC
TS ADDRWD
ITR11 INDEX CYR
3 INDJUMP -1
INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
TCF ITR13 -1
@ -204,7 +204,7 @@ INDERASE CA OCT1400
# Page 1007
ITR13 INDEX CYR
3 INDJUMP -1
# Page 1008
# PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
@ -225,7 +225,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
AD -OCT10 # (NO -0).
CCS A
TCF REGUP # FOR ALL CODES GREATEER THAN OCT 7.
-OCT10 OCT -10
AD NEG4 # WE NOW HAVE 7 -- OP CODE (MOD4). SEE IF
@ -233,7 +233,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
INDEX A # NO -- THE MODE IS DEFINITE. PICK UP THE
CS NO.WDS
TCF REGUP +2
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
TCF REGUP +2 # MODE AT THIS TIME.
@ -257,7 +257,7 @@ OCTAL3 OCT 3 # 2 IN DP, AND 3 IN TP.
OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT
-ENDVAC DEC -45
# THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
@ -268,13 +268,13 @@ OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
INDEX LOC # PICK UP ADDRESS WORD.
CA 0
TS POLISH # WE MAY NEED A SUBADDRESS LATER.
CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
TS FBANK
MASK CYR
ITR7 INDEX A
TCF MISCJUMP
# Page 1010
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
@ -283,12 +283,12 @@ OPJUMP3 TS FBANK # CALL IN BANK 0 (BIT5S 11-15 OF A ARE 0.)
CCS CYR # TEST THIRD PREFIX BIT.
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
CCS MODE # IT'S A SHORT SHIFT CODE. SEE IF PRESENT
TCF SHORTT # SCALAR OR VECTOR.
TCF SHORTT
TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
FBANKMSK EQUALS BANKMASK
LVBUF ADRES VBUF
@ -303,7 +303,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
TCF DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
TCF V/SC # 07 -- VECTOR DIVIDED BY A SCALAR.
TCF SLOAD # 10 -- LOAD MPACIN SINGLE PRECISION.
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
TCF PDDL # 12 -- PUSH DOWN MPAC AND RE-LOAD IN DP.
@ -312,7 +312,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF CCALL # 15 -- COMPUTED CALL.
TCF VXM # 16 -- MATRIX PRE-MULTIPLIED BY VECTOR.
TCF TSLC # 17 -- NORMALIZE MPAC (SCALAR ONLY).
TCF DMPR # 20 -- DP MULTIPLY AND ROUND.
TCF DDV # 21 -- DP DIVIDE BY.
TCF BDDV # 22 -- DP DIVIDE INTO.
@ -321,7 +321,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF VSU # 25 -- VECTOR SUBTRACT.
TCF BVSU # 26 -- VECTOR SUBTRACT FROM.
TCF DOT # 27 -- VECTOR DOT PRODUCT.
TCF VXV # 30 -- VECTOR CROSS PRODUCT.
TCF VPROJ # 31 -- VECTOR PROJECTION.
TCF DSU # 32 -- DP SUBTRACT.
@ -330,7 +330,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF # 35 -- AVAILABLE
TCF DMP1 # 36 -- DP MULTIPLY.
TCF SETPD # 37 -- SET PUSH DOWN POINTER (DIRECT ONLY)
# CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
# Page 1012
@ -344,7 +344,7 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
TCF XCHX # 05 -- EXCHANGE INDEX WITH ERASABLE.
TCF INCR # 06 -- INCREMENT INDEX REGISTER.
TCF TIX # 07 -- TRANSFER ON INDEX.
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO
@ -366,7 +366,7 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
TCF ARCCOS # 05 -- ARC COS.
TCF DSQ # 06 -- DP SQUARE.
TCF ROUND # 07 -- ROUND TO DP.
TCF COMP # 10 -- COMPLEMENT VECTOR OR SCALAR
TCF VDEF # 11 -- VECTOR DEFINE.
TCF UNIT # 12 -- UNIT VECTOR.
@ -375,12 +375,12 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
TCF STADR # 15 -- PUSH UP ON STORE CODE.
TCF RVQ # 16 -- RETURN VIA QPRET.
TCF PUSH # 17 -- PUSH MPAC DOWN.
# Page 1014
# SECTION 2 LOAD AND STORE PACKAGE.
#
# A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
# ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
# ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
# STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
# FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
#
@ -392,7 +392,7 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
# STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
BLOCK 3
COUNT* $$/INTER
STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
TS FBANK # ADDRESS) ENTERS HERE.
@ -400,8 +400,8 @@ STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
AD NEGONE # (YUL CAN'T REMOVE 1 BECAUSE OF EARLY CCS)
DOSTORE TS ADDRWD
DOSTORE TS ADDRWD
MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE
XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
MASK B12T14
@ -409,7 +409,7 @@ DOSTORE TS ADDRWD
MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
INDEX A
TCF STORJUMP
# Page 1015
# STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
# A SUPPLIED OPERATION CODE.
@ -422,30 +422,30 @@ STORJUMP TC STORE # STORE.
TCF DANZIG
TC STORE,2
TCF DANZIG
TC STORE # STODL.
TCF DODLOAD
TC STORE # STODL WITH INDEXED LOAD ADDRESS.
TCF DODLOAD*
TC STORE # STOVL.
TCF DOVLOAD
TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
TCF DOVLOAD*
TC STORE # STOTC.
CAF CALLCODE
TS CYR
TCF 15BITADR # GET A 15 BIT ADDRESS.
# Page 1016
# STORE CODE ADDRESS PROCESSOR.
STORE,1 INDEX FIXLOC
CS X1
TCF PRESTORE
STORE,2 INDEX FIXLOC
CS X2
PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
@ -469,27 +469,27 @@ STARTSTO EXTEND # MPAC,+1 MUST BE STORED IN ANY EVENT.
DCA MPAC
INDEX ADDRWD
DXCH 0
CCS MODE
TCF TSTORE
TC Q
VSTORE EXTEND
DCA MPAC +3
INDEX ADDRWD
DXCH 2
EXTEND
DCA MPAC +5
INDEX ADDRWD
DXCH 4
TC Q
TSTORE CA MPAC +2
INDEX ADDRWD
TS 2
TC Q
# Page 1018
# ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRES ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
# ITSELF.
@ -517,7 +517,7 @@ TLOAD INDEX ADDRWD
DXCH MPAC
TMODE CAF ONE
TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE
CA 0 # CONTENTS OF THE REMAINING MPAC REGISTERS
@ -527,12 +527,12 @@ VLOAD EXTEND # LOAD A DOUBLE PRECISION VECTOR INTO
INDEX ADDRWD # MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
DXCH MPAC
ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
INDEX ADDRWD
DCA 2
DXCH MPAC +3
+4 EXTEND # TPDVL FINISHES HERE.
INDEX ADDRWD
DCA 4
@ -592,7 +592,7 @@ PDVL EXTEND # RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
DXCH MPAC
INDEX PUSHLOC
DXCH 0
INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
CAF NO.WDS
ADS PUSHLOC
@ -607,26 +607,26 @@ VPDVL EXTEND # PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
DXCH MPAC +3
INDEX PUSHLOC
DXCH 0 -4
EXTEND
INDEX ADDRWD
DCA 4
DXCH MPAC +5
INDEX PUSHLOC
DXCH 0 -2
TCF DANZIG
TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
DCA 2 # PUSHUP.
DXCH MPAC +3
CA MPAC +2
INDEX PUSHLOC # IN DP.
TS 0 -1
TCF ENDVLOAD +4
# SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
SSP INCR LOC # PICK UP THE WORD FOLLOWING THE GIVEN
@ -636,7 +636,7 @@ STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END
TS 0 # HERE.
# Page 1022
TCF DANZIG
# Page 1023
# SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
#
@ -666,7 +666,7 @@ CALL CA BANKSET # FOR ANY OF THE CALL OPTIONS, MAKE UP THE
AD LOC # BANKMASK = -(2000 - 1).
INDEX FIXLOC
TS QPRET
GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
+1 MASK HIGH4
EXTEND
@ -679,9 +679,9 @@ GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
AD 2K
TS LOC
TCF INTPRET +3
EBANK= 1400 # SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
AD -ENDVAC # IF RELATIVE TO THE WORK ARA.
CCS A
@ -695,14 +695,14 @@ GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
CA 0 # THE BRANCH ADDRESS.
TS POLISH
TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS LEVELS.
GOTOGE TS EBANK
MASK LOW8
INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
CA 1400 # THE BRANCH ADDRESS.
TS POLISH
TCF GOTO +1
CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
CA 1 # LIST
INDEX ADDRWD # ADD MODIFIER.
@ -713,14 +713,14 @@ CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
CA 10000
TS POLISH
TCF GOTO +1 # WITH ADDRESS IN A.
SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
TS FBANK # BRANCH COME HERE TO DO SO.
INDEX LOC
CA 1
TS POLISH
TCF GOTO +1
# Page 1025
# TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
# L+1 IF MPAC IS GREATER THAN ZERO.
@ -731,23 +731,23 @@ BRANCH CCS MPAC
TC Q
TCF +2 # ON ZERO.
TCF NEG
CCS MPAC +1
TC Q
TCF +2
TCF NEG
CCS MPAC +2
TC Q
TCF +2
TCF NEG
Q+1 INDEX Q
TC 1
NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
TC 2
Q+2 = NEG
# ITRACE (3) REFERS TO "EXIT".
@ -773,7 +773,7 @@ EXIT CA BANKSET # RESTORE USER'S BANK SETTING, AND LEAVE
VSU CAF BIT15 # CHANGES 0 TO DCS.
TCF +2
VAD CAF PRIO30 # CHANGES 0 TO DCA.
ADS ADDRWD
EXTEND
@ -783,7 +783,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
EXTEND # CHECK OVERFLOW.
BZF +2
TC OVERFLWY
EXTEND
INDEX ADDRWD
READ CHAN5 # DCA 4 OR DCS 4
@ -791,7 +791,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
EXTEND
BZF +2
TC OVERFLWZ
EXTEND
INDEX ADDRWD
READ LCHAN # DCA 0 OR DCS 0
@ -803,11 +803,11 @@ DAD EXTEND
ENDVXV DAS MPAC # VXV FINISHES HERE.
EXTEND
BZF DANZIG
# Page 1027
SETOVF TC OVERFLOW
TCF DANZIG
# Page 1028
DSU EXTEND
INDEX ADDRWD
@ -817,11 +817,11 @@ DSU EXTEND
OVERFLWZ TS L # ENTRY FOR THIRD COMPONENT.
CAF FIVE
TCF +3
OVERFLWY TS L # ENTRY FOR SECOND COMPONENT.
CAF THREE
XCH L
OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
CS LIMITS # PICK UP POSMAX OR NEGMAX.
TS BUF
@ -837,18 +837,18 @@ OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
TS 7
TC Q # NO OVERFLOW EXIT.
TCF SETOVF2 # SET OVFIND AND EXIT.
BVSU EXTEND
INDEX ADDRWD
DCA 2
DXCH MPAC +3
EXTEND
DCOM
DCOM
DAS MPAC +3
EXTEND
BZF +2
TC OVERFLWY
EXTEND
INDEX ADDRWD
DCA 4
@ -859,7 +859,7 @@ BVSU EXTEND
EXTEND
BZF +2
TC OVERFLWZ
# Page 1029
BDSU EXTEND
INDEX ADDRWD
@ -868,7 +868,7 @@ BDSU EXTEND
EXTEND
DCOM
TCF ENDVXV
# Page 1030
# TRIPLE PRECISION ADD ROUTINE.
@ -881,9 +881,9 @@ TAD EXTEND
AD MPAC
TS MPAC
TCF DANZIG
TCF SETOVF # SET OVFIND IF SUCH OCCURS.
# Page 1031
# ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
# 1. DMPSUB DOUBLE PRECISION MULTIPLY, MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
@ -912,11 +912,11 @@ DMPSUB INDEX ADDRWD # GET MINOR PART OF OPERAND AT C(ADDRWD).
EXTEND # FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
MP MPAC
DAS MPAC +1 # GUARANTEED NO OVERFLOW.
INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
CA 0
XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
DMPSUB2 EXTEND
DMPSUB2 EXTEND
MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
DAS MPAC +1 # ACCUMULATE, SETTING A TO NET OVERFLOW.
@ -925,7 +925,7 @@ DMPSUB2 EXTEND
MP MPTEMP # MAJOR OF MPAC X MAJOR OF C(ADDRWD).
DAS MPAC # GUARANTEED NO OVERFLOW.
TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
# Page 1032
# ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
@ -975,7 +975,7 @@ DOTSUB EXTEND
TS BUF
TCF +2
TS OVFIND # IF OVERFLOW OCCURS.
DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
DXCH MPAC
CA DOTINC
@ -1035,30 +1035,30 @@ POLY INDEX Q
POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
EXTEND
INDEX POLISH
DCA 3
# Page 1035
DXCH MPAC # LOAD A(N) INTO MPAC
DXCH VBUF # SAVING X IN VBUF
TCF POLY2
POLYLOOP TS POLYCNT # SAVE DECREMENTD LOOP COUNTER
CS TWO
ADS POLISH # REGRESS COEFFICIENT POINTER
POLY2 TC DMPSUB # MULTIPLY BY X
EXTEND
INDEX POLISH
DCA 1 # ADD IN NEXT COEFFICIENT
DAS MPAC # USER'S RESPONSIBILITY TO ASSURE NO OVFLOW
CCS POLYCNT
TCF POLYLOOP
TC POLYRET # RETURN CALLER
# Page 1036
# MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
@ -2234,7 +2234,7 @@ SMALL2 TS L # (SMALL EXITS TO THIS POINT).
LARGE CCS MPTEMP # MOST ALL CASES COME HERE.
TCF LARGE3 # SEE IF NO NORMALIZATION WAS REQUIRED BY
CS SRDDV # SQRT, AND IF SO, SET UP FOR A SHIFT
TS MPTEMP # RIGHT 1 BEFORE DIVIDING TO PRODUCE
EXTEND # THE DESIRED HALF UNIT VECTOR.
@ -2675,13 +2675,13 @@ SN1 EXTEND # SET UP TO EVALUATE HASTINGS POLYNOMIAL
TC POLY # EVALUATE FOURTH ORDER POLYNOMIAL.
DEC 3
2DEC +.3926990796
2DEC -.6459637111
2DEC +.318758717
2DEC -.074780249
2DEC +.009694988
CAF LBUF2 # MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
@ -2755,21 +2755,21 @@ ACOS3 DXCH MPAC # SET UP FOR POLYNOMIAL EVALUATION.
TC POLY
DEC 6
2DEC +.353553385 # COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
2DEC* -.0483017006 B+1* # I
2DEC* +.0200273085 B+2* # WHERE C STANDS FOR ORIGINAL COEFFS.
2DEC* -.0112931863 B+3*
2DEC* +.00695311612 B+4*
2DEC* -.00384617957 B+5*
2DEC* +.001501297736 B+6*
2DEC* -.000284160334 B+7*
CAF LBUF2 # DO FINAL MULTIPLY AND GO TO ANY
TC DMPSUB -1 # EPILOGUE SEQUENCES.

12
Luminary099/INTERPRETIVE_CONSTANT.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1100-1101
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1100
SETLOC INTPRET1
@ -42,7 +42,7 @@ UNITX 2DEC .5
ZEROVECS 2DEC 0
2DEC 0
2DEC 0
DPHALF = UNITX
@ -65,9 +65,9 @@ XUNIT 2DEC .5
ZEROVEC 2DEC 0
2DEC 0
2DEC 0
OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
DFC-6 DEC -6
DFC-12 DEC -12

28
Luminary099/INTERRUPT_LEAD_INS.agc
View File

@ -22,64 +22,64 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 153
SETLOC 4000
SETLOC 4000
COUNT* $$/RUPTS # FIX-FIX LEAD INS
INHINT # GO
CAF GOBB
XCH BBANK
TCF GOPROG
DXCH ARUPT # T6RUPT
EXTEND
DCA T6ADR
DTCB
DXCH ARUPT # T5RUPT -- AUTOPILOT
EXTEND
DCA T5ADR
DTCB
DXCH ARUPT # T3RUPT
CAF T3RPTBB
XCH BBANK
TCF T3RUPT
DXCH ARUPT # T4RUPT
CAF T4RPTBB
XCH BBANK
TCF T4RUPT
DXCH ARUPT # KEYRUPT1
CAF KEYRPTBB
XCH BBANK
TCF KEYRUPT1
DXCH ARUPT # KEYRUPT2
CAF MKRUPTBB
XCH BBANK
TCF MARKRUPT
DXCH ARUPT # UPRUPT
CAF UPRPTBB
XCH BBANK
TCF UPRUPT
DXCH ARUPT # DOWNRUPT
CAF DWNRPTBB
XCH BBANK
TCF DODOWNTM
DXCH ARUPT # RADAR RUPT
CAF RDRPTBB
# Page 154
XCH BBANK
TCF RADAREAD
DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
CA RUPT10BB
XCH BBANK
@ -114,4 +114,4 @@ T4RPTBB BBCON T4RUPT
EBANK= ELVIRA
RUPT10BB BBCON PITFALL

46
Luminary099/KALCMANU_STEERING.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 365-369
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Added missing comment characters.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 365
# GENERATION OF STEERING COMMANDS FOR DIGITAL AUTOPILOT FREE FALL MANEUVERS
@ -33,7 +33,7 @@
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
EBANK= TTEMP
NEWDELHI TC BANKCALL # CHECK FOR AUTO STABILIZATION
CADR ISITAUTO # ONLY
CCS A
@ -53,7 +53,7 @@ NEWANGL TC INTPRET
AXC,1 CALL
MIS
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
RTB
RTB
V1STO2S
STORE NCDU # NEW CDU ANGLES
BONCLR EXIT
@ -67,14 +67,14 @@ INCRDCDU TS SPNDX
INDEX SPNDX
MSU NCDU
EXTEND
# The following 2 lines seem to have no purpose at all.
# I am removing them because they only serve to confuse
# the assembler by getting in between EXTEND and MP.
# --- RSB 2009.
#SETLOC KALCMON1
#BANK
MP DT/TAU
CCS A # CONVERT TO 2'S COMPLEMENT
AD ONE
@ -91,9 +91,9 @@ INCRDCDU TS SPNDX
TS CDUXD
CCS SPNDX
TCF INCRDCDU # LOOP FOR THREE AXES
RELINT
# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER
TMANUCHK TC TIMECHK
@ -103,10 +103,10 @@ MANUSTAL INHINT # END MAJOR PART OF MANEUVER WITHIN 1 SEC
TC WAITLIST # UNDER WAITLIST CALL TO MANUSTOP
EBANK= TTEMP
2CADR MANUSTOP
RELINT
TCF ENDOFJOB
TIMECHK EXTEND
DCS TIME2
DXCH TTEMP
@ -127,7 +127,7 @@ MANUOFF AD ONESEK +1
INCR Q
2NDRETRN INCR Q
TC Q
DT/TAU DEC .1
MANUSTAT EXIT # INITIALIZATION ROUTINE
@ -162,15 +162,15 @@ RATEBIAS TS KSPNDX
TS DELPEROR # $ 180 DEG
CCS KSPNDX
TCF RATEBIAS
CA TIME1
AD ONESEK +1
XCH NEXTIME
TCF INCRDCDU -1
ONESEK DEC 0
DEC 100
BIASCALE OCT 75777 # = -1/16
CONTMANU CS TIME1 # RESET FOR NEXT DCDU UPDATE
@ -188,14 +188,14 @@ MANUCALL INHINT # CALL FOR NEXT UPDATE VIA WAITLIST
CAF ONESEK +1 # INCREMENT TIME FOR NEXT UPDATE
ADS NEXTIME
TCF ENDOFJOB
UPDTCALL CAF PRIO26 # SATELLITE PROGRAM TO CALL FOR UPDATE
TC FINDVAC # OF STEERING COMMANDS
EBANK= TTEMP
2CADR NEWDELHI
TC TASKOVER
# Page 369
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
@ -218,12 +218,12 @@ ENDROLL CA CPHI # NO FINAL YAW
TS DELPEROR
GOODMANU CA ATTPRIO # RESTORE USERS PRIO
TS NEWPRIO
CA ZERO # ZERO ATTCADR
DXCH ATTCADR
TC SPVAC # RETURN TO USER
TC TASKOVER
TC SPVAC # RETURN TO USER
TC TASKOVER

8
Luminary099/KALMAN_FILTER.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1470-1471
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1470
EBANK= NO.UJETS
@ -97,5 +97,5 @@ ROTORQUE CA DAPTEMP2
NEGTORK COM
INCR Q
TCF STORTORK

6
Luminary099/KEYRUPT_UPRUPT.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1338-1340
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1338
BANK 14

10
Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
View File

@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 651
@ -37,7 +37,7 @@
# 1. TO ACCEPT TARGETING PARAMETERS OBTAINED FROM A SOURCE EXTERNAL
# TO THE LEM AND COMPUTE THERE FROM THE REQUIRED-VELOCITY AND
# OTHER INITIAL CONDITIONS REQUIRED BY LM FOR DESIRED MANEUVER.
# THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
# THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
# VECTOR (RTARG), AND THE TIME FROM TIG UNTIL THE TARGET IS
# REACHED (DELLT4), DESIRED TIME OF FLIGHT FROM RINIT TO RTARG.
@ -50,7 +50,7 @@
# BE SELECTED BY THE ASTRONAUT BY DSKY ENTRY V37 E31.
# SUBROUTINES USED **
#
#
# MANUPARM, TTG/N35, R02BOTH, MIDGIM, DISPMGA, FLAGDOWN, BANKCALL,
# GOTOPOOH, ENDOFJOB, PHASCHNG, GOFLASHR, GOFLASH.
#
@ -97,9 +97,9 @@
SETLOC GLM
BANK
EBANK= SUBEXIT
COUNT* $$/P31
P31 TC P20FLGON
CAF V06N33 # T16

6
Luminary099/LANDING_ANALOG_DISPLAYS.agc
View File

@ -10,11 +10,11 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 05/06/09 FB Transcription Batch 4 Assignment.
#
# The contents of the "Luminary099" files, in general, are transcribed
# from scanned documents.
# The contents of the "Luminary099" files, in general, are transcribed
# from scanned documents.
#
# Assemble revision 001 of AGC program Luminary099 by NASA
# 2021112-061. July 14, 1969.
# 2021112-061. July 14, 1969.
#
# Prepared by
# Massachusetts Institute of Technology

32
Luminary099/LEM_GEOMETRY.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 320-325
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,16 +24,16 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 320
BANK 23
SETLOC LEMGEOM
BANK
SBANK= LOWSUPER
EBANK= XSM
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING
# THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO
# METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
@ -85,11 +85,11 @@ SVDWN1 VLOAD VSL*
VSL* VAD
0 -4,2
VCV
VSL*
VSL*
0,2
STORE V-OTHER
RVQ
# Page 322
# THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH
# GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE
@ -112,7 +112,7 @@ RRANGLES STORE 32D
PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG.
LODPHALF
STODL 4 # MODE 2 TRUNNION TO 4.
LO6ZEROS
STOVL 34D # UNIT THE PROJECTION OF THE VECTOR
32D # IN THE X-Z PLANE
@ -140,16 +140,16 @@ RRANGLES STORE 32D
2V1STO2S
STORE MODEA
EXIT
CS RADMODES # SWAP MODEA AND MODEB IF RR IN MODE 2.
MASK ANTENBIT
CCS A
TCF +4
DXCH MODEA
DXCH MODEB
DXCH MODEA
TC INTPRET
GOTO
S2
@ -160,7 +160,7 @@ RRANGLES STORE 32D
SETLOC INFLIGHT
BANK
COUNT* $$/GEOM
RRNB SLOAD RTB
@ -170,7 +170,7 @@ RRNB SLOAD RTB
0
SIN DCOMP
STODL 34D # Y COMPONENT
COS PUSH # .5 COS(T) TO 0
SLOAD RTB
TANGNB +1
@ -179,13 +179,13 @@ RRNB1 PUSH COS # SHAFT ANGLE TO 2
DMP SL1
0
STODL 36D # Z COMPONENT
SIN DMP
SL1
STOVL 32D
32D
RVQ
# THIS ENTRY TO RRNB REQUIRES THE TRUNNION AND SHAFT ANGLES IN MPAC AND MPAC +1 RESPECTIVELY
RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
@ -206,4 +206,4 @@ RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
# Page 325
# (This page has nothing on it.)

2
Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 984
# NAME -- LSPOS -- LOCATE SUN AND MOON DATE -- 25 OCT 67

58
Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-23 HG Transcribed from page images.
# 2009-06-05 RSB Fixed a goofy thing that was apparently
# legal in GAP but not in yaYUL. Eliminated
# a couple of lines of code that shouldn't
# a couple of lines of code that shouldn't
# have survived from Luminary 131 to here.
# 2009-06-07 RSB Fixed a typo.
#
@ -27,7 +27,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 798
EBANK= E2DPS
@ -72,7 +72,7 @@ WHATGUID TCF TTF/8CL # BRAKQUAD
AFTRGUID TCF CGCALC # BRAKQUAD
TCF CGCALC # APPRQUAD
TCF STEER? # VERTICAL
# Page 799
# WINDOW VECTOR COMPUTATIONS:
@ -117,7 +117,7 @@ GUIDSUB TS NGUIDSUB # ON SUCCEEDING PASSES SKIP TTFINCR
LUNLAND TC PHASCHNG
OCT 00035 # GROUP 5: RETAIN ONLY PIPA TASK
TC PHASCHNG
OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
OCT 21000 # JUST HIGHER THAN SERVICER'S PRIORITY
# Page 800
@ -183,25 +183,25 @@ VRTSTART TS WCHVERT
TC DOWNFLAG
ADRES REDFLAG
TCF VERTGUID
STARTP67 TC NEWMODEX # NO HARM IN "STARTING" P67 OVER AND OVER
DEC 67 # SO NO NEED FOR A FASTCHNG AND NO NEED
CAF ZERO # TO SEE IF ALREADY IN P67.
TS RODCOUNT
CAF TEN
TCF VRTSTART
STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
EXTEND
RAND CHAN31
CCS A
TCF GUILDRET # YES ALL'S WELL
P66NOW? CS MODREG
AD DEC66
EXTEND
BZF RESTART?
CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"?
EXTEND
BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING
@ -223,7 +223,7 @@ RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
GUILDRET CAF ZERO
TS RODCOUNT
# Page 802
+2 EXTEND
DCA TPIP
@ -234,7 +234,7 @@ GUILDRET CAF ZERO
EXTEND
DCA PIPTIME1
DXCH TPIP
EXTEND
DCA TTF/8
DXCH TTF/8TMP
@ -266,7 +266,7 @@ STARTP64 TC NEWMODEX
WOR CHAN13
TC DOWNFLAG # INITIALIZE REDESIGNATION FLAG
ADRES REDFLAG
# (CONTINUE TO TTFINCR)
@ -320,7 +320,7 @@ TTFINCR TC INTPRET
EXTEND
DCA LANDTEMP +4
DXCH LAND +4
# Page 804
TC TDISPSET
TC FASTCHNG # SINCE REDESIG MAY CHANGE LANDTEMP
@ -371,7 +371,7 @@ REDESIG CA FLAGWRD6 # IS REDFLAG SET?
VXSC VSU
YNBPIP
VAD PUSH # RESULTING VECTOR IS 1/2 REAL SIZE
# Page 805
DLOAD DSU # MAKE SURE REDESIGNATION IS NOT
@ -469,7 +469,7 @@ RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
CA FIXLOC # RESET PUSH DOWN POINTER
TS PUSHLOC
# Page 807
# Page 807
CA MPAC # COMPUTE LOOKANGLE ITSELF
DOUBLE
TC BANKCALL
@ -692,21 +692,21 @@ CGCALC CAF EBANK5
EXTLOGIC INDEX WCHPHASE # WCHPHASE = 1 APPRQUAD
CA TENDBRAK # WCHPHASE = 0 BRAKQUAD
AD TTF/8
EXSPOT1 EXTEND
INDEX WCHPHASE
BZMF WHATEXIT
TC FASTCHNG
CA WCHPHOLD
AD ONE
TS WCHPHASE
CA ZERO
TS FLPASS0 # RESET FLPASS0
INDEX WCHPHOLD
TCF WHATEXIT
TCF WHATEXIT
# ***********************************************************************
# ROUTINES FOR EXITING FROM LANDING GUIDANCE
@ -813,7 +813,7 @@ RATESTOP CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
RAND CHAN31
EXTEND
BZF DISPEXIT # YES
TC BANKCALL # NO: DO A STOPRATE
CADR STOPRATE
@ -843,14 +843,14 @@ DISPEXIT EXTEND # KILL GROUP 3: DISPLAYS WILL BE
INDEX WCHPHOLD
TCF WHATDISP
-2 TC PHASCHNG # KILL GROUP 5
OCT 00035
P63DISPS CAF V06N63
DISPCOMN TC BANKCALL
CADR REGODSPR
ENDLLJOB TCF ENDOFJOB
P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
@ -870,7 +870,7 @@ P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
TCF P64DISPS # RECYCLE
# Page 815
TCF ENDLLJOB
P64CEED CAF ZERO
TS ELINCR1
TS AZINCR1
@ -918,10 +918,10 @@ P65VERT TC INTPRET
P66VERT TC POSTJUMP
CADR P66VERTA
P67VERT TC PHASCHNG # TERMINATE GROUP 3.
OCT 00003
TC INTPRET
VLOAD GOTO
V
@ -964,7 +964,7 @@ RODCOMP INHINT
DCA TIME2
# Page 817
DXCH THISTPIP
CA OLDPIPAX
AD PIPATMPX
TS MPAC # MPAC(X) = PIPAX + PIPATMPX
@ -1130,7 +1130,7 @@ BIASFACT 2DEC 655.36 B-28
PITFALL XCH BANKRUPT
EXTEND
QXCH QRUPT
TC CHECKMM # IF NOT IN P64, NO REASON TO CONTINUE
DEC 64
TCF RESUME
@ -1160,7 +1160,7 @@ REDESMON EXTEND
TS L
CCS ELVIRA # DO ANY BITS APPEAR THIS PASS?
TCF PREMON2 # Y: CONTINUE MONITOR
CCS L # N: ANY LAST PASS?
TCF COUNT'EM # Y: COUNT 'EM, RESET RUPT, TERMINATE
# Page 821
@ -1176,7 +1176,7 @@ COUNT'EM CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
RAND CHAN31
EXTEND
BZF RESETRPT # YES: SKIP REDESIGNATION LOGIC.
CA L # NO.
MASK -AZBIT
CCS A

28
Luminary099/MAIN.agc
View File

@ -25,15 +25,15 @@
# ...
#
# The page images themselves, as reduced in size (and consequently in
# quality) to be suitable for online presentation, are available at
# quality) to be suitable for online presentation, are available at
# http://www.ibiblio.org/apollo. If you want to see the (much) higher
# quality digital images that Paul actually made, contact info@sandroi.org
# directly.
#
# This file is a little different from the other Luminary099 files I'm providing,
# in that it doesn't represent anything that appears directly in the original source.
# This file is a little different from the other Luminary099 files I'm providing,
# in that it doesn't represent anything that appears directly in the original source.
# What I (RSB) have done for organizational purposes is to split the huge monolithic
# source code into smaller, more manageable chunks--i.e., into individual source
# source code into smaller, more manageable chunks--i.e., into individual source
# files. Those files are rejoined within this file as "includes". It just makes
# it a little easier to work with. The code chunks correspond to natural divisions
# into sub-programs. In fact, these divisions are more-or-less specified by
@ -42,23 +42,23 @@
#
# It may be reasonably asked why tens of thousands of lines of source are joined by
# means of inclusion, rather than simply assembling the source files individually and
# then linking them to form the executable. The answer is that the original
# then linking them to form the executable. The answer is that the original
# development team had no linker. The builds were monolithic just like this.
# There was a big emphasis on reusability of the code in the original project,
# apparently, but this reusability took the form of inserting your deck of
# There was a big emphasis on reusability of the code in the original project,
# apparently, but this reusability took the form of inserting your deck of
# punch-cards at the appropriate position in somebody else's deck of punch-cards.
# (Actually, I believe a tape-library method was used to avoid having to continually
# reload the card decks, but that doesn't change the basic principle.)
# So, indeed, the method of file-inclusion is a very fair representation of the
# So, indeed, the method of file-inclusion is a very fair representation of the
# methods used in the original development ... with the improvement, of course,
# that you no longer have to worry about dropping the card deck. On the other hand,
# that you no longer have to worry about dropping the card deck. On the other hand,
# I wasn't there at the time, so I may have no idea what I'm talking about.
#
# Finally, note that the original Apollo AGC assembler (called "YUL") is no longer
# Finally, note that the original Apollo AGC assembler (called "YUL") is no longer
# available (as far as I can tell). In fact, it was replaced by another assembler
# ("GAP") even before Apollo 11, but GAP is no more available than is YUL. The
# replacement assembler yaYUL accepts a slightly different format for the source
# code from what YUL or GAP accepted, so the source code has been targeted for
# ("GAP") even before Apollo 11, but GAP is no more available than is YUL. The
# replacement assembler yaYUL accepts a slightly different format for the source
# code from what YUL or GAP accepted, so the source code has been targeted for
# assembly with yaYUL.
# What follows is simply a bunch of file-includes for the individual code chunks.
@ -72,7 +72,7 @@ $TAGS_FOR_RELATIVE_SETLOC.agc # pp. 28-37
$CONTROLLED_CONSTANTS.agc # pp. 38-53
$INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc # pp. 54-60
$FLAGWORD_ASSIGNMENTS.agc # pp. 61-88
# p. 89 is a GAP-generated table
# p. 89 is a GAP-generated table
$ERASABLE_ASSIGNMENTS.agc # pp. 90-152
$INTERRUPT_LEAD_INS.agc # pp. 153-154
$T4RUPT_PROGRAM.agc # pp. 155-189

22
Luminary099/ORBITAL_INTEGRATION.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1227-1248
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Fixed 3 typos.
# 2009-06-06 RSB Page 1248 was missing entirely for some reason.
@ -27,7 +27,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1227
# ORBITAL INTEGRATION
@ -224,7 +224,7 @@ GAMCOMP VLOAD VSR1
NORM ROUND
31D
PDDL NORM # NORMED B SQUARED TO PD LIST
# Page 1232
# Page 1232
ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
32D # SAVING NORM SCALE FACTOR IN X1
SR1 PDVL
@ -426,8 +426,8 @@ COMTERM STORE UZ
FV
GOBAQUE
STCALL FV
QUALITY1
QUALITY1
QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
# AS VECTOR.
# Page 1236
@ -465,7 +465,7 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
E32C31RM
DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
# OUT OF 8D B5 GIVES B58
VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
# VECTOR IN 2D
0 -3,2
VSL* V/SC # OPERAND FROM 0D. B108 FOR X1 = 0
@ -481,7 +481,7 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
FV
GOBAQUE
# Page 1237
# Page 1237
STORE FV
NBRANCH SLOAD LXA,1
DIFEQCNT
@ -583,7 +583,7 @@ LUNSPH DLOAD SR2
LUNPOS
VCOMP
STORE RPQV
# Page 1239
# Page 1239
DOSWITCH CALL
ORIGCHNG
GOTO
@ -855,7 +855,7 @@ DOW..1 VLOAD VSR4
34D
VSL* RVQ
# Page 1246
0 -8D,2
0 -8D,2
# ********************************************************************************
# ********************************************************************************
@ -974,4 +974,4 @@ QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2
E3J22R2M
PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61
COSPHI/2 # SAME AS URPV +4 Z COMPONENT

14
Luminary099/P-AXIS_RCS_AUTOPILOT.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1421-1441
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Corrected a relative jump from
# +8 to +8D.
@ -27,7 +27,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1421
BANK 16
@ -748,7 +748,7 @@ RATERROR CA CDUX # FINDCDUW REQUIRES THAT CDUXD=CDUX DURING
TCF +3 # LEVEL, GO TO DIRECT RATE CONTROL. IF NOT
TCF +8D # CHECK FOR DIRECT RATE CONTROL LAST TIME.
TCF +1
# Page 1435
# Page 1435
AD -RATEDB
EXTEND
BZMF +4
@ -904,7 +904,7 @@ JETSOFF TC WRITEP -1
CALCPERR CA CDUY # P-ERROR CALCULATION.
EXTEND
MSU CDUYD # CDU VALUE -- ANGLE DESIRED (Y-AXIS)
# Page 1438
# Page 1438
EXTEND
MP M11 # (CDUY-CDUYD)M11 SCALED AT PI RADIANS
XCH E # SAVE FIRST TERM (OF TWO)
@ -946,7 +946,7 @@ HEADTJET CA ZERO
TC IBNKCALL
CADR TJETLAW
RELINT
CS FIREFCT
AD -FOURDEG
EXTEND
@ -954,7 +954,7 @@ HEADTJET CA ZERO
CCS TJP
TCF +2
TCF JETSOFF
# Page 1439
# Page 1439
AD -160MST6
EXTEND
BZMF PJETSLEC -6

18
Luminary099/P12.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 838
BANK 24
@ -37,21 +37,21 @@ P12LM TC PHASCHNG
TC BANKCALL
CADR R02BOTH # CHECK THE STATUS OF THE IMU.
TC UPFLAG
TC UPFLAG
ADRES MUNFLAG
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
ADRES ACC4-2FL
TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER
ADRES R10FLAG # OUTPUTS.
TC CLRADMOD # INITIALIZE RADMODES FOR R29.
TC DOWNFLAG # CLEAR RENDEZVOUS FLAG FOR P22
ADRES RNDVZFLG
CAF THRESH2 # INITIALIZE DVMON
TS DVTHRUSH
CAF FOUR
@ -167,7 +167,7 @@ YAWDUN STOVL YAW
TC DOWNFLAG
ADRES FLPI
INHINT
TC IBNKCALL
CADR PFLITEDB

666
Luminary099/P20-P25.agc
View File

File diff suppressed because it is too large Load Diff

26
Luminary099/P30_P37.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 614-617
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Removed 4 lines of code that shouldn't
# have survived from Luminary 131.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 614
# PROGRAM DESCRIPTION P30 DATE 3-6-67
@ -63,13 +63,13 @@ P30 TC UPFLAG # SET UPDATE FLAG
ADRES UPDATFLG
TC UPFLAG # SET TRACK FLAG
ADRES TRACKFLG
P30N33 CAF V06N33 # T OF IGN
TC VNP00H # RETURN ON PROCEED, P00H ON TERMINATE
CAF V06N81 # DISPLAY DELTA V (LV)
TC VNP00H # REDISPLAY ON RECYCLE
TC DOWNFLAG # RESET UPDATE FLAG
ADRES UPDATFLG
TC INTPRET
@ -79,13 +79,13 @@ P30N33 CAF V06N33 # T OF IGN
UPDATFLG
PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V
TC VNP00H
# Page 615
# Page 615
TC INTPRET
SETGO
XDELVFLG # FOR P40'S: EXTERNAL DELTA-V GUIDANCE.
REVN1645 # TRKMKCNT, T60, +MGA DISPLAY
V06N33 VN 0633
V06N42 VN 0642
@ -137,15 +137,15 @@ V06N42 VN 0642
SETLOC P30S1
BANK
COUNT* $$/S30S
S30.1 STQ DLOAD
QTEMP
TIG # TIME IGNITION SCALED AT 2(+28)CS
STCALL TDEC1
LEMPREC # ENCKE ROUTINE FOR LEM
VLOAD SXA,2
# Page 617
RATT
@ -189,5 +189,5 @@ S30.1 STQ DLOAD
MAXCHK
STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY
QTEMP

2
Luminary099/P32-P35_P72-P75.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 618
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)

12
Luminary099/P34-35_P74-75.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 658-702
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Corrected a typo.
# 2011-01-06 JL Fixed pseudo-label indentation.
@ -28,7 +28,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 658
# TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
@ -1664,7 +1664,7 @@ SHIFTR1 LXA,2 SL*
BANK
# Page 701
EBANK= RPASS36
COUNT* $$/R36
R36 ZL
@ -1756,8 +1756,8 @@ LREGCHK XCH L
BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
TCF ASTROTIM
ENTTIM2 TC INTPRET
RTB GOTO
ENTTIM2 TC INTPRET
RTB GOTO
LOADTIME
R36INT
V06N16N VN 00616

72
Luminary099/P40-P47.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 752-784
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed interpretive indentation.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 752
# PROGRAM DESCRIPTION: P40BOTH DECEMBER 22, 1966
@ -835,7 +835,7 @@ S40.2,3 VLOAD # UT: DESIRED THRUST DIRECTION (HALF-UNIT)
STOVL POINTVSM # SAVE FOR "VECPOINT" ROUTINE (LEMMANU).
UNITX # SCAXIS SET TO +X, FOR P40 AND P42 AND
STOVL SCAXIS # FOR P41 IF RCS NOT -X,+Y,-Y,+Z,-Z.
UT # ASSUME +X BURN ALWAYS, EVEN FOR RCS.
PLUSX STORE XSCREF # XSCREF = UT (DESIRED THRUST DIRECTION)
VXV UNIT # RTIG = POSITION AT TIME-OF-IGNITION.
@ -1201,31 +1201,31 @@ RASTEER1 VLOAD ABVAL
MUASTEER
PDDL DSU
SS
RMAG
RMAG
NORM SR1
X1
DDV DMP
R1C
X1
DDV DMP
R1C
XSU,2 SL*
X1
1,2
LXA,2
MUSCALE
SQRT SIGN
GEOMSGN
LXA,2
MUSCALE
SQRT SIGN
GEOMSGN
STORE 32D # + OR - A
DLOAD DMP
SS
MU/A
BDSU
MUASTEER
MU/A
BDSU
MUASTEER
PDDL DSU
SS
RTMAG
NORM SR1
X1
DDV DMP
X1
DDV DMP
# Page 778
R1C
XSU,2 SL*
@ -1237,33 +1237,33 @@ RASTEER1 VLOAD ABVAL
30D
SS
SQRT PUSH
SR1 ASIN
SR1 ASIN
DMP PDDL
2PI+3
PDDL DDV
30D
SS
BOV
BOV
+1
SQRT DMP
SQRT DMP
SR3 BDSU
SIGN PDDL
GEOMSGN
GEOMSGN
2PI+3
SR2 DSU
SR2 DSU
DMP PDDL
SS
SS
SR3 SQRT
SS
SR3 SQRT
DMP
PDDL SL3
MUASTEER
SQRT BDDV
DSU DAD
TPASS4
PDDL SL3
MUASTEER
SQRT BDDV
DSU DAD
TPASS4
PIPTIME
STODL 30D
SIGN
STODL 30D
SIGN
30D # B WITH SIGN
STORE 30D
BON VLOAD
@ -1272,14 +1272,14 @@ RASTEER1 VLOAD ABVAL
IC
VSU UNIT
UNIT/R/
VXSC PDVL
30D
VXSC PDVL
30D
IC
VAD UNIT
UNIT/R/
UNIT/R/
# Page 779
GETVRVG1 VXSC VAD
32D
32D
GETVRVG2 LXC,2 VSR*
RTX2
0 -1,2

4
Luminary099/P51-P53.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 926
# PROGRAM NAME -- PROG52 DATE -- JAN 9, 1967
@ -1248,7 +1248,7 @@ R52B TC DOWNFLAG
BZMF GETAZEL # CODE 0, COAS CALIBRATION
AD NEG7
EXTEND
EXTEND
BZF GETAZEL # CODE 7, COAS SIGHTING
EBANK= XYMARK

30
Luminary099/P70-P71.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 829
BANK 21
@ -79,7 +79,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
AD 1DEC71
EXTEND
BZF LANDISP # YES. PROCEED TO R10.
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
READ CHAN30
COM
@ -181,24 +181,24 @@ ABRTJASK CAF OCTAL27
EXTEND
DCA NEG0
DXCH -PHASE1
EXTEND
DCA NEG0
DXCH -PHASE3
EXTEND
DCA NEG0
DXCH -PHASE6
CAF THREE # SET UP 4.3SPOT FOR GOABORT
TS L
COM
DXCH -PHASE4
# the 3 in OCT37774 could be something else, garbled
CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
TS TIME5 # 40 MILLISECONDS.
TC POSTJUMP
CADR ENEMA
@ -232,13 +232,13 @@ GOABORT TC INTPRET
# Page 833
TC DOWNFLAG
ADRES FLUNDISP
TC DOWNFLAG
ADRES IDLEFLAG
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
ADRES ACC4-2FL
TC CHECKMM
70DEC DEC 70
TCF P71RET
@ -288,7 +288,7 @@ BOTHPOLY DLOAD* DMP # TGO D
ABTCOF +4,1 # TGO(B+TGO d))
TGO
DAD*
ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
STORE ZDOTD # STORE TENTATIVELY IN ZDOTD
DSU BPL # CHECK AGAINST MINIMUM
VMIN
@ -314,18 +314,18 @@ YOK DLOAD DSU
STORE XRANGE # TO LOOK.
UPTHROT SET EXIT
FLVR
TC UPFLAG # SET ROTFLAG
ADRES ROTFLAG
TC THROTUP
TC PHASCHNG
OCT 04024
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
CADR P40AUTO # ARE PROPERLY SET.
TC THROTUP
UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.

6
Luminary099/P76.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 709-711
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 709
# 1) PROGRAM NAME -- TARGET DELTA V PROGRAM (P76).

8
Luminary099/PHASE_TABLE_MAINTENANCE.agc
View File

@ -11,7 +11,7 @@
# 2009-06-05 RSB A few lines at the bottom of page image
# 1294 were truncated. I've fixed the page
# image and added those missing lines here.
# 2011-05-07 JL Flagged SBANK= workaround for future
# 2011-05-07 JL Flagged SBANK= workaround for future
# removal.
# This source code has been transcribed or otherwise adapted from
@ -27,7 +27,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1294
# SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
@ -79,7 +79,7 @@ DSPMMJOB EQUALS DSPMMJB
BLOCK 02
SETLOC FFTAG1
BANK
# Page 1295
# PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
# A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
@ -407,5 +407,5 @@ CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT WOULD
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.

376
Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

File diff suppressed because it is too large Load Diff

66
Luminary099/PINBALL_NOUN_TABLES.agc
View File

@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 301
# THE FOLLOWING REFERS TO THE NOUN TABLES
@ -37,7 +37,7 @@
# 00010 3 COMPONENT
# X1XXX BIT 4 = 1. DECIMAL ONLY
# 1XXXX BIT 5 = 1. NO LOAD
# END OF COMPONENT CODE NUMBER
# END OF COMPONENT CODE NUMBER
#
# SF ROUTINE CODE NUMBER INTERPRETATION
#
@ -181,7 +181,7 @@ LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
DXCH Z
MIXCON = OCT50 # (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES.
@ -193,7 +193,7 @@ GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
DCA SFOUTAB
SFCOM DXCH SFTEMP1
DXCH Z
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARIVES IN SFTEMP1.
@ -201,7 +201,7 @@ GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARIVES IN SFTEMP1.
INDEX A
DCA SFINTAB
TCF SFCOM
# NN NORMAL NOUNS
NNADTAB OCT 00000 # 00 NOT IN USE
OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
@ -249,7 +249,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
ECADR TET # 38 TIME OF STATE BEING INTEGRATED
OCT 00000 # 39 SPARE
# END OF NNADTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
@ -376,7 +376,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS IN BIAS
# END OF NNADTAB FOR MIXED NOUNS
# NN NORMAL NOUNS
@ -421,12 +421,12 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 24400 # 37 3COMP HMS (DEC ONLY)
OCT 24400 # 38 3COMP HMS (DEC ONLY)
OCT 00000 # 39 SPARE
# END OF NNTYPTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
OCT 24500 # 40 3COMP MIN/SEC, VEL3, VEL3
# (NO LOAD, DEC ONLY)
# (NO LOAD, DEC ONLY)
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
OCT 24410 # 42 3COMP POS4, POS4, VEL3
# (DEC ONLY)
@ -524,7 +524,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 71572 # 99 3COMP POS9, VEL4, RADIANS
# (DEC ONLY)
# END OF NNTYPTAB FOR MIXED NOUNS
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
@ -557,7 +557,7 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 77766 # RENDESVOUS RADAR RANGE RATE
OCT 50711
2DEC* .9267840599 E5 B-28* # LANDING RADAR ALTITUDE
OCT 00002 # INITIAL/FINAL ALTITUDE
OCT 23224
OCT 00014 # ALTITUDE RATE
@ -567,11 +567,11 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 04256 # ROT HAND CONT ANGLE RATE
OCT 07071
2DEC* -1.552795030 E5 B-28* # LANDING RADAR VELX
2DEC* .8250825087 E5 B-28* # LANDING RADAR VELY
2DEC* 1.153668673 E5 B-28* # LANDING RADAR VELZ
OCT 04324 # POSITION7
OCT 27600
OCT 00036 # TRIM DEGREES2
@ -581,11 +581,11 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 23420 # DP DEGREES
OCT 00000
2DEC 30480 B-19 # POSITION 9
2DEC 30.48 B-7 # VELOCITY4
2DEC 100 B-8 # RADIANS
# END OF SFINTAB
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
@ -618,7 +618,7 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 74552 # RENDEZVOUS RADAR RANGE RATE
OCT 70307
2DEC 1.079 E-5 B14 # LANDING RADAR ALTITUDE
OCT 14226 # INITIAL/FINAL ALTITUDE
OCT 31757
OCT 02476 # ALTITUDE RATE
@ -628,9 +628,9 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 00007 # ROT HAND CONT ANGLE RATE
OCT 13734
2DEC -.6440 E-5 B14 # LANDING RADAR VELX
2DEC 1.212 E-5 B14 # LANDING RADAR VELY
2DEC .8668 E-5 B14 # LANDING RADAR VELZ
OCT 34772 # POSITION7
@ -642,11 +642,11 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 00321 # DP DEGREES
OCT 26706
2DEC 17.2010499 B-7 # POSITION 9
2DEC .032808399 # VELOCITY4
# Page 314
# Page 314
2DEC .32 # RADIANS
# END OF SFOUTAB
# NN SF CONSTANT SF ROUTINE
@ -690,8 +690,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 53 SPARE
OCT 00000 # 53
OCT 00000 # 53
OCT 00000 # 53
OCT 00000 # 53
ECADR RANGE # 54 POS5 DP1
# Page 315
ECADR RRATE # 54 VEL3 DP3
@ -739,8 +739,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR TTFDISP # 68 MIN/SEC M/S
ECADR DELTAH # 68 COMP ALT DP1
OCT 00000 # 69 SPARE
OCT 00000 # 69
OCT 00000 # 69
OCT 00000 # 69
OCT 00000 # 69
ECADR AOTCODE # 70 OCTAL ONLY OCT
ECADR AOTCODE +1 # 70 OCTAL ONLY OCT
ECADR AOTCODE +2 # 70 OCTAL ONLY OCT
@ -750,7 +750,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR AOTCODE +2 # 71 OCTAL ONLY OCT
ECADR CDUT # 72 360-CDU DEG 360-CDU
ECADR CDUS # 72 CDU DEG CDU
OCT 0 # 72 SPARE COMPONENT
OCT 0 # 72 SPARE COMPONENT
ECADR TANG # 73 360-CDU DEG 360-CDU
ECADR TANG +1 # 73 CDU DEG CDU
OCT 0 # 73 SPARE COMPONENT
@ -816,8 +816,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR OGC +2 # 93 DPDEG(90) DP3
ECADR OGC +4 # 93 DPDEG(90) DP3
OCT 00000 # 94 SPARE
OCT 00000 # 94
OCT 00000 # 94
OCT 00000 # 94
OCT 00000 # 94
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
@ -833,7 +833,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR WWPOS # 99 POS9 DP3
ECADR WWVEL # 99 VEL4 DP2
ECADR WWBIAS # 99 RADIANS DP4
# END OF IDADDTAB
# NN SF ROUTINES
@ -899,8 +899,8 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
# Page 319
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 24247 # 99 DP3, DP2, DP4
# END OF RUTMXTAB
SBANK= LOWSUPER

10
Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1259-1267
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1259
BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
@ -276,7 +276,7 @@ LOOP1 DXCH MPAC
INDEX DEX1
DXCH VBUF
DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
TCF LOOP2
@ -444,4 +444,4 @@ FLESHPOT TS TEM2
CA TEM2
TS EBANK
TCF SWRETURN

12
Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1442-1459
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected "DEC 96.0" to "DEC 96", since
# the former is not compatible with yaYUL.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1442
BANK 17
@ -747,7 +747,7 @@ TURNON CA BIT15
EXTEND
WOR CHAN13
TC Q
# Page 1457
MIDORLST AD T6NEXT
EXTEND
@ -848,7 +848,7 @@ ENDJASK DXCH DAPARUPT
DXCH DAPZRUPT
DXCH ZRUPT
TCF NOQRSM
# Page 1459
# Page 1459
BLOCK 3
SETLOC FFTAG6
BANK
@ -857,4 +857,4 @@ ENDJASK DXCH DAPARUPT
MAKERUPT EXTEND
EDRUPT MAKERUPT

6
Luminary099/R30.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 712-722
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Removed a space between two components of
# a 2OCT that isn't legal in yaYUL.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 712
# SUBROUTINE NAME: V82CALL

6
Luminary099/R31.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 703-708
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 703
BANK 40

104
Luminary099/R60_62.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 472-485
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 472
# MOD NO: 0 DATE: 1 MAY 1968
@ -61,7 +61,7 @@
# 7. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS).
#
# 8. IF THE G+N SWITCH IS NOT SET GO BACK TO STEP 3.
#
#
# 9. IF THE AUTO SWITCH IS NOT SET GO BACK TO STEP 3.
#
# 10. NON-FLASHING DISPLAY V06N18 (FDAI ANGLES).
@ -100,13 +100,13 @@
BANK 34
SETLOC MANUVER
BANK
EBANK= TEMPR60
COUNT* $$/R06
R60LEM TC MAKECADR
TS TEMPR60
REDOMANN CAF 3AXISBIT
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@ -116,7 +116,7 @@ REDOMANN CAF 3AXISBIT
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
EXIT
TOBALL TC BANKCALL
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
TOBALLA CAF V06N18
@ -128,7 +128,7 @@ TOBALLA CAF V06N18
# Page 474
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
TC ENDOFJOB
REDOMANC CAF 3AXISBIT
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@ -138,27 +138,27 @@ REDOMANC CAF 3AXISBIT
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE ANGLES
EXIT
TOBALLC TC BANKCALL
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
TC G+N,AUTO # CHECK AUTO MODE
CCS A
TCF TOBALLA # NOT AUTO, GO REREQUEST AUTO MANEUVER.
AUTOMANV CAF V06N18 # STATIC DISPLAY DURING AUTO MANEUVER
TC BANKCALL
CADR GODSPR
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
STARTMNV TC BANKCALL # PERFORM MANEUVER VIA KALCMANU
CADR GOMANUR
ENDMANUV TCF TOBALLA # FINISHED MANEUVER.
ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
ADRES 3AXISFLG
CAE TEMPR60
TC BANKJUMP
CHKLINUS CS FLAGWRD4
MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET?
CCS A
@ -168,52 +168,52 @@ CHKLINUS CS FLAGWRD4
CS THREE # OBTAIN LOCATION FOR RESTART
AD BUF2 # HOLD Q OF LAST DISPLAY
TS TBASE2
TC PHASCHNG
OCT 00132
CAF BIT7
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
TC MPAC +2
# Page 475
# Page 475
RELINUS CAF PRIO26 # RESTORE ORIGINAL PRIORITY
TC PRIOCHNG
CAF TRACKBIT # DON'T CONTINUE R60 UNLESS TRACKFLAG ON.
MASK FLAGWRD1
CCS A
TCF RER60
CAF RNDVZBIT # IS IT P20?
MASK FLAGWRD0
CCS A
TC +4 # YES
TC PHASCHNG # NO, MUST BE P25, SET 2.11 SPOT
OCT 40112
TC ENDOFJOB
TC PHASCHNG # SET 2.7 SPOT FOR P20
OCT 40072
TC ENDOFJOB
RER60 TC UPFLAG # SET PRIO DISPLAY FLAG AFTER RESTART
ADRES PDSPFLAG
TC TBASE2
R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
EXTEND
BZF ENDMANU1 # THUS WE GO TO ENDEXT VIA USER
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
MASK PDSPFBIT
EXTEND
BZF GOTOP00H # NO
TC GOTOV56 # YES
BIT14+7 OCT 20100
OCT203 OCT 203
V06N18 VN 0618
@ -228,12 +228,12 @@ G+N,AUTO EXTEND
MASK BIT10
CCS A
TC Q # NOT IN G+N C(A) = +
# Page 476
# Page 476
ISITAUTO EXTEND # CHECK FOR AUTO MODE
READ CHAN31
MASK BIT14
TC Q # (+) = NOT IN AUTO, (+0) = AOK
# Page 477
# PROGRAM DESCRIPTION BALLANGS
# MOD NO. LOG SECTION R60,R62
@ -286,7 +286,7 @@ ISITAUTO EXTEND # CHECK FOR AUTO MODE
SETLOC BAWLANGS
BANK
COUNT* $$/BALL
BALLANGS TC MAKECADR
TS BALLEXIT
@ -297,19 +297,19 @@ BALLANGS TC MAKECADR
TS CDUSPOT
CA CPSI
TS CDUSPOT +2
TC INTPRET
SETPD CALL
0D
CD*TR*G
DLOAD DMP
SINCDUX # SIN (OGA)
COSCDUZ # COS (MGA)
SL1 DCOMP # SCALE
ARCSIN PDDL # YAW = ARCSIN(-SXCZ) INTO 0 PD
SINCDUZ
SINCDUZ
STODL SINTH # (SINTH = 18D IN PD)
COSCDUZ
DMP SL1 # RESCALE
@ -340,7 +340,7 @@ BALLANGS TC MAKECADR
V1STO2S
STORE FDAIX # MODE IS TP
EXIT
ENDBALL CA BALLEXIT
# Page 479
@ -399,9 +399,9 @@ ENDBALL CA BALLEXIT
BANK
# Page 481
COUNT* $$/VECPT
EBANK= BCDU
VECPNT1 STQ BOV # THIS ENTRY USES DESIRED CDUS
VECQTEMP # NOT PRESENT -- ENTER WITH CDUD'S IN MPAC
VECPNT2
@ -442,7 +442,7 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
KEL # S/C AXES TO STABLE MEMBER AXES
CALL # MFS = MIS MFI
MXM3 # (IN PD LIST)
DLOAD ABS
6 # MFS6 = SIN(CPSI) $2
DSU BMN
@ -450,7 +450,7 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
# Page 482
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
SCAXIS # THE THRUST AXIS
DSU BPL
@ -466,13 +466,13 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
IGSAMEX # FINAL X S/C AXIS
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3)
# X SCAXIS . XF) LESS THAN 0, U = SCAXIS
# OTHERWISE U = -SCAXIS.
VLOAD VCOMP
SCAXIS
STCALL COF # ROTATE ABOUT -SCAXIS
@ -509,7 +509,7 @@ FINDGIMB AXC,1 CALL
0
GOTO
VECQTEMP # RETURN TO CALLER
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
28D
SCAXIS
@ -518,7 +518,7 @@ PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
25D
GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
VECQTEMP # PRESENT CDU ANGLES
BANK 35
SETLOC MANUVER1
BANK
@ -556,7 +556,7 @@ VECANG2 2DEC .09722222222 # = 35 DEGREES $360
1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) ************
DPB-14 OCT 00001
OCT 00000
# Page 485
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
@ -564,9 +564,9 @@ DPB-14 OCT 00001
SETLOC R62
BANK
EBANK= BCDU
COUNT* $$/R62
R62DISP EQUALS R62FLASH
R62FLASH CAF V06N22 # FLASH V06N22 AND
@ -575,13 +575,13 @@ R62FLASH CAF V06N22 # FLASH V06N22 AND
TCF ENDEXT # TERMINATE
TCF GOMOVE # PROCEED
TCF R62FLASH # ENTER
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
# POINT.
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
ADRES 3AXISFLG
TC BANKCALL
CADR R60LEM
TCF ENDEXT # END R62

12
Luminary099/R63.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 338-341
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 338
# SUBROUTINE NAME: V89CALL
@ -83,7 +83,7 @@
BANK 32
SETLOC BAWLANGS
BANK
COUNT* $$/R63
V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
CADR R02BOTH # KNOWN. ALARMS IF NOT.
@ -143,12 +143,12 @@ V89CALL1 STCALL SCAXIS # STORE SELECTED ALIGNMENT AXIS
TC BANKCALL # PERFORMS LEM MANEUVER TO ALIGN SELECTED
CADR R60LEM # SPACECRAFT AXIS TO CSM.
TCF ENDEXT # TERMINATE R63
ALINEZ TC INTPRET # Z AXIS ALIGNMENT
VLOAD GOTO
UNITZ # READ (0, 0, .5)
V89CALL1
VB04N12 VN 412
VB06N18 VN 0618
# Page 341

36
Luminary099/RADAR_LEADIN_ROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 490-491
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,67 +24,67 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 490
BANK 25
SETLOC RRLEADIN
BANK
EBANK= RSTACK
# RADAR SAMPLING LOOP.
COUNT* $$/RLEAD
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
TCF +2
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
TC WAITLIST
EBANK= RSTACK
2CADR RADSAMP
CAF PRIO25
TC NOVAC
EBANK= RSTACK
2CADR DORSAMP
CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX =
EXTEND # RTSTLOC/2 + RTSTBASE
MP RTSTLOC
AD RTSTBASE # 0 FOR RR, 2 FOR LR.
TS RTSTDEX
TCF TASKOVER
# DO THE ACTUAL RADAR SAMPLE.
DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
TC BANKCALL
CADR RADSTALL
INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
DORSAMP2 INHINT
CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
MASK R77FLBIT
CCS A
TCF +4
DXCH SAMPLSUM
INDEX RTSTLOC
DXCH RSTACK
CS RTSTLOC # CYCLE RTSTLOC.
AD RTSTMAX
EXTEND
# Page 491
# Page 491
BZF +3
CA RTSTLOC
AD TWO # STORAGE IS DP
TS RTSTLOC
TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE.
# VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
@ -92,12 +92,12 @@ VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
INDEX RTSTDEX
CAF RDRLOCS
TCF SWCALL # NOT TOUCHING Q.
RDRLOCS CADR RRRANGE # =0
CADR RRRDOT # =1
CADR LRVELX # =2
CADR LRVELY # =3
CADR LRVELZ # =4
CADR LRALT # =5

42
Luminary099/RCS_FAILURE_MONITOR.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 190
# PROGRAM DESCRIPTION:
@ -72,60 +72,60 @@ RCSMONEX EQUALS RESUME
# SUBROUTINE CALLED: NOVAC.
EBANK= CH5MASK
BANK 23
SETLOC RCSMONT
BANK
# Page 191
COUNT* $$/T4RCS
RCSMONIT EQUALS RCSMON
RCSMON CS ZERO
EXTEND
RXOR CHAN32 # PICK UP + INVERT INVERTED CHANNEL 32.
MASK LOW8 # KEEP JET-FAIL BITS ONLY.
TS Q
CS PVALVEST # _ _
MASK Q # FORM PC + PC.
TS L # (P = PREVIOUS ISOLATION VALVE STATE,
CS Q # C = CURRENT VALVE STATE (CH32)).
MASK PVALVEST
ADS L # RESULT NZ INDICATES ACTION REQUIRED.
EXTEND
BZF RCSMONEX # QUIT IF NO ACTION REQUIRED.
EXTEND
MP BIT7 # MOVE BITS 8-1 OF A TO 14-7 OF L.
XCH L # ZERO TO L IN THE PROCESS.
-3 INCR L
DOUBLE # BOUND TO GET OVERFLOW IN THIS LOOP,
OVSK # SINCE WE ASSURED INITIAL NZ IN A.
TCF -3
INDEX L
CA BIT8 -1 # SAVE THE RELEVANT BIT (8-1).
TS Q
MASK PVALVEST # LOOK AT PREVIOUS VALVE STATE BIT.
CCS A
TCF VOPENED # THE VALVE HAS JUST BEEN OPENED.
CS CH5MASK # THE VALVE HAS JUST BEEN CLOSED.
INDEX L
MASK 5FAILTAB
ADS CH5MASK # SET INHIBIT BIT FOR CHANNEL 5 JET.
CS CH6MASK
INDEX L
MASK 6FAILTAB
ADS CH6MASK # SET INGIBIT BIT FOR CHANNEL 6 JET
CA Q
ADS PVALVEST # RECORD ACTION TAKEN.
TCF 1/ACCFIX # SET UP 1/ACCJOB AND EXIT.
# Page 192
@ -133,23 +133,23 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
CS 5FAILTAB
MASK CH5MASK
TS CH5MASK # REMOVE INHIBIT BIT FOR CHANNEL 5 JET.
INDEX L
CS 6FAILTAB
MASK CH6MASK
TS CH6MASK # REMOVE INHIBIT BIT FOR CHANNEL 6 JET.
CS Q
MASK PVALVEST
TS PVALVEST # RECORD ACTION TAKEN.
1/ACCFIX CAF PRIO27 # SET UP 1/ACCS SO THAT THE SWITCH CURVES
TC NOVAC # FOR TJETLAW CAN BE MODIFIED IF CH5MASK
EBANK= AOSQ # HAS BEEN ALTERED.
2CADR 1/ACCJOB
TCF RCSMONEX # EXIT.
5FAILTAB EQUALS -1 # CH 5 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00040 # 8
OCT 00020 # 7
@ -159,7 +159,7 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
OCT 00001 # 3
OCT 00004 # 2
OCT 00002 # 1
6FAILTAB EQUALS -1 # CH 6 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00010 # 8
OCT 00020 # 7
@ -169,5 +169,5 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
OCT 00002 # 3
OCT 00040 # 2
OCT 00100 # 1

2
Luminary099/RESTARTS_ROUTINE.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1303
BANK 01

42
Luminary099/RESTART_TABLES.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 238
# RESTART TABLES
@ -70,7 +70,7 @@
#
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
# -2CADR ATASK # OF THE TASK :ATASK:
#
#
# DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
# -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
# # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
@ -84,11 +84,11 @@
BANK 01
SETLOC RESTART
BANK
PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
# RESTART 2CADR
COUNT* $$/RSTAB # TABLES IN BANK 1.
SIZETAB TC 1.2SPOT -12006
TC 1.3SPOT -12004
@ -105,17 +105,17 @@ SIZETAB TC 1.2SPOT -12006
1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
EBANK= STATE
2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
DEC 100
EBANK= STATE
2CADR TASKOVER
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
1.3SPOT -GENADR SAVET-30
EBANK= DVCNTR
-2CADR ULLGTASK
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
2.2SPOT EQUALS 1.2SPOT
@ -132,7 +132,7 @@ SIZETAB TC 1.2SPOT -12006
2.5SPOT OCT 05000
EBANK= RRECTCSM
2CADR STATINT1
2.7SPOT DEC 1500
EBANK= LOSCOUNT
-2CADR P20LEMC1
@ -220,17 +220,17 @@ SIZETAB TC 1.2SPOT -12006
4.23SPOT OCT 77777
EBANK= DVCNTR
-2CADR IGNITION
4.25SPOT GENADR SAVET-30
-GENADR TIG-35
EBANK= SAVET-30
BBCON TIG-35
4.27SPOT OCT 52777
EBANK= DVCNTR
2CADR P70A
# Page 242
# Page 242
4.31SPOT OCT 52777
EBANK= DVCNTR
2CADR P71A
@ -238,24 +238,24 @@ SIZETAB TC 1.2SPOT -12006
4.33SPOT OCT 46777
EBANK= DVCNTR
2CADR GOP00FIX
4.35SPOT OCT 46777
EBANK= DVCNTR
2CADR GOP00DOO
4.37SPOT OCT 52777
EBANK= WHICH
2CADR COMFAIL
# ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
5.2SPOT OCT 22000
EBANK= DVCNTR
2CADR NORMLIZE
DEC 200
EBANK= DVCNTR
-2CADR REREADAC
5.4SPOT DEC 200
EBANK= DVCNTR
-2CADR REREADAC
@ -263,7 +263,7 @@ SIZETAB TC 1.2SPOT -12006
OCT 20000
EBANK= DVCNTR
2CADR SERVICER
# ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
5.3SPOT DEC 200
@ -278,20 +278,20 @@ SIZETAB TC 1.2SPOT -12006
EBANK= DVCNTR
# Page 243
-2CADR BIBIBIAS
# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
6.2SPOT EQUALS 1.2SPOT
6.3SPOT DEC 100
EBANK= TIG
-2CADR CLOKTASK
6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
2CADR TIMEDIDR
6.7SPOT OCT 17000
EBANK= VGPREV
2CADR REDO6.7

2
Luminary099/RTB_OP_CODES.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1397
BANK 22

14
Luminary099/S-BAND_ANTENNA_FOR_LM.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 486-489
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected a misprint.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 486
# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM
@ -71,7 +71,7 @@
BANK 41
SETLOC SBAND
BANK
EBANK= WHOCARES
COUNT* $$/R05
SBANDANT TC BANKCALL
@ -126,7 +126,7 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
STOVL RLM # R B-1
RLM
UNIT PDVL
# Page 488
# Page 488
RLM
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE.
HIUNITY
@ -177,7 +177,7 @@ SBANDEX EXIT
EXTEND
BZF ENDEXT # NO
CAF PRIO5
# Page 489
# Page 489
TC PRIOCHNG
CAF V06N51 # DISPLAY ANGLES
TC BANKCALL
@ -196,6 +196,6 @@ V06N51 VN 0651
UR EQUALS 0D
URP EQUALS 6D
SBANK= LOWSUPER
# END OF LNYAIDE .001 ***

10
Luminary099/SERVICER.agc
View File

@ -12,11 +12,11 @@
# 2009-06-05 RSB Fixed a couple of typos, plus a goofy relative
# label reference from the original source.
#
# The contents of the "Luminary099" files, in general, are transcribed
# from scanned documents.
# The contents of the "Luminary099" files, in general, are transcribed
# from scanned documents.
#
# Assemble revision 001 of AGC program Luminary099 by NASA
# 2021112-061. July 14, 1969.
# 2021112-061. July 14, 1969.
#
# Prepared by
# Massachusetts Institute of Technology
@ -710,7 +710,7 @@ HIGATASK INHINT
2CADR HIGATJOB
TCF CONTSERV # CONTINUE SERVICER
# Page 874
# MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
@ -769,7 +769,7 @@ HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE)
POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT -- DO POS1 CHK
EXTEND
RAND 33
EXTEND
EXTEND
BZF UPDATCHK # LR IN POS1 -- CHECK FOR LR UPDATE
LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE

2
Luminary099/SERVICE_ROUTINES.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1374
BANK 10

8
Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1102
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2010-12-31 JL Fixed page number comment.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1102
BLOCK 02
@ -65,5 +65,5 @@ POLLEY EXTEND
ARG90 INDEX A
CS LIMITS
TC Q # RESULT SCALED AT 1.

6
Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1507-1510
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1507
# PROGRAM NAME: SPSRCS

26
Luminary099/STABLE_ORBIT.agc
View File

@ -7,9 +7,9 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 723-730
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Colossus249 file (there being no corresponding
# Luminary131 source-code file), using page
# Luminary131 source-code file), using page
# images from Luminary 1A.
# 2009-06-07 RSB Eliminated an extraneous instruction.
# 2011-01-06 JL Fixed pseudo-label indentation.
@ -27,7 +27,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 723
# STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
@ -108,10 +108,10 @@
BANK 04
SETLOC STBLEORB
BANK
EBANK= SUBEXIT
COUNT* $$/P3879
P38 TC BANKCALL
CADR AVFLAGA # THIS VEHICLE ACTIVE
TC +3
@ -131,7 +131,7 @@ P78 TC BANKCALL
TCF -5 # RECYCLE
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
TCR BLANKET
# Page 725
# Page 725
TCF ENDOFJOB
CAF FIVE
TS OPTION1
@ -213,7 +213,7 @@ JUNCTN2 DLOAD DSU
TINT
DELTTIME
STORE TARGTIME # TT = TI - DELTA T
# .... MAINRTNE ....
#
# SUBROUTINES USED:
@ -235,7 +235,7 @@ MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
SSP VLOAD
SUBEXIT
TEST3979
# Page 727
# Page 727
RATT
CALL
S3435.25
@ -281,7 +281,7 @@ DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
P39/79SW
P39/P79B
RECYCLE
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
#
# MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
@ -338,7 +338,7 @@ P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
TC BANKCALL
CADR P20FLGON # SET UPDATFLG, TRACKFLG
TC INTPRET
# Page 729
# Page 729
SET CALL
P39/79SW
SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
@ -353,7 +353,7 @@ P39/P79B RTB DAD
DLOAD GOTO
TARGTIME
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
# .... PREC/TT ....
#
# SUBROUTINES USED
@ -387,7 +387,7 @@ PREC/TT STQ DLOAD
DLOAD GOTO
T
RTRN
# .... INTRPVP ....
#
# SUBROUTINES USED
@ -408,7 +408,7 @@ OTHERV CALL
LEMPREC
GOTO
RTRN
# .... VNDSPLY ....
#
# SUBROUTINES USED

24
Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 370-372
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,17 +24,17 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 370
EBANK= XSM
BANK 33
SETLOC E/PROG
BANK
COUNT* $$/P07
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
#
# E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
@ -72,7 +72,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN
INCR EBUF2
E/SWITCH DXCH EBUF2
DTCB
# Page 371
# E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
#
@ -82,7 +82,7 @@ E/SWITCH DXCH EBUF2
# E/CALL
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT
# # RETURNS HERE IN INTERPRETIVE.
E/CALL LXCH LOC # ADRES -1 OF CADR.
INDEX L
CA L # CADR IN A.
@ -95,7 +95,7 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
EXIT # LEAVE VIA RVQ OR EQUIVALENT.
LXCH EBUF2 +1 # PICK UP RETURN.
TCF INTPRET +2 # SET LOC AND RETURN TO CALLER.
# Page 372
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
#
@ -114,12 +114,12 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
BANK 33
SETLOC E/PROG
BANK
COUNT* $$/P07
E/JOBWAK TC JOBWAKE # ARRIVE WITH ADRES IN A.
CS BIT11
NDX LOCCTR
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
TC RUPTREG3 # RETURN

258
Luminary099/T4RUPT_PROGRAM.agc
View File

@ -24,38 +24,38 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 155
BANK 12
SETLOC T4RUP
BANK
EBANK= M11
COUNT* $$/T4RPT
T4RUPT TS BANKRUPT
EXTEND
QXCH QRUPT
CCS DSRUPTSW # GOES 7(-1)0 AROUND AND AROUND
TCF NORMT4 +1
TCF NORMT4
TCF QUIKDSP
NORMT4 CAF SEVEN
TS RUPTREG1
TS DSRUPTSW
BLOCK 02
SETLOC FFTAG10
BANK
COUNT* $$/T4RPT
100MRUPT = OCT37766 # (DEC 16374)
# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
# IN LOWER 5 BITS.
RELTAB OCT 04025
OCT 10003
OCT 14031
@ -75,12 +75,12 @@ RELTAB11 OCT 60000
BANK 12
SETLOC T4RUP
BANK
COUNT* $$/T4RPT
CDRVE CCS DSPTAB +11D
TC DSPOUT
TC DSPOUT
XCH DSPTAB +11D
MASK LOW11
TS DSPTAB +11D
@ -89,7 +89,7 @@ CDRVE CCS DSPTAB +11D
WRITE OUT0
TC HANG20
# Page 157
# Page 157
# DSPOUT PROGRAM, PUTS OUT DISPLAYS
DSPOUTSB TS NOUT
@ -111,7 +111,7 @@ TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB
TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB
CAF TABLNTH # (DSPCNT=0).+0 INTO DSRUPTEM. PASS AGAIN
TCF DSPSCAN -1
DSPLAY AD ONE
INDEX DSPCNT
TS DSPTAB # REPLACE POSITIVELY
@ -123,21 +123,21 @@ DSPLAY AD ONE
AD DSRUPTEM
EXTEND
WRITE OUT0
TCF Q+1
DSPOUT CCS FLAGWRD5 # IS DSKY FLAG ON
CAF ZERO # NO
TCF NODSPOUT # NO
CCS NOUT # YES
TC DSPOUTSB
TCF NODSPOUT # NO DISPLAY REQUESTS
HANG20 CS 14,11,9
ADS DSRUPTSW
CAF 20MRUPT
SETTIME4 TS TIME4
# Page 158
@ -163,7 +163,7 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
MASK BIT14
CCS A
TCF T4JUMP # WAS ON -- NOW OFF
CAF CHRPRIO # WAS OFF -- NOW ON
TC NOVAC
EBANK= DSPCOUNT
@ -183,7 +183,7 @@ T4JUMP INDEX RUPTREG1
TCF RRAUTCHK
TCF IMUMON
TCF DAPT4S
20MRUPT = OCT37776 # (DEC 16382)
# Page 160
@ -191,15 +191,15 @@ T4JUMP INDEX RUPTREG1
NODSPOUT EXTEND
WRITE OUT0
CAF 120MRUPT #SET FOR NEXT CCRIVE
TCF SETTIME4
QUIKDSP CAF BIT14
MASK DSRUPTSW
EXTEND
BZF QUIKOFF # WROTE LAST TIME, NOW TURN OFF RELAYS.
CCS NOUT
TC DSPOUTSB
TCF NODSPY # NOUT=0 OR BAD RETURN FROM DSPOUTSB
@ -211,29 +211,29 @@ QUIKRUPT ADS DSRUPTSW
CAF BIT9
ADS DSRUPTSW
TC RESUME
NODSPY EXTEND
WRITE OUT0
SYNCT4 CAF 20MRUPT
ADS TIME4
CAF BIT9
ADS DSRUPTSW
CCS DSRUPTSW
TC RESUME
OCT37737 OCT 37737
TC SYNCT4
TC RESUME
QUIKOFF EXTEND
WRITE OUT0
CAF BIT14 # RESET DSRUPTSW TO SEND DISPLAY NEXT PASS
TCF QUIKRUPT
14,11,9 OCT 22400
# Page 161
@ -277,20 +277,20 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
MASK 30RDMSK
EXTEND
BZF TNONTEST # NO CHANGE IN STATUS
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES30 # UPDATE IMODES30.
EXTEND
RXOR LCHAN
TS IMODES30
CS ONE
XCH RUPTREG1
EXTEND
# Page 162
BZMF TLIM # CHANGE IN IMU TEMP.
TCF NXTIFBIT # BEGIN BIT SCAN.
-1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.)
NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
+1 DOUBLE
@ -303,7 +303,7 @@ NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
MASK IMODES30
INDEX RUPTREG1
TC IFAILJMP
NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
TCF NXTIFBIT -1
@ -362,33 +362,33 @@ TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
MASK BIT7 # IS TIME TO ACT ON A TURN-ON SEQUENCE.
CCS A
TCF C33TEST # NO -- EXAMINE CHANNEL 33.
CAF BIT8 # SEE IF FIRST SAMPLE OR SECOND.
MASK IMODES30
CCS A
TCF PROCTNON # REACT AFTER A SECOND SAMPLE.
CAF BIT8 # IF FIRST SAMPLE, SET BIT TO REACT NEXT
ADS IMODES30 # TIME.
TCF C33TEST
# PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
PROCTNON CS BITS7&8
MASK IMODES30
TS IMODES30
MASK BIT14 # SEE IF TURN-ON REQUEST.
CCS A
TCF OPONLY # OPERATE ON ONLY.
CS IMODES30 # IF TURN-ON REQUEST, WE SHOUD HAVE IMU
MASK BIT9 # OPERATE.
CCS A
TCF +3
TC ALARM # ALARM IF NOT
OCT 213
+3 TC CAGESUB
CAF 90SECS
TC WAITLIST
@ -396,54 +396,54 @@ PROCTNON CS BITS7&8
2CADR ENDTNON
TCF C33TEST
RETNON CAF 90SECS
TC VARDELAY
ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
MASK IMODES30
XCH IMODES30
MASK BIT2 # IF IT WAS OFF, SEND ISS DELAY COMPLETE.
EXTEND
BZF ENDTNON2
CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW.
# Page 165
MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
EXTEND
BZF RETNON
CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS
MASK IMUSEBIT # WAITING.
CCS A
TCF TASKOVER
TC POSTJUMP
CADR IMUBAD # UNSUCCESSFUL TURN-ON.
ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE.
EXTEND
WOR CHAN12
TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF
UNZ2 TC ZEROICDU
CS BITS4&5 # REMOVE ZERO AND COARSE.
EXTEND
WAND CHAN12
CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS
TC VARDELAY
ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
TS IMODES30
CS BIT6 # ENABLE DAP
MASK IMODES33
TS IMODES33
CS FLAGWRD2 # TEST DRIFTFLG: IF ON DO NOTHING BECAUSE
MASK DRFTBIT # IMUCOMP SHOUD BE ALL SET UP (RESTART
EXTEND # WITH IMUSE DOWN). IF OFF, SET DRIFTFLG
@ -451,47 +451,47 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
ADS FLAGWRD2 # GOING (FRESH START OR ISS TURN-ON).
CA TIME1
XCH 1/PIPADT # CANNOT GET HERE IF RESTART WITH IMUSE UP
TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED.
CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE.
EXTEND
WAND CHAN12
CAF 4SECS # DON'T ENABLE PROG ALARM ON PIP FAIL FOR
# Page 166
TC WAITLIST # ANOTHER 4 SECS.
EBANK= CDUIND
2CADR PFAILOK
TCF TASKOVER
OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE
EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE
RAND CHAN12 # MIGHT BE IN GIMBAL LOCK.
CCS A
TCF C33TEST
CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS.
MASK FLAGWRD0 # UNLESS SOMEONE IS USING TH IMU.
CCS A
TCF C33TEST
TC CAGESUB2 # SET TURNON FLAGS.
ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF # IMU CAGE OFF ENTRY.
CAF BIT5 # ISS CDU ZERO
EXTEND
WOR CHAN12
TC ZEROICDU
CAF BIT6 # WAIT 300 MS. FOR AGS TO RECEIVE SIGNAL.
TC WAITLIST
EBANK= M11
2CADR UNZ2
TCF C33TEST
# Page 167
@ -534,19 +534,19 @@ C33TEST CA IMODES33 # SEE IF RELEVANT CHAN33 BITS HAVE
RXOR LCHAN
EXTEND
BZF GLOCKMON # ON NO CHANGE.
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES33
EXTEND
RXOR LCHAN
TS IMODES33 # UPDATED IMODES33.
CAF ZERO
XCH RUPTREG1
DOUBLE
# Page 168
TCF NXTIBT +1 # SCAN FOR BIT CHANGES.
-1 AD ONE
NXTIBT INCR RUPTREG1
+1 DOUBLE
@ -593,11 +593,11 @@ GLOCKMON CCS CDUZ
TCF SETGLOCK # 70 DEGREES.
TCF GLOCKCHK
TCF SETGLOCK
GLOCKCHK AD -70DEGS
EXTEND
BZMF SETGLOCK -1 # NO LOCK.
AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES
EXTEND
BZMF NOGIMRUN
@ -607,34 +607,34 @@ GLOCKCHK AD -70DEGS
RAND CHAN12
CCS A
TCF NOGIMRUN
TC IBNKCALL
CADR SETCOARS
CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS.
TC WAITLIST
# Page 170
EBANK= CDUIND
2CADR CA+ECE
NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP.
TCF SETGLOCK
-1 CAF ZERO
SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING
EXTEND # THE TWO.
BZF GLOCKOK # OK AS IS.
MASK DSPTAB +11D # IF OFF, DON'T TURN ON IF IMU BEING CAGED.
CCS A
TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
CAF BIT6
MASK IMODES30
CCS A
TCF GLOCKOK
GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP.
MASK BIT6
AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D.
@ -673,19 +673,19 @@ GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET
TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY.
CCS IMODES30
TCF TEMPOK
TCF TEMPOK
CAF BIT4 # TURN ON LAMP.
EXTEND
WOR DSALMOUT
TCF NXTIFAIL
TEMPOK TC LAMPTEST # IF TEMP NOW OK, DON'T TURN OFF LAMP IF
TCF NXTIFAIL # LAMP TEST IN PROGRESS.
CS BIT4
EXTEND
WAND DSALMOUT # TURN OFF LAMP
@ -725,19 +725,19 @@ ITURNON CAF BIT2 # IF DELAY REQUEST HAS GONE OFF
MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES
CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
TCF NXTIFAIL
CAF BIT14 # SEE IF JUST ON OR OFF.
MASK IMODES30
EXTEND
BZF ITURNON2 # IF JUST ON.
CAF BIT15
EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN
RAND CHAN12 # SENT. IF SO, ACTION COMPLETE
EXTEND
BZF +2
TCF NXTIFAIL
CAF BIT2 # IF NOT, SET BIT TO INDICATE REQUEST NOT
ADS IMODES30 # PRESENT FOR FULL DURATION.
TC ALARM
@ -751,7 +751,7 @@ ITURNON2 CS IMODES30 # SET BIT7 TO INDICATE WAIT OF 1 SAMPLE
CAF RRINIT
TS RADMODES
TCF NXTIFAIL
RRINIT OCT 00102
# Page 174
@ -782,11 +782,11 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
CS OCT77000 # TERMINATE ICDU, RCDU, GYRO PULSE TRAINS
EXTEND
WAND CHAN14
CS OCT272 # KNOCK DOWN DISPLAY INERTIAL DATA, IMU
EXTEND # ERROR COUNTER ENABLE, ZERO ICDU, COARSE
WAND CHAN12 # ALIGN ENABLE, RR ERROR COUNTER ENABLE.
CS ENGONBIT # INSURE ENGONFLG IS CLEAR.
MASK FLAGWRD5
TS FLAGWRD5
@ -796,9 +796,9 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
AD BIT14
EXTEND
WRITE DSALMOUT # FORCE BIT14=1, BIT13=0.
TC CAGESUB1
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
@ -808,7 +808,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# Page 175
TS CDUZCMD
TS GYROCMD
CS OCT740 # HAVING WAITED AT LEAST 27 MCT FROM
EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN
WAND CHAN14 # DE-SELECT THE GYROS.
@ -826,7 +826,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# CALLING SEQUENCE: BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES.
#
# JOBS OR TAKS INITIATED: NONE.
#
#
# SUBROUTINES CALLED: ALARM, IF ISS IS TURNED OFF WHILE IN USE.
#
# ERASABLE INITIALIZATION: ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK
@ -840,14 +840,14 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
IMUOP EXTEND
BZF IMUOP2
CS IMODES33 # DISABLE DAP
MASK BIT6
ADS IMODES33
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
CS BITS7&8 # KNOCK DOWN RENDEZVOUS, IMUUSE FLAGS
MASK FLAGWRD0
XCH FLAGWRD0 # IF GOING OFF, ALARM IF PROG USING IMU.
@ -855,11 +855,11 @@ IMUOP EXTEND
MASK IMUSEFLG
CCS A
TCF NXTIFAIL
TC ALARM
OCT 214
TCF NXTIFAIL
IMUOP2 CAF BIT2 # SEE IF FAILED ISS TURN-ON SEQ IN PROG.
MASK IMODES30
CCS A
@ -893,19 +893,19 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
XCH IMODES30
MASK -BIT10
ADS IMODES30
TC SETISSW
CS IMODES30 # IF PIP FAIL DOESN'T LIGHT ISS WARNING, DO
MASK BIT1 # A PROGRAM ALARM IF IMU OPERATING BUT NOT
CCS A # CAGED OR BEING TURNED ON.
TCF NXTFL33
CA IMODES30
MASK OCT1720
CCS A
TCF NXTFL33 # ABOVE CONDITION NOT MET.
TC ALARM
OCT 212
TCF NXTFL33
@ -935,14 +935,14 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST.
TCF NXTFL33
TC ALARM
OCT 1105
TCF NXTFL33
UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT
TCF NXTFL33 # ALARM CODE.
TC ALARM
OCT 1106
TCF NXTFL33
@ -994,18 +994,18 @@ SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN
MASK OCT15000
CCS A
TCF ISSWON # FAILURE.
ISSWOFF CAF BIT1 # DON'T TURN OFF ISS WARNING IF LAMP TEST
MASK IMODES33 # IN PROGRESS.
# Page 180
CCS A
TC Q
CS BIT1
EXTEND
WAND DSALMOUT
TC Q
ISSWON EXTEND
QXCH ITEMP6
TC VARALARM # TELL EVERYONE WHAT CAUSED THE ISS WARNING
@ -1013,28 +1013,28 @@ ISSWON EXTEND
EXTEND
WOR DSALMOUT
TC ITEMP6
CAGESUB CS BITS6&15 # SET OUTBITS AND INTERNAL FLAGS FOR
EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE
WAND CHAN12 # ERROR COUNTER AND REMOVE THE IMU DELAY COMP.
CAF BITS4&5 # SEND ZERO AND COARSE.
EXTEND
WOR CHAN12
CAGESUB1 CS DSPTAB +11D # TURN ON NO ATT LAMP
MASK OC40010
ADS DSPTAB +11D
CAGESUB2 CS IMODES30 # SET FLAGS TO INDICATE CAGING OR TURN-ON
MASK OCT75 # AND INHIBIT ALL ISS WARNING INFO
ADS IMODES30
CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
MASK BIT6
ADS IMODES33
TC Q
IMUFAIL EQUALS SETISSW
ICDUFAIL EQUALS SETISSW
@ -1047,18 +1047,18 @@ IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH.
TCF IMUCAGE
30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE).
TCF IMUOP
C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH.
TCF DNTMFAST
TCF UPTMFAST
# SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
LAMPTEST CS IMODES33 # BIT 1 OF IMODES33 = 1 IF LAMP TEST IN
MASK BIT1 # PROGRESS.
CCS A
INCR Q
TC Q
33RDMSK EQUALS PRIO16
OC40010 OCT 40010
OCT54 OCT 54
@ -1115,7 +1115,7 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
MASK AUTOMBIT
EXTEND
BZF RRCDUCHK
LXCH RADMODES # UPDATE RADMODES.
EXTEND
RXOR LCHAN
@ -1127,12 +1127,12 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
CA OCT10001 # SET RRCDUZRO AND TURNON BITS.
ADS RADMODES
# Page 183
# Page 183
CAF ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR RRTURNON
TCF NORRGMON
OCT05776 OCT 5776
@ -1174,19 +1174,19 @@ OCT05776 OCT 5776
-3 CS BIT2
EXTEND
WAND CHAN12 # AT TURNON, DISABLE CDU ERROR COUNTERS.
RRCDUCHK CA RADMODES # LAST SAMPLED BIT IN RADMODES.
EXTEND
RXOR CHAN30
MASK RCDUFBIT
EXTEND
BZF RRGIMON
CAF AUTOMBIT # IF RR NOT IN AUTO MODE, DON'T CHANGE BIT
MASK RADMODES # 7 OF RADMODES. IF THIS WERE NOT DONE,
CCS A # THE TRACKER FAIL MIGHT COME ON WHEN
TCF NORRGMON # JUST READING LR DATA.
CAF RCDUFBIT # SET BIT 7 OF RADMODES FOR SETTRKF.
# Page 185
LXCH RADMODES # UPDATE RADMODES.
@ -1210,7 +1210,7 @@ TRKFLCDU TC SETTRKF # UPDATE TRAKER FAIL LAMP ON DSKY.
# PROGRAM NAME: RRGIMON
#
# FUNCTIONAL DESCRIPTION:
# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
# CHECKED: REMOD, RR CDU'S BEING ZEROED, REPOSITION, AND RR
# NOT IN AUTO MODE (RADMODES BITS 14, 13, 11, 2). IF ANY OF THESE
# EXIST THE PROGRAM EXITS TO GPMATRIX. IF NONE ARE PRESENT RRLIMCHK
@ -1276,7 +1276,7 @@ MONREPOS CAF REPOSBIT # SET FLAG TO SHOW REPOSITION IN PROGRESS.
TC WAITLIST
EBANK= LOSCOUNT
2CADR DORREPOS
TCF NORRGMON
OCT32002 OCT 32002
@ -1325,30 +1325,30 @@ DAPT4S EQUALS GPMATRIX
GPMATRIX CAE CDUZ # SINGLE ENTRY POINT
TC SPSIN # SIN(CDUZ) = SIN(MG)
TS M11 # SCALED AT 1
CAE CDUZ
TC SPCOS # COS(CDUZ) = COS(MG)
TS COSMG # SCALED AT 1 (ONLY A FACTOR)
CAE CDUX
CAE CDUX
TC SPSIN # SIN(CDUX) = SIN(OG)
TS M22 # SCALED AT 1 (ALSO IS MR22)
CS M22
# Page 189
EXTEND
MP COSMG # -SIN(OG)COS(MG)
TS M31 # SCALED AT 1
CAE CDUX
CAE CDUX
TC SPCOS # COS(CDUX) = COS(OG)
TS M32 # SCALED AT 1 (ALSO IS MR23)
EXTEND
MP COSMG # COS(OG)COS(MG)
TS M21 # SCALED AT 1
TC RESUME
NORRGMON EQUALS DAPT4S
NORRGMON EQUALS DAPT4S
ENDDAPT4 EQUALS RESUME

2
Luminary099/T6-RUPT_PROGRAMS.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1403
# PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967

66
Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
View File

@ -45,21 +45,21 @@ FFTAG11 EQUALS
FFTAG12 EQUALS
FFTAG13 EQUALS
BNKSUM 02
BLOCK 03
FFTAG5 EQUALS
FFTAG6 EQUALS
BNKSUM 03
BANK 00
DLAYJOB EQUALS
BNKSUM 00
BANK 01
RESTART EQUALS
LOADDAP1 EQUALS
BNKSUM 01
BANK 04
R02 EQUALS
VERB37 EQUALS
@ -71,7 +71,7 @@ UPDATE2 EQUALS
E/PROG EQUALS
AOTMARK2 EQUALS
BNKSUM 04
# Page 29
BANK 05
FRANDRES EQUALS
@ -80,7 +80,7 @@ ABORTS1 EQUALS
EPHEM1 EQUALS
ASENT3 EQUALS
BNKSUM 05
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
BANK 06
@ -90,13 +90,13 @@ RCSMONT EQUALS
MIDDGIM EQUALS
EARTHLOC EQUALS
BNKSUM 06
BANK 07
AOTMARK1 EQUALS
MODESW EQUALS
ASENT2 EQUALS
BNKSUM 07
BANK 10
RTBCODES EQUALS
DISPLAYS EQUALS
@ -104,20 +104,20 @@ PHASETAB EQUALS
FLESHLOC EQUALS
SLCTMU EQUALS
BNKSUM 10
BANK 11
ORBITAL EQUALS
F2DPS*11 EQUALS
INTVEL EQUALS
BNKSUM 11
BANK 12
CONICS EQUALS
ORBITAL1 EQUALS
# Page 30
INTPRET2 EQUALS
BNKSUM 12
BANK 13
LATLONG EQUALS
INTINIT EQUALS
@ -126,7 +126,7 @@ P76LOC EQUALS
ORBITAL2 EQUALS
ABTFLGS EQUALS
BNKSUM 13
# Page 31
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
@ -134,28 +134,28 @@ ABTFLGS EQUALS
P50S1 EQUALS
STARTAB EQUALS
ASENT4 EQUALS
BNKSUM 14
BNKSUM 14
BANK 15
P50S EQUALS
EPHEM EQUALS
BNKSUM 15
BANK 16
DAPS1 EQUALS
BNKSUM 16
BANK 17
DAPS2 EQUALS
P40S3 EQUALS
BNKSUM 17
BANK 20
DAPS3 EQUALS
LOADDAP EQUALS
RODTRAP EQUALS
BNKSUM 20
BANK 21
DAPS4 EQUALS
R10 EQUALS
@ -189,12 +189,12 @@ P12A EQUALS
NORMLIZ EQUALS
ASENT7 EQUALS
BNKSUM 23
BANK 24
PLANTIN EQUALS
P20S EQUALS
BNKSUM 24
BANK 25
P20S1 EQUALS
P20S2 EQUALS
@ -203,7 +203,7 @@ RRLEADIN EQUALS
R29S1 EQUALS
PLANTIN3 EQUALS
BNKSUM 25
BANK 26
# Page 33
P20S3 EQUALS
@ -213,7 +213,7 @@ MANUVER1 EQUALS
PLANTIN1 EQUALS
PLANTIN2 EQUALS
BNKSUM 26
BANK 27
TOF-FF EQUALS
TOF-FF1 EQUALS
@ -235,13 +235,13 @@ FLOGSUB EQUALS
VB67A EQUALS
ASENT5 EQUALS
BNKSUM 30
BANK 31
FTHROT EQUALS
F2DPS*31 EQUALS
VB67 EQUALS
BNKSUM 31
BANK 32
P20S4 EQUALS
F2DPS*32 EQUALS
@ -251,13 +251,13 @@ P66LOC EQUALS
R47 EQUALS
SERV EQUALS
BNKSUM 32
BANK 33
SERVICES EQUALS
R29/SERV EQUALS
ASENT6 EQUALS
BNKSUM 33
BANK 34
STBLEORB EQUALS
P30S1 EQUALS
@ -274,14 +274,14 @@ P30S EQUALS
GLM EQUALS
P40S2 EQUALS
BNKSUM 35
# Page 36
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
BANK 36
P40S EQUALS
BNKSUM 36
BANK 37
P05P06 EQUALS
IMU2 EQUALS
@ -290,28 +290,28 @@ R31 EQUALS
IMUSUPER EQUALS
SERV1 EQUALS
BNKSUM 37
BANK 40
PINBALL1 EQUALS
SELFSUPR EQUALS
PINSUPER EQUALS
R31LOC EQUALS
BNKSUM 40
BANK 41
PINBALL2 EQUALS
BNKSUM 41
BANK 42
SBAND EQUALS
SBAND EQUALS
PINBALL3 EQUALS
BNKSUM 42
BANK 43
EXTVERBS EQUALS
SELFCHEC EQUALS
BNKSUM 43
# Page 37
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY

8
Luminary099/THE_LUNAR_LANDING.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 785
BANK 32
@ -126,7 +126,7 @@ IGNALOOP DLOAD
# 10
# 2 (VGU - 16 VGU KIGNX/B4)
# 2 0
# Page 787 new page is actually one line earlier but this would put the indices on a separate line
# Page 787 new page is actually one line earlier but this would put the indices on a separate line
# disconnected from their respective variables
# THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS.
# THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
@ -291,8 +291,8 @@ LANDJUNK TC PHASCHNG
CADR ZATTEROR
TC BANKCALL # SET 5 DEGREE DEADBAND
CADR SETMAXDB
CADR SETMAXDB
TC INTPRET # TO INTERPRETIVE AS TIME IS NOT CRITICAL
SET CLEAR
SURFFLAG

2
Luminary099/THROTTLE_CONTROL_ROUTINES.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 793
BANK 31

18
Luminary099/TIME_OF_FREE_FALL.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1268-1283
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-26 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1268
# THE TFF SUBROUTINES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER
@ -426,7 +426,7 @@ CALCTFF CLEAR # ENTER WITH RTERM IN MPAC
+2 # IF TFF, CONTINUE
TFFZEROS # IF TPER, SET Q2 = 0
+2 BMN SQRT # E:(-16) M:(-15)
MAXTFF1 # NO FREE FALL CONIC TO RTERM FROM HERE
# RESET PDL, SET TFF=POSMAX, AND EXIT.
@ -667,15 +667,15 @@ TFFEL1 DLOAD DSU # (ENTER WITH D/N=0 IN PDL+0)
T(X) TC POLY
DEC 4 # N-1
2DEC 3.333333333 E-1
2DEC* -1.999819135 E-1*
2DEC* 1.418148467 E-1*
2DEC* -1.01310997 E-1*
2DEC* 5.609004986 E-2*
2DEC* -1.536156925 E-2*
ENDT(X) TC DANZIG

12
Luminary099/TJET_LAW.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1460-1469
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-06 RSB Eliminated a stray instruction that had crept
# in somehow.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1460
# PROGRAM DESCRIPTION
@ -181,7 +181,7 @@ TJCALC TS NUMBERT # SET TO +0,1,4 FOR (U,V-AXES) JET SELECT.
ZONE4,5 INDEX ADRSDIF1
CAE 1/ACOAST # .5/ACC SCALED AT 2(6)/PI WHERE
# Page 1463
# Page 1463
EXTEND # ACC = MAX(AMIN, AOS-).
MP EDOTSQ # SCALED AT PI/2(8).
AD E # SCALED AT PI/4
@ -232,7 +232,7 @@ ZONE5 TS L # TEMPORARILY STORE FUNCTION IN L.
TCF +4 # AND ACCFCTZ5, WHICH MUST BE PICKED UP
TC CCSHOLE # FROM THE NEXT LOWER REGISTER IF THE
CS TWO # (ACTUAL) ERROR RATE IS NEGATIVE.
# Page 1464
# Page 1464
ADS ADRSDIF2
+4 CAE L
@ -285,7 +285,7 @@ RETURNTJ EXTEND # ALL BRANCHES TERMINATE HERE WITH TJET
EXTEND # IN A SENSE FOR WHICH 1/ACCS HAS FORCED
BZMF +3 # A MAX-JET CALCULATION.
CAF FOUR
# Page 1465
# Page 1465
TS NUMBERT
TC HOLDQ # RETURN VIA SAVED Q.

10
Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1472-1485
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1472
BANK 21
@ -519,7 +519,7 @@ PRODUCT XCH K2CNTRAL
ADS K2CNTRAL +1 # K *(DEL*OMEGA + ALPHA /(2*K))
TS L # AND
TCF +2 # 2
ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN
ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN
# K2CNTRAL
DOSHIFT CA ININDEX
@ -619,4 +619,4 @@ ROOTCYCL TS SCRATCH # STORE X
AD SR # (X + ARG/X)/2 IN THE A REG
TC Q

6
Luminary099/UPDATE_PROGRAM.agc
View File

@ -28,7 +28,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1386
# PROGRAM NAME: P27
@ -137,7 +137,7 @@
# XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
# V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED
BANK 07
SETLOC EXTVERBS
@ -545,4 +545,4 @@ UPACTOFF CS BIT3
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
TC Q

12
Luminary099/WAITLIST.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1117-1132
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-07 JL Removed workarounds.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1117
# PROGRAM DESCRIPTION DATE -- 10 OCTOBER 1966
@ -334,7 +334,7 @@ OCT40201 OCT 40201
FILLED DXCH WAITEXIT
TC BAILOUT1 # NO ROOM IN THE INN
OCT 01203
# Page 1127
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
# N N+1
@ -530,7 +530,7 @@ LONGCYCL EXTEND # CAN WE SUCCESFULLY TAKE ABOUT 1.25
TCF MUCHTIME
DPBIT14 OCT 00000
OCT 20000
# LONGCALL
# Page 1132
LASTTIME CA BIT14 # GET BACK THE CORRECT DELTA T FOR WAITLIST
@ -561,4 +561,4 @@ LONGP00H DXCH LONGEXIT
WAITP00H DXCH WAITEXIT
+2 TC P00DOO1
OCT 01204