kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge pull request #172 from chrislgarry/virtualagc-pulls

Browse Source 
Fixes from rburkey2005/virtualagc
This commit is contained in:
Chris Garry 2016-08-18 01:41:18 -04:00 committed by GitHub
commit afbcf8f93e
1 changed files with 69 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

137
Comanche055/P11.agc
View File

@ -14,6 +14,7 @@
# STATSW -> SATSW. # STATSW -> SATSW.
# 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q. # 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q.
# Added an SBANK= prior to a 2CADR. # Added an SBANK= prior to a 2CADR.
# 2010-08-24 JL Fixed page numbers. Added missing comment character on p537.
# #
# This source code has been transcribed or otherwise adapted from digitized # This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed # images of a hardcopy from the MIT Museum. The digitization was performed
@ -250,18 +251,18 @@ REP11A INHINT
CADR PROUT # RETURN FROM EARTHR CADR PROUT # RETURN FROM EARTHR
EARTHR +3 EARTHR +3
MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
CA CDUX # ERROR DISPLAY AFTER LIFTOFF CA CDUX # ERROR DISPLAY AFTER LIFTOFF
DXCH OGC DXCH OGC
ZL ZL
CA CDUY CA CDUY
DXCH IGC DXCH IGC
ZL ZL
CA CDUZ CA CDUZ
DXCH MGC DXCH MGC
TC INTPRET _ TC INTPRET # _
VLOAD VSR1 # SCALE OGC B-1 VLOAD VSR1 # SCALE OGC B-1
OGC OGC
STORE OGC STORE OGC
SSP # ZERO RTX2 SSP # ZERO RTX2
RTX2 # FOR RTX2 # FOR
0 # EARTH 0 # EARTH
@ -427,10 +428,10 @@ ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
TS SATSW # FOR DISPLAY TS SATSW # FOR DISPLAY
TC TASKOVER TC TASKOVER
GETDOWN STQ SETPD GETDOWN STQ SETPD
INCORPEX INCORPEX
0D 0D
DLOAD DLOAD
HI6ZEROS HI6ZEROS
# Page 541 # Page 541
STODL 6D STODL 6D
DPHALF DPHALF
@ -654,20 +655,20 @@ ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
TC SATOUT # POS -- DISPLAY ONLY TC SATOUT # POS -- DISPLAY ONLY
TC AKLOAD # 0 STORE BIAS TC AKLOAD # 0 STORE BIAS
STEERSAT TC INTPRET # NEG STEER L/V STEERSAT TC INTPRET # NEG STEER L/V
TLOAD TAD TLOAD TAD
BIASAK BIASAK
AK AK
STORE AK # AKS = AKS - STORED BIAS STORE AK # AKS = AKS - STORED BIAS
EXIT EXIT
CA AK CA AK
TC RESCALES TC RESCALES
TS AK TS AK
CA AK1 CA AK1
TC RESCALES TC RESCALES
TS AK1 TS AK1
CA AK2 CA AK2
TC RESCALES TC RESCALES
TS AK2 TS AK2
# DISPLAY ATTITUDE ERRORS ON FDAI VIA NEEDLER # DISPLAY ATTITUDE ERRORS ON FDAI VIA NEEDLER
SATOUT TC BANKCALL SATOUT TC BANKCALL
@ -678,41 +679,41 @@ ATERSET CAF OCT31 # DELAY .25 SEC
TC ATERJOB # END OF ATT ERROR DISPLAY CYCLE TC ATERJOB # END OF ATT ERROR DISPLAY CYCLE
AKLOAD CS AK # STORE AKS AKLOAD CS AK # STORE AKS
TS BIASAK # INTO BIAS TS BIASAK # INTO BIAS
CS AK1 # COMPLEMENTED CS AK1 # COMPLEMENTED
TS BIASAK +1 TS BIASAK +1
# Page 546 # Page 546
CS AK2 CS AK2
TS BIASAK +2 TS BIASAK +2
CS BIT1 # SET SW CS BIT1 # SET SW
TS SATSW # TO STEER TS SATSW # TO STEER
TC STEERSAT # GO STEER TC STEERSAT # GO STEER
STRSAT CA SATSW # CHECK IF NEDLER STRSAT CA SATSW # CHECK IF NEDLER
EXTEND # HAS BEEN INITIALIZED EXTEND # HAS BEEN INITIALIZED
BZMF ATTDISP # YES -- CONTINUE BZMF ATTDISP # YES -- CONTINUE
ATRESET CS RCSFLAGS # NO -- SET ATRESET CS RCSFLAGS # NO -- SET
MASK BIT3 # INITIALIZATION SW MASK BIT3 # INITIALIZATION SW
ADS RCSFLAGS # FOR NEDLER ADS RCSFLAGS # FOR NEDLER
TC BANKCALL # AND GO TC BANKCALL # AND GO
CADR NEEDLER # DO IT CADR NEEDLER # DO IT
CAF REVCNT # OCT 6 CAF REVCNT # OCT 6
TC BANKCALL # DELAY JOB TC BANKCALL # DELAY JOB
CADR DELAYJOB # 60 MS --WAIT TILL IMUERRCNTR ZEROED CADR DELAYJOB # 60 MS --WAIT TILL IMUERRCNTR ZEROED
CCS SATSW # CHECK SW STATUS CCS SATSW # CHECK SW STATUS
TC TAKEON # POS STEER INIT. TC TAKEON # POS STEER INIT.
TC +1 # 0 RETURN TO DISPLAY TC +1 # 0 RETURN TO DISPLAY
CA BIT1 # NEG RETURN TO DISPLAY CA BIT1 # NEG RETURN TO DISPLAY
TS SATSW # SW = DISPLAY ON TS SATSW # SW = DISPLAY ON
CS BIT9 # DISABLE CS BIT9 # DISABLE
EXTEND # SIVB EXTEND # SIVB
WAND CHAN12 # TAKEOVER WAND CHAN12 # TAKEOVER
TC SATOUT # DISPLAY TC SATOUT # DISPLAY
TAKEON CAF BIT9 # ENABLE TAKEON CAF BIT9 # ENABLE
EXTEND # SIVB EXTEND # SIVB
WOR CHAN12 # TAKEOVER WOR CHAN12 # TAKEOVER
CA ZERO # INDICATE NEEDLER CA ZERO # INDICATE NEEDLER
TS SATSW # WAS INITIALIZED TS SATSW # WAS INITIALIZED
TC SATOUT TC SATOUT
S11.1 VLOAD ABVAL S11.1 VLOAD ABVAL
VN VN
STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
@ -764,10 +765,10 @@ NOPOLY TC INTPRET # COMES HERE IF
COEFPOLY ADRES POLYLOC COEFPOLY ADRES POLYLOC
V06N62 VN 0662 V06N62 VN 0662
RESCALES EXTEND # RESCALE AK S FOR RESCALES EXTEND # RESCALE AK S FOR
MP SATSCALE # NEW HARDWARE MP SATSCALE # NEW HARDWARE
DDOUBL # SCALING FOR DDOUBL # SCALING FOR
DDOUBL # STEERING DDOUBL # STEERING
TC Q # SATURN TC Q # SATURN
# SATURN TAKEOVER FUNCTION # SATURN TAKEOVER FUNCTION
# ************************ # ************************
@ -862,7 +863,7 @@ SATSTKON EXTEND
2REDOSAT 2CADR REDOSAT 2REDOSAT 2CADR REDOSAT
SBANK= LOWSUPER SBANK= LOWSUPER
BANK 32 BANK 32
SETLOC P11FOUR SETLOC P11FOUR
BANK BANK