From 4f3a1d4374d4708737683bed78a501a321b6042c Mon Sep 17 00:00:00 2001 From: James Harris Date: Wed, 28 Dec 2016 16:11:25 +0000 Subject: [PATCH] Trim whitespace --- Comanche055/AUTOMATIC_MANEUVERS.agc | 64 +- Comanche055/CM_BODY_ATTITUDE.agc | 76 +- Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc | 308 ++++---- Comanche055/CONIC_SUBROUTINES.agc | 118 ++-- Comanche055/CONTRACT_AND_APPROVALS.agc | 4 +- Comanche055/CSM_GEOMETRY.agc | 58 +- Comanche055/DISPLAY_INTERFACE_ROUTINES.agc | 22 +- Comanche055/DOWN-TELEMETRY_PROGRAM.agc | 14 +- Comanche055/ENTRY_LEXICON.agc | 20 +- Comanche055/ERASABLE_ASSIGNMENTS.agc | 326 ++++----- Comanche055/EXECUTIVE.agc | 8 +- Comanche055/EXTENDED_VERBS.agc | 340 ++++----- Comanche055/FIXED_FIXED_CONSTANT_POOL.agc | 16 +- Comanche055/FRESH_START_AND_RESTART.agc | 268 +++---- Comanche055/GIMBAL_LOCK_AVOIDANCE.agc | 44 +- .../GROUND_TRACKING_DETERMINATION_PROGRAM.agc | 22 +- Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc | 186 ++--- Comanche055/IMU_COMPENSATION_PACKAGE.agc | 112 +-- Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc | 16 +- Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc | 6 +- Comanche055/INTEGRATION_INITIALIZATION.agc | 26 +- Comanche055/INTER-BANK_COMMUNICATION.agc | 12 +- Comanche055/INTERPRETER.agc | 188 ++--- Comanche055/INTERPRETIVE_CONSTANTS.agc | 12 +- Comanche055/INTERRUPT_LEAD_INS.agc | 38 +- Comanche055/JET_SELECTION_LOGIC.agc | 144 ++-- Comanche055/KALCMANU_STEERING.agc | 58 +- Comanche055/KEYRUPT_UPRUPT.agc | 12 +- .../LATITUDE_LONGITUDE_SUBROUTINES.agc | 6 +- ...UNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc | 14 +- .../LUNAR_LANDMARK_SELECTION_FOR_CM.agc | 2 +- Comanche055/MAIN.agc | 30 +- Comanche055/MEASUREMENT_INCORPORATION.agc | 10 +- Comanche055/MYSUBS.agc | 14 +- Comanche055/ORBITAL_INTEGRATION.agc | 56 +- Comanche055/P11.agc | 142 ++-- Comanche055/P20-P25.agc | 198 +++--- Comanche055/P30-P37.agc | 92 +-- Comanche055/P32-P33_P72-P73.agc | 72 +- Comanche055/P34-35_P74-75.agc | 44 +- Comanche055/P37_P70.agc | 70 +- Comanche055/P40-P47.agc | 510 +++++++------- Comanche055/P51-P53.agc | 140 ++-- Comanche055/P61-P67.agc | 248 +++---- Comanche055/P76.agc | 22 +- Comanche055/PHASE_TABLE_MAINTENANCE.agc | 14 +- .../PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 414 +++++------ Comanche055/PINBALL_NOUN_TABLES.agc | 38 +- .../PLANETARY_INERTIAL_ORIENTATION.agc | 4 +- Comanche055/POWERED_FLIGHT_SUBROUTINES.agc | 20 +- Comanche055/R30.agc | 22 +- Comanche055/R31.agc | 16 +- Comanche055/R60_62.agc | 96 +-- .../RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc | 10 +- Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc | 148 ++-- Comanche055/REENTRY_CONTROL.agc | 334 ++++----- Comanche055/RESTARTS_ROUTINE.agc | 20 +- Comanche055/RT8_OP_CODES.agc | 36 +- Comanche055/S-BAND_ANTENNA_FOR_CM.agc | 6 +- Comanche055/SERVICER207.agc | 170 ++--- Comanche055/SERVICE_ROUTINES.agc | 36 +- Comanche055/SINGLE_PRECISION_SUBROUTINES.agc | 8 +- Comanche055/STABLE_ORBIT.agc | 24 +- Comanche055/STAR_TABLES.agc | 90 +-- Comanche055/SXTMARK.agc | 112 +-- Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc | 36 +- Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc | 78 +- Comanche055/TIME_OF_FREE_FALL.agc | 2 +- Comanche055/TPI_SEARCH.agc | 32 +- Comanche055/TVCDAPS.agc | 220 +++--- Comanche055/TVCEXECUTIVE.agc | 72 +- Comanche055/TVCINITIALIZE.agc | 60 +- Comanche055/TVCMASSPROP.agc | 36 +- Comanche055/TVCRESTARTS.agc | 52 +- Comanche055/TVCROLLDAP.agc | 78 +- Comanche055/TVCSTROKETEST.agc | 48 +- Comanche055/UPDATE_PROGRAM.agc | 28 +- Comanche055/WAITLIST.agc | 26 +- Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc | 2 +- Luminary099/AGS_INITIALIZATION.agc | 2 +- Luminary099/ALARM_AND_ABORT.agc | 4 +- Luminary099/AOSTASK_AND_AOSJOB.agc | 30 +- Luminary099/AOTMARK.agc | 146 ++-- Luminary099/ASCENT_GUIDANCE.agc | 8 +- .../ASSEMBLY_AND_OPERATION_INFORMATION.agc | 10 +- Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc | 78 +- ...URN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc | 24 +- Luminary099/CONIC_SUBROUTINES.agc | 8 +- Luminary099/CONTROLLED_CONSTANTS.agc | 144 ++-- Luminary099/DAPIDLER_PROGRAM.agc | 2 +- Luminary099/DAP_INTERFACE_SUBROUTINES.agc | 2 +- Luminary099/DISPLAY_INTERFACE_ROUTINES.agc | 6 +- Luminary099/DOWN_TELEMETRY_PROGRAM.agc | 18 +- Luminary099/ERASABLE_ASSIGNMENTS.agc | 28 +- Luminary099/EXECUTIVE.agc | 6 +- Luminary099/EXTENDED_VERBS.agc | 372 +++++----- Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc | 2 +- Luminary099/FIXED_FIXED_CONSTANT_POOL.agc | 18 +- Luminary099/FLAGWORD_ASSIGNMENTS.agc | 180 ++--- Luminary099/FRESH_START_AND_RESTART.agc | 232 +++--- Luminary099/GIMBAL_LOCK_AVOIDANCE.agc | 22 +- .../GROUND_TRACKING_DETERMINATION_PROGRAM.agc | 10 +- Luminary099/HeaderTemplate.agc | 6 +- Luminary099/IMU_COMPENSATION_PACKAGE.agc | 124 ++-- Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc | 12 +- Luminary099/IMU_PERFORMANCE_TESTS_4.agc | 50 +- Luminary099/IMU_PERFORMANCE_TEST_2.agc | 46 +- Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc | 6 +- .../INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc | 2 +- Luminary099/INTEGRATION_INITIALIZATION.agc | 8 +- Luminary099/INTER-BANK_COMMUNICATION.agc | 8 +- Luminary099/INTERPRETER.agc | 206 +++--- Luminary099/INTERPRETIVE_CONSTANT.agc | 12 +- Luminary099/INTERRUPT_LEAD_INS.agc | 28 +- Luminary099/KALCMANU_STEERING.agc | 46 +- Luminary099/KALMAN_FILTER.agc | 8 +- Luminary099/KEYRUPT_UPRUPT.agc | 6 +- Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc | 10 +- Luminary099/LANDING_ANALOG_DISPLAYS.agc | 6 +- Luminary099/LEM_GEOMETRY.agc | 32 +- ...UNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc | 2 +- .../LUNAR_LANDING_GUIDANCE_EQUATIONS.agc | 58 +- Luminary099/MAIN.agc | 28 +- Luminary099/ORBITAL_INTEGRATION.agc | 22 +- Luminary099/P-AXIS_RCS_AUTOPILOT.agc | 14 +- Luminary099/P12.agc | 18 +- Luminary099/P20-P25.agc | 666 +++++++++--------- Luminary099/P30_P37.agc | 26 +- Luminary099/P32-P35_P72-P75.agc | 2 +- Luminary099/P34-35_P74-75.agc | 12 +- Luminary099/P40-P47.agc | 72 +- Luminary099/P51-P53.agc | 4 +- Luminary099/P70-P71.agc | 30 +- Luminary099/P76.agc | 6 +- Luminary099/PHASE_TABLE_MAINTENANCE.agc | 8 +- .../PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 376 +++++----- Luminary099/PINBALL_NOUN_TABLES.agc | 66 +- Luminary099/POWERED_FLIGHT_SUBROUTINES.agc | 10 +- Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc | 12 +- Luminary099/R30.agc | 6 +- Luminary099/R31.agc | 6 +- Luminary099/R60_62.agc | 104 +-- Luminary099/R63.agc | 12 +- Luminary099/RADAR_LEADIN_ROUTINES.agc | 36 +- Luminary099/RCS_FAILURE_MONITOR.agc | 42 +- Luminary099/RESTARTS_ROUTINE.agc | 2 +- Luminary099/RESTART_TABLES.agc | 42 +- Luminary099/RTB_OP_CODES.agc | 2 +- Luminary099/S-BAND_ANTENNA_FOR_LM.agc | 14 +- Luminary099/SERVICER.agc | 10 +- Luminary099/SERVICE_ROUTINES.agc | 2 +- Luminary099/SINGLE_PRECISION_SUBROUTINES.agc | 8 +- Luminary099/SPS_BACK-UP_RCS_CONTROL.agc | 6 +- Luminary099/STABLE_ORBIT.agc | 26 +- Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc | 24 +- Luminary099/T4RUPT_PROGRAM.agc | 258 +++---- Luminary099/T6-RUPT_PROGRAMS.agc | 2 +- Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc | 66 +- Luminary099/THE_LUNAR_LANDING.agc | 8 +- Luminary099/THROTTLE_CONTROL_ROUTINES.agc | 2 +- Luminary099/TIME_OF_FREE_FALL.agc | 18 +- Luminary099/TJET_LAW.agc | 12 +- Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc | 10 +- Luminary099/UPDATE_PROGRAM.agc | 6 +- Luminary099/WAITLIST.agc | 12 +- README.md | 2 +- 166 files changed, 5357 insertions(+), 5357 deletions(-) diff --git a/Comanche055/AUTOMATIC_MANEUVERS.agc b/Comanche055/AUTOMATIC_MANEUVERS.agc index 177f86c..e754f94 100644 --- a/Comanche055/AUTOMATIC_MANEUVERS.agc +++ b/Comanche055/AUTOMATIC_MANEUVERS.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -31,9 +31,9 @@ BANK 21 SETLOC DAPS3 BANK - + COUNT 21/DAPAM - + EBANK= KMPAC AHFNOROT EXTEND READ CHAN31 @@ -50,12 +50,12 @@ AHFNOROT EXTEND MASK BIT13 EXTEND BZMF HOLDFUNC - + AUTOCONT CA HOLDFLAG # IF HOLDFLAG IS +, GO TO GRABANG. EXTEND # OTHERWISE, GO TO ATTHOLD. BZMF ATTHOLD TCF GRABANG - + # MINIMUM IMPULSE CONTROL FREECONT CAF ONE @@ -80,12 +80,12 @@ FREECONT CAF ONE # Page 1026 TS TAU2 TCF T6PROGM - + MINTAU DEC 0 DEC 23 # = 14MS DEC -23 # = -14MS DEC 0 - + # Page 1027 # CALCULATION OF ATTITUDE ERRORS: # _ * _ _ _ @@ -143,7 +143,7 @@ ATTHOLD CA CDUX CA BIAS2 ADS ERRORZ TCF JETS - + HOLDFUNC CCS HOLDFLAG TCF +3 TCF ATTHOLD @@ -158,7 +158,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES TS BIAS TS BIAS1 TS BIAS2 - + CA RCSFLAGS MASK OCT16000 EXTEND # IS RATE DAMPING COMPLETED @@ -168,7 +168,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES TS ERRORY TS ERRORZ TCF JETS - + ENDDAMP TS HOLDFLAG # SET HOLDFLAG +0 EXTEND DCA CDUX # PICK UP CDU ANGLES FOR ATTITUDE HOLD @@ -250,7 +250,7 @@ JLOOP TS SPNDX INHOLD INDEX SPNDX CA ERRORX TS AERR # AERR = BIAS + AK - + CCS EDOT TCF POSVEL TCF SIGNCK1 @@ -275,14 +275,14 @@ NEGVEL EXTEND TS ADBVEL # -(ADB+AF) CS AERR TS AERRVEL - + J6. EXTEND # Page 1031 SU ADB AD WLH/SLOP EXTEND BZMF J8 - + CS T5TEMP # (ADB+AF) AD AERRVEL EXTEND @@ -298,7 +298,7 @@ J6. EXTEND EXTEND BZMF J18 TCF J23 - + J7 CS WL-H/SLP EXTEND SU T5TEMP # (ADB+AF) @@ -306,7 +306,7 @@ J7 CS WL-H/SLP EXTEND BZMF J20 TCF J21 - + J8 EXTEND DCS WLH DXCH WTEMP @@ -321,7 +321,7 @@ SIGNCK2 CCS WTEMP +1 TCF J22 TCF J22 TCF NJ22 - + NJ22 EXTEND DCA EDOTVEL EXTEND @@ -334,7 +334,7 @@ NJ22 EXTEND TCF J23 TCF +2 TCF J23 - + EXTEND DCS WLMH # WL - H DXCH WTEMP @@ -349,7 +349,7 @@ SIGNCK3 CCS WTEMP +1 TCF J23 TCF J23 TCF NJ23 - + NJ23 CA AERRVEL AD T5TEMP # (ADB+AF) AD WL-H/SLP @@ -358,12 +358,12 @@ NJ23 CA AERRVEL TCF J24 TCF J22 TCF J22 - + J18 EXTEND DCS EDOT DXCH KMPAC TCF JTIME - + J20 CS AERR AD ADBVEL EXTEND @@ -373,7 +373,7 @@ J20 CS AERR DCS EDOT DAS KMPAC TCF JTIME - + J21 CCS EDOT TCF JP TCF SIGNCK4 @@ -390,7 +390,7 @@ JN EXTEND DCA WL DAS KMPAC TCF JTIME - + JP EXTEND DCS EDOT DXCH KMPAC @@ -398,7 +398,7 @@ JP EXTEND DCS WL DAS KMPAC TCF JTIME - + J22 CCS EDOT TCF JN TCF SIGNCK5 @@ -408,21 +408,21 @@ SIGNCK5 CCS EDOT +1 TCF JN TCF JP TCF JP - + J23 INDEX SPNDX CS BIT13 # RESET RATE DAMPING FLAG MASK RCSFLAGS # BIT13 FOR ROLL (SPNDX = 0) TS RCSFLAGS # BIT12 FOR PITCH (SPNDX = 1) # BIT11 FOR YAW (SPNDX = 2) - + INDEX SPNDX CAF OCT01400 # IS THERE TO BE A FORCED FIRING ON THIS MASK RCSFLAGS # AXIS EXTEND BZF DOJET +2 # NO, GO TO DOJET +2 AND DO NOTHING - + TCF J18 # YES, GO TO J18 AND FORCE A FIRING - + J24 CS AERR EXTEND SU ADBVEL @@ -433,7 +433,7 @@ J24 CS AERR # Page 1034 DCS EDOT DAS KMPAC - + # Page 1035 # COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, I.E., # @@ -476,14 +476,14 @@ JTIME INDEX SPNDX # PICK UP S/C INERTIA/TORQUE RATIO TCF DOJET CA NEGMAX TCF DOJET - + TAUNORM CA KMPAC +1 DOJET INDEX SPNDX TS TAU CCS SPNDX TCF JLOOP TCF T6PROG - + # Page 1036 ZEROCMDS CAF ZERO TS TAU @@ -493,7 +493,7 @@ T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS) DCA JETADDR # HAVE BEEN DETERMINED DXCH T5LOC # RESET T5LOC FOR PHASE3 TCF RESUME - + EBANK= KMPAC JETADDR 2CADR JETSLECT diff --git a/Comanche055/CM_BODY_ATTITUDE.agc b/Comanche055/CM_BODY_ATTITUDE.agc index 9761c84..f47bb5c 100644 --- a/Comanche055/CM_BODY_ATTITUDE.agc +++ b/Comanche055/CM_BODY_ATTITUDE.agc @@ -10,11 +10,11 @@ # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # name and Comanche 055 page images. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -30,18 +30,18 @@ # Page 883 BANK 35 - + SETLOC BODYATT BANK - + COUNT 37/CMBAT - + # PDL 12D - 15D SAFE. # VALUE OF GIMBAL AND BODY ANGLES VALID AT PIP TIME ARE SAVED DURING READACCS. EBANK= RTINIT # LET INTERPRETER SET EB - + CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT. SETPD VLOAD @@ -55,11 +55,11 @@ CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT. KWE VAD STADR STORE -VREL # SAVE FOR ENTRY GUIDANCE. REF COORDS - + UNIT LXA,1 36D # ABVAL( -VREL) TO X1 STORE UXA/2 # -UVREL REF COORDS - + VXV VCOMP UNITR # .5 UNIT REF COORDS UNIT SSP # THE FOLLOWING IS TO PROVIDE A STABLE @@ -71,7 +71,7 @@ SPVQUIT DEC .019405 # 1000/ 2 VS CM/POSE2 STORE UYA/2 # REF COORDS STORE OLDUYA # RESTORE, OR SAVE AS CASE MAY BE. - + VXV VCOMP UXA/2 # FINISH OBTAINING TRAJECTORY TRIAD. VSL1 @@ -81,7 +81,7 @@ CM/POSE2 STORE UYA/2 # REF COORDS AOG/PIP # TO PIPUP TIME IN 2'S C AND SAVE. CM/TRIO STODL 24D 25D # AIG/PIP - + RTB PUSH # TO PDL0 CDULOGIC COS @@ -91,7 +91,7 @@ CM/TRIO STODL 24D STODL UBX/2 +4 # -SI /2 26D # AMG/PIP RTB PUSH # TO PDL 0 - CDULOGIC + CDULOGIC SIN PDDL # XCH PDL 0. SAVE SM /2 COS PDDL # CM /2 TO PDL 2 0 # SM /2 @@ -119,9 +119,9 @@ CM/TRIO STODL 24D UBX/2 # CI /2 UBY/2 +4 STOVL UBY/2 +4 # YB/4 PLATFORM COORDS - + # YB = (-COSMCI + SOSI , COCM , COSMSI + SOCI ) - + UBY/2 VXM VSL2 REFSMMAT # .5 UNIT @@ -134,20 +134,20 @@ CM/TRIO STODL 24D STADR # SM /2 FROM PDL 0 STOVL UBX/2 +2 # SM /2 REPLACES NOISE UBX/2 # XB/2 PLATFORM COORDS - + # XB = ( CMCI , SM , -CMSI ) - + VXM VSL1 REFSMMAT # .5 UNIT STORE UBX/2 # XB/2 DONE REF COORDS - + VXV VSL1 UBY/2 STOVL UBZ/2 # ZB/2 DONE REF COORDS - + # EQUIVALENT TO # ZB = ( SOSMCI + COSI , -SOCM , -SOSMSI + COCI ) - + UXA/2 # -UVREL/2 = -UVA/2 VXV UNIT # GET UNIT(-UVREL*UBY)/2 = UL/2 UBY/2 # YB/2 @@ -155,7 +155,7 @@ CM/TRIO STODL 24D UZA/2 # UNA/2 STOVL COSTH # COS(ROLL)/4 0 # UL/2 - + DOT UYA/2 STCALL SINTH # -SIN(ROLL)/4 @@ -181,7 +181,7 @@ CM/TRIO STODL 24D UZA/2 # MORE ACCURATE AT LARGE ARG. ARCCOS STORE 10D # (-GAMA/180)/2 - + TLOAD EXIT # ANGLES IN MPAC IN THE ORDER # -( (ROLL, BETA, ALFA) /180)/2 6D # THESE VALUES CORRECT AT PIPUP TIME. @@ -190,19 +190,19 @@ CM/TRIO STODL 24D # BASIC SUBROUTINE TO UPDATE ATTITUDE ANGLES EBANK= AOG - + CM/ATUP CA EBAOG TS EBANK CMTR1 INDEX FIXLOC CS 10D # (GAMA/180)/2 XCH GAMA TS L - + INHINT # MUST REMAIN INHINTED UNTIL UPDATE OF BODY # ANGLES, SO THAT GAMDIFSW IS VALID FIRST PASS # INDICATOR. - + CS CM/FLAGS MASK BIT11 # GAMDIFSW=94D BIT11 INITLY=0 EXTEND # DON'T CALC GAMA DOT UNTIL HAVE FORMD @@ -210,20 +210,20 @@ CMTR1 INDEX FIXLOC BZF DOGAMDOT # IS OK, GO ON. ADS CM/FLAGS # KNOW BIT IS 0 TC NOGAMDOT # SET GAMDOT = 0 - + DOGAMDOT CS L AD GAMA # DEL GAMA/360= T GAMDOT/360 EXTEND MP TCDU # TCDU = .1 SEC, T = 2 SEC. TS GAMDOT # GAMA DOT TCDU / 180 - + EXTEND # IGNORE GAMDOT IF LEQ .5 DEG/SEC BZMF +2 COM AD FIVE EXTEND BZMF +3 # SET GAMDOT=+0 AS TAG IF TOO SMALL. - + NOGAMDOT CA ZERO # COME HERE INHINTED TS GAMDOT # FOR NOW LEAVE IN 2'S C @@ -239,7 +239,7 @@ NOGAMDOT CA ZERO # COME HERE INHINTED TC CORANGOV # CORRECT FOR OVFL IF ANY # Page 888 TS TEMPROLL - + CS MPAC +2 # GET (ALFA EUL/180) /2 DOUBLE # SAME AS FOR ROLL. NEEDED FOR EXT ATM DAP TC CORANGOV # CORRECT FOR OVFL IF ANY @@ -248,43 +248,43 @@ NOGAMDOT CA ZERO # COME HERE INHINTED AD ALFA/180 TC CORANGOV # CORRECT FOR OVFL IF ANY TS TEMPALFA - + CS MPAC +1 # GET (BETA EUL/180) /2 CMTR2 DOUBLE EXTEND SU BETA/PIP AD BETA/180 XCH TEMPBETA # OVFL NOT EXPECTED. - + CA EBANK3 TS EBANK - + EBANK= PHSNAME5 EXTEND DCA REPOSADR # THIS ASSUMES THAT THE TC PHASCHNG DXCH PHSNAME5 # IS NOT CHANGED IN OCT 10035 # SERVICER. - + CA EBAOG TS EBANK - + EBANK= AOG REDOPOSE EXTEND # RE-STARTS COME HERE DCA TEMPROLL DXCH ROLL/180 CA TEMPBETA TS BETA/180 - + RELINT - + TC INTPRET # CAN'T TC DANZIG AFTER PHASCHNG. CM/POSE3 VLOAD ABVAL # RETURN FROM CM/ATUP. (RESTART) VN # 2(-7) M/CS STORE VMAGI # FOR DISPLAY ON CALL. - + GOTO POSEXIT # ENDEXIT, STARTENT, OR SCALEPOP. - + CORANGOV TS L TC Q INDEX A @@ -292,7 +292,7 @@ CORANGOV TS L CA LIMITS ADS L TC Q # COSTS 2 MCT TO USE. SEE ANGOVCOR. - + -KVSCALE 2DEC -.81491944 # -12800/(2 VS .3048) TCDU DEC .1 # TCDU = .1 SEC. diff --git a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc index 6efa3bc..06fb01d 100644 --- a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc +++ b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc @@ -9,8 +9,8 @@ # Pages: 1063-1092 # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. -# 2009-05-20 RSB Corrections: Removed an extraneous label -# EXDAPIN, added a missing instruction in +# 2009-05-20 RSB Corrections: Removed an extraneous label +# EXDAPIN, added a missing instruction in # COMPAT. # # This source code has been transcribed or otherwise adapted from digitized @@ -19,13 +19,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -38,43 +38,43 @@ # CM/DSTBY = 0 TO TERMINATE DAP OPERATION BANK 15 - + SETLOC ETRYDAP BANK - + COUNT 15/DAPEN - + EBANK= AOG - + READGYMB CA TEN # KEEP RESTART DT GOING RELATIVE TO ADS CM/GYMDT # PIPTIME. (GROUP 6) - + # IF A RESTART OCCURS, SKIP PRESENT CYCLE. THE # PHASCHNG PROTECTION IS IN CM/DAPIC. - + CA BIT6 # CHECK FOR FINE ALIGN MODE OF CDU. MASK IMODES33 # (PROTECT AOG/PIP ETC AS WELL AS EXTEND # GIMBAL DIFFERENCES) BZF READGYM1 # OK - + CS BIT1 # NOT IN FINE ALIGN, SO IDLE MASK CM/FLAGS # SET GYMDIFSW = 0 TS CM/FLAGS TC FLUSHJET # QUENCH JETS, SINCE MAY BE A WHILE. TC CM/GYMIC +2 - + READGYM1 CA CDUX XCH AOG EXTEND MSU AOG # -DELAOG=AOG(N-1) - AOG(N) TS -DELAOG - + CA CDUY XCH AIG EXTEND MSU AIG TS -DELAIG - + CA CDUZ XCH AMG EXTEND @@ -90,12 +90,12 @@ DOBRATE? CS CM/FLAGS # CM/DSTBY=103D BIT2 GYMDIFSW=104D BIT1 TC CM/GYMIC # DON'T CALC BODYRATE ON FIRST PASS. NOOP TC FLUSHJET # TURN OFF ALL JETS - + TC PHASCHNG OCT 00006 # DEACTIVATE DAP GROUP 6. - + TC TASKOVER - + DOBRATE CA ONE # DO BODYRATE DOBRATE1 TS JETEM # SKIP BODYRATE @@ -103,13 +103,13 @@ DOBRATE1 TS JETEM # SKIP BODYRATE TC WAITLIST EBANK= AOG 2CADR READGYMB - + # DOES NOT PROTECT TEMK, SQ IN SPSIN/COS - + CCS JETEM TC BODYRATE TC TASKOVER # SKIP CALC ON INITIAL PASS. (PASSES) - + CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0 CAF ZERO TS JETAG @@ -118,7 +118,7 @@ CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0 TS OLDELR TS GAMDOT # NO GYM DIF, PROB NO GAM DIF. TC DOBRATE1 - + # Page 1065 # COME HERE TO CORRECT FOR OVERFLOW IN ANGULAR CALCULATIONS @@ -128,45 +128,45 @@ ANGOVCOR TS L # THIS COSTS 2 MCT TO USE. CAF LIMITS ADS L TC Q - + BLOCK 3 - + COUNT 03/DAPEN - + FLUSHJET CA 7 # COME HERE TO TURN OFF ALL JETS. EXTEND WRITE ROLLJETS # ZERO CHANNEL 6 EXTEND WRITE PYJETS # ZERO CHANNEL 5 TC Q - + BANK 15 - + COUNT 15/DAPEN - + SETLOC ETRYDAP BANK - + RATEAVG COM # SUBROUTINE TO ESTIMATE RATES IN PRESENCE AD JETEM # OF CONSTANT ACCELERATION. EXTEND MP HALF # DELV (EST) = DELV +(DELV-OLDELV)/2 AD JETEM TC Q - + # Page 1066 # THESE ARE CALLED FOR THE VARIOUS INITIALIZATIONS NEEDED. BANK 20 SETLOC DAPS1 BANK - + COUNT 20/DAPEN EBANK= AOG - + CM/DAPON CA EBAOG TS EBANK - + TC DOWNFLAG # RESET DAPBIT1. T5 RESTART IDENTIFIER. ADRES DAPBIT1 # BIT 15 FLAG 6 CMFLAGS. TC DOWNFLAG # RESET DAPBIT2 @@ -177,14 +177,14 @@ CM/DAPON CA EBAOG EXTEND DCA T5IDLER1 # DISABLE RCS JET CALLS DXCH T6LOC - + TC FLUSHJET # JETS DEPARTED ON SM. ZERO JET BITS. - + CS 13,14,15 MASK DAPDATR1 # SET CONFIG BITS=0 FOR ENTRY TS DAPDATR1 TC +4 - + NOTYET CA .5SEC TC BANKCALL CADR DELAYJOB # (DELAYJOB DOES INHINT) @@ -192,15 +192,15 @@ NOTYET CA .5SEC MASK CM/FLAGS # IF ZERO, WAIT UNTIL CM/POSE UPDATE. EXTEND BZF NOTYET - + CS ONE # ACTIVATE CM/DAP TS RCSFLAGS # USE BIT3 TO INITIALIZE NEEDLER ON # NEXT PASS. TS P63FLAG # SO WAKEP62 WILL NOT BE INITIATED UNTIL # HEADSUP IS SET IN P62. - + # FLAG TO PREVENT MULTIPLE CALLS TO WAKEP62 - + CA 7 TS JETAG TS PAXERR1 # KEEP NEEDLES ZERO UNTIL DAP UPDATE @@ -215,20 +215,20 @@ NOTYET CA .5SEC EXTEND MP HALF TS ROLLC # NOT INTERESTED IN LO WORD. - + CS CM/FLAGS MASK BIT12 # CMDAPARM =93D BIT12 INITLY=0 ADS CM/FLAGS # SET BIT TO 1. - + CS FLAGWRD2 # SET NODOFLAG TO PREVENT FURTHER MASK BIT1 # V 37 ENTRIES. ADS FLAGWRD2 - + RELINT - + TC POSTJUMP CADR P62.1 - + # Page 1068 # INITIALIZE CM/DAP. WAITLIST CALL FOR READGYMB. SET SWITCH CM/DSTBY =1 # SO READACCS WILL ENTER A WTLST CALL FOR SETJTAG . @@ -237,17 +237,17 @@ NOTYET CA .5SEC CM/DAPIC CA EBAOG TS EBANK - + INHINT CM/DAP2C CS PIPTIME +1 # PRIO OF P62 L PRIO AVG.:PIPTM=PIPTM1. TS JETEM - + CA POS1/2 AD POS1/2 AD TIME1 # OVFL GUARANTEED ADS JETEM # C(A) = DELTA TIME SINCE PIPUP - + CS FIVE AD JETEM CCS A @@ -259,28 +259,28 @@ CM/DAP2C CS PIPTIME +1 TC WAITLIST EBANK= AOG 2CADR READGYMB - + CS CM/SWIC1 # GAMDIFSW, GYMDIFSW, CM/DSTBY MASK CM/FLAGS # DAPARM, .05GSW, LATSW, ENTRYDSP AD CM/SWIC2 # SET CM/DSTBY, LATSW # DISABLE ENTRY DISPLAY, SINCE DES. GIMB. # CALC. (P62.3) GOES TO ENDEXIT TS CM/FLAGS - + CA 7 TS BETA/180 # NECESSARY: NO OVFL CORRECTIO CA ONE # INITIALIZE THE TM OF BODY RATES VIA TS SW/NDX # UPBUFF. - + TC 2PHSCHNG # DOES INHINT/RELINT OCT 40116 # SAVE TBASE6 OCT 05024 OCT 13000 - + TC POSTJUMP # Page 1069 CADR P62.2 - + CM/SWIC1 OCT 16017 CM/SWIC2 = TEN # 00012: CM/DSTBY, LATSW -CDUT+1 OCT 77766 @@ -301,29 +301,29 @@ T5IDLER1 2CADR T5IDLOC BANK 15 SETLOC ETRYDAP BANK - + COUNT 15/DAPEN - + BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. TC SPCOS TS COSM - + CA AOG # C(AOG) = AOG/180 TC SPSIN # SINO TS SINO # SINO = SIN(AOG) - + EXTEND MP COSM TS SINOCOSM # SO CM - + CA AOG TC SPCOS # COSO TS COSO - + EXTEND MP COSM TS COSOCOSM # CO CM - + # PITCHDOT: Q TCDU/180 = IDOT TCDU/180 COSO COSM + MDOT TCDU/180 SINO CS -DELAMG @@ -338,7 +338,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. XCH OLDELQ TC RATEAVG TS QREL # PITCHDOT = Q TCDU/180 - + # Page 1071 # YAWDOT: R TCDU/180 = -IDOT TCDU/180 COSM SINO + MDOT TCDU/180 COSO @@ -354,13 +354,13 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. XCH OLDELR TC RATEAVG TS RREL # YAWDOT = R TCDU/180 - + # ROLLDOT: P TCDU/180 = ODOT TCDU/180 + IDOT TCDU/180 SINM CA AMG TC SPSIN TS SINM - + EXTEND MP -DELAIG TS JETEM @@ -373,9 +373,9 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. XCH OLDELP TC RATEAVG TS PREL # ROLLDOT = P TCDU/180 - + # IF GAMDOT < 0.5 DEG/SEC, THEN GAMDOT =0 - + CCS GAMDOT TC +2 TC NOGAMDUT @@ -387,7 +387,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. EXTEND MP SINTRIM # SIN(-20) (FOR NOMINAL L/D = .3) ADS PREL # PREL TCDU/180=(P-SALF SR GAMDOT)TCDU/180 - + CA ROLL/180 TC SPCOS # Page 1072 @@ -395,12 +395,12 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY. EXTEND MP GAMDOT ADS QREL # QREL TCDU/180=(Q-CR GAMDOT) TCDU/180 - + CS JETEM +1 # B( ) = -SR GAMDOT EXTEND MP COSTRIM # COS(-20) (FOR NOMINAL L/D = .3) ADS RREL # RREL TCDU/180=(R+CALF SR GAMDOT)TCDU/180 - + NOGAMDUT CA BIT12 # CMDAPARM = 93D BIT 12 MASK CM/FLAGS EXTEND @@ -408,14 +408,14 @@ STBYDUMP BZF TASKOVER # DAP NOT ARMED. CA POSMAX # PICK UP AT ATTRATES IN 10 MS OR SO. TS TIME5 - + EXTEND DCA ATDOTCAD DXCH T5LOC # DOES NOT PROTECT TEMK, SQ IN SPSIN/COS - + TC TASKOVER - + EBANK= AOG ATDOTCAD 2CADR ATTRATES @@ -433,7 +433,7 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 DOUBLE TS CM/SAVE # DOES NOT PROTECT TEMK, SQ IN SPSIN/COS - + CA QREL AD ALFA/180 TC ANGOVCOR @@ -441,28 +441,28 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 TC SPCOS TS CALFA # CALFA TS PHIDOT - + EXTEND MP PREL XCH PHIDOT # CA PREL EXTEND MP RREL # CA RREL TS BETADOT - + CA ALFA/180 TC SPSIN TS SALFA # SIN(ALFA) - + EXTEND MP RREL # SA RREL ADS PHIDOT # CB PHIDOT, SAVED. - + CS SALFA EXTEND MP PREL ADS BETADOT # SAVE BETADOT TCDU/180 ADS BETA/180 # BETA DONE. - + TC SPSIN EXTEND MP PHIDOT # NEGLECT CB IN CB PHIDOT @@ -475,13 +475,13 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 TC ANGOVCOR # JUST IN CASE ... TS AK1 TS QAXERR # FOR PITCH FDAI AND EDIT. - + CA PHIDOT # PHIDOT TCDU/180, NEGLECTING CB AD ROLL/180 TC ANGOVCOR TS ROLLTM # ROLL/180 FOR TM. TS ROLL/180 # ROLL DONE. - + # START YAW AUTOPILOT HERE. RATE DAMPING WITH ENFORCED COORDINATED ROLL MANEUVER. CS BETA/180 # IF IN ATM, SAVE 'RAXERR' FOR TM DNLST. @@ -490,17 +490,17 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 # AS A TEMPORARY. (DAP OPERATION IS IN INTERRUPT, SO # IS OK.) FINAL C(RAXERR) AT END OF DAP CYCLE WILL # BE R-AXIS ERROR. - + CA BIT3 # .05GSW = 102D BIT3 SW=0, LESS .05G MASK CM/FLAGS # SWITCH =1, GREATER THAN .05 G EXTEND BZF EXDAP # IF G LESS THAN .05 CS ONE # IF G GEQ THAN .05 TS CMDAPMOD # SAVE -1 FOR USE IN CM/RCS - + TS AK1 # TO ZERO PITCH AND YAW FDAI NEEDLES TS AK2 # IN ATM. (MODE =-1) - + CS PREL # YAW ERROR = RREL - PREL TAN(ALFA) EXTEND MP SINTRIM # LET SIN(-20) BE APPROX FOR TAN(-20) @@ -508,9 +508,9 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 TC 2D/SDZ # GO TEST DZ. GET TAG: +0 IF IN DZ INDEX A # +/- 1 IF NOT CAF YJETCODE - + TS JETEM - + # START PITCH AUTOPILOT HERE. RATE DAMPING ONLY. CA QREL @@ -518,11 +518,11 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5 EXDAPIN INDEX A # COME HERE FROM EX ATM DAP CAF P/RJCODE ADS JETEM # COMBINE ALL NEW BITS. - + EXTEND # DOES NOT REQUIRE SAVING OLD CODES. -# Page 1075 +# Page 1075 WRITE PYJETS # SET PYCHAN TO DESIRED BIT CONFIG. - + CCS JETAG TC CM/RCS TC CM/FDAI @@ -536,7 +536,7 @@ EXDAPIN INDEX A # COME HERE FROM EX ATM DAP TCF DZCOM AD YAWLIM TCF DZNOCOM - + # BIASED DZ FOR EXT ATM DAP. BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L. CCS A # START ERROR DZ. @@ -555,7 +555,7 @@ BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L. TCF +2 # RATE OK. CONTINUE ZL # RATE GEQ 4 D/S. OVER RIDE ERROR BIT XCH JETEM2 # AND CONTINUE TO GET SIGN. - + 2D/SDZ CCS A # COME HERE TO TEST IF A WITHIN 2DEG/S DZ AD YDOTLIM # 1.0 - YDOT DZ (OR PDOT) TCF +3 @@ -564,7 +564,7 @@ DZCOM COM DZNOCOM TS JETEM +1 # GENERATE TAG, SET C(A)= -+1 OUTSIDE DZ CA ZERO # SET C(A) = +0 INSIDE TC Q - + # Page 1077 # EXTRA ATMOSPHERIC DIGITAL AUTOPILOT # @@ -598,7 +598,7 @@ EXDAP TS CMDAPMOD # +0 FOR NOW AD C45LIM TS A TCF EXDAP2 # HERE IF ABS(CALFA) L COS(45) - + CCS CALFA # |CALFA| > 0.707 TCF +1 # CONTINUE IF POS; GO TO EXDAP4 IF NEG. @@ -614,10 +614,10 @@ EXDAP TS CMDAPMOD # +0 FOR NOW TC WAITLIST EBANK= AOG 2CADR WAKEP62 # CALL TO TERMINATE P62 IN N SEC. -# Page 1078 +# Page 1078 # 65 DEG/ 3DEG/SEC = 21 SEC NOMINAL # TRANSIT TIME FROM ALFA=45 TO ALFA TRIM. - + EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC TCF EXDAP3 # DAP AND THE 2 SEC CM/RCS DAP TCF EXDAP3 @@ -625,7 +625,7 @@ EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC EXTEND # TURN OFF ROLL JETS IF ON AND WAIT WRITE ROLLJETS # UNTIL START OF 2 SEC CM/RCS CYCLE TS JETAG # RESTORE PROPER VALUE +0 - + # ROLL FDAI WILL BE IN ERROR UNTIL NEXT CM/RCS CALL. EXDAP3 CCS CALFA # HERE IF ABS(CALFA) GEQ COS(45) CA RAXERR # C()= BETACOM - BETA/180 @@ -648,7 +648,7 @@ EXDAP1 TS RAXERR # FOR YAW FDAI INDEX A CAF YJETCODE TS JETEM - + CA QAXERR # ALFA ERROR. TS L CA QREL # FOR ALPHADOT USE QREL @@ -656,18 +656,18 @@ EXDAP1 TS RAXERR # FOR YAW FDAI EXTEND ROR LCHAN TCF EXDAPIN # CONTINUE ON IN DAP - + EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1 CS ONE # INDICATE CHANGE FROM .1 SEC UPDATE TO TS JETAG # TO 2 SEC FOR ROLL JETS. (IF CMDAPMOD # =0 AND JETAG =-1, QUENCHES JETS IF ON) - + CCS P63FLAG # IF FLAG WAS +1, SET =0. TS P63FLAG -# Page 1079 +# Page 1079 NOOP - + CCS SALFA # BETA CONTROL WITH P JETS CS RAXERR # B()= BETACOM - BETA/180 TCF +2 @@ -688,7 +688,7 @@ EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1 CAF P/RJCODE # GET ROLL CODE EXTEND # ROLL CONTROL WITH YAW JETS. WRITE ROLLJETS # WE'LL SKIP REGULAR ROLL SYST - + CA ROLLHOLD # ROLL/180 AT CM/DAPON TIME. EXTEND MSU ROLL/180 # 1'S COMPL, BUT SO WHAT'S A BIT? @@ -698,13 +698,13 @@ EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1 TC EXDAP1 CS L TC EXDAP1 - + NSEC DEC 2100 # 65 DEG/ 3 DEG/SEC # IF NSEC IS CHANGED, REMEMBER TO CHANGE 4.33SPOT. 4D/SLIM DEC 16348 # 1.0 -4/180 D/S = 4/1800 EXP 14 YDOTLIM DEC 16366 # =1.0 - YDOT DZ= 16384 -18 # YDOT DZ = YDOT TCDU/180 = 2/1800 EXP 14 - + CM/BIAS DEC 55 # =.6/180 B14 = 55 YAWLIM DEC 16055 # YAWLIM=1.0-3.6/180=16384-329=16055 C45LIM DEC .29289 # =1.0-COS(45) @@ -723,9 +723,9 @@ COSTRIM DEC .93969 # COS(-20) (FOR NOMINAL L/D = .3) YJETCODE OCTAL 00000 # RCS JET BITS OCTAL 00240 # NEG Y OCTAL 00005 # POS R JET BITS ALSO POS P JET BITS -P/RJCODE OCTAL 00000 +P/RJCODE OCTAL 00000 OCTAL 00012 # NEG R ALSO NEG P - + # Page 1081 # RCS THIS SECTION IS ENTERED EACH 2 SEC BY WAITLIST CALL FOLLOWING A DELAY OF 1.2 SEC AFTER PIPUP. # THE TASK SETJTAG SETS A FLAG IN JETAG TO SIGNIFY THAT ROLL UPDATE IS DUE. IN ROUGHLY 5 CS BPDYRATE WILL BE @@ -740,9 +740,9 @@ SETJTAG CS TIME1 # SAVE NOMINAL UPDATE TIME FOR SYNCH TS JETAG # SET JETAG=1 TO CAUSE CM/RCS TO BE TC PHASCHNG OCT 00001 - + TC TASKOVER # EXECUTED AFTER NEXT BODYRATE UPDATE - + # PREDICTIVE ROLL SYSTEM ENTRY STEERING PROVIDES ROLL COMMAND IN LOC ROLLC. THE FOLLOWING CALCULATES THE # TRAJECTORY TO THE ORIGIN IN PHASE PLANE (X,V). PROGRAM ENTERS JET ON AND OFF CALLS INTO WTLST TO PRODUCE # THE DESIRED TRAJECTORY. ONLY THOSE CALLS WHICH CAN BE EXECUTED WITHIN THE INTERVAL T (2 SEC) ARE ENTERED IN @@ -754,19 +754,19 @@ HALFPR EQUALS NEG1/2 +1 # ROLL DAP CALLED. IN EVENT OF RESTART, BODYRATE # MAY MISS A CYCLE. CM/RCS WILL MISS A CYCLE ONLY # IF A RESTART OCCURS AFTER TIMETST COMMENCES. - + CM/RCS CS ONE TS JNDX # SET NDX FOR POS ROLL, AND CHANGE LATER - + CS 2T/TCDU # ROLLDOT = DELAOG + DELAIG SINM =DELR EXTEND MP PREL # DELR/180 = RDOT TCDU/180 = RDOT/1800 AD L # -2 RDOT T/180 IN L TS -VT/180 # SAVE -2VT/180 HERE - + CS ROLL/180 TS SR # SAVE (-R/180) /2 - + CS CM/FLAGS MASK BIT4 # LATSW = 101D BIT4 EXTEND # ROLL OVER TOP $ @@ -776,19 +776,19 @@ CM/RCS CS ONE AD SR # -(R/180) /2 XCH LCX/360 # DIFFERENT X REQD HERE. DISCONT AT 180. TCF COMPAT # POSSIBLE OVFL ABOVE. - + # Page 1082 GETLCX CA POS1/2 # FORM RCOM/360 DOUBLE AD ROLLC XCH LCX/360 # IGNORE POSSIBLE OVFL. - + CA SR # FORM -R/360 AD NEG1/2 AD NEG1/2 # IGNORE OVFL XCH LCX/360 # -R/360 ADS LCX/360 # LCX/360 = RCOM/360 - R/360 RANGE (-1,1) - + # DOES SGN(-VT) (VT/180) (VT/180) (180/(4 A1 TT COSALFA)) + X/360 + SGN(X) / 2 OVFL ? CCS -VT/180 # TAKE SHORTEST ANGULAR PATH @@ -814,12 +814,12 @@ TRTAGXPI INDEX A # NO, SHIFT X BY - SGN(X) 2 PI CS HALFPR # +A YIELDS -1/2 DOUBLE ADS LCX/360 - + COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN. EXTEND MP CALFA # COS ALFA TS LCX/360 # SCALED LCX OK HERE. - + CCS CMDAPMOD # FOUR POSSIBILITIES HERE TC DZCALL1 # EXIT, SETTING JETAG=0. (C(A)=0) # ALL 3 AXES ALREADY DONE. @@ -839,7 +839,7 @@ COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN. EXTEND MP 180/8ATT TS VSQ/4API - + # IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 -.5 BUFLIM/360 POS? WHICHALF DOUBLE # FOR SECOND BURN, A1 @@ -854,7 +854,7 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1 AD BUFLIM EXTEND BZMF REFLECT # POINT (X,V) IN LHP. - + # IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 + .5 BUFLIM/360 NEG? COM @@ -862,20 +862,20 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1 AD BUFLIM EXTEND BZMF DZ1 # POINT (X,V) IN RHP - + # IS POINT WITHIN VELOCITY DZ? CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG? AD VSQ/4API EXTEND BZMF DZCALL # YES. - + # POINT IS IN BUFFER ZONE. THRUST TO X AXIS. CS JNDX TS JNDX1 TC OVRLINE1 - + REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR TS -VT/180 TS SR # -VT/360 SAVED FOR DZ. @@ -884,7 +884,7 @@ REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR TS LCX/360 CS JNDX TS JNDX - + # IS VSQ/4API - (VSQ/4API) MIN NEG? DZ1 CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG $ @@ -892,7 +892,7 @@ DZ1 CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG $ EXTEND BZMF DZ2 # YES, GO TEST FURTHER. TCF MAXVTEST # NO - + # IS X/360 - XMIN/360 -VT/360 NEG? DZ2 CS XMIN/360 # XMIN/360 = 4/360 @@ -900,7 +900,7 @@ DZ2 CS XMIN/360 # XMIN/360 = 4/360 AD SR # C(SR) = -VT/360 EXTEND # IS X/360 - XMIN/360 -VT/360 NEG $ BZMF DZCALL # YES, IN DZ. EXIT SETTING JETAG=0. - + # IS XD/360 - VM/360K - XS/360 POS? MAXVTEST CS JNDX @@ -918,7 +918,7 @@ MAXVTEST CS JNDX EXTEND MP KTRCS DDOUBL # GO SAVE PREDICTED DRIFTING VELOCITY. - + TC GETON1 # INSURE THAT Q IS POS AS TAG. MAXVTIM1 EXTEND ZQ # SET +Q AS TAG @@ -933,14 +933,14 @@ GETON1 TS VDT/180 # VDT/180 OR VMT/180 EXTEND BZMF OVRLINE TC GETON2 # RESET Q POS IF CAME FROM MAXVTIM1 - + OVRLINE CCS Q TCF OVRLINE1 MAXVTIM2 CA JNDX1 # ABOVE VM, SO THRUST DOWN TS JNDX CS TON1 TCF OVRLINE2 +1 - + OVRLINE1 CS -VT/180 # DRIFT AT V TS VDT/180 OVRLINE2 CA ZERO @@ -951,14 +951,14 @@ GETON2 CA VDT/180 # VDT/180, OR VMT/180 OR VT/180 MP 180/8ATT DOUBLE # FOR SECOND BURN, A1 TS TON2 # = TON2 / 4T - + COM EXTEND BZMF GETOFF TS TON2 CA JNDX TS JNDX1 - + GETOFF CS TON2 # TON2 / 4T EXTEND MP VDT/180 # VDT/180, OR VT/180, OR VMT/180. @@ -977,7 +977,7 @@ GETOFF CS TON2 # TON2 / 4T DV VDT/180 EXTEND BZF GETOFF2 # DIVIDE OK - + TOFFOVFL CA 2JETT # OVFL, USE 2T FOR CONVENIENCE. TCF TIMSCAL @@ -993,19 +993,19 @@ TIMSCAL TS TOFF # IN CS EXTEND MP TON1 # C(TON1) = TON1 / 4T TS TON1 # IN CS - + CAF 4JETT EXTEND MP TON2 # C(TON2) = TON2 / 4T TS TON2 # IN CS - + CA ZERO # CANNOT REDO AFTER TIMETST. TUSED GONE TS JETAG # SET +0 TO SHOW ROLL DAP CALLED. - + # CAUSE THE TM OF BODY RATES VIA UPBUFF TO BE # INITIALIZED. ALSO CAUSE NEEDLES TO BE DONE ON EXIT # AND ON ALTERNATE PASSES THROUGH CM/DUMPR. - + CA ONE TS SW/NDX @@ -1024,11 +1024,11 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL. AD POS1/2 AD POS1/2 # OVFL GUARANTEED. ADS TUSED # B(TUSED) =-TUSED =-OLTIME1 - + CA -T-3 # =-T +2 -5 (SEE SETJTAG) # THE +2 REQUIRED FOR PROPER BRANCH. ADS TUSED # TUSED = TIME(K)-TIME(K-1)-T+2 - + CS TWO # USE 2 SINCE TIME3 UNCERTAIN TO 1 AD TON1 EXTEND @@ -1036,7 +1036,7 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL. INDEX JNDX CAF P/RJCODE TS T1BITS - + CA TON1 ADS TUSED EXTEND @@ -1076,11 +1076,11 @@ TIMETST3 TS TON1 TIMETST4 TS TOFF TIMETST5 CS ONE TS TON2 - + # SECTION JETCALL EXAMINES CONTENTS OF JET TIMES IN LIST, ESTABLISHES WTLST ENTRIES, AND EXECUTES CORRESPONDING # JET CODES. A POSITIVE NZ NUMBER IN A TIME REGISTER INDICATES THAT A WTLST CALL IS TO BE MADE, AND ITS JET BITS # EXECUTED. A +0 INDICATES THAT THE TIME INTERVAL DOES NOT APPLY, BUT THE CORRESPONDING JET BITS ARE TO BE -# EXECUTED. A NEG NUMBER INDICATES THAT THE TIME INTERVAL HAS BEEN PROCESSED. IN EVENT OF +0 OR -1, THE +# EXECUTED. A NEG NUMBER INDICATES THAT THE TIME INTERVAL HAS BEEN PROCESSED. IN EVENT OF +0 OR -1, THE # SUBSEQUENT TIME REGISTER IS EXAMINED FOR POSSIBLE ACTION. THUS JET BITS TO BE EXECUTED MAY COME FROM MORE # THAN ONE REGISTER. @@ -1110,18 +1110,18 @@ JETCALL2 XCH L # SAVE JET BITS FOR AFTER WTLST CALL TC WAITLIST EBANK= AOG 2CADR JETCALL - + JETACTN CA NUJET # COME HERE WHEN DESIRED JET CODE IS KNOWN # Page 1089 EXTEND # NO NEED TO SAVE OLD CODES WRITE ROLLJETS # SET RCHAN TO NEW BIT CONFIG. - + CCS OUTTAG TC TASKOVER ROLLDUMP TC CM/FDAIR # EDIT DUMP AT ABOVE LOCATION. - + # WAITLIST ENTRIES COME HERE. JETCALL CAF BIT2 # CM/DSTBY =103D BIT2 @@ -1131,7 +1131,7 @@ JETCALL CAF BIT2 # CM/DSTBY =103D BIT2 BZF JETACTN +1 # YES, QUENCH ROLL JETS, IF ON AND EXIT. ZL # NO, CONTINUE. TCF JETCALL3 # C(A) POS, C(L) = +0 - + # DEAD ZONE ENTRIES COME HERE. DZCALL CS CMDAPMOD # POSSIBLE VALUES OF CMDAPMOD: -1, +0, -0. @@ -1145,7 +1145,7 @@ DZCALL CS CMDAPMOD # POSSIBLE VALUES OF CMDAPMOD: -1, +0, -0. TC ANGOVCOR # C(A)=ROLL/180 OR 2 ROLLC. TS ROLLHOLD # IF CMDAPMOD =-0, SAVE ROLL ANGLE. # OTHERWISE, SAVE ROLL COMMAND. - + CA ZERO # COME HERE IF IN DZ, AND CANCEL JETS. EXTEND # INHINT NOT NEEDED HERE. WRITE ROLLJETS # TURN OFF ALL ROLL JETS. @@ -1173,33 +1173,33 @@ CM/FDAI CS PHIDOT # INTEGRATE ROLL ERROR 'TWEEN 2SEC UPDATES EXTEND MP HALF ADS PAXERR1 # ROLL ERROR/360. OVFL OK. - + # EDIT DUMP AT ABOVE LOCATION. CM/FDAIR CA HALF EXTEND MP PAXERR1 # FULL SCALE FOR FDAI (ROLL) IS 67.5 D TS PAXERR # .25 (ROLL ERROR/180) FOR FDAI NEEDLE. - + # PROGRAM TO FILE BODY RATES FOR TM ON ONE PASS AND # TO UPDATE THE NEEDLE DISPLAY ON THE NEXT. # SYNCHRONIZATION WITH CM/RCS IS USED SO THAT THE TM # IS DONE WITH THE ROLL SYSTEM AND NEEDLES START ON # THE SUBSEQUENT PASS. - + CM/DUMPR CS SW/NDX # COMBINED ALTERNATION SWITCH AND FILE TS SW/NDX EXTEND # INDEX BZMF CMTMFILE # FILE STARTS WITH SW/NDX +1 AND GOES TO - # ENDBUF. + # ENDBUF. # INDEX IS POS FOR NEEDLES. - + TC IBNKCALL CADR NEEDLER - + TC CM/END - + # INDEX IS NEG FOR TM FILE - + CMTMFILE AD THREE EXTEND BZMF SAVENDX @@ -1216,16 +1216,16 @@ SAVENDX TS SW/NDX # A NEGATIVE NUMBER. CA RREL INDEX SW/NDX TS ENDBUF +1 - + CM/END CA CM/SAVE TS SR # DOES NOT PROTECT TEMK, SQ IN SPSIN/COS - + EXTEND DCA T5IDLER2 DXCH T5LOC TC RESUME - + EBANK= T5LOC T5IDLER2 2CADR T5IDLOC @@ -1241,7 +1241,7 @@ T5IDLER2 2CADR T5IDLOC # Q PITCH RATE # R YAW RATE # ETC. - + #CMTMTIME = UPBUFF #SW/NDX = UPBUFF +1 #ENDBUF = UPBUFF +16D @@ -1249,7 +1249,7 @@ T5IDLER2 2CADR T5IDLOC # Page 1092 # SPACER # -# CONSTANTS USED IN THE ROLL CONTROL SYSTEM: +# CONSTANTS USED IN THE ROLL CONTROL SYSTEM: # CONSTANTS ARE THE FOLLOWING: A = 9.1 DEG/SECSQ, VM = 20 DEG/SEC, T = 2 SEC, TCDU = .1 SEC, # XMIN = 4 DEG, VMIN = 2 DEG/SEC, K = .25, A1 = 4.55 DEG/SECSQ, VI = 1 DEG/SEC, INTERCEPT WITH DZ SIDE # XBUF = 4DEG diff --git a/Comanche055/CONIC_SUBROUTINES.agc b/Comanche055/CONIC_SUBROUTINES.agc index 6eca239..7e7ce68 100644 --- a/Comanche055/CONIC_SUBROUTINES.agc +++ b/Comanche055/CONIC_SUBROUTINES.agc @@ -9,7 +9,7 @@ # Pages: 1262-1308 # Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. -# 2009-05-20 RSB Corrected: Fixed four interpreter +# 2009-05-20 RSB Corrected: Fixed four interpreter # instructions. # # This source code has been transcribed or otherwise adapted from digitized @@ -18,13 +18,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -77,7 +77,7 @@ # IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY # EXTRAPOLATING THE POSITION BACKWARD IN TIME. # -# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A +# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A # MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL. # # THE RESTRICTIONS ARE -- @@ -581,7 +581,7 @@ BANK COUNT 12/CONIC - + EBANK= UR1 KEPLERN SETPD BOV 0 @@ -602,7 +602,7 @@ KEPLERN SETPD BOV DMP SL1R 1/ROOTMU # 1/ROOTMU (-17 OR -14) STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16) - + VRECT VSQ DMPR 1/MU # 1/MU (-34 OR -28) @@ -632,25 +632,25 @@ KEPLERN SETPD BOV BOV STOREMAX STOREMAX STORE XMAX - DMP PDDL + DMP PDDL 1/ROOTMU ALPHA - NORM PDDL + NORM PDDL X1 - SL* DDV + SL* DDV 0 -6,1 BOV BMN MODDONE MODDONE # MPAC=PERIOD PERIODCH PDDL ABS # 0D=PERIOD - TAU. + TAU. DSU BMN 0D MODDONE SIGN TAU. STODL TAU. - GOTO + GOTO PERIODCH MODDONE SETPD DLOAD 0 @@ -675,7 +675,7 @@ STORBNDS DLOAD BPL DXCOMP STOREMIN DLOAD KEPZERO - STORE XMIN + STORE XMIN DXCOMP DLOAD DMPR # Page 1279 TAU. @@ -727,7 +727,7 @@ KEPLOOP DLOAD DSQ NDXCHNGE NDXCHNGE DLOAD GOTO -# Page 1280 +# Page 1280 0D NEWDELX @@ -770,11 +770,11 @@ PDXCHNGE DLOAD DSU BADX DLOAD SR1 XMAX - SIGN + SIGN TAU. STCALL X STORBNDS -# Page 1281 +# Page 1281 TIMEOVFL DLOAD BMN # X WAS TOO BIG X NEGTOVFL @@ -852,25 +852,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1) TC POLY DEC 8 2DEC .083333334 - + 2DEC -.266666684 - + 2DEC .406349155 - + 2DEC -.361198675 - + 2DEC .210153242 - + 2DEC -.086221951 - + 2DEC .026268812 - + 2DEC -.006163316 - + 2DEC .001177342 - + 2DEC -.000199055 - + TC INTPRET STODL S(XI) XI @@ -878,25 +878,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1) TC POLY DEC 8 2DEC .031250001 - + 2DEC -.166666719 - + 2DEC .355555413 - + 2DEC -.406347410 - + 2DEC .288962094 - + 2DEC -.140117894 - + 2DEC .049247387 - + 2DEC -.013081923 - + 2DEC .002806389 - + 2DEC -.000529414 - + TC INTPRET # Page 1284 DMP SRR* # PL AT 0 @@ -1107,7 +1107,7 @@ COGLOLIM 2DEC -.999511597 BANK COUNT 12/CONIC - + TIMETHET STQ SETPD # PL AT 0 RTNTT 0 @@ -1152,10 +1152,10 @@ PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6 37777 # GAMMA ALWAYS LESS THAN 180DEG GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2 STODL 36D # 36D=SIN GAMMA (+1) PL AT 0 -# Page 1290 +# Page 1290 SR DDV 5 - + 36D STOVL* COGA MUTABLE,1 @@ -1220,7 +1220,7 @@ HAVENORM ABVAL SIGN BANK COUNT 12/CONIC - + GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC 3 S2 @@ -1268,17 +1268,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 TC POLY DEC 5 2DEC .5 - + 2DEC -.166666770 - + 2DEC .100000392 - + 2DEC -.071401086 - + 2DEC .055503292 - + 2DEC -.047264098 - + 2DEC .040694204 TC INTPRET @@ -1292,7 +1292,7 @@ XCOMMON DSQ NORM R1A 0 -12D,1 STODL XI # XI (+6) - + R1 SR1 SQRT ROUND DMP @@ -1486,7 +1486,7 @@ LAMBLOOP DMP 0 -8D,1 D1/32 STODL R1A # R1A=2-P(1+COGA COGA) (+6) - + P BOV CALL HIENERGY @@ -1558,7 +1558,7 @@ SUFFCHEK DLOAD ABS INITV SOLNSW RTNLAMB - + 360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1 0 SOLNSW @@ -1579,7 +1579,7 @@ NOGUESS SSP DLOAD LOLIM DLOAD GOTO COGLOLIM # COGLOLIM=-.999511597 MINCOGA - + INITV DLOAD NORM R1 X1 @@ -1619,7 +1619,7 @@ TARGETV DLOAD CALL TIMERAD STQ SETPD # PL AT 0 RTNTR 0 - BOV + BOV +1 VLOAD PDVL # PL AT 6 RVEC @@ -1663,7 +1663,7 @@ TIMERAD STQ SETPD # PL AT 0 BADR2 SQRT SIGN SGNRDOT - CLEAR + CLEAR APSESW # Page 1302 @@ -1755,23 +1755,23 @@ ABTCONIC EXIT # Page 1305 SETLOC CONICS1 BANK - + COUNT 04/CONIC - + MUTABLE 2DEC* 3.986032 E10 B-36* # MUE 2DEC* .25087606 E-10 B+34* # 1/MUE - + 2DEC* 1.99650495 E5 B-18* # SQRT(MUE) - + 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE) - + 2DEC 4.902778 E8 B-30 # MUM - + 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) LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. diff --git a/Comanche055/CONTRACT_AND_APPROVALS.agc b/Comanche055/CONTRACT_AND_APPROVALS.agc index c3096b7..e71b456 100644 --- a/Comanche055/CONTRACT_AND_APPROVALS.agc +++ b/Comanche055/CONTRACT_AND_APPROVALS.agc @@ -14,13 +14,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # Page 1 diff --git a/Comanche055/CSM_GEOMETRY.agc b/Comanche055/CSM_GEOMETRY.agc index 8a77811..f5d7196 100644 --- a/Comanche055/CSM_GEOMETRY.agc +++ b/Comanche055/CSM_GEOMETRY.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -31,7 +31,7 @@ BANK 22 SETLOC COMGEOM1 BANK - + # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT # VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT. # @@ -43,7 +43,7 @@ # OUTPUT IS ALSO AVAILABLE AT MPAC. COUNT 23/GEOM - + SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D 5,1 # TRUNNION = TA CDULOGIC @@ -54,15 +54,15 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D 3,1 # SHAFT = SA RTB PUSH # PD4 = SA CDULOGIC - + COS DMP 2 STODL STARM # COS(SA)SIN(TA) - + SIN DMP STADR STODL STARM +2 # SIN(SA)SIN(TA) - + COS STOVL STARM +4 STARM # STARM = 32D @@ -70,7 +70,7 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D NB1NB2 STORE 32D RVQ - + SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET ADS MPAC CAF QUARTER @@ -133,11 +133,11 @@ SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D MXV VSL1 NB2NB1 STORE ZNB1 - + RTB RTB TRANSP1 TRANSP2 - + SXTANG1 VLOAD VXV ZNB1 STAR @@ -146,12 +146,12 @@ SXTANG1 VLOAD VXV UNIT BOV ZNB=S1 STORE PDA # PDA = UNIT(ZNB X S) - + DOT DCOMP XNB1 STOVL SINTH # SIN(SA) = PDA . -XNB PDA - + DOT YNB1 STCALL COSTH # COS(SA) = PDA . YNB @@ -185,7 +185,7 @@ ZNB=S1 DLOAD STODL SAC 20DEGS- STORE PAC - CLRGO + CLRGO CULTFLAG 28D @@ -226,13 +226,13 @@ SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG VSL* VAD 0 -4,2 VCV - VSL* + VSL* 0,2 STODL VN TET STORE PIPTIME RVQ - + SVDWN2 VLOAD VSL* TDELTAV 0 -7,2 @@ -264,7 +264,7 @@ SVDWN2 VLOAD VSL* SETLOC POWFLIT2 BANK COUNT 23/GEOM - + LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1. NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE @@ -275,7 +275,7 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG 2DEC .031335467 2DEC .0130145859 2DEC .0215738898 - + CAF ZERO TS MPAC +2 EXTEND @@ -284,15 +284,15 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG DXCH MPAC +3 COM # LOAD POSITIVE SHIFT COUNT IN A. TC SHORTMP # MULTIPLY BY SHIFT COUNT. - + DXCH MPAC +1 DXCH MPAC DXCH MPAC +3 DAS MPAC TC INTPRET # RESULT IN MPAC, MPAC +1 - + RVQ - + NEARLY1 2DEC .999999999 # Page 292 @@ -321,7 +321,7 @@ CLOG2/32 2DEC .0216608494 # RTNORM = RTEAST * UNITW # # FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2. -# +# # CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL # STCALL DTEAROT STCALL DTEAROT # EARROT1 EARROT2 @@ -347,17 +347,17 @@ CLOG2/32 2DEC .0216608494 # DEBRIS: QPRET, PDL+0 ... PDL+5 # Page 294 EBANK= RTINIT - + EARROT1 VLOAD VXV UNITW # FULL UNIT VECTOR RTINIT # .5 UNIT STORE RTEAST # .5 UNIT - + VXV UNITW # FULL UNIT STODL RTNORM # .5 UNIT DTEAROT # (-28) CS - + EARROT2 BOVB DDV TCDANZIG # RESET OVFIND, IF ON 1/WIE @@ -373,19 +373,19 @@ EARROT2 BOVB DDV VAD UNIT # INSURE THAT RT IS "UNIT". RTINIT # .5 UNIT STORE RT # .5 UNIT TARGET VECTOR - + RVQ - + OVERADAY DLOAD SIGN 1/WIE DTEAROT BDSU DTEAROT STORE DTEAROT - + GOTO EARROT2 - + #WIE 2DEC .1901487997 1/WIE 2DEC 8616410 NB2NB1 2DEC +.8431756920 B-1 @@ -415,4 +415,4 @@ NB1NB2 2DEC +.8431756920 B-1 DEC -00000 20DEG- DEC 03600 DEC 00000 - + diff --git a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc index d50d74e..477d4f1 100644 --- a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc +++ b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc @@ -8,16 +8,16 @@ # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same -# name, and page images. Corrected various -# typos in the transcription of program -# comments, and these should be back-ported +# name, and page images. Corrected various +# typos in the transcription of program +# comments, and these should be back-ported # to Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -278,7 +278,7 @@ # ... ... # TERMINATE RETURN # ... ... # PROCEED RETURN # ... ... # ENTER OR RECYCLE RETURN -# +# # ... ... # IMMEDIATE RETURN TO THE USER # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE @@ -509,7 +509,7 @@ BANK COUNT 02/DSPLA - + BLANKET TS MPAC +6 CS PLAYTEM4 MASK MPAC +6 @@ -805,7 +805,7 @@ IFLEGAL CAF TWO PRIOBORT TC P00DOO OCT 1502 -# Page 1471 +# Page 1471 OKTOPLAY TC COPIES2 @@ -957,7 +957,7 @@ COPIES2 INHINT TS EBANKSAV # EQUIV TO DSPFLG MASK CADRMASK # FLASH AND GODSPRET EXTEND -# Page 1474 +# Page 1474 BZF SKIPADD CA PLAYTEM3 @@ -1364,7 +1364,7 @@ MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET CA FLAGWRD4 # IS ENDIDFLG SET MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE CCS A -# Page 1482 +# Page 1482 TCF NORMBNCH NORMRET CA FLAGWRD4 # IS MARK SLEEPING diff --git a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc index 01969d0..cd03a71 100644 --- a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc +++ b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc @@ -10,14 +10,14 @@ # Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name # and page images. Corrected various typos # in the transcription of program comments, -# and these should be back-ported to +# and these should be back-ported to # Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -168,9 +168,9 @@ BANK EBANK= DNTMBUFF - + COUNT 05/DPROG - + DODOWNTM TS BANKRUPT EXTEND QXCH QRUPT # SAVE Q @@ -423,7 +423,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC TCF DNPHASE1 # YES -- SEND DOWNLIST AGAIN # AGAIN TCF DNDUMPI +2 # NO -- GO BACK AND INITIALZE NEXT BANK - + DNDUMP1 CA LDNDUMP # SET DNTMGOTO TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK diff --git a/Comanche055/ENTRY_LEXICON.agc b/Comanche055/ENTRY_LEXICON.agc index 20dfc5c..92b84f9 100644 --- a/Comanche055/ENTRY_LEXICON.agc +++ b/Comanche055/ENTRY_LEXICON.agc @@ -10,11 +10,11 @@ # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # name and Comanche 055 page images. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -48,7 +48,7 @@ # _ # URT TARGET VECTOR 2 = RT # _ -# UNI UNIT NORMAL TO TRAJECTORY PLANE 2 +# UNI UNIT NORMAL TO TRAJECTORY PLANE 2 # _ # DELV INTEGRATED ACCEL. FROM PIPAS 5.85 16384 CM/S # _ @@ -122,7 +122,7 @@ # # KLAT LATERAL SWITCH GAIN 1 (NOM = .0125) # -# K2ROLL INDICATOR FOR ROLL SWITCH +# K2ROLL INDICATOR FOR ROLL SWITCH # # LAD MAX L/D (MIN ACTUAL VEHICLE L/D) 1 # @@ -140,7 +140,7 @@ # # L/D DESIRED LIFT TO DRAG RATIO 1 # (VERTICAL PLANE) -# +# # L/D1 TEMP STORAGE FOR L/D IN LATERAL 1 # # L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895) @@ -171,7 +171,7 @@ # THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT # # V VELOCITY MAGNITUDE 2 VSAT -# +# # V1 INITIAL VELOCITY FOR UPCONTROL 2 VSAT # # VL EXIT VELOCITY FOR UPCONTROL 2 VSAT @@ -306,14 +306,14 @@ # ATK ANGLE IN RAD TO NM 3437.7468 NM/RAD # G5 NOMINAL G VALUE FOR SCALING 32.2 FPSS # H5 ATMOSPHERE SCALE HEIGHT 28500 FT -# J GRAVITY HARMONIC COEFFICIENT .00162346 +# J GRAVITY HARMONIC COEFFICIENT .00162346 # KWE EQUATORIAL EARTH RATE 1546.10168 FPS # MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E14 CUBIC M/ SEC SEC # RE EARTH RADIUS 21202900 FT # REQ EARTH EQUATORIAL RADIUS 20925738.2 FT # VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS # WIE EARTH RATE .0000729211505 RAD/SEC - + # (END GSOP AS-278, VOL 1, FIG. 5.6-3 CONSTANTS, GAINS, ETC.) # DISPLAY QUANTITIES @@ -335,7 +335,7 @@ # LAT PRESENT LATITUDE 1 REVOLUTION N 67 # LONG PRESENT LONGITUDE 1 REVOLUTION N 67 # RTOGO RANGE ANGLE TO SPLASH FROM 1 REVOLUTION N 67 -# EMSALT FT ABOVE FISCHER RADIUS (IN NM) +# EMSALT FT ABOVE FISCHER RADIUS (IN NM) # VIO PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 63 # EMSALT FT ABOVE FISCHER RADIUS. # TTE TIME OF FREE FALL TO ALT B 28 CENTISEC N 63 diff --git a/Comanche055/ERASABLE_ASSIGNMENTS.agc b/Comanche055/ERASABLE_ASSIGNMENTS.agc index 2b7c4e9..700648e 100644 --- a/Comanche055/ERASABLE_ASSIGNMENTS.agc +++ b/Comanche055/ERASABLE_ASSIGNMENTS.agc @@ -6,17 +6,17 @@ # Assembler: yaYUL # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. -# Mod history: 2009-05-06 RSB Started adapting from the Colossus249/ file -# of the same name, using Comanche055 page +# Mod history: 2009-05-06 RSB Started adapting from the Colossus249/ file +# of the same name, using Comanche055 page # images. Only through page 51 so far. # 2009-05-07 RSB Through page 92 so far. # 2009-05-07 RSB (Again!) First draft completed. # 2009-05-20 RSB Fixed some bugs uncovered in trial assemblies: # EMDOT, STATEXIT, VGDISP, DVPREV, POSTCDH, # RETROFLG not defined correctly, changed the -# typing of labels 9X9LOC1 and 9X9LOC2, +# typing of labels 9X9LOC1 and 9X9LOC2, # R32FLBIT -> R31FLBIT. -# 2009-05-21 RSB Corrected definition of DELBRTMP, which +# 2009-05-21 RSB Corrected definition of DELBRTMP, which # chained to quite a lot of off-by-one errors. # Changed a +8 to a +8D. # @@ -26,13 +26,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -106,7 +106,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 @@ -396,13 +396,13 @@ JSWCHBIT = BIT14 # BIT 13 FLAG 0 MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT # SOLAR PERTURBATIONS SOLAR PERTURBATIONS - + MIDFLBIT = BIT13 # BIT 12 FLAG 0 MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF # INFLUENCE INFLUENCE - + MOONBIT = BIT12 # BIT 11 FLAG 0 @@ -414,13 +414,13 @@ NORFBIT = BIT11 ZMEASURE = 005D # MEASUREMENT PLANET MEASUREMENT PLANET # AND PRIMARY PLANET AND PRIMARY PLANET # DIFFERENT SAME - + ZMEASBIT = BIT10 # BIT 9 FLAG 0 NEEDLFLG = 006D # TOTAL ATTITUDE A/P FOLLOWING ERROR # ERROR DISPLAYED DISPLAYED - + NEEDLBIT = BIT9 # BIT 8 FLAG 0 @@ -449,7 +449,7 @@ F2RTEBIT = BIT5 # BIT 4 FLAG 0 TRUNFLAG = 011D # DRIVING OF TRUNNION DRIVING OF TRUNNION # ALLOWED NOT ALLOWED - + TRUNBIT = BIT4 # BIT 3 FLAG 0 @@ -461,11 +461,11 @@ FREEFBIT = BIT3 AMOONFLG = 13D # STATE VECTOR IN STATE VECTOR IN AMOONBIT = BIT2 # LUNAR SPHERE AT EARTH SPHERE AT # MIDTOAVE MIDTOAVE - + # BIT 1 FLAG 0 KFLAG = 014D # SEARCH SECTOR MORE SEARCH SECTOR LESS # THAN 180 DEGREES THAN 180 DEGREES - + KBIT = BIT1 FLAGWRD1 = STATE +1 # (015-029) @@ -488,13 +488,13 @@ ERADFLAG = 017D # EARTH, COMPUTE EARTH, USED FIXED # RADIUS # MOON, USE FIXED MOON, USE RLS FOR # RADIUS LUNAR RADIUS - + ERADFBIT = BIT13 # BIT 12 FLAG 1 NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWED NOP01BIT = BIT12 - + # BIT 11 FLAG 1 ENG2FLAG = 019D # RCS BURN SPS BURN @@ -518,14 +518,14 @@ R23BIT = BIT9 # BIT 8 FLAG 1 VEHUPFLG = 022D # CSM STATE VECTOR LEM STATE VECTOR # BEING UPDATED BEING UPDATED - + VEHUPBIT = BIT8 # BIT 7 FLAG 1 UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS # ALLOWED NOT ALLOWED # Page 49 - + UPDATBIT = BIT7 # BIT 6 FLAG 1 @@ -542,26 +542,26 @@ TRACKBIT = BIT5 TRM03FLG = 026D # REQUEST TO NO REQUEST TO # TERMINATE P03 HAS TERMINATE P03 HAS # BEEN ENTERED BEEN ENTERED - + TRM03BIT = BIT4 # BIT 3 FLAG 1 SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULA - # METHOD IN ITERATOR FALSI METHOD IN + # METHOD IN ITERATOR FALSI METHOD IN # ITERATOR - + SLOPEBIT = BIT3 # BIT 2 FLAG 1 GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR # FOR ITERATION ITERATION EXISTS - + GUESSBIT = BIT2 # BIT 1 FLAG 1 AVEGFLAG = 029D # AVERAGEG (SERVICER) AVERAGEG (SERVICER) # TO CONTINUE TO CEASE - + AVEGBIT = BIT1 FLAGWRD2 = STATE +2 # (030-044) @@ -571,13 +571,13 @@ FLAGWRD2 = STATE +2 # (030-044) # BIT 15 FLAG 2 DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO # COMPENSATION COMPENSATION - + DRFTBIT = BIT15 # Page 50 # BIT 14 FLAG 2 -R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR +R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR # MARKRUPT MARKRUPT R21BIT = BIT14 @@ -606,7 +606,7 @@ SKIPVBIT = BIT10 # SFTWRE OR HDWRE IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO # BURN (CUTOFF TIME CUTOFF TIME YET # SPECIFIED) AVAILABLE) - + IMPULBIT = BIT9 # BIT 8 FLAG 2 @@ -622,7 +622,7 @@ ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED # BIT 7 FLAG 2 FIRSTFLG = ETPIFLAG # FIRST PASS SUCCEEDING PASS THRU # THRU S40.9 S40.9 - + FIRSTBIT = BIT7 # BIT 7 FLAG 2 @@ -635,26 +635,26 @@ FINALBIT = BIT6 FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH # RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM # COMPUTATIONS COMPUTATIONS - + AVFLBIT = BIT5 # BIT 5 FLAG 2 AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE # VEHICLE VEHICLE - + # BIT 4 FLAG 2 PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE # COMPUTED NOT COMPUTED - + PFRATBIT = BIT4 # BIT 3 FLAG 2 - = 042D - + = 042D + # BIT 2 FLAG 2 CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING # STARTING PROCEDURE PROCEDURE - + CALC2BIT = BIT2 # BIT 1 FLAG 2 @@ -664,14 +664,14 @@ NODOBIT = BIT1 FLAGWRD3 = STATE +3 # (045-059) # (SET) (RESET) - + # BIT 15 FLAG 3 = 045D - + # BIT 14 FLAG 3 GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK # OCCURRED - + GLOKFBIT = BIT14 # Page 52 @@ -689,22 +689,22 @@ LUNABIT = BIT12 # BIT 11 FLAG 3 P22MKFLG = 049D # P22 DOWNLINKED MARK P22 DOWNLINK MARK # DATA WAS JUST TAKEN DATA NOT JUST TAKEN - + P22MKBIT = BIT11 # BIT 10 FLAG 3 VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD # IN FIELD OF VIEW OF VIEW - + VFLAGBIT = BIT10 # BIT 9 FLAG 3 = 051D - + # BIT 8 FLAG 3 PRECIFLG = 052D # CSMPREC OR LEMPREC INTEGRV # OR INTEGRVS CALLED CALLED - + PRECIBIT = BIT8 # BIT 7 FLAG 3 @@ -715,13 +715,13 @@ CULTBIT = BIT7 # BIT 6 FLAG 3 ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR # ORBITAL NAVIGATION ORBITAL NAVIGATION - + ORBWFBIT = BIT6 # BIT 5 FLAG 3 STATEFLG = 055D # PERMANENT STATE PERMANENT STATE # VECTOR UPDATED VECTOR NOT UPDATED - + STATEBIT = BIT5 # BIT 4 FLAG 3 @@ -732,46 +732,46 @@ INTYBIT = BIT4 # BIT 3 FLAG 3 VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR # BEING INTEGRATED BEING INTEGRATED - + VINTFBIT = BIT3 # BIT 2 FLAG 3 D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 # FOR INTEGRATION FOR INTEGRATION - + D6OR9BIT = BIT2 # BIT 1 FLAG 3 DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO # USED BE USED - + FLAGWRD4 = STATE +4 # (060-074) # (SET) (RESET) - + DIM0BIT = BIT1 # BIT 15 FLAG 4 MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN # ENDIDLE ENDIDLE - + MRKIDBIT = BIT15 # BIT 14 FLAG 4 PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY # ENDIDLE IN ENDIDLE - + PRIODBIT = BIT14 # BIT 13 FLAG 4 NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY # ENDIDLE IN ENDIDLE - + NRMIDBIT = BIT13 # BIT 12 FLAG 4 PDSPFLAG = 063D # CAN'T INTERRUPT SEE M. HAMILTON # PRIORITY DISPLAY - + PDSPFBIT = BIT12 # BIT 11 FLAG 4 @@ -787,14 +787,14 @@ NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY # DISPLAY OPERATING DISPLAY OPERATING # WHEN NORMAL WHEN NORMAL DISPLAY # DISPLAY INITIATED INITIATED - + NWAITBIT = BIT10 # BIT 9 FLAG 4 MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING # KEYBOARD WHEN MARK KEYBOARD WHEN MARK # DISPLAY INITIATED DISPLAY INITIATED - + MRKNVBIT = BIT9 # BIT 8 FLAG 4 @@ -802,7 +802,7 @@ NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING # KEYBOARD WHEN KEYBOARD WHEN # NORMAL DISPLAY NORMAL DISPLAY # INITIATED INITIATED - + NRMNVBIT = BIT8 # BIT 7 FLAG 4 @@ -810,21 +810,21 @@ PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING # KEYBOARD WHEN KEYBOARD WHEN # PRIORITY DISPLAY PRIORITY DISPLAY # INITIATED INITIATED - + PRONVBIT = BIT7 # BIT 6 FLAG 4 PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT # INTERFERED WITH INTERFERED WITH # EXISTING DISPLAY EXISTING DISPLAY - + PINBRBIT = BIT6 # BIT 5 FLAG 4 MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT # INTERRUPTED BY INTERRUPTED BY # PRIORITY DISPLAY PRIORITY DISPLAY - + MRUPTBIT = BIT5 # Page 55 @@ -833,13 +833,13 @@ NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT # INTERRUPTED BY INTERRUPTED BY # PRIORITY OR MARK PRIORITY OR MARK # DISPLAY DISPLAY - + NRUPTBIT = BIT4 # BIT 3 FLAG 4 MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER # NORMAL NORMAL - + MKOVBIT = BIT3 # BIT 2 FLAG 4 # DISPLAY BIT @@ -848,15 +848,15 @@ MKOVBIT = BIT3 # BIT 1 FLAG 4 XDSPFLAG = 074D # MARK DISPLAY NOT TO NO SPECIAL MARK # BE INTERRUPTED INFORMATION - + XDSPBIT = BIT1 FLAGWRD5 = STATE +5 # (075-099) # (SET) (RESET) - + # BIT 15 FLAG 5 DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY - # DSKY + # DSKY DSKYBIT = BIT15 # BIT 14 FLAG 5 @@ -867,11 +867,11 @@ RETROBIT = BIT14 # ORBIT IS RETROGRADE SLOWFLG = 077D # P37 TRANSEARTH SLOW DOWN IS NOT SLOWBIT = BIT13 # COAST SLOW DOWN DESIRED # IS DESIRED - + # BIT 12 FLAG 5 V59FLAG = 078D # CALIBRATING FOR NORMAL MARKING FOR # P23 P23 - + V59FLBIT = BIT12 # BIT 11 FLAG 5 @@ -891,7 +891,7 @@ PRFTRBIT = BIT10 # BIT 9 FLAG 5 DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 # FOR INCORPORATION FOR INCORPORATION - + DMENFBIT = BIT9 # BIT 8 FLAG 5 @@ -907,13 +907,13 @@ ENGONBIT = BIT7 # BIT 6 FLAG 5 3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED # BY THREE AXES BY ONE AXIS - + 3AXISBIT = BIT6 # BIT 5 FLAG 5 GRRBKFLG = 085D # BACKUP GRR RECEIVED BACKUP GRR NOT # RECEIVED - + GRRBKBIT = BIT5 # BIT 4 FLAG 5 @@ -932,22 +932,22 @@ SOLNSBIT = BIT3 MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE # COORDINATES COMPUTED # COMPUTED - + MGLVFBIT = BIT2 # BIT 1 FLAG 5 RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID # FOR RENDEZVOUS FOR RENDEZVOUS # NAVIGATION NAVIGATION - + RENDWBIT = BIT1 FLAGWRD6 = STATE +6 # (090-104) # (SET) (RESET) - + # BIT 15 FLAG 6 DAPBIT1 = 090D # 1 SATURN 1 TVC 0 RCS 0 NO - + DAP1BIT = BIT15 # BIT 14 FLAG 6 @@ -963,13 +963,13 @@ STRULBIT = BIT13 # BIT 13 FLAG 6 ENTRYDSP = STRULLSW # DO ENTRY DISPLAY OMIT ENTRY DISPLAY # VIA ENTRYVN. - + ENDSPBIT = BIT13 # BIT 12 FLAG 6 CMDAPARM = 093D # ALLOW ENTRY FIRINGS INHIBIT ENTRY FIRING # AND CALCULATIONS AND CONTROL FUNCTION -# Page 58 +# Page 58 CMDARMBIT = BIT12 # BIT 11 FLAG 6 @@ -982,14 +982,14 @@ GMDIFBIT = BIT11 GONEPAST = 095D # LATERAL CONTROL LATERAL CONTROL # CALCULATIONS TO BE CALCULATIONS TO BE # OMITTED DONE - + GONEBIT = BIT10 # BIT 9 FLAG 6 RELVELSW = 096D # TARGETING USES TARGETING USES # EARTH-RELATIVE INERTIAL VELOCITY # VELOCITY. - + RELVBIT = BIT9 # BIT 8 FLAG 6 @@ -1006,14 +1006,14 @@ KNOWNBIT = BIT8 R57FLAG = KNOWNFLG # DO NOT DO R57 DO R57, TRUNION # TRUNION BIAS HAS BIAS NEEDED # BEEN OBTAINED. - + R57BIT = BIT8 # BIT 7 FLAG 6 NOSWITCH = 098D # LATERAL ROLL LATERAL ROLL MANEUVER # MANEUVER INHIBITED PERMITTED IN ENTRY # IN ENTRY - + NOSWBIT = BIT7 # BIT 6 FLAG 6 @@ -1022,13 +1022,13 @@ HIND = 099D # ITERATING HUNTEST ITERATING OF HUNTEST # DONE AFTER RANGE OMITTED AFTER RANGE # PREDICTION PREDICTION # Page 59 - + HINDBIT = BIT6 # BIT 5 FLAG 6 INRLSW = 100D # INITIAL ROLL INITIAL ROLL # V(LV) V(LV) - + INRLBIT = BIT5 # ATTITUDE NOT HELD ATTITUDE HELD @@ -1036,7 +1036,7 @@ INRLBIT = BIT5 # BIT 4 FLAG 6 LATSW = 101D # DOWNLIFT NOT DOWNLIFT INHIBITED # INHIBITED - + LATSWBIT = BIT4 # BIT 3 FLAG 6 @@ -1046,33 +1046,33 @@ LATSWBIT = BIT4 # BIT 3 FLAG 6 = 102D - + # BIT 2 FLAG 6 CM/DSTBY = 103D # ENTRY DAP ACTIVATED ENTRY DAP NOT # ACTIVATED - + CM/DSBIT = BIT2 # BIT 1 FLAG 6 GYMDIFSW = 104D # CDU DIFFERENCES AND CDU DIFFERENCES AND - # BODY RATES COMPUTED BODY RATES NOT + # BODY RATES COMPUTED BODY RATES NOT # COMPUTED - + GYMDIBIT = BIT1 FLAGWRD7 = STATE +7 # (105-119) # (SET) (RESET) - + # BIT 15 FLAG 7 TERMIFLG = 105D # TERMINATE R52 DO NOT TERMINATE R52 - + TERMIBIT = BIT15 # BIT 14 FLAG 7 ITSWICH = 106D # ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER # TPI SEARCH SOLUTION AGAINST LIMITS # Page 60 - + ITSWBIT = BIT14 # BIT 13 FLAG 7 @@ -1083,7 +1083,7 @@ IGNFLBIT = BIT13 # BIT 12 FLAG 7 ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT # OKAYED IGNITION OKAYED IGNITION - + ASTNBIT = BIT12 # BIT 11 FLAG 7 @@ -1094,7 +1094,7 @@ TIMRBIT = BIT11 # BIT 10 FLAG 7 NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTE ITS # TO LAMBERT. OWN UNIT NORMAL. - + NORMSBIT = BIT10 # BIT 9 FLAG 7 @@ -1122,7 +1122,7 @@ V37FLBIT = BIT6 = 115D # Page 61 = BIT5 - + # BIT 4 FLAG 7 UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL @@ -1145,7 +1145,7 @@ TFFSWBIT = BIT1 FLAGWRD8 = STATE +8D # (120-134) # (SET) (RESET) - + # BIT 15 FLAG 8 RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED @@ -1153,23 +1153,23 @@ RPQFLBIT = BIT15 # BIT 14 FLAG 8 = 121D - + # BIT 13 FLAG 8 NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION # INTEGRATION OF INTEGRATION - + NEWIBIT = BIT13 # BIT 12 FLAG 8 CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE # IN LUNAR SPHERE IN EARTH SPHERE - + CMOONBIT = BIT12 # BIT 11 FLAG 8 LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE # IN LUNAR SPHERE IN EARTH SPHERE - + LMOONBIT = BIT11 # Page 62 @@ -1186,29 +1186,29 @@ P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING P39SWBIT = BIT9 # BIT 8 FLAG 8 -SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR +SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR # SURFACE - + SURFFBIT = BIT8 # BIT 7 FLAG 8 INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION # (CLOSURE THROUGH EXISTS. # INFINITY REQUIRED). - + INFINBIT = BIT7 # BIT 6 FLAG 8 ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST # ORDER MINIMUM MODE ORDER STANDARD MODE - + ORDERBIT = BIT6 # BIT 5 FLAG 8 APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE # PERICENTER-APOCENTER PERICENTER-APOCENTER # RANGE IN TIME-RAD RANGE IN TIME-RADIUS - + APSESBIT = BIT5 # BIT 4 FLAG 8 @@ -1224,28 +1224,28 @@ COGAFBIT = BIT4 V96ONFLG = 132D # P00 INTEGRATION HAS P00 INTEGRATION IS # BEEN INHIBITED BY PROCEEDING REGULARLY # V96 - + # BIT 2 FLAG 8 = 133D - + # BIT 1 FLAG 8 360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT # 360 DEGREES NEAR 360 DEGREES - + 360SWBIT = BIT1 FLAGWRD9 = STATE +9D # (135-149) # (SET) (RESET) - + # BIT 15 FLAG 9 SWTOVER = 135D # SWITCHOVER HAS NO SWITCHOVER YET # OCCURRED. - + SWTOVBIT = BIT15 # BIT 14 FLAG 9 = 136D - + V67FLBIT = BIT14 # BIT 13 FLAG 9 @@ -1261,7 +1261,7 @@ MAXDBBIT = BIT12 # BIT 11 FLAG 9 V94FLAG = 139D # V94 ALLOWED DURING V94 NOT ALLOWED # P23 - + V94FLBIT = BIT11 # BIT 10 FLAG 9 @@ -1269,34 +1269,34 @@ SAVECFLG = 140D # P23 DISPLAY AND P23 DISPLAY AND # DATA STORAGE AFTER DATA STORAGE BEFORE # Page 64 # MARK IS DONE MARK IS DONE - + SAVECBIT = BIT10 # BIT 9 FLAG 9 VHFRFLAG = 141D # ALLOW R22 TO STOP ACCEPTANCE # ACCEPT RANGE OF RANGE DATA # DATA - + VHFRBIT = BIT9 # BIT 8 FLAG 9 SOURCFLG = 142D # SOURCE OF INPUT SOURCE OF INPUT # DATA IS FROM DATA IS FROM # VHF RADAR OPTICS MARK - + SOURCBIT = BIT8 # BIT 7 FLAG 9 R22CAFLG = 143D # R-22 CALCULATIONS R-22 CALCULATIONS # ARE GOING ON ARE NOT GOING ON - + R22CABIT = BIT7 # BIT 6 FLAG 9 N22ORN17 = 144D # COMPUTE TOTAL COMPUTE TOTAL # ATTITUDE ERRORS ATTITUDE ERRORS # W.R.T. N22 (V62) W.R.T. N17 (V63) - + N2217BIT = BIT6 # BIT 5 FLAG 9 @@ -1311,7 +1311,7 @@ R31FLBIT = BIT4 # BIT 3 FLAG 9 MID1FLAG = 147D # INTEGRATE TO TDEC INTEGRATE TO THE # THEN-PRESENT TIME - + MID1FBIT = BIT3 # BIT 2 FLAG 9 @@ -1319,7 +1319,7 @@ MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS # FROM ONE OF MIDTOAV NOT ENTERED VIA # PORTALS MIDTOAV # Page 65 - + MIDAVBIT = BIT2 # BIT 1 FLAG 9 @@ -1327,76 +1327,76 @@ AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGER # FOR W MATRIX INTEGR ALLOW SET UP RN,VN, # DON'T WRITE OVER RN, PIPTIME # VN,PIPTIME - + AVEMDBIT = BIT1 FLGWRD10 = STATE +10D # (150-164) # (SET) (RESET) - + RASFLAG = STATE +10D # BIT 15 FLAG 10 = 150D - + # BIT 14 FLAG 10 INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN # PROGRESS PROGRESS - + INTFLBIT = BIT14 # BIT 13 FLAG 10 = 152D - + # BIT 12 FLAG 10 = 153D - + # BIT 11 FLAG 10 = 154D - + # BIT 10 FLAG 10 = 155D - + # BIT 9 FLAG 10 = 156D - + # BIT 8 FLAG 10 = 157D # Page 66 - + # BIT 7 FLAG 10 REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE # TO BE RESTARTED NOT TO BE RESTARTED REINTBIT = BIT7 - + # BIT 6 FLAG 10 = 159D - + # BIT 5 FLAG 10 = 160D - + # BIT 4 FLAG 10 = 161D - + # BIT 3 FLAG 10 = 162D - + # BIT 2 FLAG 10 = 163D - + # BIT 1 FLAG 10 = 164D - + FLGWRD11 = STATE +11D # (165-179) # (SET) (RESET) - + # BIT 15 FLAG 11 S32.1F1 = 165D # DELTAN AT CSI TIME DVT1 LESS THAN MAX S32BIT1 = BIT15 # ONE EXCEEDS MAX - + # BIT 14 FLAG 11 S32.1F2 = 166D # FIRST PASS OF REITERATION OF S32BIT2 = BIT14 # NEWTON INTEGRATION NEWTON - + # BIT 13 FLAG 11 S32.1F3A = 167D # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED S32BIT3A = BIT13 # PAIR (13,12) INDICATING THE POSSIBLE OC- @@ -1408,47 +1408,47 @@ S3229T3B = BIT12 # = FIRST NEWTON ITERATION BEING DONE # (0,0)= FIRST PASS OF 2ND NEWTON ITER. # (1,1)= 50 FPS STAGE OF 2ND NEWT ITER. # (1,0)= REMAINDER OF 2ND NEWT ITER. - + # BIT 11 FLAG 11 = 169D - + # BIT 10 FLAG 11 = 170D - + # BIT 9 FLAG 11 = 171D - + # BIT 8 FLAG 11 = 172D - + # BIT 7 FLAG 11 = 173D - + # BIT 6 FLAG 11 = 174D - + # BIT 5 FLAG 11 = 175D - + # BIT 4 FLAG 11 = 176D - + # BIT 3 FLAG 11 = 177D - + # BIT 2 FLAG 11 = 178D - + # BIT 1 FLAG 11 = 179D - + # Page 68 # GENERAL ERASABLE ASSIGNMENTS 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. @@ -1501,7 +1501,7 @@ STATEXIT ERASE # I(1) STQ ADDRESS FOR STATEXIT # UNUSED ERASABLES ********(2) ERASFILL ERASE +1 -# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS +# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS # (INTB15+ THROUGH RUPTMXTM) (32D) INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES DSEXIT EQUALS INTB15+ # RETURN FOR DSPIN @@ -1625,10 +1625,10 @@ PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS. PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA. ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH - + # SPECIAL DOWNLINK BUFFER. -- OVERLAYED BY P27 STORAGE -- -# P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D) +# P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D) COMPNUMB ERASE +23D # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED. UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER @@ -1652,7 +1652,7 @@ ENDBUF = CMTMTIME +16D # B(1) ENTRY.) V1 = ENDBUF +1 # I(2) REENTRY, P64-P65 A0 = V1 +2 # I(2) REENTRY, P64-P65 # HI-ORDER WORD ONLY ON DNLNK. - + # ALIGNMENT STORAGE. (5D) # (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.) @@ -1754,7 +1754,7 @@ COSCDUY = COSCDU COSCDUZ = COSCDU +2 # PHASE TABLE AND RESTART COUNTERS (12D) -# Page 75 +# Page 75 -PHASE1 ERASE # B(1)PRM PHASE1 ERASE # B(1)PRM @@ -2085,7 +2085,7 @@ RTED1 ERASE +1 # I(2)PL VGAMMA POLY COEF B-3 DVTHRESH ERASE # I(1)PL DELTA VTHRESHOLD FOR LOW THRUST # ROUTINE B-2 - + # P23 *** PAD LOAD **** (2D) HORIZALT ERASE +1 # I(2)PL HORIZON ALTITUDE M B-29 @@ -2263,7 +2263,7 @@ END-E3 EQUALS E32C31RM # NEXT UNUSED E3 ADDRESS # EBANK-4 ASSIGNMENTS SETLOC 2000 - + # P20 STORAGE. -- PAD LOADED -- (4D) WRENDPOS ERASE # B(1)PL M B-14 @@ -2404,7 +2404,7 @@ RTRN EQUALS QSAVED +1 # B(1) RETURN SUBEXIT EQUALS RTRN +1 # B(1)TMP # RGEXIT CAN'T SHARE WITH HPER,HAPO RGEXIT EQUALS SUBEXIT # I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN - + # P30 DISPLAY (4D) HAPO EQUALS KT # I(2)DSP NOUN 42, FOR P30. HPER EQUALS HAPO +2 # I(2)DSP NOUN 42, FOR P30. @@ -2415,7 +2415,7 @@ NOMTPI EQUALS KT # I(2)TMP NOMINAL TPI TIME FOR RECYCLE. # THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1. G'S ARE NOT USED IN 205 NOR ARE THEY # WHILE 504 USES TRANSM1 AND ALFDK. # Page 92 -# RSB 2009. The definition of TRANSM1 was previously just "TRANSM1 EQUALS 2000", +# RSB 2009. The definition of TRANSM1 was previously just "TRANSM1 EQUALS 2000", # this messes up the label typing system in yaYUL. SETLOC 2000 TRANSM1 EQUALS # (18) INITIALIZATION FOR IMU TESTS @@ -2438,13 +2438,13 @@ END-E4 EQUALS INTVAR # LAST USED ERASABLE IN E4. # EBANK-5 ASSIGNMENTS SETLOC 2400 - + # *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-* # W-MATRIX STORAGE. (162D) # RSB 2009. The following 3 lines have been replaced to be consistent with yaYUL's -# label-typing system. They *were* "W EQUALS 2400", "9X9LOC1 EQUALS 2444", +# label-typing system. They *were* "W EQUALS 2400", "9X9LOC1 EQUALS 2444", # "9X9LOC2 EQUALS 2532". W EQUALS # B(162) 9X9LOC1 EQUALS W +44 @@ -2606,14 +2606,14 @@ ZI EQUALS TDVEL +6 # I(18) 22SUBSCL EQUALS ZI +18D # DE OF ABCDE LANDMARK ID NO. CXOFF EQUALS 22SUBSCL +1 # B OF ABCDE OFFSET INDICATOR 8KK EQUALS CXOFF +1 # B(1)TMP INDEX OF PRESENT MARK -8NN EQUALS 8KK +1 # B(1)TMP +8NN EQUALS 8KK +1 # B(1)TMP S22LOC EQUALS 8NN +1 # I(1)TMP MARK DATA LOC LANDMARK EQUALS S22LOC +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53 HORIZON EQUALS LANDMARK +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53 IDOFLMK EQUALS HORIZON +1 # B(1) # ******P23*** (1D) -TRUNION EQUALS IDOFLMK +1 # B(1) +TRUNION EQUALS IDOFLMK +1 # B(1) # Page 98 @@ -2679,7 +2679,7 @@ COUNTPL EQUALS GENPL +70D CDUANG EQUALS GENPL +71D AINLA = GENPL # OPTIMUM CALIB. AND ALIGNMENT -WANGO EQUALS AINLA +WANGO EQUALS AINLA WANGI EQUALS AINLA +2D WANGT EQUALS AINLA +4D TORQNDX = WANGT @@ -2862,7 +2862,7 @@ INTTEMP ERASE +14D # (15) TVCRCS ERASE +11D # (12) # RCS (WBODYS,ADOTS) # TVC(OMEGACS,OMEGABS) - + # TVC DAP TEMPORARY VARIABLES********************************* # TVC DAP INTERRUPT TRUE TEMPORARIES************************** @@ -3327,7 +3327,7 @@ ASPS(TM) = WBODY # I(6)DWN # ASKEP, ASP1, ASPUP, ASPDN, ASP3, ASP3+1 # P37 PAD LOADS (1) -P37RANGE EQUALS R61CNTR +1 # I(1)PL ***** +P37RANGE EQUALS R61CNTR +1 # I(1)PL ***** END-E6 = P37RANGE +1 # FIRST UNUSED ERASABLE LOCATION IN E6 @@ -3443,7 +3443,7 @@ ALP EQUALS THETAH +2 # 2P ASKEP = ASPS # 2P) THESE ARE STORED IN ASP1 = ASPS +1 # 2P) SEQUENCE, OVERLAPPING ASPUP = ASPS +2 # 2P)>HI-WD OF EACH< HI-WORD ONLY APPEARING -ASPDWN = ASPS +3 # 2P) ON DOWNLIST, EXCEPT +ASPDWN = ASPS +3 # 2P) ON DOWNLIST, EXCEPT ASP3 = ASPS +4 # 2P) ASP3 IS COMPLETE. C/D0 EQUALS ALP +2 # 2P -1/D0 diff --git a/Comanche055/EXECUTIVE.agc b/Comanche055/EXECUTIVE.agc index ea92c99..1ee75b6 100644 --- a/Comanche055/EXECUTIVE.agc +++ b/Comanche055/EXECUTIVE.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -33,7 +33,7 @@ # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA: COUNT 02/EXEC - + NOVAC INHINT AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET) TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC) @@ -130,7 +130,7 @@ FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET) BANK 01 COUNT 01/EXEC - + FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.) CCS VAC1USE TCF VACFOUND diff --git a/Comanche055/EXTENDED_VERBS.agc b/Comanche055/EXTENDED_VERBS.agc index fb13181..7370165 100644 --- a/Comanche055/EXTENDED_VERBS.agc +++ b/Comanche055/EXTENDED_VERBS.agc @@ -10,19 +10,19 @@ # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. # 2009-05-20 RSB Corrections: POODOO -> P00DOO, -# GOTOPOOH -> GOTOP00H, added a couple of +# GOTOPOOH -> GOTOP00H, added a couple of # missing instructions in Verb 96. -# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to +# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to # CA FLAGWRD1. Added a variety of SBANK= # statements prior to 2CADRs. One day I'll -# have to figure out what yaYUL is doing +# have to figure out what yaYUL is doing # wrong with those .... # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -40,16 +40,16 @@ BANK 7 SETLOC EXTVERBS BANK - + EBANK= OGC - + COUNT* $$/EXTVB - + # FAN-OUT GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC TC LST2FAN # FAN AS BEFORE. - + LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY) TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR # 91 ONLY) @@ -113,7 +113,7 @@ VERB69 TC VERB69 # VB69 CAUSE RESTART TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41) TC ALM/END # VB98 SPARE TC GOLOADLV # VB99 PLEASE ENABLE ENGINE - + # END OF EXTENDED VERB FAN TESTXACT CCS EXTVBACT @@ -121,20 +121,20 @@ TESTXACT CCS EXTVBACT CA FLAGWRD4 # ARE PRIOS USING DSKY MASK OC24100 CCS A - TC ALM/END - + TC ALM/END + CAF OCT24 # SET BITS 3 AND 5 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY # SYSTEM BUSY - + CA Q TS MPAC +1 - + CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB TC NVSUB TC +1 TC MPAC +1 - + XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. # Page 238 @@ -147,13 +147,13 @@ XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT GOPIN TC POSTJUMP CADR PINBRNCH - + OC24100 OCT 24100 # Page 239 # VBZERO VERB 40 DESCRIPTION # -# 1. REQUIRE NOUN 20 (ICDU ANGLES) +# 1. REQUIRE NOUN 20 (ICDU ANGLES) # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. # 4. SET EXT VERB DISPLAY ACTIVE FLAG. @@ -165,29 +165,29 @@ VBZERO TC OP/INERT TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) TC ALM/END # RETURN HERE IF NOUN = OCDU(91) # (NOT IN USE YET) - + IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO TC BANKCALL CADR IMUZERO - + TC BANKCALL # STALL CADR IMUSTALL TC +1 - - TC GOPIN - + + TC GOPIN + OP/INERT CS OCT24 AD NOUNREG EXTEND BZF XACT0Q # IF = 20. - + INCR Q AD OPIMDIFF # -71 EXTEND BZF XACT0Q - + TC ALM/END # ILLEGAL. - + OPIMDIFF DEC -71 # Page 240 @@ -235,30 +235,30 @@ OPIMDIFF DEC -71 VBCOARK TC OP/INERT TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91) - + # RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91. IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD - TC TESTXACT + TC TESTXACT CAF VNLODCDU # CALL FOR THETAD LOAD TC BANKCALL CADR GOXDSPF TC TERMEXTV TCF +1 # Page 241 - + ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. TC BANKCALL CADR EXDSPRET - + TC BANKCALL # CALL MODE SWITCHING PROG CADR IMUCOARS - + TC BANKCALL # STALL CADR IMUSTALL TC ENDEXTVB TC ENDEXTVB - + VNLODCDU VN 2522 IMUCOARV VN 4100 @@ -270,29 +270,29 @@ OPTCOARK CA OPTCADR TC TESTXACT CAF EBANK5 TS EBANK - + CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER TC +5 # SWITCH AT COMPUTER TC +1 # NOT ON COMPUTER TC FALTON # TURN ON OPERATOR ERR TC ALARM # AND ALARM OCT 00115 - + CCS OPTIND # SEE IF OPTICS AVAILABLE TC OPTC1 # IN USE TC OPTC1 # IN USE TC OPTC1 # IN USE - + TC ALARM # OPTICS RESERVED (OPTIND=-0) OCT 00117 TC ENDEXT - + OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS TC BANKCALL CADR GOXDSPF TC TERMEXTV TC +1 # PROCEED - + CA SAC TS DESOPTS CA PAC @@ -300,13 +300,13 @@ OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS CAF OPTCOARV # RE-DISPLAY OUR OWN VERB TC BANKCALL CADR EXDSPRET - + CAF ONE TS OPTIND # SET COARS WORKING - + TC ENDEXTVB TC ENDEXTVB - + VNLD0CDU VN 2492 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. @@ -336,27 +336,27 @@ IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING. CADR GOXDSPF TC TERMEXTV TC +1 # PROCEED WITHOUT A LOAD - + CAF IMUFINEV # RE-DISPLAY OUR OWN VERB TC BANKCALL CADR EXDSPRET - + TC BANKCALL # CALL MODE SWITCH PROG CADR IMUFINE - + TC BANKCALL # HIBERNATION CADR IMUSTALL TC ENDEXTVB - + FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS TC BANKCALL CADR IMUPULSE - + TC BANKCALL # WAIT FOR PULSES TO GET OUT. CADR IMUSTALL TC ENDEXTVB TC ENDEXTVB - + LGYROBIN ECADR OGC VNLODGYR VN 2593 IMUFINEV VN 4200 # FINE ALIGN VERB @@ -392,30 +392,30 @@ V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL CA CDUZ TS CPHIX +2 TC GOPIN - + # V61 VERB 61 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED TC GOPIN - + # V62 VERB 62 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED - + TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6), ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22 TC GOPIN - + # V63 VERB 63 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED - + TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6), # Page 245 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR TC GOPIN - -# Page 246 + +# Page 246 # ALINTIME VERB 55 DESCRIPTION # # 1. SET EXT VERB DISPLAY BUSY FLAG. @@ -438,7 +438,7 @@ ALINTIME TC TESTXACT EXTEND BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL TC ENDEXT # WITH V23 (DATA IN). - + UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. CAF ZERO TS MPAC +2 # NEEDED FOR TP AGREE @@ -447,7 +447,7 @@ UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. DXCH MPAC DXCH DSPTEM2 +1 # INCREMENT DAS MPAC - + TC TPAGREE # FORCE SIGN AGREEMENT. DXCH MPAC # NEW CLOCK. DAS TIME2 @@ -471,10 +471,10 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) EBANK= QPLACE - + COUNT 04/EXTVB - -SYSTEST TC CHKP00H + +SYSTEST TC CHKP00H CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) MASK NOP01BIT EXTEND @@ -487,12 +487,12 @@ V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON EBANK= QPLACE SBANK= IMUSUPER 2CADR REDO - + TC GOPIN -# REDO AND TSELECT ARE NOW IN SYSTEM TEST. - - COUNT* $$/EXTVB +# REDO AND TSELECT ARE NOW IN SYSTEM TEST. + + COUNT* $$/EXTVB # CKOPTVB VERB 65 DESCRIPTION # OPTICAL VERIFICATION FOR PRELAUNCH. # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17. @@ -505,9 +505,9 @@ CKOPTVB TC CHECKMM TC FINDVAC EBANK= QPLACE 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER. - + TC GOPIN - + # Page 248 # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH @@ -519,7 +519,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH TC FINDVAC EBANK= XSM 2CADR AZMTHCG1 - + TC PHASCHNG OCT 00174 TC GOPIN @@ -536,20 +536,20 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. -IMUATTCK TC CHKP00H +IMUATTCK TC CHKP00H CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON - EXTEND + EXTEND RAND CHAN12 CCS A TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON - + TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF TC TESTXACT # AFTER CS OCT50 # REMOVE COARSE AND ECTR ENABLE - EXTEND + EXTEND WAND CHAN12 - + CAF VNLODCDU TC BANKCALL CADR GOXDSPF @@ -557,20 +557,20 @@ IMUATTCK TC CHKP00H TC +1 CAF EBANK6 TS EBANK # SET E6 FOR NEEDLES. - + EBANK= AK - + TC BANKCALL # INITIALIZE CURRENT DAC AND CADR NEEDLE11 # COMMAND VALUES. - + TC BANKCALL # ENABLE ERROR COUNTERS. CADR NEEDLER2 - + CAF TWO # 4 MS MIN. TC WAITLIST EBANK= AK 2CADR ATTCK1 - + TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF TCF ENDEXT # AFTER TC GOPIN @@ -580,12 +580,12 @@ ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS. DXCH AK CAE THETAD +2 TS AK +2 - + TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED. - + TC TASKOVER - + CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED MASK FLAGWRD5 CCS A @@ -605,19 +605,19 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00. TC FINDVAC EBANK= RHOSB 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES. - + TC ENDOFJOB - + # ENATMA VERB 58 DESCRIPTION # ENABLE AUTOMATIC ATTITUDE MANEUVER # -# VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC +# VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC # ACTIVITY. ENATMA TC DOWNFLAG # RESET STIKFLAG. ADRES STIKFLAG # BIT 14 FLAG 1 TC GOPIN - + # Page 251 # STROKON VERB 68 DESCRIPTION # STROKE TEST SETUP/ENABLE @@ -635,9 +635,9 @@ STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC SBANK= PINSUPER # Added RSB 2009. EBANK= STROKER 2CADR STRKTSTI - + TC GOPIN - + # STABLISH VERB 46 DESCRIPTION # ESTABLISH G AND N AUTOPILOT CONTROL # 1. SETS UP EITHER RCS, ENTRY, OR SATURN @@ -649,7 +649,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 TS EBANK CS FLAGWRD6 # TEST FOR TVC - MASK OCT60000 + MASK OCT60000 EXTEND BZMF +8 @@ -688,16 +688,16 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 # 1. REPEAT FLASHING V06,N22. CREWMANU TC CHKP00H # DEMAND P00 - + TC TESTXACT - + CAF PRIO10 TC FINDVAC EBANK= CPHI 2CADR R62DISP - + TC ENDOFJOB - + # Page 253 # DAPDISP VERB 48 DESCRIPTION # LOAD AUTOPILOT DATA (ROUTINE R03) @@ -713,13 +713,13 @@ CREWMANU TC CHKP00H # DEMAND P00 # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM. COUNT* $$/EXTVB - + DAPDISP CS FLAGWRD6 MASK OCT60000 EXTEND BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE TC ALM/END # RETURN IF TVC - + TC TESTXACT TC BANKCALL CADR DAPDISP1 @@ -727,21 +727,21 @@ DAPDISP CS FLAGWRD6 SETLOC EXTVBS BANK COUNT 24/R03 - + DAPDISP1 CAF EBANK6 TS EBANK - + CAF PRIO10 TC PRIOCHNG - + DONOUN46 CAF V04N46 # R1 R2 TC BANKCALL # DAPDATR1 DAPDATR2 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS. - + TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB. TC +2 TC DONOUN46 - + CA DAPDATR1 MASK BIT4 CCS A @@ -750,12 +750,12 @@ DONOUN46 CAF V04N46 # R1 R2 ADRES MAXDBFLG MAXOUT TC BANKCALL CADR S41.2 - + DONOUN47 CAF V06N47 # R1 R2 R3 # Page 254 TC BANKCALL # CSM WGT. LEM WGT. BLANK CADR GOXDSPF - + TC ENDEXT TC +2 TC DONOUN47 @@ -770,30 +770,30 @@ DONOUN47 CAF V06N47 # R1 R2 R3 INHINT TC IBNKCALL CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX - + RELINT TC BANKCALL CADR S40.14 # COMPUTE RCS DAP STUFF - + DONOUN48 CAF V0648 # R1 R2 R3 TC BANKCALL # PTRIM YTRIM BLANK CADR GOXDSPF - + TC ENDEXT TC ENDEXT TC DONOUN48 - + MAXIN TC UPFLAG ADRES MAXDBFLG TC MAXOUT - + V0648 VN 0648 V06N47 VN 0647 V04N46 VN 0446 BANK 43 SETLOC EXTVERBS BANK - + COUNT* $$/EXTVB # V82PERF VERB82 DESCRIPTION @@ -808,7 +808,7 @@ V04N46 VN 0446 # Page 255 # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE -# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO +# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. @@ -829,11 +829,11 @@ V04N46 VN 0446 V82PERF TC TESTXACT - CAF PRIO7 + CAF PRIO7 TC PRIOCHNG TC POSTJUMP CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB. - + # VB83PERF VERB 83 DESCRIPTION # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31) # @@ -854,7 +854,7 @@ V83PERF TC TESTXACT SBANK= LOWSUPER # Added by RSB 2009 EBANK= SUBEXIT 2CADR R31CALL - + TC ENDOFJOB # Page 256 @@ -883,12 +883,12 @@ GOTOR23 TC UPFLAG # SET R23FLG MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON EXTEND BZF R22ALARM - + CA FLAGWRD1 MASK TRACKBIT EXTEND BZF R22ALARM - + CA FLAGWRD1 # TEST R23FLG MASK R23BIT EXTEND @@ -897,18 +897,18 @@ GOTOR23 TC UPFLAG # SET R23FLG TC NOVAC EBANK= MRKBUF1 2CADR R23CSM - + TC ENDOFJOB REGR21 CAF PRIO16 TC NOVAC EBANK= MRKBUF1 2CADR R21CSM - + TC ENDOFJOB R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND OCT 00406 # NOR TRACK FLAG WERE ON. TC ENDEXT - + # Page 258 # VERB 86 DESCRIPTION # V86 IS TO R23 AS MARK REJECT IS TO R21 @@ -920,7 +920,7 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23) CA NEGONE TS MRKBUF1 TC GOPIN - + # Page 259 # TRACKTRM VERB 56 DESCRIPTION # TERMINATE TRACKING (P20) @@ -939,33 +939,33 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON MASK FLAGWRD0 EXTEND BZF GOPIN # NO - + TC DOWNFLAG ADRES RNDVZFLG - + CA TRACKBIT # IS TRACK FLAG ON MASK FLAGWRD1 EXTEND BZF GOPIN # NO - + TC DOWNFLAG ADRES TRACKFLG - + TC DOWNFLAG ADRES UPDATFLG - + TC DOWNFLAG ADRES IMUSE - + CAF EBANK6 TS EBANK - + INHINT TC STOPRATE - + CAF NEGONE TS OPTIND - + TC INTPRET CALL INTSTALL # DON'T INTERRUPT INTEGRATION @@ -975,29 +975,29 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON # Page 260 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY OCT 1 # ALSO KILL GROUP 1 - + CLEANOUT INHINT TC POSTJUMP CADR ENEMA # CAUSE RESTART - + # LEMVEC VERB 80 DESCRIPTION # UPDATE LEM STATE VECTOR # RESET VEHUPFLG TO 0 LEMVEC TC DOWNFLAG ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM - + TCF GOPIN - + # CSMVEC VERB 81 DESCRIPTION # UPDATE CSM STATE VECTOR # SET VEHUPFLG TO 1 CSMVEC TC UPFLAG ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM - + TCF GOPIN - + # DNEDUMP VERB 74 DESCRIPTION # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP. # @@ -1021,13 +1021,13 @@ LDNDUMPI REMADR DNDUMPI LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT ADRES GRRBKFLG # BIT 5 FLAG 5 TC GOPIN - + # Page 261 CHKP00H CA MODREG EXTEND BZF TCQ TCF ALM/END - + EXDAPOFF EXTEND DCA IDLECADR # SET T5 TO IDLE. DXCH T5LOC @@ -1035,14 +1035,14 @@ EXDAPOFF EXTEND MASK FLAGWRD6 # RESET DAPBITS 1 AND 2. TS FLAGWRD6 TC Q - + SBANK= PINSUPER # Added RSB 2009 EBANK= PACTOFF IDLECADR 2CADR T5IDLOC # Page 262 # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63) -# +# # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM. @@ -1086,17 +1086,17 @@ V89PERF TC CHKP00H # DEMAND P00 SBANK= LOWSUPER # Added by RSB 2009. EBANK= P21TIME 2CADR V89CALL - + TCF ENDOFJOB - + WMATRXNG TC DOWNFLAG # RESET RENDWFLAG - ADRES RENDWFLG + ADRES RENDWFLG # Page 263 - + TC DOWNFLAG # RESET ORBWFLAG ADRES ORBWFLAG TC GOPIN - + GOSHOSUM EQUALS SHOWSUM SHOWSUM TC CHKP00H @@ -1121,7 +1121,7 @@ NOKILL CA ADRS1 # * TC NOKILL # * CA SELFADRS TS SKEEP1 - + TC ENDEXT # * VNCON VN 501 # * @@ -1130,20 +1130,20 @@ ENDSUMS CA SKEEP6 # * EXTEND # * BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN. TC STSHOSUM # * START SHOWSUM AGAIN. - - + + # VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED. SETPRFLG TC UPFLAG ADRES PRFTRKAT # BIT 10 FLAG 5 TC GOPIN - + # VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT. RESETPRF TC DOWNFLAG ADRES PRFTRKAT # BIT 10 FLAG 5 TC GOPIN - + # Page 264 # VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA. @@ -1151,29 +1151,29 @@ SETVHFLG TC INTPRET SET EXIT VHFRFLAG TC GOPIN - + # VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA. RESETVHF TC INTPRET CLEAR EXIT VHFRFLAG TC TRFAILOF # TRACKER FAIL LIGHT - + TC GOPIN - + # VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO # OTHER VEHICLE STATE VECTOR. # USE SUBROUTINE GENTRAN. - + EBANK= RRECTHIS ATTACHED CAF PRIO10 TC FINDVAC EBANK= RRECTHIS 2CADR ATTACHIT - + TC ENDOFJOB - + ATTACHIT TC INTPRET CALL INTSTALL @@ -1188,7 +1188,7 @@ ATTACHIT TC INTPRET TC GENTRAN ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN ADRES RRECTOTH - + TACHEXIT RELINT TC INTPRET CALL # UPDATE RN, VN, R-OTHER, V-OTHER @@ -1200,16 +1200,16 @@ TACHEXIT RELINT CALL SVDWN2 EXIT - + CAF TCPINAD INDEX FIXLOC TS QPRET TC POSTJUMP CADR INTWAKE - + TCPIN RTB PINBRNCH - + OCT51 OCT 51 TCPINAD CADR TCPIN @@ -1219,9 +1219,9 @@ LMTOCMSV CAF PRIO10 TC FINDVAC EBANK= RRECTHIS 2CADR LMTOCM - + TC ENDOFJOB - + LMTOCM TC INTPRET CALL INTSTALL @@ -1232,14 +1232,14 @@ LMTOCM TC INTPRET CLEAR MOONTHIS EXIT - + CAF OCT51 TC GENTRAN ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN ADRES RRECTHIS - + TCF TACHEXIT - + # VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23. VERB94 CAF V94FLBIT @@ -1247,18 +1247,18 @@ VERB94 CAF V94FLBIT # Page 266 EXTEND BZF ALM/END # NO --- OPERATOR ERROR - + TC DOWNFLAG ADRES V94FLAG - + TC CHECKMM # IS IT P23 MM 23 TC ALM/END # NO -- OPERATOR ERROR TC PHASCHNG OCT 112 # SET GROUP 2 TO DO R64 - + TC CLEANOUT # CAUSE RESTART - + # V90PERF VERB 90 DESCRIPTION # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36) # @@ -1277,27 +1277,27 @@ V90PERF TC TESTXACT SBANK= PINSUPER # Added RSB 2009 EBANK= RPASS36 2CADR R36 - + TCF ENDOFJOB - + # VERB 96 SET QUITFLAG TO STOP INTEGRATION VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT ADRES QUITFLAG # AT NEXT TIMESTEP - + TC UPFLAG ADRES V96ONFLG CAF ZERO TC POSTJUMP CADR V37 # GO TO P00 - + EBANK= LANDMARK V52 TC CHECKMM # IS P22 OPERATING MM 22 TC ALM/END # NO CAF LANDBANK TS EBANK - + # Page 267 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK = MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER @@ -1320,15 +1320,15 @@ V67 TC TESTXACT TC FINDVAC EBANK= W 2CADR V67CALL - + TC ENDOFJOB - + # VB 44. SET SURFACE FLAG. SETSURF TC UPFLAG ADRES SURFFLAG TCF GOPIN - + # VB 45. RESET SURFACE FLAG RESTSRF TC DOWNFLAG diff --git a/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc b/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc index d8c439c..95adc9a 100644 --- a/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc +++ b/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -38,11 +38,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 @@ -160,7 +160,7 @@ OCT17770 OCT 17770 PRIO21 OCT 21000 BLOCK 03 COUNT 03/FCONS - + PRIO22 OCT 22000 # SERVICE ROUTINES PRIO23 OCT 23000 PRIO24 OCT 24000 @@ -176,7 +176,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 PRIO35 OCT 35000 PRIO36 OCT 36000 # Page 1203 diff --git a/Comanche055/FRESH_START_AND_RESTART.agc b/Comanche055/FRESH_START_AND_RESTART.agc index 8c89614..49cf3e4 100644 --- a/Comanche055/FRESH_START_AND_RESTART.agc +++ b/Comanche055/FRESH_START_AND_RESTART.agc @@ -13,11 +13,11 @@ # 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE" # in INITSUB. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -136,14 +136,14 @@ BANK 10 SETLOC FRANDRES BANK - + EBANK= LST1 - - COUNT 05/START + + COUNT 05/START 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 @@ -151,20 +151,20 @@ SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF OCT 77777 # SIMULATION START ADDRESS. SKIPSIM CA DSPTAB +11D - MASK BITS4&6 - AD BIT15 + MASK BITS4&6 + AD BIT15 TS DSPTAB +11D # REQUESTED FRESH START. - + CA ZERO # SAME STORY ON ZEROING FAILREG. TS ERCOUNT TS FAILREG TS FAILREG +1 TS FAILREG +2 TS REDOCTR - + CS PRIO12 TS DSRUPTSW - + DOFSTART CAF ZERO # DO A FRESH START. TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART @@ -202,26 +202,26 @@ DOFSTART CAF ZERO # DO A FRESH START. CS ZERO TS MODREG - + CAF PRIO30 TS RESTREG - + CAF IM30INIF # FRESH START IMU INITIALIZATION. TS IMODES30 - + CAF NEGONE TS OPTIND # KILL COARSE OPTICS - + CAF OPTINITF TS OPTMODES - + CAF IM33INIT TS IMODES33 - + EXTEND # LET T5 IDLE. DCA T5IDLER DXCH T5LOC - + CA SWINIT TS STATE @@ -256,10 +256,10 @@ DOFSTART CAF ZERO # DO A FRESH START. EXTEND DCA SWINIT +10D DXCH STATE +10D - + ENDRSTRT TC POSTJUMP CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.) - + MR.KLEAN INHINT EXTEND DCA NEG0 @@ -280,7 +280,7 @@ V37KLEAN EXTEND DCA NEG0 DXCH -PHASE6 TC Q - + OCT6200 OCT 6200 # Page 186 @@ -300,12 +300,12 @@ GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER. EXTEND # STATE OF AGC WARNING BIT. BZF BUTTONS - CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A - EXTEND # FRESH START ON THE ASSUMPTION THAT + CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A + EXTEND # FRESH START ON THE ASSUMPTION THAT RAND CHAN33 # WE ARE IN A RESTART LOOP. EXTEND BZF NONAVKEY +1 - + BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE. # ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X @@ -348,12 +348,12 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS CS INTFLBIT MASK RASFLAG TS RASFLAG - + CA OPTMODES MASK OPTINITR AD BIT7 TS OPTMODES - + CAF BIT6 MASK IMODES33 AD IM33INIT @@ -368,17 +368,17 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS BZF NOCOARSE TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO CADR SETCOARS # COARSE ALIGN. - + CAF SIX TC WAITLIST EBANK= CDUIND 2CADR CA+ECE - + NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON MASK IMODES30 # HARDWARE RESTART. RESET ALL AD IM30INIR # FAILURE CODES. TS IMODES30 - + CS FLAGWRD5 MASK ENGONBIT CCS A @@ -395,17 +395,17 @@ ENEMA INHINT CS INTMASK # RESET INTEGRATION BITS MASK RASFLAG TS RASFLAG - + CS FLAGWRD6 # IS TVC ON MASK OCT60000 EXTEND BZMF GOPROG3 # NO - + CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED TC WAITLIST # IN STARTSB2 EBANK= BZERO 2CADR TVCEXEC - + GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS PCLOOP TS MPAC +5 DOUBLE @@ -421,12 +421,12 @@ PCLOOP TS MPAC +5 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 - + CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF MASK OCT60000 # FLAGWORD6 = 01) EXTEND # YES, DO STOPRATE @@ -446,16 +446,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 @@ -465,7 +465,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 DOFSTART # IN R21. # ********* ********* ********** @@ -525,7 +525,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, EBANK= LST1 CAF STARTEB TS EBANK # SET FOR E3 - + CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. TS LST1 +7 TS LST1 +6 @@ -557,7 +557,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, TS LST2 +13D TS LST2 +15D TS LST2 +17D - + CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS TS PRIORITY # AVAILABLE. TS PRIORITY +12D @@ -566,10 +566,10 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, TS PRIORITY +48D TS PRIORITY +60D TS PRIORITY +72D - + TS DSRUPTSW TS NEWJOB # SHOWS NO ACTIVE JOBS. - + CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. TS VAC1USE AD LTHVACA @@ -580,16 +580,16 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, TS VAC4USE AD LTHVACA TS VAC5USE - + CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN, # R1,R2,R3) -DSPOFF TS MPAC +DSPOFF TS MPAC CS BIT12 INDEX MPAC TS DSPTAB CCS MPAC TCF DSPOFF - + TS DELAYLOC # Page 192 TS DELAYLOC +1 @@ -616,34 +616,34 @@ DSPOFF TS MPAC TS FLAGWRD4 # KILL INTERFACE DISPLAYS CAF NOUTCON TS NOUT - + CAF BIT14 MASK EXTVBACT TS EXTVBACT CAF LESCHK # SELF CHECK GO-TO REGISTER. TS SELFRET - + CS VD1 TS DSPCOUNT - + TC Q - + T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS TCF NOQRSM +1 # WHEN NOBODY IS USING IT. - + EBANK= OGANOW T5IDLER 2CADR T5IDLOC EBANK= OGANOW 2CADR REDORCS - + EBANK= OGANOW 2CADR REDOTVC - + EBANK= OGANOW 2CADR REDOSAT # Page 193 - + IFAILINH OCT 435 LDNPHAS1 GENADR DNPHASE1 LESCHK GENADR SELFCHK @@ -666,7 +666,7 @@ SWINIT OCT 0 OCT 0 OCT 0 OCT 0 - + OCT 0 OCT 00200 OCT 0 @@ -701,20 +701,20 @@ SWINIT OCT 0 BLOCK 02 SETLOC FFTAG10 BANK - + COUNT 02/P00 - + GOTOP00H TC PHASCHNG # RESTART GOTOP00H OCT 14 - + TC POSTJUMP CADR GOP00FIX BANK 10 SETLOC VERB37 BANK - + COUNT 04/P00 - + GOP00FIX TC INITSUB TC CLEARMRK +2 CAF V37N99 @@ -795,37 +795,37 @@ V37N99 VN 3799 BLOCK 02 SETLOC FFTAG10 BANK - + COUNT 02/V37 - + OCT24 MM 20 OCT31 MM 25 BANK 27 SETLOC VERB37 BANK - + COUNT 04/V37 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 CANTR00 - + CAF BIT13 # IS ENGINE ON EXTEND RAND DSALMOUT CCS A TCF R00TOP00 # YES, SET UP FOR P00 - + CS FLAGWRD6 # NO, IS TVC DAP ON MASK OCT60000 EXTEND BZMF ISITP00 # NO, CONTINUE WITH R00 - + R00TOP00 INHINT CAF EBANK6 # Page 198 @@ -840,7 +840,7 @@ R00TOP00 INHINT CAF 3.1SEC TC IBNKCALL CADR RCSDAPON +1 - + TC IBNKCALL CADR TVCZAP # DISABLE TVC CAF ZERO @@ -857,19 +857,19 @@ R00TOP00 INHINT ISITP00 CA MMNUMBER EXTEND BZF ISSERVON # YES, CHECK SERVICER STATUS - + CS FLAGWRD2 # NO, IS NODO V37 FLAG SET MASK NODOBIT CCS A TCF CHECKTAB # NO CANTR00 TC ALARM OCT 1520 - + V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE CADR PINBRNCH # WAS ONE. OY - + CHECKTAB CA NOV37MM # THE NO. OF MM AGAINMM TS MPAC +1 NDX MPAC +1 @@ -882,10 +882,10 @@ AGAINMM TS MPAC +1 # Page 199 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 @@ -895,15 +895,15 @@ ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37 TS FLAGWRD1 - + TCF ENDOFJOB - + CANV37 CAF R00AD TS TEMPFLSH - + TC PHASCHNG OCT 14 - + ROC TC INTPRET CALL # WAIT FOR INTEGRATION TO FINISH @@ -929,40 +929,40 @@ DUMMYAD EXIT TC DOWNFLAG ADRES STIKFLAG - + # Page 200 TC BANKCALL CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT - + TC DOWNFLAG ADRES VHFRFLAG TC DOWNFLAG ADRES R21MARK - + CCS MMNUMBER # IS THIS A P00H REQUEST TCF NOUVEAU # NO, PICK UP NEW PROGRAM - + COUNT 04/P00 - + P00H TC RELDSP # RELEASE DISPLAY SYSTEM CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. - TS PHSPRDT2 - + TS PHSPRDT2 + INHINT - + CS NODOBIT # TURN OFF NODOFLAG. MASK FLAGWRD2 TS FLAGWRD2 - + CA FIVE # SET 2.5 RESTART FOR STATEINT1 TS L COM DXCH -PHASE2 - + CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF MASK FLAGWRD0 TS FLAGWRD0 # RENDFLG - + CAF DNLADP00 COUNT 04/V37 @@ -974,7 +974,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE TS EBANKTEM MASK FLAGWRD1 TS FLAGWRD1 - + GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6 CADR V37KLEAN @@ -983,13 +983,13 @@ GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6 # Page 201 TC IBNKCALL CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4. - + GOMOD CA MMNUMBER TS MODREG - + GOGOPROG TC POSTJUMP CADR GOPROG2 - + RENDV00 CS MMNUMBER # IS NEW PROG = 20 AD OCT24 # 20 EXTEND @@ -998,8 +998,8 @@ RENDV00 CS MMNUMBER # IS NEW PROG = 20 RENDN00 CS MMNUMBER AD MODREG EXTEND - BZF KILL20 - + BZF KILL20 + CA FLAGWRD0 # IS RENDEZVOO FLAG SET MASK RNDVZBIT CCS A @@ -1012,21 +1012,21 @@ P00FIZZ CAF RNDVZBIT KILL20 EXTEND # NO, KILL GROUPS 1 + 2 DCA NEG0 DXCH -PHASE1 - + EXTEND DCA NEG0 DXCH -PHASE2 - + REV37 CAF V37QCAD # SET RESTART POINT TS TEMPFLSH - + TCF GOGOPROG - - + + STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG - MASK OCT120 + MASK OCT120 ADS FLAGWRD1 - + EXTEND # KILL GROUP 4 DCA NEG0 DXCH -PHASE4 @@ -1034,10 +1034,10 @@ STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG # Page 202 TCF GOMOD -NOUVEAU CAF RNDVZBIT +NOUVEAU CAF RNDVZBIT MASK FLAGWRD0 CCS A - TCF +3 + TCF +3 TC DOWNFLAG # NO, RESET IMUINUSE FLAG ADRES IMUSE # BIT 8 FLAG 0 +3 INDEX MINDEX @@ -1045,22 +1045,22 @@ NOUVEAU CAF RNDVZBIT INHINT TCF SEUDOP00 - + V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST TCF V37BAD - + OCT00010 EQUALS BIT4 V37XEQ INHINT INDEX MINDEX - CAF PREMM1 + CAF PREMM1 TS MMTEMP # OBTAIN PRIORITY BITS 15-11 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 @@ -1071,13 +1071,13 @@ V37XEQ INHINT TS BASETEMP 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 # PHSBRDT1) @@ -1086,15 +1086,15 @@ V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE # FOR SUNDISK ONLY TC RELDSP # RELEASE DISPLAY TC ENDOFJOB # AND EXIT - + INITSUB EXTEND QXCH MPAC +1 - + CAF EBANK6 # SET E6 FOR DEADBAND CODING TS EBANK # WILL BE RESET IN STARTSB2 INHINT TC STOPRATE - + CA FLAGWRD9 # RESTORE DEADBAND MASK MAXDBBIT CCS A @@ -1104,7 +1104,7 @@ INITSUB EXTEND TCF RAKE SETMAXER TC BANKCALL CADR SETMAXDB - + RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS. +1 TS MPAC # LOOP COMES HERE INDEX MPAC @@ -1116,14 +1116,14 @@ RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS. CCS MPAC TCF RAKE +1 # GET THE NEXT FLAGWORD RELINT - + TC UPFLAG # NOW SET IMPULSW ADRES IMPULSW - + CA NEGONE TS OPTIND TC MPAC +1 # RETURN FROM INITSUB - + FLAGTABL OCT 0 OCT 00040 # IDLEFAIL OCT 06000 # P21FLAG, STEERSW @@ -1131,13 +1131,13 @@ FLAGTABL OCT 0 OCT 0 OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG OCT 10000 # STRULLSW - OCT 16000 + OCT 16000 OCT 0 # Page 204 OCT 42000 # SWTOVER, V94FLAG OCT 0 OCT 0 - + SETLOC VAC5LOC BANK VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS @@ -1204,7 +1204,7 @@ V5OUT2 CA MPAC +3 CA NEWJOB TS VAC5 +22D - + CA NEWPRIO TS VAC5 +26D @@ -1240,7 +1240,7 @@ RCSADDR4 2CADR RCSATT # 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 @@ -1335,7 +1335,7 @@ PREMM1 EQUALS OCT 27021 # MM 17 EBANK 6 PRIO 13 OCT 27006 # MM 06 EBANK 4 PRIO 13 OCT 41201 # MM 01 EBANK 5 PRIO 20 - + # Page 208 # THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA @@ -1364,7 +1364,7 @@ PREMM1 EQUALS EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20 EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06 EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01 - + # 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) @@ -1432,21 +1432,21 @@ RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS BANK 13 SETLOC INTINIT BANK - + COUNT* $$/INTIN - + EBANK= RRECTCSM - + STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR VINTFLAG # Page 210 ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID +3 # FOR ORBITAL NAVIGATION - SET + SET DIM0FLAG CLEAR CALL PRECIFLG - INTEGRV + INTEGRV BON DLOAD SURFFLAG STATEND @@ -1456,7 +1456,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR CLEAR CALL # EXTRAPOLATE LM STATE VECTOR VINTFLAG SETIFLGS # AND 6X6 W-MATRIX IF VALID - BOF SET + BOF SET RENDWFLG # FOR RENDEZVOUS NAVIGATION +2 DIM0FLAG @@ -1466,9 +1466,9 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR STATEND CLRGO NODOFLAG ENDINT - + # THIS VINT IS CALLED BY MIDTOAV1 AND 2 - + THISVINT SET RVQ VINTFLAG - + diff --git a/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc b/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc index 9cd8718..03882c6 100644 --- a/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc +++ b/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc @@ -7,13 +7,13 @@ # Reference: pp. 412-413 # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. -# Mod history: 05/07/09 OH Transcription Batch 1 Assignment +# Mod history: 05/07/09 OH Transcription Batch 1 Assignment # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -29,17 +29,17 @@ # Page 412 - BANK 15 + BANK 15 SETLOC KALCMON1 BANK - + EBANK= BCDU - + # DETECTING GIMBAL LOCK LOCSKIRT EQUALS WCALC WCALC LXC,1 DLOAD* RATEINDX - ARATE,1 + ARATE,1 SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION # ABOUT COF @@ -48,7 +48,7 @@ WCALC LXC,1 DLOAD* COF MXV QUADROT - STODL BRATE + STODL BRATE AM DMP DDV* ANGLTIME @@ -64,16 +64,16 @@ WCALC LXC,1 DLOAD* SETGO # STATE SWITCH CALCMAN2 (43D) CALCMAN2 # 0(OFF) = BYPASS STARTING PROCEDURE NEWANGL +1 # 1(ON) = START MANEUVER - - + + ARATE 2DEC .0022222222 # = .05 DEG/SEC 2DEC .0088888889 # = .2 DEG/SEC - + 2DEC .0222222222 # = .5 DEG/SEC - + 2DEC .0888888889 # = 2 DEG/SEC $22.5 DEG/SEC - + ANGLTIME 2DEC .000190735 # = 100B - 19 # MANEUVER ANGLE TO MANEUVER TIME @@ -81,19 +81,19 @@ QUADROT 2DEC .1 # ROTATION MATRIX FROM S/C AXES TO CONTROL # Page 413 2DEC 0 # AXES (X ROT = -7.25 DEG) - + 2DEC 0 - + 2DEC 0 - + 2DEC .099200 # =(.1)COS7.25 - + 2DEC -.012620 # =-(.1)SIN7.25 - + 2DEC 0 - + 2DEC .012620 # (.1)SIN7.25 - + 2DEC .099200 # (.1)COS7.25 - + BIASCALE 2DEC .0002543132 # = (450/180)(1/0.6)(1/16384) diff --git a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc index de0a100..6ae9703 100644 --- a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc +++ b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc @@ -7,14 +7,14 @@ # Reference: pp. 456-459 # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. -# Mod history: 2009-05-07 OH Transcription Batch 1 Assignment +# Mod history: 2009-05-07 OH Transcription Batch 1 Assignment # 2009-05-20 RSB Corrected a couple of DIMOFLAG to DIM0FLAG. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -90,7 +90,7 @@ EBANK= P21TIME COUNT 24/P21 - + PROG21 CAF ONE TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001 CAF BIT2 # OPTION 2 @@ -106,7 +106,7 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG. TC +2 # PROCEED VALUES OK TC -5 # TIME LOADED THROUGH DSKY TC INTPRET - DLOAD + DLOAD DSPTEM1 STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC INTSTALL @@ -126,9 +126,9 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG. INTEGRV # CALCULATE GOTO # .AND P21VSAVE # ..SAVE BASE VECTOR -P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR +P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR P21BASER -# Page 458 +# Page 458 STOVL RCV # ..POS P21BASEV STODL VCV # ..VEL @@ -179,7 +179,7 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA DMP # MPAC = ALT, METERS B-29 K.01 STORE P21ALT # ALT/100 FOR N73 DSP -# Page 459 +# Page 459 EXIT CAF V06N43 # DISPLAY LAT,LONG,ALT TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON @@ -191,9 +191,9 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA P21TIME 600SEC # 600 SECONDS OR 10 MIN STORE DSPTEM1 - RTB + RTB P21PROG1 - + 600SEC 2DEC 60000 # 10 MIN P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE diff --git a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc index 0ae9808..3ba45f0 100644 --- a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc +++ b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc @@ -12,11 +12,11 @@ # of 25DECML fixed. # 2009-05-23 RSB At SPECSTS, corrected to PRIO22. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -48,7 +48,7 @@ BANK 33 SETLOC IMUCAL BANK - + EBANK= POSITON IMUTEST CA ZERO TS DRIFTT @@ -58,11 +58,11 @@ IMUTEST CA ZERO TC COAALIGN # TAKE CARE OF DRIFT FLAG CAF 1SECX TS 1SECXT1 - + CA OC14400 - TS 1/PIPADT + TS 1/PIPADT GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE - CALL + CALL LATAZCHK COS DCOMP SL1 @@ -122,10 +122,10 @@ NBPOSPL CA DEC17 EXTEND DCA PERFDLAY TC LONGCALL - SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron + SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron EBANK= POSITON 2CADR GOESTIMS - + CA ESTICADR TC JOBSLEEP GOESTIMS CA ESTICADR @@ -140,11 +140,11 @@ TORQUE CA ZERO INDEX POSITON TS SOUTHDR -1 TC SHOW - + PIPACHK INDEX NDXCTR # PIPA TEST TC +1 TC EARTHR* - CA DEC57 + CA DEC57 TS LENGTHOT CA ONE TS RESULTCT @@ -173,9 +173,9 @@ STARTPIP CAF PRIO20 TC FINDVAC EBANK= XSM 2CADR PIPJOBB - + TC TASKOVER - + PIPJOBB INDEX NDXCTR TC +1 TC EARTHR* @@ -190,7 +190,7 @@ PIPJOBB INDEX NDXCTR EXTEND DCS DATAPL DAS DATAPL +4 - + TC INTPRET DLOAD DSU DATAPL +6 @@ -222,7 +222,7 @@ PON4 CS BIT5 # OFFSET PLATFORM CA BIT5 ADS ERCOMP1 TCF PONG -PON2 CS BIT5 +PON2 CS BIT5 ADS ERCOMP1 +2 CA BIT5 ADS ERCOMP1 +4 @@ -242,7 +242,7 @@ VALMIS CA DRIFTO CA ZERO TS DSPTEM2 TC SHOW - + ENDTEST1 TC DOWNFLAG # IMU NOT IN USE ADRES IMUSE # BIT 8 FLAG 0 CS ZERO @@ -251,12 +251,12 @@ ENDTEST1 TC DOWNFLAG # IMU NOT IN USE CADR MKRELEAS TC ENDEXT # Page 428 - + OVERFFIX DAD DAD DPPOSMAX ONEDPP RVQ - + COAALIGN EXTEND # COARSE ALIGN SUBROUTINE QXCH QPLACE CA ZERO @@ -273,7 +273,7 @@ COAALIGN EXTEND # COARSE ALIGN SUBROUTINE IMUSTLLG EXTEND QXCH QPLACE TC COAALIGN +10 - + CHECKG EXTEND # PIP PULSE CATCHING ROUTINE QXCH QPLACE TC +6 @@ -359,7 +359,7 @@ ERTHR SL VXSC PULSEIMU GOTO S2 - + EARTHR* EXTEND QXCH QPLACES TC INTPRET @@ -369,7 +369,7 @@ PROUT EXIT TC IMUSTLLG TC QPLACES # Page 431 - + SHOW EXTEND QXCH QPLACE SHOW1 CA POSITON @@ -380,7 +380,7 @@ SHOW1 CA POSITON TC ENDTEST1 # V34 TC QPLACE # V33 TCF SHOW1 - + OC14400 OCT 14400 3990DEC = OMEG/MS VB06N98 VN 0698 @@ -395,7 +395,7 @@ OMEG/MS 2DEC .24339048 P11OUT TC BANKCALL CADR MATRXJOB # RETURN TO P11 - + COUNT 02/COMST BLOCK 2 @@ -417,7 +417,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED EXTEND READ HISCALAR TC Q - + # Page 432 # PROGRAM NAME: OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION # DATE: NOVEMBER 2 1966 @@ -437,7 +437,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED # A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST. # THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1 # EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX. -# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE +# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE # OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973. BOTH OF THESE # ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION # PROCEDURE THE DRIFT TESTS IS IN THE JDC'S. THE INITIALIZATION METHOD @@ -493,7 +493,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED # ON THE NEXT FEW PAGES. COUNT 33/P02 - + EBANK= XSM BANK 33 SETLOC IMUCAL @@ -524,7 +524,7 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART STORE GCOMP STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED EXIT - + CCS GEOCOMP1 # NON ZERO IF COMPASS. TC +2 TC SLEEPIE +1 @@ -534,11 +534,11 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART EXIT CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING TS ERECTIME - + TC NEWMODEX MM 02 TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM -# Page 435 +# Page 435 CADR PIPUSE # COMPASS NEVER TURNS THIS OFF TC ANNNNNN # END OF FIRST TIME THROUGH @@ -554,7 +554,7 @@ SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGHOT WTLISTNT TC CHKCOMED # SEE IF COMPASS OVER TC SETGWLST TC ENDOFJOB - + SETGWLST EXTEND QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE INHINT @@ -572,7 +572,7 @@ WTGTSMPL TC TWIDDLE TC MPAC RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME TC WTGTSMPL # END OF WAITLIST SECTION - + # STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING 25DECML EQUALS OCT31 @@ -597,9 +597,9 @@ LOADSTDT CAF 25DECML CCS MPAC TCF LOADSTDT +1 TC Q - + # COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE - + ALLOOP CA TIME1 TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST. ALLOOP3 CA ALTIM @@ -629,9 +629,9 @@ SPECSTS CAF PRIO22 TC FINDVAC EBANK= GEOSAVE1 2CADR ALFLT # START THE JOB - + TC TASKOVER - + # Page 438 # THIS IS PART OF THE JOB DONE EVERY ITERATION @@ -659,20 +659,20 @@ NORMLOP TC INTPRET STODL DPIPAY MPAC +5 STORE DPIPAZ - + SETPD AXT,1 0 8D SLOAD DCOMP GEOCOMP1 - BMN + BMN ALWAYSG # DO A QUICK COMPASS # Page 439 # NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES COUNT 33/COMST - + ALCGKK SLOAD BMN ALTIMS ALFLT3 # NO NEW GAINS NEEDED @@ -686,7 +686,7 @@ ALKCG2 DLOAD* INCR,1 TIX,2 SXA,1 ALKCG2 ALX1S - + ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES 8D # AND GAIN UPDATES DELMLP DLOAD* DMP @@ -740,7 +740,7 @@ ALKLP LXC,1 SXA,1 TIX,2 AXT,1 ALKLP 8D - + LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES ACCWD +8D,1 VLAUN +8D,1 @@ -759,7 +759,7 @@ LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES STORE ACCWD +8D,1 TIX,1 LOOSE - + AXT,2 AXT,1 # EVALUATE SINES AND COSINES 6 2 @@ -777,13 +777,13 @@ BOOP DLOAD* DMPR STORE 22D,2 # COSINES TIX,2 BOOP - + PERFERAS EXIT CA EBANK7 EBANK= LAT(SPL) TS EBANK TC LAT(SPL) # GOTO ERASABLE ONLY TO RETURN - + # CAUTION # # THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED @@ -809,9 +809,9 @@ SETUPER1 TC INTPRET # DRIFT TEST OVER XSM STORE OGC EXIT - + TORQINCH TC PHASCHNG - OCT 00005 + OCT 00005 CA OGCPL TC BANKCALL CADR IMUPULSE @@ -824,39 +824,39 @@ TORQINCH TC PHASCHNG ERTHRVSE EXIT TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY - + SOMEERRR TC ALARM OCT 1600 TC +3 SOMERR2 TC ALARM - OCT 1601 + OCT 1601 TC PHASCHNG OCT 00005 TC ENDTEST1 - -# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD - + +# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD + DEC585 OCT 02222 # 1170 B+14 ORDER IS NOW IMPORTANT SCHZEROS 2DEC .00000000 2DEC .00000000 OCT 00000 ONEDPP OCT 00000 OCT 00001 # ABOVE ORDER IS IMPORTANT - + INTVAL OCT 4 OCT 2 DEC 144 DEC -1 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES - + 77DECML DEC 77 ALXXXZ GENADR ALX1S -1 # GYROCOMPASS PORTIONS FINISH THIS LOG SECTION COUNT 33/P01 - + # INITIALIZATION SECTION GTSCPSS CA FLAGWRD1 # CALLED BY V37 @@ -866,7 +866,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37 BZF GTSCPSSA TC P00DOO OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE - + GTSCPSSA CAF ONE TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS CA 1/PIPAGT @@ -892,8 +892,8 @@ SETUPGC CA DEC17 TC ZEROING TC POSN17C TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION - - + + POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWISE CS HALF # ALL THIS TO INITIALIZE MATRIX @@ -910,12 +910,12 @@ POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE STORE XSM +2 EXIT TC QPLACE - + # Page 444 # JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP COUNT 33/P02 - + ALWAYSG DLOAD* DSU* # COMPASS AND ERECT DPIPAY +8D,1 FILDELV1 +8D,1 @@ -962,7 +962,7 @@ COMPGS DLOAD DAD # COMPASS GEOCONS4 BDSU STADR STORE THETAN1 +2 -# Page 445 +# Page 445 ADDINDRF EXIT @@ -971,7 +971,7 @@ ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM TC CHKCOMED CCS LGYRO # YES BUT ARE GYROS BUSY TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW - + LASTGTS TC INTPRET VLOAD ERCOMP1 @@ -979,7 +979,7 @@ LASTGTS TC INTPRET TMARK STORE ALK EXIT # PREVIOUS SECTION WAS FOR RESTARTS - + RESTAIER TC PHASCHNG OCT 00275 TC INTPRET # ADD COMPASS COMMANDS INTO ERATE @@ -1040,19 +1040,19 @@ SPITGYRO CA ERCOMPPL CADR IMUSTALL TC SOMERR2 TC ESTIMS # RE-INITIALIZE - - + + NOAZCHGE EXIT CA ONE TS PREMTRXC NOCHORLD CCS GEOSAVE1 TS ERECTIM1 # COUNTS DOWN FOR ERECTION. - + ANNNNNN CAF NINE TS LENGTHOT TC SLEEPIE +1 - - + + CHKCOMED INHINT CS MODREG # CHECK FOR MM 07 FIRST AD SEVEN @@ -1064,13 +1064,13 @@ CHKCOMED INHINT MASK BIT5 # LIFTOFF BIT CCS A TCF PRELTERM # LIFTOFF HAS OCCURRED - + # Page 447 CA GRRBKBIT # CHECK FOR BACKUP LIFTOFF MASK FLAGWRD5 # BIT5 FLAGWRD5 CCS A TCF PRELTERM # BACKUP RECEIVED - + RELINT GOBKCALB TC Q @@ -1079,8 +1079,8 @@ PRELTERM CA PRIO22 # PRELAUNCH DONE -- SET UP P11 INHINT TC POSTJUMP CADR P11 - - + + ERCOMPPL ECADR ERCOMP GEOCONS5 EQUALS HIDPHALF @@ -1097,7 +1097,7 @@ GEOSTRT4 EQUALS ENDOFJOB # OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS COUNT 33/P03 - + GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE OCT 00154 TC NEWMODEX # ENTERED BY VERB 65 ENTER @@ -1131,9 +1131,9 @@ VN0641 VN 0641 CAF TWO TS L TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2 - + TC CONTIN33 - + V05N30E VN 0530 TC INTPRET # UNDYNAMIC ASSEMBLER @@ -1146,7 +1146,7 @@ TAR/EREF AXT,1 AXT,2 # TARGET VECTOR # Page 450 0 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6 - TAZEL1 +3,1 + TAZEL1 +3,1 STORE 0 # PD00 ELEVATION PD00 SIN STORE 18D,2 # PD06 *** SIN(EL) ***PD12 @@ -1169,13 +1169,13 @@ TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) ***PD14 TIX,2 RVQ TAR1 - - + + BANK 33 SETLOC IMUCAL BANK COUNT* $$/P03 - + CONTIN33 CA ONE TS STARCODE CA ZERO @@ -1186,7 +1186,7 @@ CONTIN33 CA ONE NEXTBNKS VLOAD MXV 6D XSM - VSL1 + VSL1 STOVL STARAD 12D MXV VSL1 @@ -1198,8 +1198,8 @@ NEXTBNKS VLOAD MXV EXIT TC BANKCALL CADR MKRELEAS - - + + NEXBNKSS CAF TWO TS STARCODE CAF SIX @@ -1230,7 +1230,7 @@ GCOMP5 TC BANKCALL CADR MKRELEAS TC DOWNFLAG ADRES TRM03FLG - + TC NEWMODEX MM 02 TC PHASCHNG @@ -1240,15 +1240,15 @@ V06N93S VN 0693 GTSOPTCS TC ALARM GTSOPTSS OCT 01602 TC GCOMP5 - - + + BANK 34 SETLOC IMUCAL1 BANK # Page 452 COUNT 34/COMST - + LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE LATITUDE STODL DSPTEM1 +1 @@ -1278,8 +1278,8 @@ VNG0641 VN 0641 BANK 33 SETLOC IMUCAL BANK - - + + COUNT* $$/P03 TARGDRVE EXTEND QXCH QPLAC @@ -1311,14 +1311,14 @@ RETARG CAF ZERO MASK TRM03BIT CCS A TC GCOMP5 - + INDEX MARKSTAT CA QPRET EXTEND BZF RETARG1 TC QPLAC - - + + RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA XCH MARKSTAT CCS A @@ -1336,7 +1336,7 @@ VELSC 2DEC -.52223476 ALSK 2DEC .17329931 2DEC -.00835370 - + GEORGEJ 2DEC .63661977 GEOCONS1 2DEC .1 @@ -1361,8 +1361,8 @@ LITTLSUB STQ TRG*NBSM GOTO QPLAC - - + + EXIT AZMTHCG1 TC INTPRET DLOAD RTB @@ -1391,7 +1391,7 @@ AZMTHCG1 TC INTPRET OCT 00004 TC POSTJUMP CADR PINBRNCH - + VN0629 VN 0629 # Page 455 diff --git a/Comanche055/IMU_COMPENSATION_PACKAGE.agc b/Comanche055/IMU_COMPENSATION_PACKAGE.agc index 2103864..9c539ff 100644 --- a/Comanche055/IMU_COMPENSATION_PACKAGE.agc +++ b/Comanche055/IMU_COMPENSATION_PACKAGE.agc @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -31,45 +31,45 @@ # Page 297 BANK 7 SETLOC IMUCOMP - BANK + BANK EBANK= NBDX - + COUNT 06/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 - + INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S # FOR DOWNLINK. - + 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 + 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(-8) * EXTEND @@ -78,7 +78,7 @@ MP BIT1 # SCALE 2(+14) SHIFT RIGHT 14 * INDEX BUF +2 DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT) - + CCS BUF +2 # PIPAZ, PIPAY, PIPAX # Page 298 AD NEG1 @@ -89,16 +89,16 @@ IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS. TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ. - -IRIGX EXTEND + +IRIGX EXTEND DCS DELVX # (PIPA PULSES) X 2(+14) DXCH MPAC CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) * 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(-3) * TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14) @@ -138,13 +138,13 @@ IRIGZ EXTEND CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) * # Page 300 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(-3) * TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14) - + # EXTEND # *** # DCS DELVX # *** (PIPA PULSE) X 2(+14) # DXCH MPAC # *** @@ -156,14 +156,14 @@ IRIGZ EXTEND # Page 301 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES - TCF +2 # YES - TCF IRIG1 # NO - + TCF +2 # YES + TCF IRIG1 # NO + CA PRIO21 # HIGHER THAN SERVICER -- LESS THAN PRELAUNCH - TC NOVAC + TC NOVAC EBANK= NBDX 2CADR 1/GYRO - + RELINT IRIG1 CA MODE # SET EBANK FOR RETURN TS EBANK @@ -208,7 +208,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 # NOW MINOR PART EXTEND MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 @@ -216,7 +216,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 @@ -224,23 +224,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER TCF +2 # YES TC BUF +1 # NO - + MASK NEGONE CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES TS GCOMPSW # YES -- SET GCOMPSW POSITIVE TC BUF +1 # NO - + # Page 303 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 @@ -248,7 +248,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 @@ -260,25 +260,25 @@ 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 - + V06N30S VN 0630 TCF ENDOFJOB -# Page 304 +# Page 304 NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE TCF +3 TCF +2 @@ -289,7 +289,7 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE TCF ENDOFJOB TCF ENDOFJOB TCF +1 - + CA TIME1 # (CS) X 2(+14) XCH 1/PIPADT # PREVIOUS TIME RELINT @@ -300,36 +300,36 @@ NBD2 CCS A # CALCULATE ELAPSED TIME. TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP TCF +2 # TIME1 OVERFLOW TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0) - + COM # CALCULATE ABSOLUTE DIFFERENCE AD POSMAX NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14) MP BIT10 # SHIFT RIGHT 5 - DXCH VBUF + DXCH VBUF EXTEND DCA VBUF DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19) - + CAF ZERO TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS. TS BUF # INDEX X, Y, Z. - + CS NBDX # (GYRO PULSES)/(CS) X 2(-5) TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14) - + EXTEND - DCS VBUF + DCS VBUF 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) - + EXTEND - DCS VBUF + DCS VBUF 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) -# Page 305 +# Page 305 CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES TCF 1/GYRO # YES TCF ENDOFJOB # NO @@ -337,13 +337,13 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14) # Page 306 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 # NO FRACTIONAL PART EXTEND MP MPAC +1 @@ -351,20 +351,20 @@ 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 PIPUSE - + CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE TCF +3 TCF +2 TCF ENDOFJOB - + CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8) XCH 1/PIPADT COM AD PIPTIME1 +1 # TIME AT PIPA1 =0 TCF NBD2 - + diff --git a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc index 0cfdcbb..cafe8a6 100644 --- a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc +++ b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 1420-1448 -# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from -# the Colossus249/ file of the same name, +# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from +# the Colossus249/ file of the same name, # using Comanche055 page images. # # This source code has been transcribed or otherwise adapted from digitized @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -38,7 +38,7 @@ # FIXED-FIXED ROUTINES COUNT 02/IMODE - + ZEROICDU CAF ZERO # ZERO ICDU COUNTERS. TS CDUX TS CDUY @@ -55,7 +55,7 @@ SPSCODE = BIT9 BANK COUNT 07/IMODE - + IMUZERO INHINT # ROUTINE TO ZERO ICDUS. CS DSPTAB +11D # DON'T ZERO CDUS IS IMU IN GIMBAL LOCK AND MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION) @@ -844,7 +844,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE BZF +3 TC P00DOO # NO OCT 1210 # 2 TRYING TO USE SAME DEVICE - + +3 EXTEND DCA BUF2 DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3 @@ -899,7 +899,7 @@ KALEBCON ECADR BCDU SETLOC R02 BANK COUNT 04/R02 # COUNT* - + DEC51 DEC 51 R02BOTH CAF BIT13 MASK STATE +3 # REFSMFLG @@ -1063,6 +1063,6 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER. ADRES NODOFLAG TC GOTOP00H - + diff --git a/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc b/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc index 55c0730..fcd90ac 100644 --- a/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc +++ b/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -43,7 +43,7 @@ # MGC, AND OGC RESPECTIVELY. COUNT 23/INFLT - + CALCGTA ITA DLOAD # PUSHDOWN 00-03, 16D-27D, 34D-37D S2 # XDC = (XD1 XD2 XD3) XDC # YDC = (YD1 YD2 YD3) diff --git a/Comanche055/INTEGRATION_INITIALIZATION.agc b/Comanche055/INTEGRATION_INITIALIZATION.agc index 6012ab7..9c96681 100644 --- a/Comanche055/INTEGRATION_INITIALIZATION.agc +++ b/Comanche055/INTEGRATION_INITIALIZATION.agc @@ -19,13 +19,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -275,7 +275,7 @@ BANK EBANK= RRECTCSM COUNT 13/INTIN - + STATEINT TC PHASCHNG OCT 00052 CAF PRIO5 @@ -325,7 +325,7 @@ NOINT EXIT TC DOWNFLAG ADRES QUITFLAG - + TC ENDOFJOB # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41 @@ -340,7 +340,7 @@ ATOPCSM STQ RTB S2 MOVEACSM SET CALL -# Page 1315 +# Page 1315 CMOONFLG SVDWN1 BON CLRGO @@ -438,7 +438,7 @@ USEPIOS SETPD VLOAD RLS PDDL PUSH TDEC1 -# Page 1317 +# Page 1317 STODL TET 5/8 CALL @@ -464,7 +464,7 @@ USEPIOS SETPD VLOAD STCALL TNUV A-PCHK OMEGMOON 2DEC* 2.66169947 E-8 B+23* - + SETBANK CAF INTBANK TS BBANK CAF FORTYONE @@ -646,7 +646,7 @@ ANDOUT BOFCLR EXIT BON GOTO VINTFLAG ATOPCSM -# Page 1321 +# Page 1321 ATOPLEM PHEXIT CALL GRP2PC @@ -928,7 +928,7 @@ SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,UN AS WELL AS +3 CLEAR CMOONFLG - + BON DLOAD # NOW DO LM SURFFLAG FAZAB5 # NO COASTING LM @@ -1029,7 +1029,7 @@ ENTMID1 CLEAR CALL BZE SET +2 AMOONFLG - VLOAD + VLOAD RATT STOVL RN1 VATT @@ -1055,7 +1055,7 @@ CKMID2 BOF RTB TDEC BPL CALL TESTLOOP # YES -# Page 1331 +# Page 1331 NOTIME TIMEINC RTB DAD @@ -1071,14 +1071,14 @@ MID2 DLOAD DSU 3CSECS BPL TIMEINC - + RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER LOADTIME TET DSU BPL 5.6SECS A-PCHK # YES. GET OUT. - + DLOAD DAD # NO. ADD TIMEDELT TO T-TO-ADD AND TRY T-TO-ADD # AGAIN. TIMEDELT diff --git a/Comanche055/INTER-BANK_COMMUNICATION.agc b/Comanche055/INTER-BANK_COMMUNICATION.agc index 3795b50..d0c4b81 100644 --- a/Comanche055/INTER-BANK_COMMUNICATION.agc +++ b/Comanche055/INTER-BANK_COMMUNICATION.agc @@ -10,14 +10,14 @@ # Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name # and page images. Corrected various typos # in the transcription of program comments, -# and these should be back-ported to +# and these should be back-ported to # Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -37,7 +37,7 @@ BLOCK 02 COUNT 02/BANK - + BANKCALL DXCH BUF2 # SAVE INCOMING A,L. INDEX Q # PICK UP CADR. CA 0 @@ -178,6 +178,6 @@ SUPERSW EXTEND # CHANNEL 07 TC Q # TC TO INSTRUCTION FOLLOWING # TC SUPERSW - + diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc index 0a2e426..050ff51 100644 --- a/Comanche055/INTERPRETER.agc +++ b/Comanche055/INTERPRETER.agc @@ -8,8 +8,8 @@ # Website: www.ibiblio.org/apollo. # Pages: 1107-1199 # Mod history: 2009-05-08 RSB Adapted from the Luminary131/ file of the -# same name, using Comanche055 page images. -# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a +# same name, using Comanche055 page images. +# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a # "Page N" reference. # 2009-05-21 RSB Corrected definition of 5B10, which overflowed # integer arithmetic. @@ -20,13 +20,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -41,7 +41,7 @@ # 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. @@ -128,15 +128,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 @@ -144,7 +144,7 @@ IERASTST EXTEND TS FBANK # LOCATION IN EACH FBANK.) ITR12 INDEX CYR 7 INDJUMP -1 - + GEADDR MASK LOW8 AD OCT1400 XCH ADDRWD @@ -159,7 +159,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). @@ -168,7 +168,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 @@ -179,7 +179,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 @@ -194,7 +194,7 @@ INDEX2 INDEX INDEXLOC TS ADDRWD ITR11 INDEX CYR 3 INDJUMP -1 - + INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA. TCF ITR13 -1 @@ -206,7 +206,7 @@ INDERASE CA OCT1400 # Page 1112 ITR13 INDEX CYR 3 INDJUMP -1 - + # Page 1113 # 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 @@ -227,7 +227,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 GREATER THAN OCT 7. - + -OCT10 OCT -10 AD NEG4 # WE NOW HAVE 7 -- OP CODE (MOD4). SEE IF @@ -235,7 +235,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 THE IS TIME. @@ -259,7 +259,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 @@ -270,13 +270,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 1115 # COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS. @@ -285,12 +285,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 @@ -305,7 +305,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 MPAC IN SINGLE PRECISION. TCF SSP # 11 -- SET SINGLE PRECISION INTO X. TCF PDDL # 12 -- PUSH DOWN MPAC AND RE-LOAD IN DP. @@ -314,7 +314,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. @@ -323,7 +323,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. @@ -332,7 +332,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR. TCF +0 # 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 1117 @@ -346,7 +346,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 @@ -367,7 +367,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. @@ -376,12 +376,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 1119 # 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: # @@ -393,17 +393,17 @@ 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 03/INTER - + STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE TS FBANK # ADDRESS) ENTERS HERE. INCR LOC ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR. AD NEGONE # (YUL CANT 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 @@ -411,7 +411,7 @@ DOSTORE TS ADDRWD MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS. ITR0 INDEX A TCF STORJUMP - + # Page 1120 # STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH # A SUPPLIED OPERATION CODE. @@ -424,30 +424,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 1121 # 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. @@ -471,27 +471,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 1123 # ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE # ITSELF. @@ -519,7 +519,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 @@ -529,12 +529,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 @@ -594,7 +594,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 @@ -609,26 +609,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 @@ -638,7 +638,7 @@ STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END TS 0 # HERE. # Page 1127 TCF DANZIG - + # Page 1128 # SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS. # @@ -669,7 +669,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 @@ -682,9 +682,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 @@ -698,14 +698,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. @@ -716,14 +716,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 1130 # TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS: # L+1 IF MPAC IS GREATER THAN ZERO. @@ -734,23 +734,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". @@ -776,7 +776,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 @@ -786,7 +786,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 @@ -794,7 +794,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA. EXTEND BZF +2 TC OVERFLWZ - + EXTEND INDEX ADDRWD READ LCHAN # DCA 0 OR DCS 0 @@ -806,11 +806,11 @@ DAD EXTEND ENDVXV DAS MPAC # VXV FINISHES HERE. EXTEND BZF DANZIG - + # Page 1132 SETOVF TC OVERFLOW TCF DANZIG - + # Page 1133 DSU EXTEND INDEX ADDRWD @@ -820,11 +820,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 @@ -840,18 +840,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 @@ -862,7 +862,7 @@ BVSU EXTEND EXTEND BZF +2 TC OVERFLWZ - + # Page 1134 BDSU EXTEND INDEX ADDRWD @@ -871,7 +871,7 @@ BDSU EXTEND EXTEND DCOM TCF ENDVXV - + # Page 1135 # TRIPLE PRECISION ADD ROUTINE. @@ -884,9 +884,9 @@ TAD EXTEND AD MPAC TS MPAC TCF DANZIG - + TCF SETOVF # SET OVFIND IF SUCH OCCURS. - + # Page 1136 # ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED. # 1. DMPSUB DOUBLE PRECISION MULTIPLY, MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS @@ -916,11 +916,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. @@ -929,7 +929,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 1137 # ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW. @@ -979,7 +979,7 @@ DOTSUB EXTEND TS BUF TCF +2 TS OVFIND # IF OVERFLOW OCCURS. - + DXCH MPAC +5 # MULTIPLY Z COMPONENTS. DXCH MPAC CA DOTINC @@ -1037,30 +1037,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 1140 DXCH MPAC # LOAD A(N) INTO MPAC DXCH VBUF # SAVING X IN VBUF TCF POLY2 - + POLYLOOP TS POLYCNT # SAVE DECREMENTED 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 1141 # MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER. @@ -1477,7 +1477,7 @@ DCOMP CS MPAC +2 BANK 00 COUNT 00/INTER - + SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT. @@ -2816,7 +2816,7 @@ TCSUBTR TCF SUBTR BANK 01 COUNT 01/INTER - + AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER. CA POLISH XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1 @@ -3056,4 +3056,4 @@ SWSKIP INCR LOC SW/ EQUALS SWITCHES +13D TCF DANZIG # 11 -- NOOP. - + diff --git a/Comanche055/INTERPRETIVE_CONSTANTS.agc b/Comanche055/INTERPRETIVE_CONSTANTS.agc index 2533abe..0fc21e3 100644 --- a/Comanche055/INTERPRETIVE_CONSTANTS.agc +++ b/Comanche055/INTERPRETIVE_CONSTANTS.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -32,7 +32,7 @@ BANK COUNT 23/ICONS - + DP1/4TH 2DEC .25 UNITZ 2DEC 0 @@ -44,7 +44,7 @@ UNITX 2DEC .5 ZEROVECS 2DEC 0 2DEC 0 - + 2DEC 0 DPHALF = UNITX @@ -58,7 +58,7 @@ DPPOSMAX OCT 37777 BANK COUNT 14/ICONS - + ZUNIT 2DEC 0 YUNIT 2DEC 0 @@ -68,7 +68,7 @@ XUNIT 2DEC .5 ZEROVEC 2DEC 0 2DEC 0 - + 2DEC 0 OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER diff --git a/Comanche055/INTERRUPT_LEAD_INS.agc b/Comanche055/INTERRUPT_LEAD_INS.agc index 85fdd14..43486e7 100644 --- a/Comanche055/INTERRUPT_LEAD_INS.agc +++ b/Comanche055/INTERRUPT_LEAD_INS.agc @@ -10,11 +10,11 @@ # Website: http://www.ibiblio.org/apollo. # Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -29,66 +29,66 @@ # information. Please report any errors to info@sandroid.org. # Page 131 - SETLOC 4000 - + SETLOC 4000 + COUNT 02/RUPTS - + INHINT # GO CAF GOBB XCH BBANK TCF GOPROG - + DXCH ARUPT # T6RUPT EXTEND DCA T6LOC DTCB - + DXCH ARUPT # T5RUPT CS TIME5 AD .5SEC TCF T5RUPT - + 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 # Page 132 CAF RDRPTBB XCH BBANK TCF VHFREAD - + DXCH ARUPT # HAND CONTROL RUPT CAF HCRUPTBB XCH BBANK TCF RESUME +3 # NOT USED - + EBANK= LST1 # RESTART USES E0,E3 GOBB BBCON GOPROG @@ -123,6 +123,6 @@ T5RUPT EXTEND EXTEND DCA T5LOC DTCB - - + + diff --git a/Comanche055/JET_SELECTION_LOGIC.agc b/Comanche055/JET_SELECTION_LOGIC.agc index f39337c..ea2980c 100644 --- a/Comanche055/JET_SELECTION_LOGIC.agc +++ b/Comanche055/JET_SELECTION_LOGIC.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -31,11 +31,11 @@ BANK 21 SETLOC DAPS4 BANK - + COUNT 17/DAPJS - + EBANK= KMPAC - + # EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS JETSLECT LXCH BANKRUPT @@ -69,13 +69,13 @@ JETSLECT LXCH BANKRUPT MP BIT7 # 2 = - XLN MASK THREE # 3 = NO XLN TS YNDX # Y-TRANSLATION INDEX - + CA T5TEMP EXTEND MP BIT5 MASK THREE TS ZNDX # Z-TRANSLATION INDEX - + CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR MASK BIT14 # TRANSLATIONS. EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED. @@ -99,7 +99,7 @@ NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION TS XNDX2 TS YNDX TS ZNDX - + # PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS @@ -107,7 +107,7 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS TCF +2 # 0 = NO PITCH CAF TWO # +1 = + PITCH TS PINDEX # +2 = - PITCH - + CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES TCF AFAILP TCF TABPCOM # 0 = NO REAL AC FAILURES @@ -115,17 +115,17 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS TCF TABPCOM # - = C QUAD FAILED # IF FAILURES ARE PRESENT IGNORE # X-TRANSLATIONS ON THIS AXIS - + AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION CFAILP CAF TWELVE TCF TABPCOM +2 - + XLNNDX DEC 0 # INDICES FOR TRANSLATION COMMANDS DEC 3 # FOR USE IN TABLE LOOK UP DEC 6 DEC 0 - + TWELVE = OCT14 # TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT. @@ -142,7 +142,7 @@ TABPCOM INDEX XNDX1 EXTEND MP BIT7 TS NPJETS # = NO. OF PITCH JETS - + # YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT YWORD CCS TAU2 # CHECK FOR YAW COMMANDS @@ -150,18 +150,18 @@ YWORD CCS TAU2 # CHECK FOR YAW COMMANDS TCF +2 CAF TWO TS YINDEX # YAW ROTATION INDEX - + CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES TCF BFAILY # 0 = NO BD FAILURE TCF TABYCOM # + = B QUAD FAILED TCF DFAILY # - = D QUAD FAILED TCF TABYCOM - + BFAILY CAF NINE TCF TABYCOM +2 DFAILY CAF TWELVE TCF TABYCOM +2 - + # Page 1042 # TABLE FOR PITCH(YAW) COMMANDS # BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED @@ -185,7 +185,7 @@ PYTABLE OCT 0 # 0 0 0 OCT 0 # 0 C(D) 12 OCT 2504 # + C(D) 12 OCT 2610 # - C(D) 12 - + # MASKS FOR PITCH AND YAW COMMANDS PJETS OCT 1417 @@ -213,28 +213,28 @@ RWORD CCS TAU # CHECK FOR ROLL COMMANDS TCF +2 CAF TWO TS RINDEX - + CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR TCF BDROLL # ROLL COMMANDS TCF BDROLL # +, +0 = BD ROLL TCF +1 # -, -0 = AC ROLL - + ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES TCF RAFAIL # ON AC QUADS TCF RXLNS TCF RCFAIL TCF RXLNS - + RAFAIL CAF NINE # QUAD FAILURE WILL GET TCF TABRCOM # 1-JET OPERATION RCFAIL CAF TWELVE TCF TABRCOM - + XLN1NDX DEC 0 DEC 1 # INDECES FOR TRANSLATION DEC 2 DEC 0 - + # TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT # BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL @@ -245,13 +245,13 @@ TABRCOM AD RINDEX CA RTABLE MASK ACRJETS # = 3760 OCT TS RWORD1 - + # CHECK FOR Z-TRANSLATIONS ON BD BDZCHECK CA ZNDX EXTEND BZMF NOBDZ # NO Z-TRANSLATION - + # Page 1044 # TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS- # IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION: IF THE RESULTANT NET ROLL @@ -269,31 +269,31 @@ BDZCHECK CA ZNDX MASK BDZJETS # = 3417 OCT AD RWORD1 # ADD TO ROLL COMMANDS TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST - + EXTEND MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH AD =-4 # Z-TRANSLATION ADDED ON TS NRJETS # NET NO. OF +,- ROLL JETS ON EXTEND BZF TAUCHECK - + ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS - + TAUCHECK CCS TAU TCF NOBDZ TCF ACRBDZ TCF NOBDZ TCF ACRBDZ - + NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED EXTEND MP BIT7 AD =-2 TS NRJETS TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION - + # Page 1045 # BD QUAD SELECTION FOR ROLL COMMANDS @@ -306,7 +306,7 @@ RBFAIL CAF NINE TCF TABRZCMD RDFAIL CAF TWELVE TCF TABRZCMD - + RZXLNS INDEX ZNDX # NO BD FAILURES CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT TABRZCMD AD RINDEX @@ -314,7 +314,7 @@ TABRZCMD AD RINDEX CA RTABLE MASK BDRJETS # = 34017 OCT TS RWORD1 - + ACYCHECK CA YNDX # ANY Y-TRANSLATION EXTEND BZF NOACY # NO Y-TRANSLATION @@ -335,17 +335,17 @@ ACYCHECK CA YNDX # ANY Y-TRANSLATION TS NRJETS # NO. OF NET ROLL JETS EXTEND BZF TAUCHCK # IF NRJETS = 0 - + BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED TS RWORD1 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS - + TAUCHCK CCS TAU TCF NOACY TCF BDRACZ TCF NOACY TCF BDRACZ - + # Page 1046 NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED EXTEND @@ -353,7 +353,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED AD =-2 TS NRJETS TCF ROLLTIME - + # Page 1047 # TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS # @@ -390,7 +390,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED # (AS ABOVE) TO GIVE THE NET ROLL TORQUE. # ROLL TRANS QUADFAIL BIAS - + RTABLE OCT 11000 # 0 0 OCT 22125 # + 0 OCT 00252 # - 0 @@ -440,7 +440,7 @@ YZTABLE OCT 11000 # 0 0 OCT 11000 # 0 D(C) 6 OCT 15421 # +Z(+Y) D(C) 6 OCT 04442 # -Z(-Y) D(C) 6 - + # YZ-TABLE MASKS: BDZJETS OCT 03417 @@ -456,7 +456,7 @@ ACYJETS OCT 34360 # # THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET # OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST -# ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 +# ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 # INTERVAL. # # IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES @@ -480,7 +480,7 @@ PITCHTIM CCS TAU1 TCF PTAUNEG TS DFT1 # NO PITCH ROTATION TCF PBYPASS # COMMANDS - + PTAUNEG CS NPJETS TS NPJETS PTAUPOS CA TAU1 @@ -513,7 +513,7 @@ PBLASTOK CA BLAST1 LXCH DFT1 # FOR USE IN UPDATING RATE FILTER TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO) TCF ASMBLWP - + # Page 1052 # YAW JET ON-TIME CALCULATION @@ -523,7 +523,7 @@ YAWTIME CCS TAU2 TCF YTAUNEG TS DFT2 # NO YAW ROTATION COMMANDS TCF YBYPASS - + YTAUNEG CS NYJETS TS NYJETS YTAUPOS CA TAU2 @@ -542,7 +542,7 @@ YTAUPOS CA TAU2 CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC - + AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN AD =14MS # MINIMUM IMPULSE TIME EXTEND @@ -555,7 +555,7 @@ YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN LXCH DFT2 TS TAU2 # ZERO TAU2 TCF ASMBLWY - + # Page 1053 # ROLL ON-TIME CALCULATION- @@ -567,7 +567,7 @@ ROLLTIME CCS TAU CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE TS DFT # PRESENT TCF RBYPASS - + DEC -480 # =-.3SEC DEC -320 # =-.2SEC =-.1SEC DEC -160 # =-.1SEC @@ -594,7 +594,7 @@ RBLAST CA TAU CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE - + AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN AD =14MS # MINIMUM IMPULSE TIME EXTEND @@ -607,7 +607,7 @@ RBLASTOK CA BLAST LXCH DFT TS TAU # ZERO TAU TCF ASMBLWR - + # Page 1054 DEC -.333333 # = -1/3 DEC -.500000 # = -1/2 @@ -616,7 +616,7 @@ NJET DEC 0 DEC .999999 # = +1 (POSMAX) DEC .500000 # = +1/2 DEC .333333 # = +1/3 - + # Page 1055 # WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH # CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT. @@ -637,13 +637,13 @@ FPX2 CA PYTABLE MASK PJETS TS PWORD2 TCF YAWTIME - + PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2 TS PWORD2 # UPON ENTRY CAF ZERO TS BLAST1 # THERE IS NO PWORD2 TCF YAWTIME - + # Page 1056 # GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2) @@ -656,7 +656,7 @@ NO2Y CAF ZERO NO2Z CAF ZERO ADS RWORD2 TCF PITCHTIM # RWORD2 ASSEMBLED - + ACBD2Y CCS ACORBD TCF AC2Y # CAN DO Y-TRANS TCF AC2Y @@ -665,14 +665,14 @@ ACBD2Y CCS ACORBD TCF NO2Y # USING AC AND AC HAS FAILED TCF +2 TCF NO2Y # DITTO - + INDEX YNDX # NO FAILURES, CAN DO Y CA XLNNDX INDEX A CA RTABLE MASK ACRJETS TCF NO2Y +1 - + AC2Y CCS RACFAIL CAF THREE TCF +2 @@ -720,7 +720,7 @@ ACBD2Z CCS ACORBD CA L ADS DFT TCF PITCHTIM - + BDF2Z CCS RBDFAIL TCF NO2Z # USING BD-ROLL AND BD HAS FAILED TCF +2 @@ -731,14 +731,14 @@ BDF2Z CCS RBDFAIL CA RTABLE MASK BDRJETS TCF NO2Z +1 - + RBYPASS CA RWORD1 TS RWORD2 CAF ZERO TS BLAST TCF PITCHTIM - -# Page 1058 + +# Page 1058 # GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2 ASMBLWY CCS RBDFAIL @@ -752,7 +752,7 @@ FYX2 CA PYTABLE MASK YJETS TS YWORD2 TCF T6SETUP - + YBYPASS CA YWORD1 TS YWORD2 CAF ZERO @@ -783,7 +783,7 @@ T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL TS BLAST1 +1 CAF ELEVEN # BRANCH INDEX FOR YAW TS BLAST2 +1 - + CS BLAST AD BLAST1 EXTEND @@ -805,7 +805,7 @@ ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF CS ZERO # RESET T5PHASE FOR PHASE1 TS T5PHASE TCF RESUME # RESUME INTERRUPTED PROGRAM - + EBANK= KMPAC RCS2CADR 2CADR RCSATT @@ -814,7 +814,7 @@ DXCHT12 DXCH BLAST DXCH BLAST1 DXCH BLAST TCF CHECKT23 - + DXCHT23 DXCH BLAST1 DXCH BLAST2 DXCH BLAST1 @@ -827,14 +827,14 @@ DXCHT23 DXCH BLAST1 DXCH BLAST1 DXCH BLAST TCF CALCDT6 - + # Page 1061 # T6 PROGRAM AND CHANNEL SETUP BANK 21 SETLOC DAPS5 BANK - + T6START LXCH BANKRUPT EXTEND QXCH QRUPT @@ -842,7 +842,7 @@ T6START LXCH BANKRUPT TCF RESUME # AFTER T6RUPT OCCURED(IN T5RUPT) TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE TCF RESUME # TAKING ACTION - + CS RCSFLAGS MASK BIT1 # IF BIT1 IS 0 RESET TO 1 EXTEND # AND INITIALIZE CHANNEL @@ -855,7 +855,7 @@ T6START LXCH BANKRUPT AD YWORD1 EXTEND WRITE CHAN5 - + T6RUPTOR CCS BLAST TCF ZBLAST # ZERO BLAST1 TCF REPLACE # REPLACE WORD1 @@ -871,31 +871,31 @@ T6L2 CCS BLAST2 TCF REPLACE2 TCF RESUME TCF REPLACE2 - + REPLACE INDEX BLAST +1 TC REPLACER CS ONE TS BLAST TCF T6L1 - + REPLACE1 INDEX BLAST1 +1 # Page 1062 TC REPLACER CS ONE TS BLAST1 TCF T6L2 - + REPLACE2 INDEX BLAST2 +1 TC REPLACER CS ONE TS BLAST2 TCF RESUME - -REPLACER CA RWORD2 + +REPLACER CA RWORD2 EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD2 WRITE CHAN6 TC Q - + REPLACEP CA YJETS EXTEND RAND CHAN5 @@ -903,7 +903,7 @@ REPLACEP CA YJETS EXTEND WRITE CHAN5 TC Q - + REPLACEY CA PJETS EXTEND RAND CHAN5 @@ -925,7 +925,7 @@ ENABT6 TS TIME6 EXTEND WOR CHAN13 # ENABLE T6RUPT TCF RESUME - + # END OF T6 INTERRUPT ENDSLECT EQUALS diff --git a/Comanche055/KALCMANU_STEERING.agc b/Comanche055/KALCMANU_STEERING.agc index 18cb6d1..4b2b61c 100644 --- a/Comanche055/KALCMANU_STEERING.agc +++ b/Comanche055/KALCMANU_STEERING.agc @@ -7,13 +7,13 @@ # Reference: pp. 414-419 # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. -# Mod history: 05/07/09 OH Transcription Batch 1 Assignment +# Mod history: 05/07/09 OH Transcription Batch 1 Assignment # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -33,14 +33,14 @@ # NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER BANK 15 - + SETLOC KALCMON1 BANK - + EBANK= BCDU - + COUNT 22/KALC - + NEWDELHI CS HOLDFLAG # SEE IF MANEUVER HAS BEEN INTERRUPTED EXTEND # BY ASTRONAUT. BZMF NOGO -2 # IF SO, TERMINATE KALCMANU @@ -59,7 +59,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 @@ -87,23 +87,23 @@ INCRDCDU TS KSPNDX TS CDUXD CCS KSPNDX TCF INCRDCDU # LOOP FOR THREE AXES - - RELINT + + RELINT # COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER TMANUCHK TC TIMECHK TC POSTJUMP CADR CONTMANU - - CAF ONE + + CAF ONE MANUSTAL TC WAITLIST EBANK= BCDU 2CADR MANUSTOP - + RELINT TCF ENDOFJOB - - + + TIMECHK EXTEND DCS TIME2 DXCH TTEMP @@ -165,9 +165,9 @@ HIGHGAIN CS RCSFLAGS # IF SO, SET HIGH RATE FLAG (BIT 15 OF XCH NEXTIME TC POSTJUMP CADR INCRDCDU -1 - + CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS - CS TIME1 + CS TIME1 AD NEXTIME CCS A AD ONE @@ -177,7 +177,7 @@ CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS MANUCALL TC WAITLIST EBANK= BCDU 2CADR UPDTCALL - + RELINT # Page 417 CAF 1SEC # INCREMENT TIME FOR NEXT UPDATE @@ -191,13 +191,13 @@ UPDTCALL CAF PRIO26 # CALL FOR UPDATE 2CADR NEWDELHI TC TASKOVER - + # Page 418 # ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS SETLOC KALCMON3 BANK - + MANUSTOP TC STOPYZ TC IBNKCALL CADR LOADYZ @@ -207,14 +207,14 @@ ENDROLL CA CPHI TC STOPRATE ENDMANU CA ATTPRIO # RESTORE USERS PRIO TS NEWPRIO - + CA ZERO # ZERO ATTCADR DXCH ATTCADR - + TC SPVAC # RETURN TO USER OF GOMANUR - + TC TASKOVER - + SETLOC STOPRAT BANK STOPRATE CAF ZERO @@ -223,11 +223,11 @@ STOPRATE CAF ZERO TS WBODY # RATE TS WBODY +1 TS BIAS # BIAS - + CS BIT15 # MAKE SURE HIGH RATE FLAG (BIT 15 OF MASK RCSFLAGS # RCSFLAGS) IS RESET. TS RCSFLAGS - + STOPYZ CAF ZERO TS DELCDUY # ZERO PITCH, YAW TS DELCDUY +1 # INCREMENTAL ANGLES @@ -240,7 +240,7 @@ STOPYZ CAF ZERO TS BIAS1 # BIASES TS BIAS2 TC Q - + SETLOC MANUSTUF BANK @@ -255,7 +255,7 @@ ZEROERROR CA CDUX # PICK UP CDU ANGLES AND STORE IN SETLOC KALCMON1 BANK - + LOADCDUD CA CPHI # STORE TERMINAL ANGLES INTO TS CDUXD # COMMAND ANGLES LOADYZ CA CTHETA diff --git a/Comanche055/KEYRUPT_UPRUPT.agc b/Comanche055/KEYRUPT_UPRUPT.agc index 19493c2..858eca2 100644 --- a/Comanche055/KEYRUPT_UPRUPT.agc +++ b/Comanche055/KEYRUPT_UPRUPT.agc @@ -8,16 +8,16 @@ # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same -# name, and page images. Corrected various -# typos in the transcription of program -# comments, and these should be back-ported +# name, and page images. Corrected various +# typos in the transcription of program +# comments, and these should be back-ported # to Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # diff --git a/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc b/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc index e49bd64..062b47f 100644 --- a/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc +++ b/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -54,7 +54,7 @@ BANK COUNT 13/LT-LG - + EBANK= ALPHAV LAT-LONG STQ SETPD INCORPEX diff --git a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc index 534fb1f..eef38b6 100644 --- a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc +++ b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc @@ -12,11 +12,11 @@ # 2009-07-26 RSB Added annotations related to computation # of the ephemeral(?) polynomials. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -45,7 +45,7 @@ # INPUT BY THE USER SHOULD FALL WITHIN THIS 15 DAY INTERVAL. ## The 9th-degree polynomial spoken of here is a pad load, meaning ## that it is not actually hardcoded into the software. Additional -## information about calculating the polynomial can be found on the +## information about calculating the polynomial can be found on the ## ## Orbiter NASSP wiki, as well as information about calculation ## of the @@ -80,7 +80,7 @@ # # 5) VESO -- VELOCITY VECTOR OF THE SUN RELATIVE TO THE EARTH AT # TIMEMO IN METERS/CS x B-9 -# +# # 6) OMEGAES -- ANGULAR VELOCITY OF THE VECTOR RESO AT TIMEMO IN # REV/CS x B+26 # @@ -131,7 +131,7 @@ BANK 36 SETLOC EPHEM BANK - + COUNT* $$/EPHEM EBANK= END-E7 LSPOS AXT,2 # COMPUTES POSITION VECTORS OF BOTH THE @@ -166,7 +166,7 @@ RES PUSH DMP # PD- 2 OMEGAES PUSH COS # PD- 4 VXSC PDDL # PD- 8 - RESO + RESO SIN PDVL # PD-10 RESO PUSH UNIT # PD-16 diff --git a/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc b/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc index 8fb219d..9d0f8cf 100644 --- a/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc +++ b/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A diff --git a/Comanche055/MAIN.agc b/Comanche055/MAIN.agc index 3dc04b8..340c6c0 100644 --- a/Comanche055/MAIN.agc +++ b/Comanche055/MAIN.agc @@ -14,21 +14,21 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A # -# This file is a little different from the other Comanche055 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 Comanche055 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 @@ -37,32 +37,32 @@ # # 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 think the card-decks were turned into tape libraries, and the modules # were mixed-and-matched from the tape libraries, but the principle is the same.) -# 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). Actually, it had already been replaced by another # assembler (called "GAP") by the time of Apollo 11, but GAP isn't available either. -# 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 +# 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. # I've marked the page numbers to make proof-reading easier. The page images also -# contain a lot of interesting tables (cross-referenced to page numbers) created by GAP, +# contain a lot of interesting tables (cross-referenced to page numbers) created by GAP, # but not duplicated by yaYUL, so it's still valuable even if the source-files # listed below are in hand. -$CONTRACT_AND_APPROVALS.agc # p. 1 +$CONTRACT_AND_APPROVALS.agc # p. 1 $ASSEMBLY_AND_OPERATION_INFORMATION.agc # pp. 2-26 $TAGS_FOR_RELATIVE_SETLOC.agc # pp. 27-35 diff --git a/Comanche055/MEASUREMENT_INCORPORATION.agc b/Comanche055/MEASUREMENT_INCORPORATION.agc index 7468155..5fc213b 100644 --- a/Comanche055/MEASUREMENT_INCORPORATION.agc +++ b/Comanche055/MEASUREMENT_INCORPORATION.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -459,11 +459,11 @@ NEWZCOMP VLOAD ABVAL STADR STCALL NORMZI # LARGEST ABVAL NEWZCMP1 - + SETLOC MEASINC3 BANK - -# Page 1261 + +# Page 1261 NEWZCMP1 DLOAD SXA,1 NORMZI NORMZI # SAVE X1 diff --git a/Comanche055/MYSUBS.agc b/Comanche055/MYSUBS.agc index d8a8ba3..2df4abd 100644 --- a/Comanche055/MYSUBS.agc +++ b/Comanche055/MYSUBS.agc @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -32,7 +32,7 @@ BANK 20 SETLOC MYSUBS BANK - + EBANK= KMPAC SPCOS1 EQUALS SPCOS SPSIN1 EQUALS SPSIN @@ -40,7 +40,7 @@ SPCOS2 EQUALS SPCOS SPSIN2 EQUALS SPSIN COUNT 21/DAPMS - + # ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE SMALLMP TS KMPTEMP # A(X+Y) @@ -53,7 +53,7 @@ SMALLMP TS KMPTEMP # A(X+Y) MP KMPTEMP # AX DAS KMPAC # AX+AY TC Q - + # SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES # A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC. # RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW) @@ -74,7 +74,7 @@ DPADD DAS KMPAC CA POSMAX # UPPER WAS = 0 TSK TS KMPAC TC Q - + DPADD+ AD NEGMAX # KMPAC GREATER THAN 0 TCF TSK @@ -82,7 +82,7 @@ DPADD+ AD NEGMAX # KMPAC GREATER THAN 0 DPADD- COM AD POSMAX # KMPAC LESS THAN 0 TCF TSK - + DPADD2+ AD NEGMAX # CAN NOT OVERFLOW TS KMPAC +1 CA NEGMAX # UPPER WAS = 0 diff --git a/Comanche055/ORBITAL_INTEGRATION.agc b/Comanche055/ORBITAL_INTEGRATION.agc index 836472e..4086ccb 100644 --- a/Comanche055/ORBITAL_INTEGRATION.agc +++ b/Comanche055/ORBITAL_INTEGRATION.agc @@ -9,7 +9,7 @@ # Pages: 1334-1354 # Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. -# 2009-05-20 RSB Corrections: DAT -> DAD in one place, +# 2009-05-20 RSB Corrections: DAT -> DAD in one place, # BWM -> BMN, DEFEQCNT -> DIFEQCNT. # # This source code has been transcribed or otherwise adapted from digitized @@ -18,13 +18,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -391,18 +391,18 @@ COMTERM STORE UZ J4REQ/J3,2 DDV DAD ALPHAM - DMPR* SR3 + DMPR* SR3 2J3RE/J2,2 - DDV DAD + DDV DAD ALPHAM - VXSC VSL1 - UZ - BVSU - TVEC - STODL TVEC - ALPHAM - NORM DSQ - X1 + VXSC VSL1 + UZ + BVSU + TVEC + STODL TVEC + ALPHAM + NORM DSQ + X1 DSQ NORM S1 # 4 PUSH BDDV* # NORMED R TO 0D @@ -424,7 +424,7 @@ COMTERM STORE UZ QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61 # AS VECTOR. PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D. -# Page 1343 +# Page 1343 5/8 # 5 SCALED B3 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET # COSPHI**2 D2 FROM 8D @@ -492,14 +492,14 @@ COSPHIE DLOAD DIFEQTAB CADR DIFEQ+0 CADR DIFEQ+1 CADR DIFEQ+2 - + TIMESTEP BOF CALL MIDFLAG RECTEST # SKIP ORIGIN CHANGE LOGIC CHKSWTCH BMN DOSWITCH - + RECTEST VLOAD ABVAL # RECTIFY IF TDELTAV BOV @@ -526,7 +526,7 @@ CALLRECT CALL RECTIFY INTGRATE VLOAD TNUV -# Page 1345 +# Page 1345 STOVL ZV TDELTAV STORE YV @@ -567,20 +567,20 @@ RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS EARSPH SR2 BDSU # INSIDE RSPHERE - GOTO + GOTO ORIGEX EARSPH VSU ABVAL # OUTSIDE RPQV DSU GOTO RSPHERE ORIGEX - + DOSWITCH CALL ORIGCHNG GOTO INTGRATE -# Page 1346 +# Page 1346 ORIGCHNG STQ CALL ORIGEX RECTIFY @@ -848,7 +848,7 @@ DOW..1 VLOAD VSR4 34D VSL* RVQ # Page 1353 - 0 -8D,2 + 0 -8D,2 SETLOC ORBITAL1 BANK @@ -901,25 +901,25 @@ ASCALE DEC -7 DEC -6 # Page 1354 2DEC* 1.32715445 E16 B-54* # S - + 2DEC* 4.9027780 E8 B-30* # M - + MUEARTH 2DEC* 3.986032 E10 B-36* 2DEC 0 - + J4REQ/J3 2DEC* .4991607391 E7 B-26* 2DEC -176236.02 B-25 - + 2J3RE/J2 2DEC* -.1355426363 E5 B-27* 2DEC* .3067493316 E18 B-60* - + J2REQSQ 2DEC* 1.75501139 E21 B-72* -3J22R2MU 2DEC* 9.20479048 E16 B-58* - +3J22R2MU 2DEC* 9.20479048 E16 B-58* + 5/8 2DEC 5 B-3 -1/12 2DEC -.1 diff --git a/Comanche055/P11.agc b/Comanche055/P11.agc index 31ca683..0e70b1f 100644 --- a/Comanche055/P11.agc +++ b/Comanche055/P11.agc @@ -7,10 +7,10 @@ # Contact: Hartmuth Gutsche . # Website: www.ibiblio.org/apollo. # Pages: 533-550 -# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file -# of the same name, using Comanche055 page -# images 0533.jpg - 0550.jpg. -# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT, +# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file +# of the same name, using Comanche055 page +# images 0533.jpg - 0550.jpg. +# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT, # STATSW -> SATSW. # 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q. # Added an SBANK= prior to a 2CADR. @@ -22,13 +22,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -72,7 +72,7 @@ # R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS # R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS # R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM -# +# # 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES # # A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.) @@ -146,16 +146,16 @@ # CENTRALS, CORE SET, AND VAC AREAS COUNT 34/P11 - + BITS5-6 = SUPER011 BANK 42 SETLOC P11ONE BANK - + EBANK= TEPHEM P11 CA EBANK3 TS EBANK - + EXTEND DCA REP11S # DIRECT RESTARTS TO REP11 DXCH -PHASE3 @@ -166,11 +166,11 @@ P11 CA EBANK3 P11+7 EXTEND DCA REP11SA DXCH TLIFTOFF - + EXTEND DCA TIME2 DXCH LIFTTEMP # FORE RESTARTS - + CA ZERO ZL DXCH TIME2 @@ -184,57 +184,57 @@ REP11A INHINT CA TEPHEM # Page 536 XCH TEPHEM1 - + EXTEND DCA TLIFTOFF DAS TEPHEM1 +1 ADS TEPHEM1 # CORRECT FOR OVERFLOW - + TC PHASCHNG OCT 05023 OCT 22000 - + INHINT EXTEND DCA TEPHEM1 DXCH TEPHEM CA TEPHEM1 +2 XCH TEPHEM +2 - + CAF EBDVCNT TS EBANK EBANK= DVCNTR TC IBNKCALL CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG - + TC PHASCHNG OCT 05023 # CONTINUE HERE ON RESTART OCT 22000 - + CAF .5SEC # START ATT ERROR DISPLAY TC WAITLIST # IN .5 SEC EBANK= BODY3 2CADR ATERTASK - + TC NEWMODEX # DISPLAY MM 11 MM 11 - + TC UPFLAG ADRES NODOP01 - + CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST TS DNLSTCOD - - TC BANKCALL + + TC BANKCALL CADR CLEANDSP # CLEAR DSKY IN CASE OF V75 - + TC 2PHSCHNG OCT 40514 # PROTECT ATERTASK OCT 00073 CAF EBQPLACE # Page 537 TS EBANK - + EBANK= QPLACES CA P11XIT # SET EXIT FROM PROUT IN EARTHR TS QPLACES @@ -253,9 +253,9 @@ REP11A INHINT MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE CA CDUX # ERROR DISPLAY AFTER LIFTOFF DXCH OGC - ZL + ZL CA CDUY - DXCH IGC + DXCH IGC ZL CA CDUZ DXCH MGC @@ -276,8 +276,8 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE CLEAR CALL ERADFLAG LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS. - - STCALL RN1 # _ + + STCALL RN1 # _ GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION VCOMP UNIT STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV) @@ -303,7 +303,7 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1 REFSMMAT STORE REFSMMAT - + VXV UNIT # (REF1 X REF3) = -REF3 REFSMMAT +12D VCOMP @@ -318,21 +318,21 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY SET EXIT REFSMFLG # SET REFSMMAT KNOWN FLAG - + TC PHASCHNG OCT 04023 - + EXTEND DCA P11SCADR DXCH AVGEXIT # SET AVGEXIT - + CA PRIO31 # 2 SECONDS AT 2(+8) TS 1/PIPADT - + EBANK= RCSFLAGS CA EBANK6 TS EBANK - + INHINT # Page 539 CS ZERO @@ -340,47 +340,47 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE CS TIME1 AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF - + CCS A # CHECK TO INSURE DT IS POSITIVE TCF +3 # TIME POSITIVE TCF +2 # CANNOT GET HERE CA ZERO # TIME NEGATIVE -- SET TO 1 AD ONE # RESTORE TIME -- OR MAKE POSITIVE - + TC WAITLIST EBANK= AOG 2CADR READACCS - + TC 2PHSCHNG OCT 00003 # TURN OFF GROUP 3 OCT 00025 # PROTECT NORMLIZE AND READACCS - + TC POSTJUMP CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB - - + + EBANK= TEPHEM REP11 INHINT CCS PHASE5 TC ENDOFJOB - + CCS LIFTTEMP TCF +4 TCF +3 TCF +2 TCF P11+7 - + CS TLIFTOFF EXTEND BZMF ENDREP11 - + CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF ** TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT - + EXTEND # T2,T1 ZEROED, SET TLIFTOFF DCA LIFTTEMP TCF REP11A-2 - + ENDREP11 EXTEND DCA REP11SA TCF REP11A-1 @@ -409,16 +409,16 @@ VHHDOT TC INTPRET EXIT TC PHASCHNG OCT 00035 - + CAF V06N62 # DISPLAY IN R1 R2 R3 TC BANKCALL # VI HDOT H CADR REGODSP - + ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS TC FINDVAC # COMES HERE AT L.O. + .33 SEC EBANK= BODY3 2CADR ATERJOB - + CS RCSFLAGS # SET BIT3 FOR MASK BIT3 # NEEDLER ADS RCSFLAGS # INITIALIZATION PASS @@ -463,7 +463,7 @@ GETDOWN STQ SETPD # TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC) # (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC) # -# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE +# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE # EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED # ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED # AS THE DESIRED CDU ANGLES. @@ -516,7 +516,7 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME CA TIME2 EXTEND BZMF +2 - TC NOPOLY # GO TO ATTITUDE HOLD + TC NOPOLY # GO TO ATTITUDE HOLD CAE POLYNUM TS L CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL @@ -536,16 +536,16 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME SETLOC P11TWO BANK # 36 IN COL., 34 IN DISK - + COUNT 36/P11 - + ATTDISP1 COS DCOMP STODL 14D # -.5*COS(P) SIN STODL 10D # .5*SIN(P) ZEROVECS STORE 12D # 0 - + # EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T SLOAD DMP SPOLYARG # TIME1 - RSPSTART, CSECS B-14. @@ -578,7 +578,7 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV 10D STOVL 20D # -.5*SIN(R)*SIN(P) 10D - + # FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA # Page 544 UNIT @@ -590,11 +590,11 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV UNIT STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R), CALCGTA # -COS(R)*SIN(P)) - + # CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC # _ _ _ # FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX -# +# # ENTER HERE IF ATTITUDE HOLD NOPOLYM VLOAD PUSH # OGC IGC @@ -619,7 +619,7 @@ NOPOLYM VLOAD PUSH # OGC IGC 4 GOTO ATTDISP2 - + SETLOC P11ONE BANK COUNT 34/P11 @@ -649,7 +649,7 @@ ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ)) 16D STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2 EXIT - + CA SATSW CCS A # CHK TAKEOVER STATUS TC SATOUT # POS -- DISPLAY ONLY @@ -713,7 +713,7 @@ TAKEON CAF BIT9 # ENABLE WOR CHAN12 # TAKEOVER CA ZERO # INDICATE NEEDLER TS SATSW # WAS INITIALIZED - TC SATOUT + TC SATOUT S11.1 VLOAD ABVAL VN STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC @@ -751,7 +751,7 @@ DELSTOR CA BOOSTEMP TCF DANZIG RLTST CA MPAC # DETERMINE IF ROLLOUT EXTEND # IS COMPLETED - MP SATRLRT +1 + MP SATRLRT +1 EXTEND BZMF DANZIG # UNLIKE SIGNS STILL ROLLING EXTEND # ROLLOUT COMPLETED @@ -772,7 +772,7 @@ RESCALES EXTEND # RESCALE AK S FOR # SATURN TAKEOVER FUNCTION # ************************ -# +# # PROGRAM DESCRIPTION # # MOD NUMBER 1 @@ -842,7 +842,7 @@ RESCALES EXTEND # RESCALE AK S FOR BANK 43 SETLOC EXTVERBS BANK - + COUNT 23/STTKE SATSTKON EXTEND DCA 2REDOSAT @@ -857,7 +857,7 @@ SATSTKON EXTEND CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED RELINT TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46 - + SBANK= PINSUPER # Added RSB 2009 EBANK= BODY3 2REDOSAT 2CADR REDOSAT @@ -867,7 +867,7 @@ SATSTKON EXTEND BANK 32 SETLOC P11FOUR BANK - + REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS EXTEND QXCH QRUPT @@ -885,13 +885,13 @@ REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS CAF 100MST5 # IN 100 MSECS TS TIME5 TCF RESUME # END OF SATURN STICK INITIALIZATION - + # THIS SECTION IS EXECUTED EVERY 100 MSECS. # Page 550 SATSTICK LXCH BANKRUPT EXTEND QXCH QRUPT - + CAF 2SATSTCK # SET UP RUPT TS T5LOC # LO ORDER LOC SET CAF 100MST5 # 100 MSECS @@ -902,7 +902,7 @@ SATSTICK LXCH BANKRUPT MASK STIKBITS TC IBNKCALL # SET RATE INDICES CADR STICKCHK # FOR PITCH YAW AND ROLL - + INDEX RMANNDX # SET SATURN RATES CA SATRATE TS AK # ROLL @@ -912,11 +912,11 @@ SATSTICK LXCH BANKRUPT INDEX YMANNDX CA SATRATE TS AK2 # YAW - + TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY - CADR NEEDLER + CADR NEEDLER TCF RESUME # END OF SATURN STICK CONTROL - + STIKBITS OCT 00077 100MST5 DEC 16374 EBANK= BODY3 diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index 2b18eab..78c9dd1 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -7,12 +7,12 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 562-534 -# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file -# of the same name, using Comanche055 page -# images. +# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file +# of the same name, using Comanche055 page +# images. # 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ, # GOTOPOOH -> GOTOP00H, a duplicated EXTEND -# was fixed, P23.10 -> R23.10, +# was fixed, P23.10 -> R23.10, # S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, # S22DPP -> S22DSPP, changed some instructions in # P23.152. @@ -23,13 +23,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -86,7 +86,7 @@ BANK 33 SETLOC P20S BANK - + EBANK= ESTROKER COUNT* $$/P20 @@ -110,7 +110,7 @@ PROG20 TC BANKCALL TC 2PHSCHNG OCT 4 OCT 05022 - OCT 26000 + OCT 26000 TC INTPRET RTB LOADTIME @@ -141,7 +141,7 @@ P20.3 CALL TC FINDVAC EBANK= MRKBUF2 2CADR R22 - + TC 2PHSCHNG OCT 00072 OCT 00111 @@ -183,10 +183,10 @@ FIRST3 EQUALS FURST3 BANK 31 SETLOC P20S1 BANK - + EBANK= LANDMARK COUNT* $$/P22 - + PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0 ADRES RNDVZFLG TC BANKCALL @@ -269,7 +269,7 @@ V05N7022 VN 00570 V05N7122 VN 00571 SETLOC P20S BANK - + SETLOC P20S1 BANK @@ -284,7 +284,7 @@ S22LSITE RTB # CONVERT RLS FROM MOON-FIXED TO BASIC REF RP-TO-R # RLS IN BASIC REF B-27 IN MPAC VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG - RTB + RTB LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG CALL LAT-LONG @@ -383,7 +383,7 @@ S22ABDE TC INTPRET 22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS BHIZ GOTO OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89 -# Page 569 +# Page 569 S22LSITE # GET LAT/LONG/ALT FROM RLS DE-GR-50 TC 2PHSCHNG OCT 00004 @@ -482,7 +482,7 @@ ENDR57 TC DOWNFLAG # RESET V59FLAG TC NOVAC # THIS JOB CLEARS BIT IN EBANK= MARKSTAT 2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER - + TC INTPRET GOTO EGRESS @@ -542,9 +542,9 @@ V51NB VN 5100 EBANK= MRKBUF1 SETLOC RENDEZ BANK - + COUNT* $$/R21 - + R21CSM TC UPFLAG # SET R21MARK ADRES R21MARK # BIT 14 FLAG 2 R23CSM CA NEGONE @@ -587,7 +587,7 @@ R21C1 CAF V51NB TC R21END # V34: TERMINATE R21 TCF R21CSMA # PROCEED: END R21 TCF R21C1 # RECYCLE - + R21CSMA CA MRKBUF1 # IF -1 NO MARK AD ONE EXTEND @@ -653,7 +653,7 @@ V0694 VN 0694 EBANK= GENRET COUNT* $$/R61 # ROUTINES -- NAVIGATION -- PREF. TR. 9TT= - + R61CSM CAF EBANK6 # SWITCH TO EBANK 6 XCH EBANK TS SAVBNK # SAVE EBANK @@ -677,7 +677,7 @@ R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG # Page 575 CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU TS R61CNTR - + TC UPFLAG # SET FLAG FOR PRIORITY DISPLAYS FOR R60 ADRES PDSPFLAG # BIT 12 FLAG 4 TC BANKCALL @@ -701,7 +701,7 @@ DECRM61 TS R61CNTR BANK 13 SETLOC P20S2 BANK - + EBANK= MRKBUF1 # Page 576 # BVECTOR PERFORMS COMPUTATIONS FOR @@ -737,7 +737,7 @@ DECRM61 TS R61CNTR # L+1 OF CALLING SEQUENCE COUNT 23/20SUB - + BVECTORS STQ EGRESS VLOAD UNIT @@ -798,7 +798,7 @@ PI/4.0 2DEC .785398164 # NORMAL EXIT # # L+1 OF CALLING SEQUENCE - + GETUM STQ SETPD EGRESS 0 @@ -815,13 +815,13 @@ GETUM STQ SETPD S1 # S1 = MARKDATA(ADR) +2 CALL SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR. - CALL + CALL NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM. - VXM VSL1 + VXM VSL1 REFSMMAT GOTO # MPAC = (UM) LINE OF SIGHT VECTOR EGRESS # EXIT - + # Page 579 # RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22) # @@ -835,9 +835,9 @@ GETUM STQ SETPD BANK 34 SETLOC P20S3 BANK - + COUNT 34/R22 - + R22 CAF PRIO26 TS PHSPRDT2 TC PRIOCHNG @@ -849,7 +849,7 @@ R22 CAF PRIO26 STORE VHFTIME # PRESENT TIME REND1 CALL GRP2PC - CALL + CALL WAITONE REND1A EXIT CA MRKBUF2 @@ -876,7 +876,7 @@ REND3A TC INTPRET REND3 CALL # Page 580 GRP2PC - CALL + CALL WAITONE BOFF VHFRFLAG @@ -1140,7 +1140,7 @@ RENDISP EXIT TC NOVAC EBANK= MRKBUF1 # THAN PRESENT JOB 2CADR RENDISP2 - + RENDISP7 TC INTPRET STORE MPAC SLOAD BZE @@ -1282,11 +1282,11 @@ CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV. FROM .01 NM TO M VHFREAD EXTEND ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT -# Page 588 +# Page 588 TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND CS ZERO TS RUPTAGN - EXTEND + EXTEND QXCH QRUPT CS STATE +2 MASK SKIPVBIT # SKIPVHF FLAG @@ -1312,7 +1312,7 @@ BYPASS TS VHFRANGE # STORE NON ZERO VALUE TC POSTJUMP CADR BADEND BYPASS1 CAF ZERO - TC BYPASS + TC BYPASS VHFGOOD CAF TWO TC POSTJUMP CADR GOODEND @@ -1333,7 +1333,7 @@ SHIFTA BON RVQ INITIALW AXT,1 SSP 36D S1 -# Page 589 +# Page 589 6 VLOAD ZEROVECS @@ -1362,7 +1362,7 @@ INITB STORE W +90D,1 # CLEAR 54 - 89 # AND TO COMPUTE THE X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES # COAS TRACKING OF THE LM. # -# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE +# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE # MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS # GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS # GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET. @@ -1510,23 +1510,23 @@ INITB STORE W +90D,1 # CLEAR 54 - 89 BANK 24 SETLOC P20S4 BANK - + EBANK= CDUXD COUNT* $/CRS61 - + CRS61.1 STQ SETPD Q611 0 RTB # Page 593 LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC. - + STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63 R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1) TLOAD THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4. STORE SAVEDCDU - + EXIT TC STEP2CK AUTOCK CAF PRIO30 @@ -1536,7 +1536,7 @@ AUTOCK CAF PRIO30 EXTEND # AUTO MODE SELECTED (BITS 15-13=011) BZF DAPCK # YES -- CONTINUE. TC ASET - + DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E., IS SOMEONE ON RHC) MASK STIKBIT CCS A @@ -1546,10 +1546,10 @@ ASET CAF ZERO TC INTPRET # EXIT CRS61.1 GOTO Q611 - + STEP2CK TC BANKCALL CADR UPACTOFF - + CAF TWO # SET TEMPORARY INDEX DTHETASM = 2 CDULOOP TS DTHETASM INDEX DTHETASM @@ -1575,7 +1575,7 @@ STKTEST EXIT CAF BIT3 EXTEND # STIKFLG IS SET WOR DSALMOUT # TURN ON UPACTY LIGHT - + TC ASET # EXIT AND SET R61CNTR STEP3CK TC INTPRET SETPD @@ -1594,11 +1594,11 @@ CRS61.2 VLOAD VSU P21TIME # P21TIME IS TEMP STORE FOR ABSLOS. X1 PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1. - + DLOAD NORM 36D # NORM ABS VALUE OF DV(NUM). S1 - + XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM). S1 # SR1 TO AVOID OFLOW ON DOV. DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT. @@ -1627,7 +1627,7 @@ CRS61.2 VLOAD VSU DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1) 0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0. STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT. - + CALL # COMPUTES SINES AND COSINES FOR *SMNB* CDUTRIG VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION @@ -1640,7 +1640,7 @@ CRS61.2 VLOAD VSU LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ. Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO 0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES. - + CRS61.2A EXIT INHINT CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES @@ -1653,7 +1653,7 @@ CRS61.2A EXIT TS CDUYD CA SAVEDCDU +2 TS CDUZD - + EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE) DCA MPAC # FROM V(MPAC) TO V(WBODY) DXCH WBODY @@ -1663,7 +1663,7 @@ CRS61.2A EXIT EXTEND DCA MPAC +5 DXCH WBODY2 - + EXTEND # TRANSFER CDU INCREMENTS INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX) DCA 14D @@ -1671,7 +1671,7 @@ CRS61.2A EXIT EXTEND INDEX FIXLOC DCA 16D -# Page 596 +# Page 596 DXCH DELCDUY EXTEND INDEX FIXLOC @@ -1688,7 +1688,7 @@ MANUEXIT TLOAD # ENTER FROM STEP2. ACDU-DCDU EXCEEDS SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1) LOONE # OCTAL 00001 Q611 - + R63 STQ DLOAD # SUBR TO CALC DCDUS(T) Q6111 P21TIME @@ -1741,9 +1741,9 @@ CRSTOR1 VLOAD PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR 2DEC 0.0 # FOR USE WITH VECPOINT - + 2DEC .28678822 - + DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2 RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC. @@ -1754,21 +1754,21 @@ MAT1B1 2DEC 1.0 B-1 MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE 2DEC 0 # X-AXIS ROTATION MATRIX - + 2DEC 0 # CONVERTS BODY TO CTL - + 2DEC 0 # AXES. CAME AS QUADROT - + 2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B - + 2DEC -.12619897 B-1 # -SIN7.25 B1 - + 2DEC 0 - + 2DEC .12619897 B-1 # SIN7.25 B1 - + 2DEC .99200495 B-1 # COS7.25 B1 - + LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT. FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000). @@ -1807,13 +1807,13 @@ FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000). # TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM BANK 13 - + SETLOC P20S6 BANK - + EBANK= LANDMARK COUNT 35/LUORB - + S22.1 STQ SSP S22RTNEX S1 @@ -1853,7 +1853,7 @@ S22SHIFT SXA,1 SETPD 0D FIG2EXIT CALL INTSTALL - CALL + CALL S22FLGS # FLOWCHART D=0 THEN DIM0FLAG=0, D6O9FLG NOT TESTED # FLOWCHART D=6 THEN DIM0FLAG=1, D60R9FLG=0 @@ -1912,7 +1912,7 @@ DMPINTEG SLOAD PUSH # TEST OFF=I S22D=9 CALL GRP2PC - SET + SET ORBWFLAG SET SET DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6 @@ -2062,7 +2062,7 @@ S22W78X DLOAD DSQ PDDL DSQ W +144D # W72 DAD - BDSU BMN + BDSU BMN S22UUT # E0 S22SCLW SQRT @@ -2231,7 +2231,7 @@ CLRW678 STORE W +162D,1 S22WSUBL STORE W +144D STORE W +152D -# Page 607 +# Page 607 STORE W +160D CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY @@ -2324,7 +2324,7 @@ S22.981X TC INTPRET S22EXEX TC INTPRET # WITHOUT CONVERTING W GOTO S22RTNEX - + S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H CALL 9DWTO6DW @@ -2333,7 +2333,7 @@ S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10 0D CSMPOS # RC B-29 EARTH, B-27 MOON -# Page 609 +# Page 609 UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW UM SL1 DCOMP # GSOP CHANGE 8/18/67 @@ -2352,7 +2352,7 @@ S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10 DMP # DMP RESULT B-28 MOON, B-30 EARTH 36D # VXSC RESULT B-29 MOON, B-31 EARTH STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30 - VXSC + VXSC UM VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC CSMPOS @@ -2368,7 +2368,7 @@ S22CALRC LXA,1 VLOAD # COMPUTE RC B-29 OR B-27 RVQ SETLOC P22S BANK - + S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN SSP AXT,2 # S22UMRL - S22UMRL+17D S2 @@ -2384,7 +2384,7 @@ S2231NXT VLOAD VXSC* DEC -6 S2231NXT RVQ -# Page 610 +# Page 610 GETTF LXC,1 DLOAD* # SET MPAC= TF S22LOC 0,1 @@ -2397,7 +2397,7 @@ S22FLGS SET SET # INTEGRATION FLAGS STATEFLG CLEAR RVQ INTYPFLG - + # SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5 # PRIOR TO DISPLAY. @@ -2421,7 +2421,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29 RVQ SETLOC P20S6 BANK - + 9DWTO6DW STQ SETPD 9DWXX 0D @@ -2486,7 +2486,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29 6 CLEARW54 STORE W +108D,1 TIX,1 -# Page 612 +# Page 612 CLEARW54 9DWI=JA LXA,1 SXA,1 # I=J 9DWJ @@ -2537,7 +2537,7 @@ TST2I=0 SLOAD BHIZ # TEST I=0 2 SXA,1 LXC,1 9DWP -# Page 613 +# Page 613 9DWI XSU,1 BOV # -(I+N) 9DWN @@ -2588,7 +2588,7 @@ ROWDOT SSP BOV 9DWJ DLOAD PUSH HI6ZEROS -# Page 614 +# Page 614 ROWDOT1 DLOAD* DMPR* W,1 W,2 @@ -2669,7 +2669,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED # # R63COMP JOB: -# +# # UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS # # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM. @@ -2703,7 +2703,7 @@ DP1MIN 2DEC 6000 SETLOC P20S4 BANK COUNT* $$/R63 - + V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION CADR R02BOTH # KNOWN. ALARMS IF NOT. CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED @@ -2742,11 +2742,11 @@ V89RECL TC INTPRET TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED CADR R60CSM # SPACECRAFT AXIS TO LOS. TCF ENDEXT - + SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5. TC V89RECL - + VB04N06 VN 0406 VB06N18 VN 0618 @@ -2757,7 +2757,7 @@ R63COMP EQUALS R63 # MOD NO: # MOD BY: TOM KNATT # -# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF +# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF # STAR/EARTH AND STAR/MOON OPTICAL MEASUREMENTS. # # CALLING SEQUENCE: ASTRONAUT OPERATED @@ -2775,7 +2775,7 @@ R63COMP EQUALS R63 # REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ONE # # INPUTS BY USER REQUIRED: STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB. -# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND +# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND # BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4. # # OUTPUT: UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK @@ -2792,7 +2792,7 @@ R63COMP EQUALS R63 EBANK= W P23 TC DOWNFLAG ADRES RNDVZFLG - + TC 2PHSCHNG OCT 00004 # LEAVE GROUP 4 OCT 00012 # ENTER GROUP 2 @@ -2853,7 +2853,7 @@ P23.152 MASK BITS7-9 # IS C EQUAL TO 1 OR 2 TC R23.10 TC UPFLAG ADRES LUNAFLAG - TCF +3 + TCF +3 P23.16 TC DOWNFLAG ADRES LUNAFLAG CA STARCODE # IS STARCODE GREATER THAN OR @@ -2865,8 +2865,8 @@ P23.16 TC DOWNFLAG EXTEND BZMF +2 TC R23.10 -# Page 621 - +# Page 621 + TC INTPRET P23.17 SLOAD BZE STARCODE @@ -2917,7 +2917,7 @@ P23.31 BON EXIT P23.55 TC INTPRET GOTO P23.56 -# Page 622 +# Page 622 # VERB 94 BEGINS HERE V94ENTER TC INTPRET @@ -2996,7 +2996,7 @@ P23.85 CLEAR CALL # WE BEGIN CALCULATIONS HERE # POINTAXIS SUBROUTINE -POINTAXS STQ +POINTAXS STQ POINTEX R23.05 BON DLOAD ORBWFLAG @@ -3019,10 +3019,10 @@ R23.2 SET CALL TC INTPRET CALL RECT.1 # PICKUP CSM STATE VECTOR FROM PERM - BOFF + BOFF ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY R23.3 -# Page 624 +# Page 624 DLOAD CALL MARKTIME LUNPOS @@ -3030,7 +3030,7 @@ R23.2 SET CALL CMOONFLG +1 VAD - RZC + RZC STORE RZC R23.3 SLOAD BHIZ LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR @@ -3202,7 +3202,7 @@ HORIZ.1 VLOAD MXV MPAC STODL 30D 0 -# Page 628 +# Page 628 STODL 34D 6 # YH CALL @@ -3245,7 +3245,7 @@ HORIZ.1 VLOAD MXV 28D # SQRT(A-1)/A DMP SL1 6 # YH - PDDL + PDDL 2 # AH STODL 34D 0 @@ -3268,7 +3268,7 @@ HORIZ.1 VLOAD MXV DLOAD DSU 20D # XH/A 24D # ALPHA - PDDL DAD + PDDL DAD 22D # YH/A 26D # BETA PDDL PUSH @@ -3375,9 +3375,9 @@ SPSIX OCT 00006 JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS 2DEC 0 - + 2DEC .4215878460 # 1/2(COS 32.523 DEG) - + R60ADRS CADR R60CALL +3 NEG37 DEC -37 BITS7-9 OCT 700 diff --git a/Comanche055/P30-P37.agc b/Comanche055/P30-P37.agc index dfbcb04..be599c3 100644 --- a/Comanche055/P30-P37.agc +++ b/Comanche055/P30-P37.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 635-648 -# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file -# of the same name, using Comanche055 page +# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file +# of the same name, using Comanche055 page # images. # 2009-05-20 RSB Corrected BDV -> BOV. # @@ -18,32 +18,32 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A # Page 635 BANK 32 - + SETLOC P30S1 BANK - + EBANK= +MGA - + COUNT 35/P34 - + DISPMGA STQ EXIT # USED IN P30 RGEXIT TC COMPTGO - + DISP45 CAF V16N45 TC BANKCALL CADR GOFLASHR @@ -57,15 +57,15 @@ END45 TC INTPRET CLEAR GOTO TIMRFLAG RGEXIT - + COMPTGO EXTEND # USED TO COMPUTE TTOGO QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE ** - + TC UPFLAG # SET TIMRFLAG ADRES TIMRFLAG # BIT 11 FLAG 7 CAF ZERO TS NVWORD1 - + CAF ONE TC WAITLIST EBANK= TIG @@ -75,7 +75,7 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO OCT 40036 # 6.3SPOT FOR CLOKTASK OCT 05024 # GROUP 4 CONTINUES HERE OCT 13000 - + TC PHSPRDT6 # Page 636 # PROGRAM DESCRIPTION P30 DATE 3-6-67 @@ -115,13 +115,13 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO # X COUNT 35/P30 - + P30 TC P30/P31 TC CNTNUP30 TC DOWNFLAG # RESET UPDATFLG ADRES UPDATFLG # BIT 7 FLAG 1 TC INTPRET - CALL + CALL S30.1 EXIT TC PARAM30 @@ -129,7 +129,7 @@ P30 TC P30/P31 # Page 637 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2 TCF GOTOP00H - + P31 TC P30/P31 TC DOWNFLAG ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1 @@ -144,7 +144,7 @@ P31 TC P30/P31 TC DOWNFLAG ADRES XDELVFLG # BIT 8 FLAG 2. TCF GOTOP00H - + P30/P31 XCH Q TS P30/31RT TC UPFLAG @@ -160,7 +160,7 @@ P30/P31 XCH Q TC PHASCHNG OCT 00014 TC ENDOFJOB - + CNTNUP30 XCH Q TS P30/RET CAF V06N81 @@ -200,7 +200,7 @@ FLASHMGA CALL MARSDP OCT 00000 # (00000) (16440) = (+00001) OCT 35100 # ( .01 ) DEGREES IN THE LOW ORDER REGISTER - + V06N33 VN 0633 V06N42 VN 0642 V16N35 VN 1635 @@ -251,15 +251,15 @@ V06N45 VN 0645 SETLOC P30S1A BANK - + COUNT 35/S30S - + S30.1 STQ DLOAD QTEMP TIG # TIME IGNITION SCALED AT 2(+28)CS STCALL TDEC1 - THISPREC # ENCKE ROUTINE FOR - + THISPREC # ENCKE ROUTINE FOR + VLOAD SXA,2 VATT RTX2 @@ -282,19 +282,19 @@ S30.1 STQ DLOAD STOVL VGDISP # MAG DELV RTIG PDVL VAD - DELVSIN + DELVSIN VTIG CALL PERIAPO1 CALL - SHIFTR1 - CALL + SHIFTR1 + CALL MAXCHK STODL HPER # PERIGEE ALT B+29 4D CALL - SHIFTR1 - CALL + SHIFTR1 + CALL MAXCHK STCALL HAPO # APOGEE ALT B+29 QTEMP @@ -338,7 +338,7 @@ S30.1 STQ DLOAD S31.1 STQ DLOAD QTEMP TIG - STCALL TDEC1 + STCALL TDEC1 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME VLOAD PDVL # DELUEET3 RTIG @@ -354,7 +354,7 @@ S31.1 STQ DLOAD CALL SHIFTR1 CALL - MAXCHK + MAXCHK STOVL HAPO # B29 # Page 642 DELVEET3 @@ -405,7 +405,7 @@ S31.1 STQ DLOAD SETLOC DELRSPL1 BANK COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V - + DELRSPL STORE 8D BPL DSU CANTDO # GONE PAST 300K FT ALT @@ -457,7 +457,7 @@ CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR PUSH # ZERO TO PDL 2 FOR PHI ENTRY STCALL 8D GETARG # GO SET RSP-RREC =0 - + AUGEKUGL VLOAD X1CON -2 STODL X1 -2 @@ -521,7 +521,7 @@ TENT DMP RVQ TGR26 DLOAD GOTO TGR26CON TENT - + MAXPHI DLOAD PDDL MAXPHIC GOTO @@ -531,31 +531,31 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY # Page 646 COUNT* $$/P30 - + # BELOW # **** TABLE IS INDEXED. KEEP IN ORDER *** 2DEC 7.07304526 E-4 # 5500 - + 2DEC 3.08641975 E-4 # 2400 - + 2DEC 3.08641975 E-4 # 2400 - + 2DEC -8.8888888 E-3 # -3.2 - + 2DEC 2.7777777 E-3 # 1 - + CK1K2 2DEC 6.6666666 E-3 # 2.4 2DEC 0 # 0 - + 2DEC* -1.86909989 E-5 B7* # -.443 - + 2DEC 0 - + 2DEC* 1.11639691 E-3 B7* # .001225 - + 2DEC* 9.56911636 E-4 B7* # .00105 - + YK1K2 2DEC* 2.59733157 E-4 B7* # .000285 V(400) 2DEC 1.2192 B-7 @@ -567,7 +567,7 @@ V(3K) 2DEC 9.144 B-7 V(24K) 2DEC 73.152 B-7 2DEC 85.344 B-7 - + V(32K) 2DEC 97.536 B-7 V(4K) 2DEC 12.192 B-7 @@ -585,7 +585,7 @@ V(26K) 2DEC 79.248 B-7 # 26000 X1CON DEC 10 DEC 8 - + DEC 6 # **** TABLE IS INDEXED. KEEP IN ORDER *** # ABOVE diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index f14286d..cd141b2 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -8,14 +8,14 @@ # Website: www.ibiblio.org/apollo. # Pages: 649-683 # Mod history: 2009-05-09 RSB Adapted from the Luminary131/ file -# P32-P35_P72-P75.agc and Comanche055 page +# P32-P35_P72-P75.agc and Comanche055 page # images. # 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3, # CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG, # changed a SETLOC from CSI/CDH to CSI/CDH1, # a SETLOC CSI/CDH1 to CSIPROG. -# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in -# P32/P72D. DP1/4TH changed to DP1/4 in +# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in +# P32/P72D. DP1/4TH changed to DP1/4 in # CDHMVR. # # This source code has been transcribed or otherwise adapted from digitized @@ -24,13 +24,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -450,7 +450,7 @@ P32/P72F STORE T2TOT3 # VN1645 COUNT 35/P3373 - + P33 TC AVFLAGA TC P33/P73A P73 TC AVFLAGP @@ -497,7 +497,7 @@ P33/P73B CALL TC BANKCALL CADR GOFLASH TC GOTOP00H -# Page 659 +# Page 659 TC +2 TC P33/P73A TC INTPRET @@ -521,7 +521,7 @@ P33/P73D DLOAD DAD P33/P73E SETLOC CSI/CDH1 BANK - + P33/P73E DSU BPL 60MIN P33/P73E @@ -611,7 +611,7 @@ V06N50 VN 0650 BANK EBANK= SUBEXIT COUNT 34/CSI - + 60MIN 2DEC 360000 ALARM/TB OCT 00600 # NO 1 @@ -710,10 +710,10 @@ CSI/B1 DLOAD DAD # IF LOOPCT = 16 BPL GOTO SCNDSOL CSI/B2 - + SETLOC CSIPROG2 BANK - + CSI/B2 SETPD 0D DLOAD ABS @@ -737,17 +737,17 @@ CSI/B22 SET DLOAD DELVCSI STCALL DELVCSI CSI/B23 - + SETLOC CSIPROG3 BANK - + CSI/B23 VLOAD PUSH RACT1 UNIT PDVL UP1 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1 VXSC VSL1 -# Page 666 +# Page 666 DELVCSI STORE DELVEET1 VAD BOV @@ -798,7 +798,7 @@ CSI/B23D STCALL VACT4 SL2 DSU 1RTEB2 # 1.B.2 STODL 14D -# Page 667 +# Page 667 RTSR1/MU SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D PDDL DMP @@ -837,19 +837,19 @@ CSI/B3 PDVL DOT SETGO RVSW CSINEXT - + SN359+ 2DEC -.000086601 CS359+ 2DEC +.499999992 SETLOC CSIPROG4 - BANK - + BANK + CSINEXT STCALL RVEC TIMETHET PDDL BPL RDOTV -# Page 668 +# Page 668 NTP/2 DLOAD DSU HAFPA1 @@ -887,10 +887,10 @@ NTP/2 DLOAD DMP RPASS1 GOTO CSINEXT1 - + SETLOC CSIPROG5 BANK - + CSINEXT1 CALL INTINT2C STOVL RPASS2 @@ -900,7 +900,7 @@ CSINEXT1 CALL VLOAD SETPD RACT2 0D -# Page 669 +# Page 669 PDVL CALL VACT3 PERIAPO1 @@ -935,10 +935,10 @@ CSINEXT1 CALL VXSC STADR # (COSLOS)(UH3) B2 PL08D STCALL 18D # PLUS CSINEXT2 - + SETLOC CSIPROG6 BANK - + CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D VAD VSL1 18D # B1 @@ -951,7 +951,7 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D RACT3 RACT3 TLOAD DCOMP # RA3 . RA3 -# Page 670 +# Page 670 MPAC PDVL DOT # RP3 . RP3 B58 PL14D RPASS3 @@ -988,10 +988,10 @@ K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D 12D STCALL 10D # K EQUALS K1 K2. - + SETLOC CSIPROG7 BANK - + K2. DLOAD 10D VXSC VSL1 @@ -1002,7 +1002,7 @@ K2. DLOAD PDVL UNIT VPASS3 # PL12D VXV PDVL # UVP3 X URP3 PL18D -# Page 671 +# Page 671 06D 06D VXV DOT @@ -1050,11 +1050,11 @@ FRSTPAS DLOAD DELVCSI STCALL DVPREV CSINEXT3 - + SETLOC CSIPROG8 BANK -# Page 672 - +# Page 672 + CSINEXT3 DSU CLEAR DELDV S32.1F2 @@ -1116,10 +1116,10 @@ CSI/SOL DLOAD AXT,2 LXA,1 GOTO RTX1 CSINEXT4 - + SETLOC CSIPROG9 BANK - + CSINEXT4 DSU* BMN PMINE -2,1 SCNDSOL @@ -1156,7 +1156,7 @@ SCNDSOL BON BOFF ZEROVECS CLEAR SET S32.1F1 -# Page 674 +# Page 674 S32.1F2 CLEAR CLEAR S32.1F3A @@ -1333,7 +1333,7 @@ CDHMVR STQ VLOAD PDVL ABVAL # 0D = V SUB PV SL* PDVL 0,2 -# Page 681 +# Page 681 RACT2 ABVAL PDDL # 2D = LENGTH OF R SUB A DSU @@ -1384,7 +1384,7 @@ CDHMVR STQ VLOAD 08D VAD VSL1 STADR -# Page 682 +# Page 682 STORE VACT3 VSU VACT2 diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc index 254fde4..e492879 100644 --- a/Comanche055/P34-35_P74-75.agc +++ b/Comanche055/P34-35_P74-75.agc @@ -11,11 +11,11 @@ # 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR # to CADR GOFLASH. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -179,7 +179,7 @@ BANK EBANK= SUBEXIT COUNT 35/P3474 - + P34 TC AVFLAGA TC P34/P74A P74 TC AVFLAGP @@ -657,7 +657,7 @@ S34/35.1 VLOAD VSU # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT SETLOC CSI/CDH BANK - + S34/35.2 STQ VLOAD SUBEXIT VPASS3 @@ -833,7 +833,7 @@ S34/35.5 STQ BON FLAGON VLOAD DELVLVC STORE DVLOS # SAVE DELTA V BEFORE DISPLAY - EXIT + EXIT CAF V06N81 TC VNP00H TC INTPRET @@ -944,7 +944,7 @@ DISPLAYE EXTEND TCF GOTOP00H TC NORMEX TCF -5 - + # Page 484 # ***** P3XORP7X ***** @@ -971,7 +971,7 @@ VNP00H EXTEND CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN XCH FBANK # FIXED-FIXED ***** TS TBASE5 # * WATCH OUT * - + CA VERBNOUN TCR BANKCALL CADR GOFLASH @@ -994,7 +994,7 @@ V06N81 VN 0681 V16N45 VN 1645 SETLOC CSI/CDH BANK - + TWOPI 2DEC 6.283185307 B-4 MAX250 2DEC 25 E3 B-28 # RSB 2004 added the B-28. OH 2009 leave? THIRD 2DEC .333333333 @@ -1325,12 +1325,12 @@ INITVELX SETPD VLOAD HALFREV 2DEC 1 B-1 -MIDGIM BON BOFF +MIDGIM BON BOFF AVFLAG MIDGIM1 COMPUTER GET.LVC - + # COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES. GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) @@ -1344,13 +1344,13 @@ GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) SETMGA STORE +MGA CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC MGLVFLAG # AND EXIT - + MIDGIM1 BOFF COMPUTER GET+MGA - + # COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES - + GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR RINIT VCOMP # U(-R) @@ -1587,7 +1587,7 @@ SHIFTR1 LXA,2 SL* BANK # Page 502 EBANK= RPASS36 - + SBANK= R36A COUNT* $$/R36 @@ -1603,7 +1603,7 @@ R36 CAF TWO TC -5 # R2 LOADED VIA DSKY TC POSTJUMP CADR R36A - + OPTION36 VN 0412 SETLOC R36LM @@ -1627,10 +1627,10 @@ ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME RTB GOTO DPMODE R36INT - + SETLOC R36LM1 BANK - + R36INT STORE TDEC1 SLOAD SR1 OPTIONY @@ -1664,7 +1664,7 @@ R36PROG4 CALL R36PROG5 VLOAD PDVL # _ VATT # VELOCITY VECTOR V 00D RATT # A - PDDL + PDDL TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY STOVL 30D # _ PUSH PUSH # POSITION VECTOR R IN 06D AND 12D @@ -1685,7 +1685,7 @@ R36PROG5 VLOAD PDVL # _ VSL2 UNIT # RA A RA A UNIT GOTO R36B - + SETLOC R36CM1 # Page 504 BANK @@ -1710,10 +1710,10 @@ R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D RTHETA STCALL RTHETA R36TAG2 - + SETLOC R36LM BANK - + R36TAG2 DLOAD RTB 30D SGNAGREE diff --git a/Comanche055/P37_P70.agc b/Comanche055/P37_P70.agc index 0cbac46..45028af 100644 --- a/Comanche055/P37_P70.agc +++ b/Comanche055/P37_P70.agc @@ -11,7 +11,7 @@ # of the same name, using Comanche055 page # images. # 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> P00DOO. -# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to +# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to # STODL DELVLVC and a STODL 02D to STORE 02D. # # This source code has been transcribed or otherwise adapted from digitized @@ -26,7 +26,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -35,10 +35,10 @@ BANK 31 SETLOC RTE1 BANK - + EBANK= RTEDVD COUNT 31/P37 - + # PROGRAM DESCRIPTION: P37, RETURN TO EARTH # # DESCRIPTION @@ -219,7 +219,7 @@ RTE369 VLOAD ABVAL 2DEC -4.8760771 E-2 B4 2DEC 4.5419476 E-4 B11 2DEC -1.4317675 E-6 B18 - + TC INTPRET DAD RTED1 @@ -312,7 +312,7 @@ RTEALRM CALL P370ALRM EXIT TCF P37 # RECYCLE AFTER ALARM DISPLAY - + # RETURN TO EARTH DISPLAY SUBROUTINE RTEVN STQ CALL @@ -338,7 +338,7 @@ RTEVN STQ CALL TCR INTPRET GOTO VNSTORE - + # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING P37G CALL @@ -453,7 +453,7 @@ P37W CLEAR CLEAR VN1645 GOTO P37W - + # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1 P37GFRB1 EXTEND @@ -464,7 +464,7 @@ P37GFRB1 EXTEND TCF ENDOFJOB TC SPRTEX # RECYCLE TCF P37PROC # PROCEED - + # SUBROUTINE TO GO TO GOFLASHR P370GOFR EXTEND @@ -479,7 +479,7 @@ P370GOFR EXTEND TCF 0 +4 INDEX RTENCKEX # RECYCLE TCF 0 +3 - + # SUBROUTINE TO GO TO GOFLASH # Page 899 @@ -502,7 +502,7 @@ V6N81RTE VN 0681 SETLOC RTE BANK COUNT 32/RTE - + # Page 900 # ALARM DISPLAY SUBROUTINE @@ -595,7 +595,7 @@ RTEDISP STQ VLOAD # DISPLAY 36D STODL VPRED # V(T2) T2 - DSU + DSU SPRTETIG STOVL T3TOT4 # T21 R(T2)/ @@ -877,10 +877,10 @@ PREC125 CALL X(T2) ABS DSU EPC4RTE - BOV BMN + BOV BMN PREC130 PREC175 - + # DESIRED REENTRY ANGLE NOT ACHIEVED # Page 909 @@ -890,7 +890,7 @@ PREC130 DLOAD BMN PREC132 SLOAD GOTO # TOO MANY ITERATIONS OCT605 # EXIT WITH ALARM PRECX - + # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED PREC140 DLOAD BZE @@ -987,7 +987,7 @@ PREC170 DLOAD DAD 0 -3,1 # Page 911 PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D - PREC172 + PREC172 DLOAD PDDL # BETA14=1 B0 PL04D 2RTEB1 GOTO @@ -999,7 +999,7 @@ PREC173 DDV DSU 1RTEB3 BMN DLOAD PREC174 - DMP + DMP DT21PR STORE 00D # DT21=(BETA14)DT21PR B28 PREC174 DLOAD PUSH @@ -1015,7 +1015,7 @@ PREC175 DLOAD DSU DSU BMN EPC7RTE PREC220 - + # DESIRED RADIUS HAS NOT BEEN ACHIEVED DLOAD BZE @@ -1077,7 +1077,7 @@ PREC210 DLOAD # PREPARE FOR NEXT ITERATION BHIZ GOTO PREC120 PRECX - + # DESIRED RADIUS ACHIEVED SETLOC RTE2 @@ -1106,7 +1106,7 @@ PREC225 DLOAD ZERORTE PRECX GOTO SPRTEX - + # Page 914 # INTEGRATION CALLING SUBROUTINE # @@ -1179,7 +1179,7 @@ RTENCK1 STQ CALL INTYPFLG GOTO RTENCK3B - + RTENCK2 STQ CALL RTENCKEX INTSTALL @@ -1194,7 +1194,7 @@ RTENCK2 STQ CALL DAD GOTO RTENCK3D - + RTENCK3 STQ CALL RTENCKEX INTSTALL @@ -1367,7 +1367,7 @@ V2T101 SETPD CLEAR V2T102 GOTO V2T110 - + # PROCEED HERE IF NOT PRECISION COMPUTATION V2T102 DLOAD @@ -1462,7 +1462,7 @@ V2T150 CALL # GOTO X(T1)-DV ITERATOR DLOAD BZE # EXIT IF MINIMUM FUEL MODE RTEDVD V2T1X - + # CONTINUE IF TIME CRITICAL MODE DSU BMN @@ -1475,7 +1475,7 @@ V2T155 DLOAD BMN V2T160 GOTO V2T185 - + # CONIC TRAJECTORY COMPUTATION V2T160 DLOAD BZE @@ -1519,7 +1519,7 @@ V2T179 STCALL 16D # DX(T1) DLOAD BMN NN1A V2T300 - + # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A # PRECISION TRAJECTORY @@ -1557,7 +1557,7 @@ V2T300 DLOAD ZERORTE V2T1X GOTO 33D - + # Page 924 # X(T1)-DV ITERATOR SUBROUTINE # @@ -1679,7 +1679,7 @@ GAMDV32 DLOAD DCOMP GAMDV33 SETPD GOTO 18D # PL18D GAMDV50 - + # TIME CRITICAL MODE GAMDV35 DLOAD DSU @@ -1718,7 +1718,7 @@ GAMDV47 DLOAD SIGN 12D 16D STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1) - + # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS GAMDV50 DLOAD DMP @@ -1756,7 +1756,7 @@ GAMDV65 DLOAD ABS GAMDV25 GAMDVX GOTO 31D - + # Page 928 # DV CALCULATION SUBROUTINE # @@ -1879,18 +1879,18 @@ XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW 2RTEB1 XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10) XT1LIMX -XT1LIM5 DLOAD +XT1LIM5 DLOAD ZERORTE XT1LIMX GOTO 20D - + # Page 931 # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES BANK 36 SETLOC RTECON1 BANK - + 1RTEB1 2DEC 1. B-1 1RTEB2 2DEC 1. B-2 1RTEB3 2DEC 1. B-3 @@ -1900,7 +1900,7 @@ XT1LIMX GOTO 1RTEB13 2DEC 1. B-13 1RTEB17 2DEC 1. B-17 1RTEB25 2DEC 1. B-25 -# * * B25 AND B28 MUST BE CONSECUTIVE * * +# * * B25 AND B28 MUST BE CONSECUTIVE * * 1RTEB28 2DEC 1. B-28 ZERORTE 2DEC 0 M144RTE 2DEC -144. B-28 @@ -1938,7 +1938,7 @@ EPC10RTE 2DEC .0001 B-7 BANK 35 SETLOC RTECON1 BANK - + C4RTE 2DEC -6.986643 E7 B-30 K1RTE 2DEC 7. E6 B-29 K2RTE 2DEC 6495000. B-29 diff --git a/Comanche055/P40-P47.agc b/Comanche055/P40-P47.agc index 8d87759..9c0206c 100644 --- a/Comanche055/P40-P47.agc +++ b/Comanche055/P40-P47.agc @@ -7,13 +7,13 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 684-736 -# Mod history: 2009-05-11 RSB Adapted from the Colossus249/ file -# of the same name, using Comanche055 page -# images. +# Mod history: 2009-05-11 RSB Adapted from the Colossus249/ file +# of the same name, using Comanche055 page +# images. # 2009-05-20 RSB In S20.1, a DMP DDV was corrected to DMPR DDV. # 2009-05-22 RSB In BESTTRIM, TC PACTOFF corrected to # TS PACTOFF. -# 2009-05-23 RSB Prior to the 2CADR at T5IDLDAP, added an +# 2009-05-23 RSB Prior to the 2CADR at T5IDLDAP, added an # SBANK. # # This source code has been transcribed or otherwise adapted from digitized @@ -22,13 +22,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -40,12 +40,12 @@ BANK 31 SETLOC P40S BANK - + COUNT 24/P40 - + P40CSM TC DOWNFLAG ADRES ENG2FLAG - + TC INTPRET SLOAD BOFF ECSTEER # IS THIS AN EXTERNAL DELTA V BURN @@ -58,11 +58,11 @@ P40S/C STODL CSTEER P40S/F STODL F # P41 ENTERS HERE TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9 - + EXIT TC BANKCALL CADR R02BOTH # IMU STATUS CHECK - + P40PVA TC INTPRET CALL S40.1 # COMPUTE VGTIG,UT @@ -78,14 +78,14 @@ P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6) TS NBRCYCLS TC UPFLAG ADRES TIMRFLAG # ALLOW CLOCKTASK - + TC P41/P40 TC P41/DSP # P41 - + P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED # Page 685 TS NVWORD1 # BELOW - + TC INTPRET VLOAD ABVAL # FOR R2 VGTIG @@ -93,11 +93,11 @@ P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED HI6ZEROS STORE DVTOTAL EXIT - + EXTEND DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING DXCH AVEGEXIT # AFTER AVERAGE G - + P40GMB CAF P40CKLS2 # (4.1 PROTECTION) TC BANKCALL CADR GOPERF1 @@ -105,16 +105,16 @@ P40GMB CAF P40CKLS2 # (4.1 PROTECTION) TCF TST,TRIM # V33 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1) +1 TS MRKRTMP # ENTRY FROM TST,TRIM - + CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6 TS CNTR # +0 SAYS NORMAL ENTRY # +1 (PRE40.6) SAYS RESTART ENTRY - + CAF ONE TC WAITLIST EBANK= DAPDATR1 2CADR S40.6 - + CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST CAF 18SEC # PLUS, DELAY FOR 18 SECONDS TCF +2 # HOLE @@ -128,9 +128,9 @@ P40S/RS CAF ONE TC WAITLIST # P41/SDP EBANK= TIG 2CADR CLOKTASK - + RELINT - + P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12 EBANK= TIG # Page 686 @@ -139,7 +139,7 @@ P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12 TIG SEC29.96 STORE TDEC1 - + CALRB # RETURN IN BASIC MIDTOAV1 TCF +2 @@ -155,10 +155,10 @@ P40SET EXTEND TC LONGCALL EBANK= TIG 2CADR TIGBLNK - + TC PHASCHNG OCT 20214 # 4.21 = TIGBLNK (P40TMP CS) - + TCF ENDOFJOB P40BLNKR TC BANKCALL CADR CLEANDSP # REMOVE RESIDUE @@ -171,7 +171,7 @@ P40SNEWM EXTEND DCA SEC29.96 DAS TIG TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35) - + EBANK= DAPDATR1 POSTBURN CAF V16N40 TC BANKCALL @@ -186,7 +186,7 @@ P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS TC BANKCALL # Page 687 CADR DELAYJOB - + P40MINDB TCR SETMINDB -1 RELINT TIGNOW TC PHASCHNG @@ -198,12 +198,12 @@ TIGNOW TC PHASCHNG TCF POST41 # FINISH P40/P41 TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85 - + POST41 EXTEND DCA SERVCADR DXCH AVEGEXIT TCF GOTOP00H - + MINDB DEC 46 MAXDB DEC 455 EBANK= DAPDATR1 @@ -219,7 +219,7 @@ SETMINDB CA CDUX # ROUTINE FOR SETTING MASK DAPDATR1 TS DAPDATR1 TC Q - + EBANK= DAPDATR1 -1 INHINT SETMAXDB CA MAXDB # ROUTINE FOR SETTING @@ -234,18 +234,18 @@ SETMAXDB CA MAXDB # ROUTINE FOR SETTING SETLOC P40S2 BANK - + EBANK= DAPDATR1 COUNT 24/P41 - + P41CSM TC UPFLAG ADRES ENG2FLAG # SET FOR RCS - + TC INTPRET DLOAD HI6ZEROS # FOR P41 CSTEER =0 STORE CSTEER - + DLOAD BON FRCS2 # 2JET THRUST FOR S40.1 NJETSFLG @@ -253,32 +253,32 @@ P41CSM TC UPFLAG DAD GOTO # NJETS = 0 4-JET FRCS2 P40S/F - + SETLOC P40S BANK - + P41/P40 CS MODREG MASK ONE # P41EXITS AT CALL LOC +1 EXTEND BZF +2 # P41 INCR Q # P40 EXITS AT CALL LOC +2 TC Q - + TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41) TC NOVAC EBANK= DAPDATR1 2CADR TIGNOW - + P40CLK TC DOWNFLAG ADRES TIMRFLAG - + TCF TASKOVER - + P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB TS NVWORD1 - + TC INTPRET -# Page 689 +# Page 689 CALL # COMPUTE P40CNV85 # VGTIG IN CTRL COORDS EXIT @@ -288,7 +288,7 @@ P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB TC 2PHSCHNG OCT 40036 # 6.3=CLOKTASK(100CS) OCT 234 # 4.23=P40S/SV(PRIO12) - + TCF P40S/RS P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG TS NVWORD1 # REDISPLAY NONFLASHING @@ -296,7 +296,7 @@ P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG TC WAITLIST EBANK= DAPDATR1 2CADR TTG/0 - + CS BIT3 TCF TTGPHS P40CNV85 STQ SETPD @@ -308,7 +308,7 @@ P40CNV85 STQ SETPD S41.1 STCALL VGBODY QTEMP1 - + EBANK= DAPDATR1 CALCN85 TC INTPRET CALL @@ -351,20 +351,20 @@ TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30 TC WAITLIST EBANK= TIG 2CADR TIGAVEG - + CAF ZERO # DISABLE HERE, NOT IN P40BLNKR TS NVWORD1 - + CAF PRIO14 TC NOVAC EBANK= TIG 2CADR P40BLNKR # DON'T PROTECT -- RESTARTS BLANK DSKY - + CS OCT37 # 4.37 = TIGAVEG (500CS) P40TSK TC NEWPHASE OCT 4 TC TASKOVER - + EBANK= TIG ACADN83 2CADR CALCN83 @@ -378,7 +378,7 @@ ACADN85 2CADR CALCN85 # PROGRAM DESCRIPTION ** P47CSM ** COUNT 24/P47 - + EBANK= TIG P47CSM TC BANKCALL # IMU STATUS CHECK CADR R02BOTH @@ -390,11 +390,11 @@ P47CSM TC BANKCALL # IMU STATUS CHECK TC WAITLIST EBANK= TIG 2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG - + TC PHASCHNG OCT 40574 # A, 4.57 = TIGON (P40TMP CS) TCF ENDOFJOB - + EBANK= P40TMP TIGON EXTEND DCA ACADN83 @@ -403,10 +403,10 @@ TIGON EXTEND TC NOVAC EBANK= TIG 2CADR P47BODY - + CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30) TCF TTGPHS - + EBANK= TIG CALCN83 TC INTPRET SETPD # SET UP PUSHLIST FOR S41.1 @@ -427,7 +427,7 @@ CALCN83 TC INTPRET TC GENTRAN ADRES DV47TEMP ADRES DELVCTL - + TC SERVXT P47BODY TC INTPRET VLOAD @@ -452,22 +452,22 @@ P47/DSP CAF V1683 EBANK= TIG COUNT 24/P40 - + TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS) TCF P41REDSP - + CAF V06N40 # UNBLANK DISPLAY TS NVWORD1 - + CAF SEC24.96 TC WAITLIST EBANK= TIG 2CADR TIG-5 - + CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS) TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR OCT 4 # FROM TIGON (P47) WITH A=-1 - + PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED TCF TASKOVER # YES, DON'T START ANOTHER ONE TC POSTJUMP @@ -481,21 +481,21 @@ TIG-5 CAF 5SEC TC WAITLIST EBANK= DAPDATR1 2CADR TIG-0 - + CS BIT9 # WILL CAUSE V99 FLASH TS NVWORD1 - + TC 2PHSCHNG OCT 40074 # A, 4.7 = TIG-0 (500CS) OCT 00033 # A, 3.3 = S40.13 (PRIO20) - + CAF PRIO20 TC FINDVAC EBANK= TGO 2CADR S40.13 - + TCF TASKOVER - + # Page 695 # ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION @@ -503,18 +503,18 @@ TIG-5 CAF 5SEC TIG-0 CS FLAGWRD7 # SET IGN FLAG MASK BIT13 ADS FLAGWRD7 - + CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE MASK BIT12 EXTEND BZF TASKOVER # WAIT FOR V99P - + CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART TS NVWORD1 # DURING THE V99 SEQUENCE) - + TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD - + IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION EXTEND # TASK (4.61 PROTECTION) @@ -526,7 +526,7 @@ IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD SPSON CAF BIT13 # TURN ON SPS ENGINE EXTEND WOR DSALMOUT - + IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN MASK FLAGWRD2 CCS A @@ -534,23 +534,23 @@ IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL MASK BIT13 ADS FLAGWRD6 - + PREPTVC CS OCT60000 # RESET T5 BITS MASK FLAGWRD6 TS FLAGWRD6 - + EXTEND # KILL RCS DCA T5IDL24 DXCH T5LOC - + CS THREE # 4.3 = DOTVCON (40CS) TC NEWPHASE OCT 4 - + # Page 696 TC FIXDELAY DEC 40 # 0.4 SECOND DELAY FOR THRUST BUILDUP - + DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP) TS TVCPHASE CAF ZERO # SET TVCEXECUTIVE PHASE @@ -559,58 +559,58 @@ DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP) MASK FLAGWRD6 # BITS 15,14 = 10 AD BIT15 TS FLAGWRD6 - + CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6 TS L # WHICH IS HANDLED NOW BY REDOTVC COM DXCH -PHASE6 - + EXTEND # STORE RCS ATTITUDE ERRORS FOR USE IN DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS DXCH ERRBTMP - + CS FIVE # 4.5 = DOSTRULL (160 CS) TC NEWPHASE OCT 4 - + CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY TS TIME5 EXTEND DCA TVCON2C # (TVCDAPON) DXCH T5LOC # (KILLS RCS DAP) - + TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND DEC 160 # STEERING (IF NON-IMPULSIVE) - + DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN MASK FLAGWRD6 CCS A TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN) - + EXTEND DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0) DXCH -PHASE4 - + ENDIGN TCF TASKOVER STEERULL CS FLAGWRD2 # SET STEERSW MASK BIT11 ADS FLAGWRD2 - -# Page 697 - + +# Page 697 + ULAGEOFF CAF ZERO EXTEND WRITE CHAN5 # ZERO CHANNEL 5 TC Q - + IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE MASK FLAGWRD6 # ENGINE FAIL) TS FLAGWRD6 - + TCR E7SETTER - + EBANK= TIG EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK) DCA TGO @@ -618,31 +618,31 @@ IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE EXTEND DCA TIME2 DAS TIG - + TC 2PHSCHNG OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOT GROUP OCT 07014 # C, DELTAT NEXT, TASK BELOW, IN DEC -0 # -0 CS EBANK= DAPDATR1 2CADR IMPLCONT - + CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS) TC WAITLIST EBANK= TGO 2CADR ENGINOFF - + IMPLCONT CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP MASK FLAGWRD2 TS FLAGWRD2 - + TCR E6SETTER EBANK= DAPDATR1 - + CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-= TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON - + TCF PREPTVC - + EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6 EBANK= DAPDATR1 @@ -656,29 +656,29 @@ DOSPSOFF TCR SPSOFF # SHUTDOWN SPS, MASS UPDATES, ETC. CS OCT27/24 # (OCTAL 27) TC NEWPHASE OCT 4 # 4.27 = DOTVCRCS (250 CS) - + TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF DEC 250 - + DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE) - + TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS - + TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK - + TC PHASCHNG OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12) CAF PRIO12 # SET UP POSTBURN V16N40 JOB TC NOVAC EBANK= DAPDATR1 # (SET MAXDB IN POST41) 2CADR POSTBURN - + TCF TASKOVER - + EBANK= DAPDATR1 SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT DCA TIME2 @@ -689,7 +689,7 @@ SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT CS BIT13 # SHUT DOWN SPS ENGINE EXTEND WAND DSALMOUT - + CAF BIT14 # ISSUE SIV CUTOFF COMMAND EXTEND # FOR POSSIBLE BACK-UP USE WOR CHAN12 @@ -699,12 +699,12 @@ MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC MP EMDOT # MDOT, SC.AT B+3 KG/CS LXCH A -# Page 699 +# Page 699 EXTEND MP 1SEC # DEC 100 AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW TS CSMMASS # (1.44 KG OR 0.4 BITS) - + CA TVCPHASE # CHECK IF OK FOR TRIM UPDATE AD ONE # THESE CHECKS ARE ONLY NEEDED EXTEND # FOR A LESS THAN 0.4 SEC BURN @@ -712,7 +712,7 @@ MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS CS FLAGWRD6 # YES, CHECK IF TVC MASK OCT60000 EXTEND - BZMF BTRIMR # NO, NOT TVC YET + BZMF BTRIMR # NO, NOT TVC YET BESTTRIM CAE DELPBAR # UPDATE TRIMS WITH DELFILTER VALUES TS PACTOFF CAE DELYBAR @@ -727,7 +727,7 @@ STEERADS 2CADR STEERING OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS EBANK= DAPDATR1 TVCON2C 2CADR TVCDAPON - + -1 INHINT TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRLS, REENGAGE EXTEND # OPTICS DAC @@ -745,12 +745,12 @@ UPDATEVG STQ BON QTEMP1 XDELVFLG CALL40.8 - + SLOAD BMN NBRCYCLS SETUP.9 -# Page 700 - +# Page 700 + VLOAD VAD DELVSUM DELVREF @@ -759,22 +759,22 @@ UPDATEVG STQ BON CA ONE AD NBRCYCLS TS NBRCYCLP - + TC PHASCHNG # TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS OCT 10035 - + CA NBRCYCLP TS NBRCYCLS TC INTPRET VLOAD DELVSUMP STORE DELVSUM - + CALL40.8 CALL S40.8 GOTO QTEMP1 - + SETUP.9 BON SLOAD FIRSTFLG SURELY.9 @@ -793,7 +793,7 @@ SURELY.9 EXIT TC FINDVAC EBANK= DAPDATR1 2CADR S40.9 - + TC 2PHSCHNG OCT 00051 # A, 1.5 = REDO40.9, PRIO 10 OCT 10035 @@ -801,7 +801,7 @@ SURELY.9 EXIT VLOAD RN # ACTIVE VEHICLE RADIUS VECTOR AT T1 STOVL RINIT -# Page 701 +# Page 701 VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1 STODL VINIT PIPTIME @@ -852,10 +852,10 @@ SERVXT TC POSTJUMP DXCH TGO CA TGO +1 TC WAITLIST -# Page 702 +# Page 702 EBANK= TGO 2CADR ENGINOFF - + TC 2PHSCHNG OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP OCT 10035 # B, 5.3 = REREADAC, AND START BELOW @@ -874,43 +874,43 @@ CLOKTASK CAF BIT11 # IS TIMRFLAG SET TC PHASCHNG OCT 00006 # KILL RESTART TC TASKOVER - + CLOCKON EXTEND DCA TIME2 DXCH TTOGO EXTEND DCS TIG DAS TTOGO - + SETCLOCK CAF 1SEC TC WAITLIST EBANK= TIG 2CADR CLOKTASK - + CCS NVWORD1 TCF +3 TCF SETTB6 - + TCF +1 CS V06N85B # CHECK FOR V06N85B (P41) AD NVWORD1 EXTEND BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP - + CAF PRIO27 TC NOVAC EBANK= DAPDATR1 2CADR CLOCKJOB - + SETTB6 CS TIME1 # SET GROUP6 TIMEBASE TS TBASE6 TCF TASKOVER - + SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06) TC FINDVAC EBANK= DAPDATR1 2CADR DYNDISP - + TCF SETTB6 # CLOSE OUT CLOCKTASK # Page 704 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41. @@ -918,7 +918,7 @@ DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41. P40CNV85 EXIT TCF CKNVWRD1 - + # Page 705 # ROUTINE ** CLOCKJOB ** DESCRIPTION @@ -942,37 +942,37 @@ FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH TCF V97T # TERMINATE TCF V97P # PROCEED TCF V97E # ENTER - + ENGREQST CAF V06N40 TC BANKCALL CADR CLOCPLAY # LINUS MAKES IT A REDO, INHINT OK TCF V99T # TERMINATE TCF V99P # PROCEED TCF V99E # ENTER - + NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY TC BANKCALL CADR REGODSP - + E7SETTER CAF EBANK7 TS EBANK EBANK= TIG TC Q - + E6SETTER CAF EBANK6 # SET UP EBANK6 TS EBANK EBANK= DAPDATR1 TC Q - + EBANK= DAPDATR1 V99E TC 2PHSCHNG OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION OCT 05024 # C, PRIORITY NEXT, JOB BELOW -# Page 706 +# Page 706 OCT 27000 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK TCF P40RCS # V16N85 POST-BURN OPERATIONS - + EBANK= DAPDATR1 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO) OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION @@ -980,25 +980,25 @@ V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO) OCT 27000 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H - + V99P INHINT CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P MASK BIT12 CCS A TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY - + ASTNV99P CAF BIT12 # SET ASTN FLAG ADS FLAGWRD7 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL MASK BIT13 EXTEND BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0 - + ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY TC WAITLIST # SET UP IGNITION HERE EBANK= DAPDATR1 2CADR IGNITION - + V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0 TS NVWORD1 ENDV99P TCF ENDOFJOB @@ -1011,24 +1011,24 @@ V97T TC 2PHSCHNG TC TWIDDLE ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC. TCF ENDOFJOB - + EBANK= CSMMASS V97TTASK CAF ZERO # DISABLE CLOCKJOB TS NVWORD1 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK -# Page 707 +# Page 707 TC PHASCHNG OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN DEC -0 # -0 CS - + TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC. TC PHASCHNG OCT 00714 # A, 4.71 = V97TRCS (250 CS), TBASE OLD TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- DEC 250 # OFF (FALSE THRUST-LOSS) - + EBANK= DAPDATR1 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS @@ -1036,7 +1036,7 @@ V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO TC NOVAC # MAXDB AND GOTOP00H) EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41 2CADR V99T - + ENDV97T TCF TASKOVER EBANK= V97VCNTR @@ -1046,7 +1046,7 @@ V97P TC PHASCHNG TC TWIDDLE ADRES V97PTASK TCF ENDOFJOB - + EBANK= V97VCNTR V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR @@ -1062,13 +1062,13 @@ V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN OCT 00134 # A, 4.13 = R40ENABL (200 CS), TBASE OLD TC FIXDELAY # WAIT 2 SECONDS, THEN DEC 200 - + EBANK= WHOCARES R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL ADRES IDLEFAIL TC PHASCHNG OCT 00004 # KILL GROUP 4 -# Page 708 +# Page 708 ENDV97P TCF TASKOVER EBANK= WHOCARES @@ -1078,9 +1078,9 @@ V97E TC PHASCHNG TC WAITLIST EBANK= TIG 2CADR V97ETASK - + TCF ENDOFJOB - + EBANK= TIG V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59 TS TIG @@ -1098,17 +1098,17 @@ SPSOFF97 TCR SPSOFF OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- DEC 250 # OFF (FALSE THRUST-LOSS) - + EBANK= DAPDATR1 V97E40.6 CAF BIT1 TC WAITLIST EBANK= CNTR 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE - + TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS. # LEAVE NARROW DEADBAND FOR REIGNITE. - + TC 2PHSCHNG OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC) OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN @@ -1119,9 +1119,9 @@ QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR AD BIT13 TS FLAGWRD7 TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6 -# Page 709 +# Page 709 DEC 30 - + V99FLASH CS BIT9 # CAUSE V99 TO FLASH TS NVWORD1 TC 2PHSCHNG @@ -1131,10 +1131,10 @@ V99FLASH CS BIT9 # CAUSE V99 TO FLASH TC FINDVAC EBANK= TGO 2CADR S40.13 - + ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION # TO FLASHING V99 RESPONSE. - + # MOD N02 LOG SECTION P40-P47 # MOD BY ZELDIN # @@ -1199,7 +1199,7 @@ ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION BANK COUNT 16/S40.1 - + S40.1 SET VLOAD FIRSTFLG LO6ZEROS @@ -1271,7 +1271,7 @@ S40.1B DLOAD DSU # LAMBERT TWODT STODL TDEC1 TPASS4 - DSU + DSU TDEC1 STCALL DELLT4 AGAIN @@ -1280,7 +1280,7 @@ S40.1B DLOAD DSU # LAMBERT STODL UT TIG STORE TDEC1 -# Page 712 +# Page 712 BDSU TPASS4 STCALL DELLT4 @@ -1294,12 +1294,12 @@ S40.1B DLOAD DSU # LAMBERT SETPD GOTO 0 CALCUT - + THETACON 2DEC .31830989 B-8 SETLOC P40S3 BANK - + COUNT 24/S40.1 EP4(45)H 2DEC .125 @@ -1331,7 +1331,7 @@ AGAIN STQ CALL PUSH CALL INITVEL SETPD GOTO -# Page 713 +# Page 713 0 QTEMP1 CALCUT VLOAD CALL @@ -1349,7 +1349,7 @@ CALCUT VLOAD CALL STOVL 12D # B.C SCALED AT 2(-15) PDL 12D VGTIG UNIT PUSH # UG PDL 0 SCALED AT 2(+1) - + DOT VXSC 12D 0 @@ -1377,7 +1377,7 @@ CALCUT VLOAD CALL # MOD BY ZELDIN # # FUNCTIONAL DESCRIPTION -# +# # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU # ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP # COMPUTE X AXIS OF ENGINE BELL @@ -1462,8 +1462,8 @@ S40.2,3 VLOAD MXV DMP SL1 2 VDEF - - STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT + + STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT ZSCREF DMP SL1 4 @@ -1472,10 +1472,10 @@ S40.2,3 VLOAD MXV 2 SL1 DCOMP VDEF - + STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2 VDEF - + STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2 ZSCREF PDDL PDDL @@ -1548,7 +1548,7 @@ YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON) PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) # REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968 - + # PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66 # MOD NO 1 LOG SECTION P40-P47 # MOD BY ZELDIN @@ -1564,7 +1564,7 @@ PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) # L+1 S41.1 # # NORMAL EXIT MODE -# +# # AT L +2 OF CALLING SEQUENCE # # SUBROUTINES CALLED: @@ -1591,10 +1591,10 @@ PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) # QPRET COUNT 22/S41.1 - + SETLOC P40S5 BANK - + S41.1 STQ CALL QTEMP CDUTRIG @@ -1642,7 +1642,7 @@ TENBNK14 2DEC 10. B-4 BANK EBANK= DAPDATR1 COUNT 16/S40.8 - + S40.8 SETPD STQ SPBIT1 00D QTEMP @@ -1652,13 +1652,13 @@ SPBIT1 00D VAD VGPREV STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS - + ABVAL STORE VGDISP # FOR DISPLAY PURPOSES EXIT TC PHASCHNG OCT 10035 # TYPE B RESTART RESTART BELOW AND 5.3 REREADAC - + TC INTPRET VLOAD # Page 720 @@ -1682,7 +1682,7 @@ SPBIT1 00D INDEX A # LM-OFF, LM-ON VALUE CAE EREPFRAC TS REPFRAC - + TC INTPRET TGOCALC VLOAD BVSU # GET DELVG DELVREF @@ -1719,7 +1719,7 @@ TGOCALC VLOAD BVSU # GET DELVG DSU BMN FOURSEC S40.81 - + XPRODUCT VLOAD VXSC BDT CSTEER @@ -1736,11 +1736,11 @@ XPRODUCT VLOAD VXSC OMEGACLC STORE OMEGAC GOTO QTEMP - + SETLOC DAPS7 BANK COUNT 17/S40.8 - + TWODT 2DEC 200.0 B-28 # 2 SEC -FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING) @@ -1753,9 +1753,9 @@ DPB-9 2DEC 1 B-9 SETLOC DAPS6 BANK - + COUNT 20/S40.8 - + S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS IMPULSW # FOR ENGINE-OFF CALL HI6ZEROS @@ -1774,21 +1774,21 @@ INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING TC INTPRET GOTO QTEMP - + LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF QTEMP # UNFAVORABLE S40.8 SYNCH. HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS STORE OMEGAC # PUT TVC IN ATTITUDE HOLD EXIT - + CS ZERO TS VCNTR # KILL CSMMASS UPDATING TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO) TS REPFRAC # KILL TVCDAP CG TRIM TRACKING TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB) - - TC INTPRET + + TC INTPRET CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL STEERSW # SHUTDOWN IF NOT SET UP AGAIN) QTEMP # RESTARTS OK @@ -1797,7 +1797,7 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED # NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY) # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED # VECTORS FOR USE DURING AIMPOINT MANEUVERS. -# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL +# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED. # CALLING SEQ VIA FINDVEC AS NEW JOB. # INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29. @@ -1824,10 +1824,10 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED SETLOC P40S1 BANK - + EBANK= NBRCYCLS COUNT 16/S40.9 - + S40.9 TC INTPRET SETPD DLOAD 00D @@ -1883,7 +1883,7 @@ FIRSTTME SLOAD DCOMP MOONCASE EXIT TC PHASCHNG OCT 04021 # C, JOB BELOW - + COPY40.9 TC INTPRET DLOAD TNIT @@ -1898,7 +1898,7 @@ ENDS40.9 TC PHASCHNG OCT 00001 # Page 725 TCF ENDOFJOB - + REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY VLOAD # TERMINATE S40.9 SO THAT IT CAN BE LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS @@ -1909,7 +1909,7 @@ REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9 EXIT # WITHOUT DISTURBING VGPREV. TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S - + 200CSHI 2DEC 200 B-12 EARTHMU 2DEC* -3.986032 E10 B-36* @@ -1922,7 +1922,7 @@ EP4(10)L 2DEC .027777777 # NAME: S40.13 -- TIMEBURN # # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO- -# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT +# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND # (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT -- # AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL. @@ -1945,7 +1945,7 @@ EP4(10)L 2DEC .027777777 EBANK= TGO COUNT 16/40.13 - + S40.13 TC INTPRET SETPD SET 00D @@ -1978,9 +1978,9 @@ S40.130 BDSU EMDOT # SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE) 3.5SEC # 350 CS AT +14 BDSU PDDL - WEIGHT/G + WEIGHT/G FANG - DMP SR2 + DMP SR2 5SECOND # 500 CS AT +14 DDV PUSH # 04D = TEMP2 BDSU BPL @@ -2009,17 +2009,17 @@ S40.133 CLEAR EXIT # WILL STEER VEHICLE IMPULSW S40.134 TC PHASCHNG # KILL GROUP 3 OCT 3 - + TCF ENDOFJOB - + NOTADDUL TC INTPRET GOTO S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE SETLOC DAPS7 BANK - + COUNT 17/40.13 - + K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 K3VAL = EK3VAL # DP PAD LOAD B+09 NEWTONS/E+4 @@ -2033,7 +2033,7 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING # 7.96 (199.6)COS(10) LB-SEC, SC.AT # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE # TO GO, PLUS 0.96 SEC FROM PIPTIME) - + # Page 729 # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM # MOD NO 5 DATE 9 MARCH, 1967 @@ -2080,65 +2080,65 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING BANK 17 SETLOC DAPS6 BANK - + EBANK= CNTR COUNT 20/S40.6 - + PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT MASK OCT60000 # IF TVC, BITS 15,14 = 1,0) EXTEND BZMF +2 TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE - + CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY # Page 730 TS MRKRTMP - + CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS... TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S # NORMALLY +0, BY S40.6) - + EBANK= CNTR S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY TS OPTIND - + CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO, EXTEND # AND INHIBIT PULSE TRANSMISSION -- WAND CHAN12 # NORMAL STATE) - + CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC WOR CHAN12 - + TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR DEC 6 # RELAY LATCHING - + CAF BIT2 # ENABLE OPTICS ERROR COUNTERS EXTEND WOR CHAN12 - + TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR DEC 2 # RELAY LATCHING - + RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6) TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY # TST,TRIM SETS +0 ON NORMAL ENTRY - + CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS EXTEND BZMF GIMTRIM # (TRIM ONLY) - + GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH TS CNTR - + GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT TC OUTPUT # (LEAVES GIMBAL AT +2 DEG) CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2) TC OUTPUT CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0) TC OUTPUT - + CS CNTR # CHECK FOR COMPLETION OF YAW TEST. # Page 731 CCS A @@ -2146,36 +2146,36 @@ GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT CS BIT1 # SET UP YAW TEST TS CNTR TCF GIMDTEST # FOR YAW TEST - + OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q QXCH TEMPR60 - + INDEX CNTR TS TVCPITCH - + INDEX CNTR CAF BIT11 EXTEND WOR CHAN14 - + TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES DEC 200 # GIMBAL MOTION ON GPI TC TEMPR60 - + GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM DEC 400 - + +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY CS ZERO AD YACTOFF TS TVCYAW - + CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12 EXTEND WOR CHAN14 - + ENDS40.6 TCF TASKOVER OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS @@ -2185,32 +2185,32 @@ OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS # CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL COUNT 20/S41.2 - + S41.2 CA DAPDATR1 # Page 732 MASK THREE AD A TS RATEINDX - + INHINT CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1 MASK PRIO30 # =10) AD -BIT14 # (OCT57777) EXTEND BZF TOGETHER # YES - + CS BIT2 # NO, UNSET FLAG MASK FLAGWRD7 TS FLAGWRD7 - + TCF +4 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION MASK BIT2 ADS FLAGWRD7 - + RELINT - + CA DAPDATR1 MASK BIT4 EXTEND @@ -2218,7 +2218,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION CA DEC409 AD DEC46 # DEC 455 MEANS WIDE DB TS ADB - + CA DAPDATR1 MASK BIT7 # QUAD BD EXTEND @@ -2231,7 +2231,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION BZMF +2 CS ONE ADS XTRANS - + INHINT EXTEND BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS) @@ -2252,7 +2252,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION CS ONE COM TS ACORBD # MINUS FOR A-C, PLUS FOR B-D - + CA DAPDATR2 MASK BIT10 CCS A @@ -2284,7 +2284,7 @@ BDFAIL CA DAPDATR2 CS ONE TS RBDFAIL TC Q - + # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46) BANK 42 @@ -2301,7 +2301,7 @@ DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER MASK THREE # (IN CASE BIT 15 IS USED) INDEX A TCF +1 # BRANCH BASED ON CONFIG.... - + TCF NODAPUP # CM.......ACTIVATE NODAP TCF RCSDAPUP # CSM......ACTIVATE RCSDAP TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP @@ -2335,7 +2335,7 @@ T5IDLDAP 2CADR T5IDLOC BANK 17 SETLOC DAPS6 BANK - + DEC409 DEC 409 DEC46 DEC 46 @@ -2346,48 +2346,48 @@ S40.14 CAE IXX # RCS ENTRY EXTEND MP CONTONE TS J/M - + CA IAVG EXTEND MP CONTONE TS J/M1 - + TS J/M2 - + EXTEND DCA CONTTWO EXTEND DV IXX TS KMJ - + EXTEND DCA CONTTWO EXTEND DV IAVG TS KMJ1 - + TS KMJ2 - + TC Q - + CONTONE DEC .662034 # 2PI/M CONTTWO 2DEC .00118 COUNT 24/TVNG - + BANK 31 SETLOC P40S BANK - + POS-2.5 OCT 37405 EBANK= DAPDATR1 RCSCADR 2CADR RCSUP 6SECT5 OCT 37704 COUNT 21/RCSUP - + BANK 20 - + SETLOC DAPS3 BANK @@ -2396,11 +2396,11 @@ RCSCADR 2CADR RCSUP RCSUP LXCH BANKRUPT EXTEND QXCH QRUPT - + TCR RCSDAPON # ACTIVATE RCS DAP - + TCF RESUME - + EBANK= DAPDATR1 RCSADDR 2CADR RCSATT @@ -2410,20 +2410,20 @@ RCSADDR 2CADR RCSATT RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE +1 TS TIME5 # ENTRY FROM R00TOP00 TS T5PHASE # WILL CAUSE FRESHDAP (+1) - + CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY) - + EXTEND DCA RCSADDR # (RCSATT) DXCH T5LOC - + CS OCT60000 # SEE BITS 15,14 TO 01 TO INDICATE MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP - AD BIT14 + AD BIT14 TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS - - TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP) - + + TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP) + diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index 45a488c..c750d21 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -9,7 +9,7 @@ # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # name, and Comanche 055 page images. -# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT, +# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT, # GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT, # V853 -> VB53, R56A -> R56A1 (some places # only), added missing R56A1 label, added a @@ -19,11 +19,11 @@ # TC PHASCHNG. In R53C, a CADR GOFLASHR was # corrected to CADR GOFLASH. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -137,7 +137,7 @@ P54 = PROG52 SBANK= LOWSUPER EBANK= SAC COUNT 15/P52 - + PROG52 TC PHASCHNG OCT 00254 TC DOWNFLAG @@ -159,7 +159,7 @@ P52B CAF BIT1 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE CADR GOPERF4R TC GOTOP00H - TC +5 + TC +5 TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT TC PHASCHNG OCT 00014 @@ -186,7 +186,7 @@ P52T EXTEND EXTEND BZF +2 TCF +4 - + EXTEND DCA TIME2 DXCH DSPTEM1 @@ -252,7 +252,7 @@ P52I TC ALARM CADR GOFLASH TC GOTOP00H TC P52F # PROCEED: DO FINE ALIGN-R51 - TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED + TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED V06N34 VN 0634 VB06N22 VN 00622 COARSTYP CAF OCT13 @@ -311,7 +311,7 @@ V16N20 VN 1620 ALRM15 EQUALS OCT15 SETLOC P50S2 BANK -V06N89* VN 0689 +V06N89* VN 0689 # NAME -- P52LS # @@ -353,21 +353,21 @@ P52LS STQ SET STODL 0D TSIGHT STCALL 6D -# Page 743 +# Page 743 RP-TO-R VSR2 - STODL ALPHAV + STODL ALPHAV TSIGHT CALL LAT-LONG CALL LLASRD EXIT -LSDISP CAF V06N89* +LSDISP CAF V06N89* TC BANKCALL CADR GOFLASH TC GOTOP00H - TC +2 + TC +2 TC LSDISP TC INTPRET CALL @@ -393,7 +393,7 @@ LSDISP CAF V06N89* QMAJ SETLOC P50S1 BANK - + # NAME: AUTOMATIC OPTICS POSITIONING ROUTINE # # FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT. @@ -418,7 +418,7 @@ LSDISP CAF V06N89* # 6. SR52.1 COUNT 15/R52 - + R52 STQ CLEAR SAVQR52 ADVTRK @@ -456,7 +456,7 @@ R52JA CAF BIT10 # IS THIS A LEM MASK STATE CCS A TCF R52E # YES -# Page 745 +# Page 745 CAF V06N92 # NO TC BANKCALL CADR GODSPR @@ -492,19 +492,19 @@ R52HA TC BANKCALL MASK BIT5 EXTEND # TRACKFLG BZF R52Q - + CS STATE +1 MASK BIT7 # UPDATFLG CCS A TCF R52SYNC - + R52I CA STATE +5 MASK BIT10 CCS A TC R52D # PRFTRKAT = 1 R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME TCF R52F +1 - + R52J TC DOWNFLAG # CLEAR TRUNFLAG ADRES TRUNFLAG # BIT 4 FLAG 0 # Page 746 @@ -520,22 +520,22 @@ R52M CAF BIT6 # IS R53FLAG SET TC FINDVAC EBANK= SAC 2CADR R53JOB - + RELINT TCF R52F R53JOB TC INTPRET CALL R53 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES) - TC ENDOFJOB + TC ENDOFJOB V06N92 VN 00692 V06N89A VN 0689 SHAXIS 2DEC .5376381241 B-1 2DEC 0 - + 2DEC .8431766920 B-1 - + R52L CAF BIT10 # IS THIS A LEM MASK STATE +1 CCS A @@ -547,7 +547,7 @@ R52L CAF BIT10 # IS THIS A LEM TCF R52F # PROCEED TCF R52F # NO PROVISION FOR NEW DATA TCF ENDOFJOB - + OCT404 OCT 404 1.8SEC DEC 180 @@ -560,12 +560,12 @@ TERM52 TC CLEARMRK CAF ZERO TS OPTCADR - + TC BANKCALL # CLEAR OUT EXTENDED VERBS CADR KLEENEX - + TC GOTOP00H # NO GO TO P00 - + ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING SAVQR52 ADVTRK @@ -632,7 +632,7 @@ ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING # Page 749 SETLOC P50S1 BANK - + COUNT* $$/S50 LOCSAM = S50 @@ -721,9 +721,9 @@ RSUBE 2DEC 6378166 B-29 ECLIPOL 2DEC 0 # * 2DEC -.00007896 B-1 # * - + 2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY - + TSIGHT1 2DEC 24000 CEARTH = 14D @@ -775,7 +775,7 @@ CSSUN 2DEC .24148 # (COS 15)/4 # STARAD -- STAR +5 COUNT 14/PICAP - + SETLOC P50S1 BANK PICAPAR TC MAKECADR @@ -834,7 +834,7 @@ PIC4 VLOAD* CALL BMN DAD PIC3 CSS6640 # SEPARATION MORE THAN 40 DEG. - BPL + BPL PIC3 # Page 754 VLOAD* DOT @@ -920,7 +920,7 @@ PICBXT CA QMIN # SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN) COUNT 14/R51 - + R51 EXIT CAF BIT1 TS STARIND @@ -1014,10 +1014,10 @@ R51K EXIT TC +3 TC BANKCALL CADR P52C -# Page 758 +# Page 758 TC INTPRET GOTO - ENDP50S + ENDP50S R51.4 TC INTPRET MXV UNIT REFSMMAT @@ -1048,7 +1048,7 @@ V01N70 VN 0170 SETLOC P50S BANK - COUNT* $$/R55 + COUNT* $$/R55 R55 STQ QMIN CALL @@ -1135,7 +1135,7 @@ CHKSB VLOAD* DOT* # CAL. ANGLE THETA CHKSD DLOAD DSU THETA # COMPUTE POS DIFF 18D - ABS RTB + ABS RTB SGNAGREE STORE NORMTEM1 SET EXIT @@ -1143,10 +1143,10 @@ CHKSD DLOAD DSU CAF ZERO TC BANKCALL CADR CLEANDSP - + CAF VB6N5 # Page 761 - TC BANKCALL + TC BANKCALL CADR GOFLASH TCF GOTOP00H TC CHKSDA # PROCEED @@ -1160,7 +1160,7 @@ CHKSDA TC INTPRET VB6N5 VN 605 # NAME -- CAL53A -# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY +# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY # CALLING SEQUENCE -- CALL CAL53A # INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ # DESIRED GIMBAL ANGLES -- THETAD,+1,+2 @@ -1168,7 +1168,7 @@ VB6N5 VN 605 # SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS COUNT 14/R50 - + CAL53A CALL S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES RTB SSP @@ -1197,7 +1197,7 @@ COARFINE EXIT CADR IMUCOARS # PERFORM COARSE ALIGNMENT TC BANKCALL CADR IMUSTALL # REQUEST MODE SWITCH -# Page 762 +# Page 762 TC CURTAINS TC BANKCALL CADR IMUFIN20 @@ -1232,7 +1232,7 @@ MATMOVE VLOAD* # TRANSFER MATRIX STORE 12D,2 RVQ DEGREE1 DEC 46 -DEG359 DEC 16338 +DEG359 DEC 16338 SETLOC P50S BANK RDCDUS INHINT # READ CDUS @@ -1264,7 +1264,7 @@ RDCDUS INHINT # READ CDUS SETLOC P50S2 BANK COUNT 14/INFLT - + CALCSMSC DLOAD DMP SINCDUY COSCDUZ @@ -1304,7 +1304,7 @@ CALCSMSC DLOAD DMP XNB STORE YNB RVQ - + # NAME -- P51 -- IMU ORIENTATION DETERMINATION # MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53 # Page 764 @@ -1444,18 +1444,18 @@ CALCSMSC DLOAD DMP BANK COUNT 14/P5153 -P53 EQUALS P51 +P53 EQUALS P51 P51 CS IMODES30 MASK BIT9 CCS A -# Page 767 +# Page 767 TC P51A TC ALARM OCT 210 TC GOTOP00H P51A TC BANKCALL CADR R02ZERO - + P51AA CAF PRFMSTAQ TC BANKCALL CADR GOPERF1 @@ -1508,7 +1508,7 @@ P51B TC PHASCHNG EXIT CAF BIT1 TS MARKINDX # INITIALIZE FOR ONE MARK - + P51C TC PHASCHNG OCT 05024 OCT 13000 @@ -1539,7 +1539,7 @@ P51D VLOAD STADR CALL PLANET STORE PLANVEC -# Page 769 +# Page 769 P51E EXIT TC PHASCHNG OCT 05024 @@ -1593,7 +1593,7 @@ SET1/PDT CA TIME1 # Page 770 TS 1/PIPADT TCF DANZIG - + # Page 771 # SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA @@ -1645,7 +1645,7 @@ MKDNCDR ECADR MARKDOWN # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF. # # SUBROUTINES CALLED -# +# # SXTMARK # OPTSTALL # GOFLASH @@ -1667,9 +1667,9 @@ MKDNCDR ECADR MARKDOWN SETLOC RT53 BANK - + COUNT 14/R53 - + R53 STQ SET # SET SIGHTING MARK FLAG R53EXIT R53FLAG @@ -1703,7 +1703,7 @@ R53B TC CHECKMM TCF R53D R53C1 CAF ZERO TC BANKCALL - CADR CLEANDSP + CADR CLEANDSP R53C CAF V01N71 TC BANKCALL CADR GOFLASH @@ -1748,9 +1748,9 @@ NEG47 OCT 77730 SETLOC S52/2 BANK - + COUNT 13/S52.2 -S52.2 STQ +S52.2 STQ QMAJ CALL CDUTRIG @@ -1786,7 +1786,7 @@ S52.2.1 AXC,1 AXC,2 # # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE # LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS -# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS +# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS # THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE @@ -1842,7 +1842,7 @@ S52.2.1 AXC,1 AXC,2 # Page 776 SETLOC SR52/1 BANK - + SR52.1 TC MAKECADR TS QMIN TC INTPRET @@ -1951,7 +1951,7 @@ ADVTRACK SETPD VLOAD VXV VATT RATT - UNIT + UNIT STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION RATT UNIT VCOMP @@ -1984,7 +1984,7 @@ ADVTRACK SETPD 0 STCALL STAR # STORE FINAL LOS IN STAR COM52 # RETURN TO SR52.1 - + ROTA DLOAD SIN AOPTIME PDVL VXV # PUSH 1/2SIN(A) PD 6-7 @@ -2006,7 +2006,7 @@ ROTA DLOAD SIN UNIT SETPD 0 PUSH RVQ - + DP1/6 2DEC .16666666 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16 @@ -2025,8 +2025,8 @@ MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16 SETLOC P50S2 BANK - - COUNT 15/S52.3 + + COUNT 15/S52.3 S52.3 STQ QMAJ STCALL TDEC1 @@ -2095,11 +2095,11 @@ R56 STQ EXIT TC -5 # ENTER: NEW ANGLES R56A TC BANKCALL CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA - + CAF ZERO TC BANKCALL CADR CLEANDSP - + R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK TC BANKCALL # Page 782 @@ -2147,13 +2147,13 @@ VB53 VN 05300 # ALTERNATE MARK VERB V06N94B VN 00694 SETLOC P50S BANK - + PLANET STORE TSIGHT STQ CALL QMIN LOCSAM VLOAD -# Page 783 +# Page 783 VEARTH STOVL 0D VSUN @@ -2181,7 +2181,7 @@ NOSAM EXIT STARSAV3 1/SQR3 UNIT GOTO - CORPLAN + CORPLAN NOTPLAN CS A AD DEC227 EXTEND @@ -2204,7 +2204,7 @@ CALSAM1 TC INTPRET CORPLAN VAD UNIT VEL/C GOTO -# Page 784 +# Page 784 QMIN DEC227 DEC 227 VNPLANV VN 0688 diff --git a/Comanche055/P61-P67.agc b/Comanche055/P61-P67.agc index df610cc..6a1bb3d 100644 --- a/Comanche055/P61-P67.agc +++ b/Comanche055/P61-P67.agc @@ -14,11 +14,11 @@ # interpreter operands fixed stuff like # N-M,1 to N -M,1 # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -61,22 +61,22 @@ BANK 26 SETLOC P60S BANK - + EBANK= AOG - + COUNT* $$/P61 - + P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE TS EXTVBACT # TO V37 # LOCK OUT EXTENDED VERBS SO CAN USE TFF # ROUTINES. EXT VERB ERASE IS USED - + CS ONE # REMOVE IF HEADSUP EVER ON UPLINK DATA TS HEADSUP # PRELOAD - + TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION # RV 50GENRET. DOES PHASCHNG, GROUP 4. - + CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP # XXX.XX DEG XXX.XX DEG XXXXX. TC BANKCALL @@ -85,18 +85,18 @@ P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE # Page 790 TC P61.4 TC -5 - + P61.3 TC PHASCHNG OCT 00014 - + TC ENDOFJOB - + P61.4 ZL CCS HEADSUP # C(HEADSUP)= +1/-1 CA BIT14 # IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN) NOOP # IF HEADSUP NEG,ROLLC =0 (LIFT UP) DXCH ROLLC # ROLLC IS USED BY S62.3: GIM ANG AT .05G - + TC INTPRET NEWRNVN DLOAD PIPTIME # SAVE TIME OF RN,VN TO DETERMINE IF AN @@ -124,11 +124,11 @@ P61.1 TC CLEARMRK # XXX.XX G XXXXX. FPS XXX.XX DEG TC BANKCALL CADR GOFLASH - + TC GOTOP00H TC P61.2 # PROCEED TC -5 - + P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING # ABOVE DISPLAY. RTB DSU @@ -138,9 +138,9 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING DAD TTE1 # NEGATIVE OF FREE FALL TIME. STORE TTE # DECREMENTED - + EXIT - + CA V06N63 # RTGO VIO TTE # XXXX.X NM XXXXX. FPS XXBXX M,S TC BANKCALL @@ -148,7 +148,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING TC GOTOP00H TC +2 TC P61.2 # REDO - + # .... THEN FALL INTO P62 # Page 792 @@ -163,7 +163,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING # 2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY. # CALLING SEQUENCE: BY V37 OR DIRECTLY FROM P61 # EXIT: TO P63 -# ERASABLE INITIALIZATION: +# ERASABLE INITIALIZATION: # ALFAPAD LEFT BY PAD LOAD # LADPAD LEFT BY PAD LOAD # LODPAD LEFT BY PAD LOAD @@ -173,12 +173,12 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING # SUBROUTINE CALLS: NEWMODEX, S61.1, CM/DAPIC, CM/DAPON, R02BOTH, GOPERF1, GOFLASH, GODSPR. COUNT* $$/P62 - + TC NEWMODEX # MODE CHANGE IF CAME FROM P61. MM 62 # MODE CHANGE AUTOMATIC VIA V 37. CA ONE TS DNLSTCOD - + P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION. TC INTPRET @@ -187,14 +187,14 @@ P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION. P62.3 # CALCULATE DESIRED .05G GIMBAL ANGLES. # WITHOUT DISPLAY. CM/DAPIC # START CM/POSE AND BODY RATE CALC - + # DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000. # CM/DAPIC SETS EBANK = EBAOG - # AND RETURNS IN BASIC TO P62.2. + # AND RETURNS IN BASIC TO P62.2. P62.2 EXTEND DCA POSECADR # CONTINUE WITH CM/POSE AFTER AV G. DXCH AVEGEXIT - + CAF OCT41 # REQUEST SEPARATION TC BANKCALL CADR GOPERF1R @@ -204,42 +204,42 @@ P62.2 EXTEND # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. *** TC -5 # ENTER TC P61.3 # FOR PHASCHNG AND ENDOFJOB - + +3 TC POSTJUMP CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND # DO ATTITUDE HOLD. - + # WILL IDLE UNTIL CM/POSE DOES ONE UPDATE. # CM/DAPON DOES NO PHASCHNG. - + P62.1 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP # XXX.XX DEG XXX.XX DEG 0000X. - + # TERMINATE ATTITUDE HOLD. SET UP COMMANDS: # ROLLC, ALFACOM, BETACOM. BEGIN MANEUVER TO # ENTRY ATTITUDE. - + TC BANKCALL CADR GOFLASH TC -3 TC +2 TC -5 - + TC PHASCHNG OCT 04024 # USE ENTRYVN FOR DISPLAY BELOW. # EBANK WAS SET IN CM/DAPON TO EBAOG - + CCS HEADSUP # C(HEADSUP) = +/- 1 CA BIT14 # IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN) NOOP # IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP) - TS ROLLC + TS ROLLC CA ALFAPAD # NOMINAL ALFATRIM PAD LOADED, NEG. NO. ZL DXCH ALFACOM # SET ALFACOM = ALFA TRIM, BETACOM=0 - + CA ONE # PERMITS EXDAP2 TO CHANGE FLAG TO +0 TS P63FLAG # AS INDICATOR. STARTS UP P63. - + CA V06N22 # SET UP DISPLAY FOR CDU DESIRED VALUES TS ENTRYVN # FROM ENTRY ATTITUDE CALC, THAT IS # ALREADY GOING. @@ -253,26 +253,26 @@ SKIP BZF P63.1 # DISABLE GRP 4, GO TO ENDOFJOB. # (I.E., CONTINUE IF CMDAPMOD = -1, OR +0) TC P63 - + # PUT JOB TO SLEEP UNTIL VEHICLE MANEUVER HAS # REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING # 65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO # OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT # TIME. - + # TASK WAKEP62 IS CALLED FROM ENTRY DAP. WAKEP62 CA PRIO13 TC NOVAC EBANK= AOG 2CADR P63 - + TC TASKOVER - + # EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON- # DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE # AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO # IN KEPLER PHASE OF ENTRY. - + P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE QPRET # GOES DIRECTLY TO ENTRY GUIDANCE EXIT ENDEXIT # THAT DOES ENTRY DISPLAY, GRP 5. @@ -295,38 +295,38 @@ P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE # SUBROUTINE CALLS: NEWMODEX, GODSPR COUNT* $$/P63 - + P63 TC NEWMODEX MM 63 - + # ARRIVE WITH EBANK = AOG. - + CA ENTCADR # CONTINUE AT STARTENT AFTER CM/POSE. - + # AT END OF STATEMENT, CHANGE ADDRESS IN GOTOADDR # TO CONTINUE AT SCALEPOP THEREAFTER. - + TS POSEXIT - + CA V06N64 # G VI R TO SPLSH # XXX.XX G XXXX. FPS XXXX.X NM TS ENTRYVN # FOR DISPLAY CALL IN OVERNOUT - + CS ONE # IN CASE FLAG IS LEFT AT +1 BY DAP. THE TS P63FLAG # -1 ASSURES THAT EXO-ATM DAP WILL NOT # CALL P63 OUT OF SEQUENCE IN P66. - + TC PHASCHNG # THIS IS REQUIRED TO PRESERVE CLEANDSP OCT 00004 # RETURN IN EVENT OF AN EXTENDED VERB - + TC BANKCALL # FLUSH 'N22' DISPLAY, IF ON, (OMIT CADR CLEANDSP # DISPLAY DURING 'STARTENT' PASS.) - + P63.1 TC PHASCHNG OCT 00004 # DISABLE. DISPLAY RESTARTED VIA ENTRY. - + TC ENDOFJOB - + V06N60 VN 0660 V06N61 VN 0661 V06N63 VN 0663 @@ -356,22 +356,22 @@ POSECADR 2CADR CM/POSE BANK 25 SETLOC P60S1 BANK - + # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. COUNT* $$/P64 - + P64 TC NEWMODEX # ENTER VIA RTB WHEN .05G IS EXCEEDED. MM 64 CA V06N74 # ROLLC VI D # XXX.XX DEG XXXXX. FPS XXX.XX G TS ENTRYVN # DISPLAY VIA OVERNOUT. - + TC DANZIG # ... AND CONTINUE IN INITROLL ... V06N74 VN 0674 -# Page 798 +# Page 798 # PROGRAM: P65 # MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITION. # FUNCTION: TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT @@ -382,15 +382,15 @@ V06N74 VN 0674 # SUBROUTINE CALLS: NEWMODEX COUNT* $$/P65 - + P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF MM 65 # TARGET. - + CA PRIO13 TC NOVAC EBANK= ENTRYVN 2CADR P65.1 - + TC 2PHSCHNG # 2 PHASE CHG REQUIRED TO PREVENT RE- OCT 00554 # STARTING FLASHING DISPLAY TWICE. OCT 10035 # 4.55 SPOT AND SERVICER, HERE. @@ -400,10 +400,10 @@ P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF UPCONTRL REFAZE10 # GO HERE TO REESTABLISH ENTRY SEQUENCER. # AND CONTINUE AT UPCONTRL... - + P65.1 TC DOWNFLAG ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6 - + CA V16N69 # ROLLC DL (Q7) VL TC BANKCALL # XXX.XX DEG XXX.XX G XXXXX. FPS CADR GOFLASHR @@ -414,11 +414,11 @@ P65.1 TC DOWNFLAG # IF PROCEED, CONTINUE TC UPFLAG ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6 - + TC P63.1 # DISABLE GRP 4, START UP ENTRY DISPLAY # N06V68 VIA OVERNOUT, AS USED IN P64 V16N69 VN 1669 - + # Page 799 # PROGRAM: P66 # MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITIONS @@ -429,18 +429,18 @@ V16N69 VN 1669 # SUBROUTINE CALLS: NEWMODEX COUNT* $$/P66 - + P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS MM 66 - + CA V06N22 # OGA IGA MGA # XXX.XX DEG XXX.XX DEG XXX.XX DEG TC P66END # IN CASE CAME FROM P65, GO TO DISABLE GRP 4, # AND SET ENTRYDSP TO DO DISPLAY VIA # OVERNOUT. - - # ... AND CONTINUE AT KEP2 - + + # ... AND CONTINUE AT KEP2 + # Page 800 # PROGRAM: P67 # MOD NO: 0 MAR. 16, 1967 @@ -453,7 +453,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. COUNT* $$/P67 - + P67 TC NEWMODEX # ENTER VIA RTB MM 67 CA V06N66 # ROLLC XRNGERR DNRNGERR @@ -465,15 +465,15 @@ P66END TS ENTRYVN # DISPLAY VIA OVERNOUT. # BIT 13 FLAG 6 KILLGRP4 TC PHASCHNG # DISABLE GRP4, IN CASE CAME FROM HUNTEST. OCT 00004 # (COME TO KILLGRP4 VIA RTB, RET TO CALLER) - + TC DANZIG # ... AND CONTINUE AT PREDICT3 ... - + V06N66 VN 0666 BANK 26 SETLOC P60S2 BANK - + P67.1 CA V16N67 # RTOGO LAT LONG # XXXX.X NM XXX.XX DEG XXX.XX DEG TC BANKCALL @@ -481,7 +481,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG TC +3 # EFFECTIVE GOTOP00H TC +2 TC P67.1 # REDO - + CS THREE # TURN OFF ENTRY DAP INHINT MASK CM/FLAGS # CM/DSTBY, GAMDIFSW @@ -489,12 +489,12 @@ P67.1 CA V16N67 # RTOGO LAT LONG RELINT EXTEND DCA SERVCAD2 - + # Page 801 DXCH AVEGEXIT - + TCF GOTOP00H - + # Page 802 P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT. RN @@ -506,13 +506,13 @@ P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT. LAT-LONG P67.3 RTB # ENTRY EXIT THAT OMITS DISPLAY. SERVNOUT - + V16N67 VN 1667 OCT41 = 33DEC SERVCAD2 = SERVCAD1 # Page 803 -# SUBROUTINE NAME: S61.1 +# SUBROUTINE NAME: S61.1 # MOD NO: 0 DATE: 21 FEB 67 # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67 # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS. @@ -559,9 +559,9 @@ SERVCAD2 = SERVCAD1 BANK 26 SETLOC P60S3 BANK - + COUNT* $$/S61.1 - + S61.1 EXTEND QXCH 60GENRET # SAVE RET ADDR IN EB 6 TC BANKCALL @@ -572,36 +572,36 @@ S61.1 EXTEND AVEGFLAG # IS AVERAGEG ON S61.1A # YES MIDTOAV2 # GET FUTURE STATE VECTOR SOON AS CAN - + CA MPAC +1 # RETURN INHINTED *** TS S61DT # FOR RESTART. TC WAITLIST EBANK= DVCNTR 2CADR S61.1C - + TC PHASCHNG OCT 40434 TC ENDOFJOB - + S61.1C CA PRIO13 TC FINDVAC EBANK= AOG 2CADR S61.1A -1 - + EXTEND DCA SERVCAD1 # HE WHO START AVERAGEG MUST SERVICE DXCH AVEGEXIT # THE EXIT. - + TC 2PHSCHNG OCT 00454 OCT 00415 - + CA EBENTRY # SET EB= 7 FOR PREREAD. TS EBANK - + TC POSTJUMP CADR PREREAD # PREREAD DOES TC TASKOVER. - + TC INTPRET S61.1A BOVB VLOAD TCDANZIG # TURN OFF OVFIND, IF ON @@ -622,21 +622,21 @@ S61.1B DCOMP DAD C(30)LIM # = 1.0 - .5 COS(30) BOVB EXIT RETRN2 - + RETRN3 TC ALARM OCT 01426 # IMU UNSATISFACTORY TC RETRN2 +2 - + RETRN2 TC ALARM OCT 01427 # IMU REVERSED - + +2 CAF V05N09 TC BANKCALL CADR GODSPR # DO DISPLAY CA 10SECS TC BANKCALL CADR DELAYJOB - + RETRN1 TC 60GENRET EBANK= DVCNTR @@ -723,7 +723,7 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30) BANK 34 SETLOC P60S2 BANK - + COUNT* $$/S61.2 # PDL LEFT AT ZERO BY TARGETING @@ -735,30 +735,30 @@ S61.2 DLOAD DSU 1/RTMU # ESTABLISH MU FOR ORBITAL ENTRIES CALLCON CALL TFFCONIC # FILL VAC AREA WITH CONIC PARAMETERS - + DLOAD CALL RTRIAL # 1ST GUESS AT TERMINAL RADIUS (-29) CALCTFF # SAVES MPAC IN RTERM (18D) - + CALL # CALC SDELF/2, CDELF/2 TFF/TRIG # RETURN WITH S(THETA) IN MPAC - + CALL # GET FISCHER RADIUS (-29) M FISHCALC # ANS IN MPAC AND IN ERADM - + DAD CALL EMSALT CALCTFF # SAVES MPAC IN RTERM (18D) - + DCOMP # NEGATIVE AS IN COUNTDOWN STORE TTE1 # DECR TTE FROM BASB TTE1. (RESTART) # DNLIST AND DSKY WILL USE TTE. STCALL TTE # LET MISS CONTRL DECR BY ELAPSED TIME # TTE= TIME FROM NOW TO EMSALT +FISCHER - + TFF/TRIG # S(THETA) IN MPAC ON RETURNING # AND THETA= RANGE FROM NOW TO EMSALT - + CALL FISHCALC CALL @@ -770,26 +770,26 @@ CALLCON CALL STCALL RTGO # Page 809 VGAMCALC - + DMP # MPAC = GAMMA # PDL0 HAS VGAM. - BDDV DAD + BDDV DAD VEMSCON # -HS D 180/PI (-14) 0 # VGAM FROM PDL0 STODL VIO # PREDICTED VELOCITY AT EMSALT. - + # GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX # ALGORITHM. - + ERADM # EARTH RADIUS FROM GETERAD (-29) M # = FISCHER RADIUS (-29) - + DAD 300KFT # M (-29) STCALL RTERM # TERMINAL RADIUS M (-29) - + PREVGAM # VGAMCALC WITH NEW RTERM - + # VBAR = (V(FPS) - 36KF/S) / 20 F/S # GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0. @@ -800,7 +800,7 @@ CALLCON CALL DDV DSQ 20KFT/S # (-6) M/CS STORE 0 # VBARSQ (-2) TO PDL0 - + DMP DAD KR1 # GAM, POS DOWN, FROM PDL2 @@ -829,27 +829,27 @@ CALLCON CALL TFF/TRIG # GET SIN, COS DELF CALL FISHCALC # GET CORRESPONDING FISCHER RADIUS. - + DAD LXA,2 # SAVE HI-WORD FOR DOWNLIST. 400KFT # M (-29) RTGO # (RANGE ANGLE FROM EMSALT) / 360 STCALL RTERM PREVGAM # VGAMCALC WITH NEW RTERM - + DCOMP SXA,2 # HI-WORD OF EACH ON DOWNLIST. MPAC +1 STODL GAMMAEI # CONIC GAMMA/360 AT 400K FT. (HI-WORD) # CONIC RTGO/360 FROM EMSALT (LOW-WORD) # FOR TM, DP(GAMMAEI) = (GAMMA, RTGO) / 360 - + # VGAM FROM PDL+0 (-7) STADR STORE VPRED # CONIC VELOCITY AT 400K FT - + RTB P61.1 # PDL BACK TO ZERO. - + LUNENT DLOAD GOTO 1/RTMUE # ESTABLISH MU FOR LUNAR TYPE ENTRIES CALLCON @@ -940,7 +940,7 @@ FISHCALC PDVL VXV # URPR = UR CDELF + UHOR SDELF DUMPFISH GOTO GETERAD # SAVES FISCHER RAD (-29) M IN ERADM AND # IN MPAC. RETURNS TO CALLER VIO QPRET. - + # Page 813 # SUBROUTINE NAME: VGAMCALC (USED BY S61.2) DATE: 01.21.67 # MOD NO: 0 LOG SECTION: P61-P67 @@ -971,7 +971,7 @@ DUMPFISH GOTO # NORMAL EXIT MODE: RVQ # # ALARMS: NONE -# +# # OUTPUT: GAMMA / 360 IN MPAC, POSITIVE NUMBER # VGAM E: (-7) M: (-5) M/CS IN PDL+0 # PUSHLOC AT PDL+2 @@ -1005,7 +1005,7 @@ VGAMCALC DLOAD DMP NRTERM # RTERM M E: (-29+NR) M: (-27+NR) SL* DDV # 2(RN-RTERM) E: (-30+NR) M: (-28+NR) 0 -8D,1 # (-8+NR) - # PUSH UP PRODUCT. + # PUSH UP PRODUCT. DSU TFFVSQ # -(V SQ/MU) E: (20) M: (18) SQRT PUSH # SAVE VGAM/RT(MU) FOR NOW. E: (10) M: (9) @@ -1062,7 +1062,7 @@ DUMPVGAM RVQ # TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER # M: (-55+2NR) WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF) # NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER -# M: (-27+NR) +# M: (-27+NR) # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC # M: (-27+NR) # @@ -1089,9 +1089,9 @@ TFF/TRIG DLOAD SR1 DUMPTRIG SIGN RVQ TFFTEM # AFFIX SIGN(DELE/2) # RETURN WITH .5 SIN(THETA) IN MPAC - + # 16W 15MS - + DISPTARG STQ # C(MPAC = TRGO ESTIMATE 60GENRET DMP DSU @@ -1164,7 +1164,7 @@ VRCALC VLOAD DOT # UZA/2 REF COORDS LEFT BY CM/POSE # # OUTPUT -# +# # CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180 # # DEBRIS @@ -1176,7 +1176,7 @@ VRCALC VLOAD DOT BANK # Page 818 COUNT* $$/S62.3 - + S62.3 SETPD SLOAD 0 ALFAPAD # ALFATRIM / 180, ALFA IS NEG. @@ -1193,7 +1193,7 @@ S62.3 SETPD SLOAD # VECTOR FROM PDL4...9 VSL1 STORE YNB # = UYD REF COORDS - + VXV VSL1 UXA/2 # REF COORDS VXSC PDDL @@ -1204,7 +1204,7 @@ S62.3 SETPD SLOAD # FROM PDL0 VSL1 STORE XNB # X SC AXIS (.5 UNIT) REF COORDS - + VXV VSL1 YNB STOVL ZNB # Z SC IN REF COOR. SCALED AT 2 @@ -1214,12 +1214,12 @@ S62.3 SETPD SLOAD STOVL YSM REFSMMAT +12D STORE ZSM - + CLEAR GOTO CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI CALCGA # CALCGA WILL RETURN TO ORIGINAL CALLER # VIA QPRET WITH 2'S COMP. ANGLES IN CPHI - + diff --git a/Comanche055/P76.agc b/Comanche055/P76.agc index 41d7a29..5f6659e 100644 --- a/Comanche055/P76.agc +++ b/Comanche055/P76.agc @@ -7,9 +7,9 @@ # Contact: Hartmuth Gutsche . # Website: www.ibiblio.org/apollo. # Pages: pp 511-513 -# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file -# of the same name, using Comanche055 page -# images 0511.jpg - 0513.jpg. +# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file +# of the same name, using Comanche055 page +# images 0511.jpg - 0513.jpg. # # This source code has been transcribed or otherwise adapted from digitized # images of a hardcopy from the MIT Museum. The digitization was performed @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -62,7 +62,7 @@ P76 TC UPFLAG CAF V06N84 # FLASH LAST DELTA V. TC BANKCALL # AND WAIT FOR KEYBOARD ACTION. CADR GOFLASH - TCF ENDP76 + TCF ENDP76 TC +2 # PROCEED TC -5 # STORE DATA AND REPEAT FLASHING CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG, @@ -131,7 +131,7 @@ INTOTHIS STCALL TDEC1 # Page 513 TC UPFLAG ADRES REINTFLG - + TC INTPRET CALL ATOPOTH @@ -144,19 +144,19 @@ OUT EXIT ENDP76 CAF ZERO TS MARKCTR # CLEAR RR TRACKING MARK COUNTER TS VHFCNT - + CAF NEGONE TS MRKBUF2 # INVALIDATE MARK BUFFER - + TCF GOTOP00H V06N84 NV 0684 NV 0633 P76SUB1 CLEAR SLOAD - MOONFLAG + MOONFLAG X2 BHIZ SET # X2=0...CLEAR MOONFLAG +2 # =2.....SET MOONFLAG MOONFLAG - RVQ + RVQ diff --git a/Comanche055/PHASE_TABLE_MAINTENANCE.agc b/Comanche055/PHASE_TABLE_MAINTENANCE.agc index 06b5f17..7122dc2 100644 --- a/Comanche055/PHASE_TABLE_MAINTENANCE.agc +++ b/Comanche055/PHASE_TABLE_MAINTENANCE.agc @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -62,7 +62,7 @@ TCQ = Q+2 +1 BANK COUNT 10/PHASE - + SETUPDSP INHINT DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO @@ -196,7 +196,7 @@ DSPMMJOB EQUALS DSPMMJB # AD+4 # FOR GROUP 5 PHASE INFORMATION. COUNT 02/PHASE - + 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE NDX Q CA 0 @@ -221,7 +221,7 @@ DSPMMJOB EQUALS DSPMMJB PHASCHNG INHINT CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY TS TEMPSW2 - + NDX Q CA 0 INCR Q @@ -304,7 +304,7 @@ BB EQUALS BBANK EBANK= PHSNAME1 COUNT 10/PHASE - + PHSCHNG2 LXCH TEMPBBCN CA TEMPSW MASK OCT7 @@ -395,12 +395,12 @@ CON2 LXCH TEMPBBCN BANK COUNT 02/PHASE - + CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY TCF GETPRIO # IT IS, SO GET NEW PRIORITY TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY. - + diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index 485d719..b58d60f 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 307-389 -# Mod history: 2009-05-08 RSB Started adapting from the Colossus249/ file -# of the same name, using Comanche055 page +# Mod history: 2009-05-08 RSB Started adapting from the Colossus249/ file +# of the same name, using Comanche055 page # images. Finished through page 329. # 2009-05-09 RSB Finished first draft. # 2009-05-20 RSB Corrected a CHKPOOH to CHKP00H. @@ -19,13 +19,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -54,14 +54,14 @@ # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION # `EXTENDED VERBS'). # -# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION `ASSEMBLY AND +# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION `ASSEMBLY AND # OPERATION INFORMATION'. # # CALLING SEQUENCES -- # # KEYBOARD: # EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES -# INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO +# INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO # CHANNEL 15 (CHANNEL 16). KEYRUPT1 (KEYRUPT2) PLACES THE KEY # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY # PROGRAM (AT `CHARIN'), AND EXECUTES A RESUME. @@ -83,7 +83,7 @@ # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB. # Page 308 # 2) EXTENDED VERBS TO TO THE EXTENDED VERB FAN AS PART OF THE -# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE +# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY # CHANGE PRIORITY (IF NECESSARY) AD DO AN ENDOFJOB. # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON. @@ -91,7 +91,7 @@ # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A. # 4) KEY RELEASE BUTTON CALLS `PINBRNCH' IN THE DISPLAY INTERFACE -# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF +# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF # THE KEY RELEASE LIGHT IS OFF AND `CADRSTOR' IS NOT 40. # # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK @@ -401,9 +401,9 @@ BANK 40 SETLOC PINBALL1 BANK - + COUNT 40/PIN - + CHARIN CAF ONE # BLOCK DISPLAY SYST XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET. @@ -452,11 +452,11 @@ CHARIN2 XCH MPAC TC CHARALRM # 35 TC CLEAR # 36 CLEAR TC NOUN # 37 NOUN - + ELRCODE1 OCT 22 ENTERJMP TC POSTJUMP CADR ENTER - + 89TEST CCS DSPCOUNT TC +4 # + TC +3 # +0 @@ -467,7 +467,7 @@ ENTERJMP TC POSTJUMP CCS A TC NUM # IF DECBRNCH IS +, 8 OR 9 OK TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9 - + # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING # WORD AS A FRACTION, KEEPING RESULTS TO DP. # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG, @@ -560,13 +560,13 @@ DECEND CS ONE MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT TS DSPCOUNT TC ENDOFJOB - + CRITCON OCT 22 # (DEC 18) OCT 20 # (DEC 16) OCT 12 # (DEC 10) OCT 5 OCT 0 - + DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND @@ -576,7 +576,7 @@ GETINREL INDEX DSPCOUNT CAF INRELTAB TS INREL # (A TEMP. REG) TC Q - + INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0) OCT 4 # R3D4 =(1) OCT 4 # R3D3 =(2) @@ -598,7 +598,7 @@ INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0) OCT 1 # ND1 =(17D) OCT 0 # VD2 =(18D) OCT 0 # VD1 =(19D) - + VERB CAF ZERO TS VERBREG CAF VD1 @@ -616,7 +616,7 @@ NOUN CAF ZERO TS NOUNREG CAF ND1 # ND1, OCT 21 (DEC 17) TC NVCOM - + NEGSGN TC SIGNTEST TC -ON CAF TWO @@ -628,12 +628,12 @@ FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0. MAKE IT +0. TS CLPASS TC +1 TC ENDOFJOB - + POSGN TC SIGNTEST TC +ON CAF ONE TC BOTHSGN - + +ON LXCH Q TC GETINREL INDEX INREL @@ -659,11 +659,11 @@ SGNCOM CAF ZERO AD ONE TS SGNOFF TC SGNCOM - + SGNTAB OCT 5 # -R1 OCT 3 # -R2 OCT 0 # -R3 - + SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1, CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS. @@ -681,12 +681,12 @@ SGNTST1 AD DSPCOUNT BZF +2 # MATCH FOUND TC Q TC L # SIGN LEGAL - + # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT # XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION. # -# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS +# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS # APPROPRIATE TO BE CLEARED. # # CLPASS +0 PASS0, CAN BE BACKED UP @@ -731,7 +731,7 @@ LEGALTST AD NEG2 TC CCSHOLE TC ENDOFJOB # ILLEGAL INREL=0,1 TC Q # LEGAL INREL=2 - + # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG, # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT. # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED. @@ -766,14 +766,14 @@ LEGALTST AD NEG2 CAF R1D1 -2 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER TC L # OF REG. JUST BLANKED - + SINBLANK OCT 16 # DEC 14 OCT 5 OCT 4 DOUBLK OCT 15 # DEC 13 OCT 11 # DEC 9 OCT 3 - + BRNCHCON OCT 77774 # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO @@ -804,9 +804,9 @@ BLANKCON OCT 4000 BANK 41 SETLOC PINBALL2 BANK - + COUNT 41/PIN - + NVSUBB TC NVSUB1 # STANDARD LEAD INS. DON'T MOVE. LOADLV1 TC LOADLV @@ -837,7 +837,7 @@ ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -) TS REQRET # SET REQRET +. TC FLASHOFF TC REQRET - + ENTEXIT = ENTRET MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG. @@ -891,7 +891,7 @@ USEADD XCH ZREG DCA LODNNLOC # SWITCH BANKS TO NOUN TAB E READING DXCH Z # ROUTINE. TC VERBFAN - + EBANK= DSPCOUNT # Page 325 LODNNLOC 2CADR LODNNTAB @@ -909,7 +909,7 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED. CA NOUNCADR TC DSPOCTWO TC VERBFAN - + AD ONE TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD. VERBFAN CS LST2CON @@ -927,7 +927,7 @@ LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB) VBFANDIR INDEX VERBREG CAF VERBTAB TC BANKJUMP - + VERBTAB CADR GODSPALM # VB00 ILLEGAL CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1) CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1) @@ -970,7 +970,7 @@ REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE CADR MMCHANG # VB37 CHANGE MAJOR MODE CADR GODSPALM # VB38 SPARE CADR GODSPALM # VB39 SPARE - + # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK. # Page 327 # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING @@ -1011,7 +1011,7 @@ MIXNN2 CA NOUNTEM CCS DECOUNT TC MIXNN1 TC VERBFAN - + MIXAD TC MIXTEMP # DPTEST ENTER WITH SF ROUT NUMBER IN A. @@ -1037,7 +1037,7 @@ DPTEST INDEX A TCF DPTEST1 # DPFRACOT DPTEST1 INDEX Q TC 1 # RETURN TO L+2 - + REQDATX CAF R1D1 TCF REQCOM REQDATY CAF R2D1 @@ -1067,7 +1067,7 @@ PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD. TS DSPCOUNT CA NOUNREG TCF UPDAT1 - + TS VERBREG UPDATVB XCH Q TS UPDATRET @@ -1078,12 +1078,12 @@ UPDATVB XCH Q UPDAT1 TC POSTJUMP # CAN'T USE SWCALL TO GO TC DSPDECVN, SINCE CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL. TC UPDATRET - + GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CAN'T HANDLE F/F. GODSPALM TC POSTJUMP CADR DSPALARM - + # Page 330 # NOUN TABLES # @@ -1181,7 +1181,7 @@ DSPCOM3 TS DISTEM # +0 +1 +2 INTO DISTEM TC DSPOCTWO XCH DISTEM TC DSPCOM2 +2 - + # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN. @@ -1205,7 +1205,7 @@ DCOMPTST TS SFTEMP1 # - VERB COMP LXCH Q TC DECTEST TC COMPTST1 - + DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT. TC GETCOMP @@ -1220,7 +1220,7 @@ DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1 CCS A TC ALMCYCLE TC L - + # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1. # IF NOT, IT RETURNS. @@ -1230,7 +1230,7 @@ NOUNTEST LXCH Q TC L TC L TC GODSPALM - + TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY. CA NNADTEM AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED @@ -1246,7 +1246,7 @@ TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY. TC L # NO DP INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART. TC L - + CHANDSP CA NOUNCADR MASK LOW9 EXTEND @@ -1254,10 +1254,10 @@ CHANDSP CA NOUNCADR READ 0 CS A TCF DSPCOM1 - + COMPICK ADRES NNTYPTEM ADRES NNADTEM - + GETCOMP INDEX MIXBR # NORMAL MIXED CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM INDEX A @@ -1287,7 +1287,7 @@ DSPDCPUT CAF ZERO # DISPLAYS DATA CS XREG TS MPAC TC SFCONUM # 2X (SF CON NUMB) IN A -# Page 334 +# Page 334 TS SFTEMP1 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE DCA GTSFOUTL # READING ROUTINE. @@ -1337,8 +1337,8 @@ ENDRTOUT EQUALS # Page 335 - SETLOC BLANKCON +1 - + SETLOC BLANKCON +1 + COUNT 40/PIN # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR # NUMBERS IN THE NEGATIVE (AGC) RANGE. @@ -1349,7 +1349,7 @@ DEGOUTSF CAF ZERO TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0) TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2) TC DEGCOM - + # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS. OPDEGOUT CCS MPAC # RANGE IS 90 DEG @@ -1364,7 +1364,7 @@ BIASCOM TS MPAC # TEST FOR OVEFLOW ADS MPAC CAF TWO # SET MULTIPLIER TO .45 TC DEGOUTSF +1 - + NEGOPT XCH MPAC # NEGATIVE CASE AD 20BIAS CCS A @@ -1373,22 +1373,22 @@ NEGOPT XCH MPAC # NEGATIVE CASE AD ONE # IF NEG RESTORE SUM COM # IF NEG 0 LEAVE NEG 0 TC BIASCOM - + SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE INDEX MPAC +2 # DP AUGMENTER CONSTANT DCA DEGTAB DXCH SFTEMP1 TC Q - + FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1 TC Q # IF MPAC IS - RETURN TO L+2 AFTER TC Q # MASKING OUT THE SIGN BIT TCF +1 CS BIT15 MASK MPAC -# Page 336 +# Page 336 TS MPAC - INDEX Q + INDEX Q TC 1 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND @@ -1399,41 +1399,41 @@ DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND DXCH SFTEMP1 DAS MPAC TC SCOUTEND - + DEGTAB OCT 05605 # HI PART OF .18 OCT 03656 # LOW PART OF .18 OCT 16314 # HI PART OF .45 OCT 31463 # LO PART OF .45 - + 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS - + ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON DXCH MPAC TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0. SCOUTEND TC POSTJUMP CADR DSPDCEND - + AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2. TC L14/OUT - + DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT XCH MPAC +1 # BY B14 TS MPAC TC SCOUTEND - + DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR TC SCOUTEND - + DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1 TC TPLEFTN # SHIFT LEFT 7. TC SCOUTEND # Page 337 - + MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND DPOUT XCH Q @@ -1443,7 +1443,7 @@ DPOUT XCH Q TC DMP ADRES SFTEMP1 TC MPAC+6 - + # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN @@ -1465,8 +1465,8 @@ DPOUT XCH Q DPFRACOT TC READLO # DP FRACTION TO MPAC,+1 TC SCOUTEND - -# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN + +# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT # DOES NOT FORCE TPAGREE. @@ -1483,20 +1483,20 @@ READLO1 EXTEND # MIXED NORMAL INDEX A # C(ESUBK) C(E) DCA 0 # C(E SUBK)+1) C(E+1) DXCH MPAC -# Page 338 +# Page 338 CAF ZERO TS MPAC +2 TC TEM4 - + RDLONOR CA NOUNADD # E ENDRDLO TC READLO1 BANK 42 SETLOC PINBALL3 BANK - + COUNT 42/PIN - + HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC. CADR READLO # MPAC+1. TC TPAGREE # MAKE DP DATA AGREE. @@ -1531,7 +1531,7 @@ HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC. TC BANKCALL # USE REGULAR DSPDECWD WITH ROUND OFF. CADR DSPDECWD TC ENTEXIT - + SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000 # Page 339 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY @@ -1540,8 +1540,8 @@ MINCON2 OCT 00011 # .0006 FOR MINUTES DISPLAY OCT 32445 MINCON1 OCT 02104 # .06..66 UPPED BY 2EXP-2B OCT 10422 -HRCON1 2DEC .16384 - OCT 00000 +HRCON1 2DEC .16384 + OCT 00000 RNDCON OCT 00062 # .5 SEC M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC. @@ -1604,7 +1604,7 @@ M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE CADR DSPDC2NR TC POSTJUMP CADR DSPDCEND +2 - + HISECON OCT 23147 # .6 + 2EXP-14 HIMINCON OCT 23346 # .6 + 2EXP-7 @@ -1613,7 +1613,7 @@ M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) NORMADR ADRES M/SNORM +1 M/SCON3 OCT 00025 # 59M 59.5S OCT 37016 - + SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC TCF POSEC # IF -, ROUND BY SUBTRACING .5 SEC TCF POSEC # FINDS TIME IN MPAC, MPAC+1 @@ -1640,7 +1640,7 @@ SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC XCH MPAC +1 XCH MPAC TC SEPSCRET - + SEPMIN XCH Q # FIND WHOLE MINUTES IN BIT13 TS SEPMNRET # OF LOTEMOUT AND ABOVE. CA LOTEMOUT # REMOVES REST OF SECONDS. @@ -1666,7 +1666,7 @@ ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC. SETLOC ENDRDLO +1 COUNT 40/PIN - + DSPDPDEC INDEX MIXBR TC +0 TC +2 # NORMAL NOUN @@ -1699,7 +1699,7 @@ ENDDPDEC TC ENTEXIT SETLOC ENDRTOUT COUNT 41/PIN - + ABCLOAD CS TWO TC COMPTEST TC NOUNTEST # TEST IF NOUN CAN BE LOADED. @@ -1741,14 +1741,14 @@ PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE CA ZREG # ZERO TO RESET BITS. NON-ZERO TO SET BITS INHINT EXTEND - BZF BITSOFF + BZF BITSOFF INDEX NOUNADD CS 0 MASK YREG # BITS TO BE PROCESSED INDEX NOUNADD ADS 0 # SET BITS. TC BITSOFF1 - + BITSOFF CS YREG # BITS TO BE PROCESSED INDEX NOUNADD MASK 0 @@ -1756,7 +1756,7 @@ BITSOFF CS YREG # BITS TO BE PROCESSED TS 0 # RESET BITS BITSOFF1 RELINT TC LOADLV - + ABLOAD CS ONE TC COMPTEST TC NOUNTEST # TEST IF NOUN CAN BE LOADED @@ -1780,7 +1780,7 @@ PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE INDEX NOUNADD TS 1 TC LOADLV - + ALOAD TC REQDATX EXTEND DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING @@ -1791,7 +1791,7 @@ ALOAD TC REQDATX INDEX NOUNADD TS 0 TC LOADLV - + BLOAD CS ONE TC COMPTEST CAF BIT15 # SET CLPASS FOR PASS0 ONLY @@ -1805,7 +1805,7 @@ BLOAD CS ONE INDEX NOUNADD TS 1 TC LOADLV - + CLOAD CS TWO TC COMPTEST CAF BIT15 # SET CLPASS FOR PASS0 ONLY @@ -1829,7 +1829,7 @@ LOADLV CAF ZERO TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE. - + VBSP1LD DEC 21 # VB21 = ALOAD VBSP2LD DEC 22 # VB22 = BLOAD VBSP3LD DEC 23 # VB23 = CLOAD @@ -1855,7 +1855,7 @@ SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE MASK NNTYPTEM TC RIGHT5 TC EXITEM # SF ROUTINE NUMBER IN A - + SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE TS EXITEM INDEX DECOUNT @@ -1866,7 +1866,7 @@ SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY INDEX L TC 0 - + # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2). SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A @@ -1891,7 +1891,7 @@ SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A TC EXITEM # Page 347 - + DISPLACE TC GOQ TC RIGHT5 TC LEFT5 @@ -1900,7 +1900,7 @@ CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF MASK NNTYPTEM # NNTYPTAB FOR SF CONUM. DOUBLE TC EXITEM # 2X(SF CONSTANT NUMBER) IN A - + PUTCOM TS DECOUNT XCH Q TS DECRET @@ -1915,7 +1915,7 @@ PUTCOM TS DECOUNT INDEX MIXBR TC +0 TC PUTNORM # NORMAL NOUN - + # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS. INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K @@ -1953,14 +1953,14 @@ PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD. CAF ZERO # DP TS DECOUNT TC PUTDPCOM - + CA NNADTEM AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED EXTEND BZF CHANLOAD PUTCOM2 XCH MPAC TC DECRET - + EBANK= DSPCOUNT GTSFINLC 2CADR GTSFIN @@ -1975,7 +1975,7 @@ CHANLOAD CS SEVEN # DON'T LOAD CHAN 7. (IT'S SUPERBANK). INDEX MPAC WRITE 0 TC LOADLV - + # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM. PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A @@ -2015,9 +2015,9 @@ ENDRUTIN EQUALS # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET. SETLOC ENDDPDEC +1 - + COUNT 40/PIN - + # DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8) DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES @@ -2037,7 +2037,7 @@ DEGINSF2 TC TPSL1 # LEFT 2 TC SIGNFIX # IF +0, GO TO SIGNFIX COM # IF -, USE -MAGNITUDE +1 TS MPAC # IF -0, USE +0 -SIGNFIX CCS MPAC+6 +SIGNFIX CCS MPAC+6 TC SGNTO1 # IF OVERFLOW TC ENDSCALE # NO OVERFLOW/UNDERFLOW # Page 350 @@ -2053,12 +2053,12 @@ ENDSCALE TC POSTJUMP NEG180 CS POSMAX TC ENDSCALE -1 - + SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1 MASK POSMAX CS A TC ENDSCALE -1 - + DEGCON1 2DEC 5.555555555 B-3 DEGCON2 2DEC 2.222222222 B-2 @@ -2076,11 +2076,11 @@ ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2. BINROUND TC 2ROUND TC TESTOFUF TC ENDSCALE # RETURNS IF NO OF/UF - + ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2. ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC. TC BINROUND - + OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE TC +4 TC +3 @@ -2095,7 +2095,7 @@ OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG AD MPAC +1 TC 2ROUND +2 TC DEGINSF2 - + DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1, ADRES SFTEMP1 # SFTEMP. STORES LOW PART OF RESULT XCH MPAC +2 # IN (E SUBK) +1 OR E+1 @@ -2115,29 +2115,29 @@ DPINCOM AD NOUNADD # MIXED NORMAL INDEX Q TS 1 # PLACE LOW PART IN TC ENDSCALE # (E SUBK) +1 MIXED - + DPINORM CAF ZERO # E +1 NORMAL TC DPINCOM - + DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1 TC TPLEFTN # SHIFT LEFT 7. TC DPINSF +2 - + DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1. TC TPLEFTN # SHIFT LEFT 3. TC DPINSF +2 - + TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF. XCH Q # CALL WITH N-1 IN A. LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC. TC TPSL1 CCS SFTEMP1 -# Page 352 +# Page 352 TC LEFTNCOM TC SFTEMP2 @@ -2155,11 +2155,11 @@ TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF TC ALMCYCLE # OF ALARM AND RECYCLE. TC Q TC ALMCYCLE # UF ALARM AND RECYCLE. - + SETLOC ENDSPMIN +1 - + COUNT 42/PIN - + HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM. TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT ADRES WHOLECON # INTO MPAC, MPAC+1. @@ -2185,7 +2185,7 @@ HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM. XCH MPAC +1 EXTEND MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L -# Page 353 +# Page 353 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN BZF +2 @@ -2236,7 +2236,7 @@ MPACTST CCS MPAC # ALARM IF MPAC NON ZERO TC Q # Page 354 - + SIZETST TS MPAC +2 # CALLED WITH - CON IN A CCS MPAC +1 # GET MAG OF MPAC+1 AD ONE @@ -2244,10 +2244,10 @@ SIZETST TS MPAC +2 # CALLED WITH - CON IN A AD ONE AD MPAC +2 EXTEND # MAG OF MPAC+1 - CON - BZMF +2 + BZMF +2 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE. TC Q # MAG OF MPAC+1 L/= CON - + # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN). # ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1). @@ -2259,7 +2259,7 @@ ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A OCT34BAR OCT 77743 TC FORCEV25 TC Q - + FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD TC ALMCYCLE # VERB. ALARM AND RECYCLE. @@ -2293,9 +2293,9 @@ ENDHMSS EQUALS # MONITOR DOESN'T TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW. SETLOC ENDRUTIN - + COUNT 41/PIN - + MONITOR CS BIT15/14 MASK NOUNCADR MONIT1 TS MPAC +1 # TEMP STORAGE @@ -2335,7 +2335,7 @@ MONIT2 CAF LOW7 DXCH MONSAVE # ZERO THE KILL MONITOR BIT RELINT # SET UP EXTERNAL MONITOR BIT TC ENTRET - + MONREQ TC LODSAMPT # CALLED BY WAITLIST CCS MONSAVE1 # TIME IS SNATCHED N RUPT FOR NOUN 65 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS @@ -2346,14 +2346,14 @@ MONREQ TC LODSAMPT # CALLED BY WAITLIST TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ EBANK= DSPCOUNT 2CADR MONREQ - + CAF CHRPRIO TC NOVAC # ENTER EXEC REQUEST FOR MONDO EBANK= DSPCOUNT 2CADR MONDO - + TC TASKOVER - + KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF TS MONSAVE TS MONSAVE1 # TURN OFF KILL MONITOR BIT. @@ -2385,12 +2385,12 @@ MONDO CCS MONSAVE1 # CALLED BY EXEC ENDMONDO TC TESTNN # EBANK. BLOCK 2 - + SETLOC FFTAG8 BANK - + COUNT 02/PIN - + PASTEVB CAF MID7 MASK MONSAVE2 # NVMONOPT PASTE OPTION EXTEND @@ -2412,7 +2412,7 @@ MID7 OCT 37600 SETLOC ENDMONDO +1 COUNT 41/PIN - + MONREF OCT 75377 # -DEC10, STARTING IN BIT8 MONBACK ADRES PASTEVB @@ -2421,9 +2421,9 @@ MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT TC ENDOFJOB # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER. -# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE +# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777) -# +# # FOR BANKS L/E 27, THIS IS ENOUGH. # # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON) @@ -2447,7 +2447,7 @@ ENDSPF TC ENDOFJOB # WORD DISPLAY ROUTINES SETLOC TESTOFUF +4 COUNT 40/PIN - + DSPSIGN XCH Q TS DSPWDRET CCS MPAC @@ -2461,7 +2461,7 @@ DSPSIGN XCH Q TC DSPWDRET TC +ON TC DSPWDRET - + DSPRND EXTEND # ROUND BY 5 EXP-6 DCA DECROUND -1 DAS MPAC @@ -2471,7 +2471,7 @@ DSPRND EXTEND # ROUND BY 5 EXP-6 DCA DPOSMAX DXCH MPAC TC Q - + # DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6. @@ -2502,7 +2502,7 @@ TRACE1S TS COUNT CS VD1 TS DSPCOUNT TC WDRET - + OCT 00000 DECROUND OCT 02476 @@ -2522,7 +2522,7 @@ DSPDC2NR XCH Q TC DSPSIGN CAF ONE TC DSPDCWD1 - + # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL # STARTING IN THE LOC SPECIFIED IN DSPCOUNT. @@ -2553,18 +2553,18 @@ DSPDECVN EXTEND XCH Q TS WDRET TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR - + VNDSPCON OCT 00244 # .01 ROUNDED UP GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART TC POSTJUMP # OF UPDATVB. CADR UPDAT1 +2 - + ENDECVN EQUALS SETLOC ENDSPF +1 COUNT 41/PIN - + # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED. @@ -2620,10 +2620,10 @@ DSP2BIT TS CYR # DSPTAB ENTRY INTO DSREL. SETLOC ENDECVN - + COUNT 40/PIN - -DSPIN XCH Q # CAN'T USE L FOR RETURN, SINCE MANY OF THE + +DSPIN XCH Q # CAN'T USE L FOR RETURN, SINCE MANY OF THE TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN. CAF LOW5 MASK COUNT @@ -2672,12 +2672,12 @@ DFRNT INDEX COUNT INCR NOUT # DSPTAB ENTRY WAS + DSLV RELINT TC DSEXIT - + DSMSK OCT 37 OCT 1740 OCT 2000 OCT 3740 - + # FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN # BIT11 OF CODE. @@ -2687,7 +2687,7 @@ DSMSK OCT 37 XCH Q # MUST USE SAME RETURN AS DSPIN TS DSEXIT TC DSPIN1 - + DSPOCTIN TC DSPIN # SO DSPOCTWD DOESN'T USE SWCALL CAF +2 TC BANKJUMP @@ -2729,7 +2729,7 @@ NVSBENDL TC NVSUBEND SETLOC MID7 +1 COUNT 02/PIN - + ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT. CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED TS REQRET # SET FOR ENTPAS0 @@ -2747,9 +2747,9 @@ ENDALM CADR ENTER # IF NOT, IT RECYCLES. SETLOC DSP2BIT +10D - + COUNT 41/PIN - + MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG # IF THIS MOVES AT ALL, MUST CHANGE # MMADREF AT ENTPASHI. @@ -2770,7 +2770,7 @@ MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG CA MPAC TC POSTJUMP CADR MODROUTB # GO THRU STANDARD LOC. - + MODROUTB = V37 REQMM CS Q TS REQRET @@ -2784,7 +2784,7 @@ REQMM CS Q CAF ONE TS DECBRNCH # SET FOR DEC TC ENTEXIT - + # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY. # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH @@ -2814,7 +2814,7 @@ REQUESTC TC RELDSP SETVAC CAF TCFINDVC TC REQEX1 - + # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY. # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH @@ -2833,7 +2833,7 @@ ENDRQWT TC REQUESTC -1 SETLOC NVSBENDL +1 COUNT 40/PIN - + VBPROC CAF ONE # PROCEED WITHOUT DATA TS LOADSTAT TC KILMONON # TURN ON KILL MONITOR BIT @@ -2841,10 +2841,10 @@ VBPROC CAF ONE # PROCEED WITHOUT DATA TC FLASHOFF TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE -# Page 367 +# Page 367 VBTERM CS ONE TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG - + # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER # EXECUTIVE CONTROL, WITH CHRPRIO. @@ -2853,7 +2853,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0. CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR TS DSPCOUNT TC VBPROC - + # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3). # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM, @@ -2861,7 +2861,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0. VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN. TC VBPROC +1 - + # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, # END OF LOAD. # Page 368 @@ -2911,7 +2911,7 @@ UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED, TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY. TC RELDSP1 TC ENDOFJOB - + ENDRELDS EQUALS # Page 369 @@ -2969,7 +2969,7 @@ ENDRELDS EQUALS # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS -# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL +# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE # OTHER THAN ZERO, THEN THEY WILL BE USED BO BLANK DATA BY BEING FED TO @@ -2982,7 +2982,7 @@ ENDRELDS EQUALS SETLOC ENDALM +1 COUNT 02/PIN - + NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS NVMONOPT TS NVTEMP CAF BIT14 @@ -3012,12 +3012,12 @@ PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBIT. NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING - + SETLOC ENDRQWT +1 - + COUNT 41/PIN # Page 371 - + # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY. @@ -3043,7 +3043,7 @@ BLANKDSP AD SEVEN # 7,8,9, OR 10 (A HAD 0,1,2,OR 3) TS DSPCOUNT TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH TC ENTSET -2 # ZEROS REQRET - + NVSUB1 CAF ENTSET # IN BANK TS ENTRET # SET RETURN TO NVSUBEND CCS NVTEMP # WHAT NOW @@ -3061,7 +3061,7 @@ NVSUB1 CAF ENTSET # IN BANK # USES MPAC, +1, +2) CCS MPAC +3 # TEST NOUN TC NVSUB2 # IF NOUN NOT +0, GO ON - CA MPAC +4 + CA MPAC +4 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB. THEN RETURN CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN TS REQRET # BE EXECUTED BY OPERATOR. @@ -3096,7 +3096,7 @@ KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT. TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL # MONITOR BIT. TC Q - + # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB # +1 PROCEED NO DATA. SET BY SPECIAL VERB # -1 TERMINATE. SET BY SPECIAL VERB. @@ -3130,20 +3130,20 @@ ENDIDLE LXCH Q # RETURN ADDRESS INTO L. AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR. TS CADRSTOR TC JOBSLEEP - + ENDINST TC ENDOFJOB ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0. TC DSPABORT # RETURNS IF CADRSTOR = +0. TC Q TC DSPABORT - + ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0. TC DSPABORT # RETURNS IF DSPLIST = +0. TC Q DSPABORT TC P00DOO OCT 01206 - + # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION. # IT DOES ENDOFJOB. @@ -3156,7 +3156,7 @@ JAMTERM CAF PINSUPBT TS DSPCOUNT TC POSTJUMP CADR VBTERM - + 34DEC DEC 34 # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA @@ -3172,7 +3172,7 @@ JAMPROC CAF PINSUPBT TS DSPCOUNT TC POSTJUMP CADR VBPROC - + 33DEC DEC 33 # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3. @@ -3204,15 +3204,15 @@ BLANKSUB MASK SEVEN EXTEND WRITE SUPERBNK TC BLNKSUB1 - + EBANK= DSPCOUNT BLNKBBNK BBCON BLNKSUB1 ENDBLFF EQUALS SETLOC ENDRELDS COUNT 40/PIN - -# Page 375 + +# Page 375 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION TS BUF +2 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED. @@ -3237,7 +3237,7 @@ TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE TC Q # IF CURRENT BIT = 1, RETURN TO L+1. INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3. TC 2 - + ENDBSUB1 EQUALS # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH @@ -3250,9 +3250,9 @@ ENDBSUB1 EQUALS BANK 7 SETLOC PINBALL4 BANK - + COUNT 07/PIN - + DSPMM XCH Q TS MPAC INHINT @@ -3260,7 +3260,7 @@ DSPMM XCH Q TC NOVAC EBANK= DSPCOUNT 2CADR DSPMMJB - + RELINT # Page 376 ENDSPMM TC MPAC @@ -3268,9 +3268,9 @@ ENDSPMM TC MPAC # DSPMM PLACE MAJOR MODE CODE INTO MODREG SETLOC ENDBSUB1 - + COUNT 40/PIN - + DSPMMJB CAF MD1 # GETS HERE THRU DSPMM XCH DSPCOUNT TS DSPMMTEM # SAVE DSPCOUNT @@ -3282,11 +3282,11 @@ DSPMMJB CAF MD1 # GETS HERE THRU DSPMM XCH DSPMMTEM # RESTORE DSPCOUNT TS DSPCOUNT TC ENDOFJOB - + # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE. -# +# # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY). @@ -3315,13 +3315,13 @@ RECAL2 INDEX LOCCTR # Page 377 RECAL3 TC RELDSP TC ENDOFJOB - + DOTERM CAF ZERO TC RECAL2 - + DOPROC CAF ONE TC RECAL2 - + SBANK= LOWSUPER # Page 378 # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED @@ -3452,18 +3452,18 @@ PRSHRTMP TS MPTEMP TS MPAC +1 TS MPAC +2 TC Q - + FLASHON CAF BIT6 # TURN ON V/N FLASH EXTEND # BIT 6 OF CHANNEL 11 WOR DSALMOUT TC Q - + FLASHOFF CS BIT6 # TURN OFF V/N FLASH EXTEND WAND DSALMOUT # BIT 6 OF CHANNEL 11 TC Q - -# Page 381 + +# Page 381 # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM. # # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR @@ -3498,7 +3498,7 @@ FLASHOFF CS BIT6 # TURN OFF V/N FLASH # # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR # IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS -# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL +# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM. # # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO @@ -3523,7 +3523,7 @@ NVSUBUSY TC POSTJUMP # TO BE ENTERED. SETLOC ENDSPMM +1 COUNT 07/PIN - + NVSUBSY1 TS L TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0. TC ISLIST+0 # ABORT IF DSPLIST NOT= +0. @@ -3540,7 +3540,7 @@ ENDNVBSY TC JOBSLEEP SETLOC NVSUBUSY +3 COUNT 02/PIN - + NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS TS NVTEMP CAF BIT14 @@ -3552,7 +3552,7 @@ NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS # AFTER EXECUTION. NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND TCF PRENVBSY # GO TO SLEEP. - + # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED # VERB DISPATCHER, VBRESEQ, RECALTST. # @@ -3580,7 +3580,7 @@ RELDSP2 RELINT TC RELRET RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH. TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS - # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF + # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF # DSPLIST IS NOT EMPTY. CCS DSPLIST TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE. @@ -3588,7 +3588,7 @@ RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH. CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE TS DSPLOCK TC RELRET - + ENDPINBF EQUALS # Page 384 @@ -3601,18 +3601,18 @@ PINTEST EQUALS LST2FAN # OFF THE CAUTION AND STATUS LIGHTS. SETLOC ENDNVSB1 +1 - + COUNT 41/PIN - + VBTSTLTS TC BANKCALL CADR CHKP00H - + INHINT CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T MASK IMODES33 # TURN OUT ANY LAMPS. AD BIT1 TS IMODES33 - + CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE, EXTEND # V/N FLASH, OPERATOR ERROR. WOR DSALMOUT @@ -3638,11 +3638,11 @@ TSTLTS1 TS ERCNT TC WAITLIST EBANK= DSPTAB 2CADR TSTLTS2 - + TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD # ACTION) UNTIL TSTLTS3 TO INSURE THAT # LIGHTS TEST WILL BE SEEN. - + FULLDSP OCT 05675 # DISPLAY ALL 8'S FULLDSP1 OCT 07675 # DISPLAY ALL 8'S AND + TSTCON1 OCT 00175 @@ -3654,14 +3654,14 @@ TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9, TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7. # UPLINK ACITIVY, TEMP, OPERATOR ERROR. SHOLTS OCT 764 # 5 SEC - + TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST TC NOVAC EBANK= DSPTAB 2CADR TSTLTS3 - + TC TASKOVER - + TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE INHINT EXTEND # TURN OFF UPLINK ACTIVITY, TEMP, @@ -3678,24 +3678,24 @@ TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE MASK IMODES33 # LIGHTS COMPLETE. AD PRIO16 TS IMODES33 - + CS OCT55000 MASK IMODES30 AD PRIO15 # 15000. TS IMODES30 - + CS OPTMODES MASK BIT7 - ADS OPTMODES + ADS OPTMODES RELINT - + TC BANKCALL # REDISPLAY C(MODREG) CADR DSPMM TC KILMONON # TURN ON KILL MONITOR BIT. TC FLASHOFF # TURN OFF V/N FLASH. TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE. -# Page 387 +# Page 387 13-11,1 OCT 16001 OCT55000 OCT 55000 ENDPINS2 EQUALS @@ -3706,14 +3706,14 @@ ENDPINS2 EQUALS # PROG ALM, TRACKER FAIL. # # LEAVES GIMBAL LOCK AND NO ATT ALONE. -# +# # IT ALSO ZEROS THE `TEST ALARM' OUT BIT, WHICH TURNS OFF STBY, RESTART. # IT ALSO SETS `CAUTION RESET' TO 1. # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1. SETLOC DOPROC +2 COUNT 40/PIN - + ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK CHANGED. INHINT @@ -3732,7 +3732,7 @@ ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR MASK IMODES30 AD BIT10 TS IMODES30 - + CS OPTMODES MASK BIT7 ADS OPTMODES @@ -3771,7 +3771,7 @@ ERCOM INDEX ERCNT # ETC. ERCON OCT 104 # CHAN 11 BITS 3,7. # UPLINK ACTIVITY, AND OPERATOR ERROR. -BITS6,8 OCT 240 +BITS6,8 OCT 240 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS NOTBIT12 OCT 73777 diff --git a/Comanche055/PINBALL_NOUN_TABLES.agc b/Comanche055/PINBALL_NOUN_TABLES.agc index f75fe46..9bb3ee4 100644 --- a/Comanche055/PINBALL_NOUN_TABLES.agc +++ b/Comanche055/PINBALL_NOUN_TABLES.agc @@ -11,11 +11,11 @@ # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. # 2009-05-23 RSB In NNTYPTAB, corrected former 13 SPARE. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -129,9 +129,9 @@ BANK 06 SETLOC PINBALL3 BANK - + COUNT 42/NOUNS - + LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM. INDEX NOUNREG CAF NNADTAB @@ -162,7 +162,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 # FIRST MIXED NOUN =40. (DEC 40) # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES. @@ -174,7 +174,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. @@ -182,7 +182,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 @@ -230,7 +230,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC) ECADR TET # 38 TIME OF STATE VECTOR ECADR T3TOT4 # 39 DELTA TIME TO TRANSFER (HRS,MIN,SEC) - + # END OF NNADTAB FOR NORMAL NOUNS # NN MIXED NOUNS @@ -367,7 +367,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE OCT 24261 # 99 RMS IN POSITION # RMS IN VELOCITY # RMS OPTION - + # END OF NNADTAB FOR MIXED NOUNS # NN NORMAL NOUNS @@ -412,13 +412,13 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE OCT 24400 # 37 3COMP HMS (DEC ONLY) OCT 24400 # 38 3COMP HMS (DEC ONLY) OCT 24400 # 39 3COMP HMS (DEC ONLY) - + # 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) @@ -519,7 +519,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE OCT 01162 # 99 3COMP POS9, VEL4, WHOLE # (DEC ONLY) - + # END OF NNTYPTAB FOR MIXED NOUNS SFINTAB OCT 00006 # WHOLE, DP TIME (SEC) @@ -560,9 +560,9 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC) OCT 27176 # POSITION 8 OCT 14235 2DEC 30480 B-19 # POSITION 9 - + 2DEC 30.48 B-7 # VELOCITY4 - + # END OF SFINTAB SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC) @@ -603,9 +603,9 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC) OCT 00260 # POSITION 8 OCT 06213 2DEC 17.2010499 B-7 # POSITION 9 - + 2DEC .032808399 # VELOCITY4 - + # END OF SFOUTAB # NN SF CONSTANT SF ROUTINE @@ -794,7 +794,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S ECADR WWPOS # 99 POS9 DP3 ECADR WWVEL # 99 VEL4 DP2 ECADR WWOPT # 99 WHOLE ARTH - + # END OF IDADDTAB # NN SF ROUTINES @@ -860,7 +860,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3 OCT 06143 # 97 ARTH, ARTH, ARTH OCT 06043 # 98 ARTH, FRAC, ARTH OCT 06247 # 99 DP3, DP2, ARTH - + # END OF RUTMXTAB SBANK= LOWSUPER diff --git a/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc b/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc index d481ae9..206dd5c 100644 --- a/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc +++ b/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A diff --git a/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc b/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc index f81233e..17bc407 100644 --- a/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc +++ b/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc @@ -6,7 +6,7 @@ # Assembler: yaYUL # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. -# Pages: 1365-1372 +# Pages: 1365-1372 # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting # from the Colossus249/ file of the same # name, using Comanche055 page images. @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -158,7 +158,7 @@ QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS NBSM STQ X2 - LXC,1 VLOAD* + LXC,1 VLOAD* S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1 0,1 STOVL CDUSPOT @@ -330,32 +330,32 @@ INDEXI DEC 4 # ********** DON'T *********** BANK 14 SETLOC POWFLIT1 BANK - + SMCDURES DLOAD DMP DTHETASM COSCDUY - + PDDL DMP DTHETASM +4 SINCDUY - + BDSU DDV COSCDUZ STORE DCDU - + DMP SL1 # SCALE SINCDUZ BDSU - + DTHETASM +2 STODL DCDU +2 DTHETASM - + DMP PDDL SINCDUY DTHETASM +4 - + DMP DAD COSCDUY SL1 diff --git a/Comanche055/R30.agc b/Comanche055/R30.agc index d16ec10..c65295c 100644 --- a/Comanche055/R30.agc +++ b/Comanche055/R30.agc @@ -7,9 +7,9 @@ # Contact: Hartmuth Gutsche . # Website: www.ibiblio.org/apollo. # Pages: 514-524 -# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file -# of the same name, using Comanche055 page -# images 0514.jpg - 0524.jpg. +# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file +# of the same name, using Comanche055 page +# images 0514.jpg - 0524.jpg. # # This source code has been transcribed or otherwise adapted from digitized # images of a hardcopy from the MIT Museum. The digitization was performed @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -103,7 +103,7 @@ V82CALL TC INTPRET V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE CAF TWO # DESIRED FOR ORBITAL PARAMETERS - TS OPTIONX + TS OPTIONX CAF ONE TS OPTIONX +1 CAF OPTIONVN # V 04 N 06 @@ -171,7 +171,7 @@ BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON DLOAD* 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC - # HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it + # HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it # as it is in start source STORE TFF/RTMU # X2 IS 2 FOR MOON DLOAD* # AS LEFT BY THISPREC OR OTHPREC. @@ -208,11 +208,11 @@ MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR. V82EMFLG # INDICATE MOON SCALING FOR SR30.1 BOTHPAD STCALL RPADTEM SR30.1 # CALCULATE ORBITAL PARAMETERS - EXIT + EXIT CA MODREG # ARE WE IN P00 EXTEND BZF CANDEL # YES, DO DELRSPL -SPLRET1 TC INTPRET +SPLRET1 TC INTPRET RTB DSU LOADTIME TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN @@ -225,12 +225,12 @@ TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. TSTART82 # TICK -TPER. DISPLAY BOTH. STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1 EXIT # BEGAN. - + # Page 518 CAF BIT1 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER TC ENDOFJOB - + TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF. TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT TSTART82 # -TPER diff --git a/Comanche055/R31.agc b/Comanche055/R31.agc index 8fef656..4135ea8 100644 --- a/Comanche055/R31.agc +++ b/Comanche055/R31.agc @@ -10,11 +10,11 @@ # Mod history: 2009-05-11 OH Batch 2 Assignment Comanche Transcription # 2009-05-20 RSB Corrected INSTALL -> INTSTALL # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -96,7 +96,7 @@ R34ANG VLOAD UNIT R31FLAG +2 # R31-THETA 12D - CALL + CALL *NBSM* VXM PUSH # UXORZ TO 6D PD=12D REFSMMAT @@ -134,7 +134,7 @@ R34ANG VLOAD UNIT CS EXTVBACT MASK BIT12 ADS EXTVBACT - + TCF V83 V16N54 VN 1654 V16N53 VN 1653 @@ -240,7 +240,7 @@ OTHINT STORE TDEC1 # ENTERED IF AV G ON TO INTEG LM STCALL TET INTEGRVS GOTO - COMPDISP # COMPUTE R RDOT RTHETA + COMPDISP # COMPUTE R RDOT RTHETA GETRVN5 CALL # AV G ON GETRVN BON CALL @@ -268,7 +268,7 @@ GETRVN STQ STODL VONE PIPTIME GOTO - 0D + 0D SETLOC R34 BANK R34LOS EXIT @@ -284,7 +284,7 @@ R34LOS EXIT INDEX FIXLOC TS X1 TC INTPRET - CALL + CALL SXTNB STCALL 12D R34ANG diff --git a/Comanche055/R60_62.agc b/Comanche055/R60_62.agc index 26b3b83..b2934fd 100644 --- a/Comanche055/R60_62.agc +++ b/Comanche055/R60_62.agc @@ -7,9 +7,9 @@ # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 390-398 -# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file -# of the same name, using Comanche055 page -# images. +# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file +# of the same name, using Comanche055 page +# images. # # This source code has been transcribed or otherwise adapted from digitized # images of a hardcopy from the MIT Museum. The digitization was performed @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -32,18 +32,18 @@ BANK 34 SETLOC MANUVER BANK - + EBANK= TEMPR60 - + COUNT 27/R60 - + # CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968 R60CSM TC MAKECADR TS TEMPR60 -# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR - +# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR + REDOMANN CAF BIT6 MASK FLAGWRD5 # IS 3-AXIS FLAG SET CCS A @@ -53,17 +53,17 @@ REDOMANN CAF BIT6 VECPOINT # TO COMPUTE FINAL ANGLES STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI EXIT - + TOBALL CAF V06N18 TC BANKCALL CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER TC R61TEST TC REDOMANC # PROCEED TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60 - + TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS TC ENDOFJOB - + REDOMANC CAF BIT6 MASK FLAGWRD5 # IS 3-AXIS FLAG SET CCS A @@ -73,7 +73,7 @@ REDOMANC CAF BIT6 VECPOINT # TO COMPUTE FINAL ANGLES STORE CPHI # STORE ANGLES EXIT - + TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC # Page 391 EXTEND @@ -82,12 +82,12 @@ TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC EXTEND BZF +2 # AUTO, NON-FLASH N18 TCF TOBALL # NOT AUTO - + CAF V06N18 # STATIC UP NON-FLASHING V06 N18 TC BANKCALL CADR GODSPR TC CHKLINUS - + STARTMNV TC BANKCALL CADR GOMANUR ENDMANUV TCF TOBALL # FINISHED MANEUVER. @@ -96,7 +96,7 @@ ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG ADRES 3AXISFLG # BIT 6 FLAG 5 CAE TEMPR60 TC BANKJUMP - + CHKLINUS CS FLAGWRD4 MASK BIT12 # IS PRIORITY DISPLAY FLAG SET? CCS A @@ -106,39 +106,39 @@ CHKLINUS CS FLAGWRD4 CS THREE # OBTAIN LOCATION FOR RESTART AD BUF2 # HOLD Q OF LAST DISPLAY TS TBASE1 - + TC PHASCHNG OCT 71 # 1.7SPOT FOR RELINUS - + CAF BIT7 TC LINUS # GO SET BITS FOR PRIORITY DISPLAY TC MPAC +2 - + RELINUS CAF BIT5 # IS TRACK FLAG ON MASK FLAGWRD1 EXTEND BZF GOREDO20 # NO - + TC UPFLAG ADRES PDSPFLAG # R60 PRIODSP FLAG - + TC UPFLAG ADRES TARG1FLG # FOR R52 - + CAF ZERO # RESET TO ZERO, SINCE # Page 392 TS OPTIND # OPTIND WAS SET TO -1 BY V379 - + CAF PRIO14 # RESTORE ORIGINAL PRIORITY TC PRIOCHNG - + TC TBASE1 - + GOREDO20 TC PHASCHNG OCT 111 # 1.11 FOR PIKUP20 - + TC ENDOFJOB - + R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE EXTEND # VERB49 OR VERB89 SO DO ENDEXT. BZF ENDMANU1 # RESET 3-AXIS & RETURN. USER DOES ENDEXT @@ -147,7 +147,7 @@ R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE EXTEND BZF GOTOP00H # NO TC GOTOV56 # YES - + BIT14+7 OCT 20100 V06N18 VN 0618 @@ -204,9 +204,9 @@ V06N18 VN 0618 BANK # Page 394 EBANK= BCDU - + COUNT 27/VECPT - + VECPOINT STQ BOV # SAVE RETURN ADDRESS VECQTEMP VECLEAR # AND CLEAR OVFIND @@ -241,14 +241,14 @@ COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM DEL # S/C AXES TO STABLE MEMBER AXES CALL # MFS = MIS MFI MXM3 # (IN PD LIST) - + DLOAD ABS 6 # MFS6 = SIN(CPSI) $2 DSU BMN SINGIMLC # = SIN(59 DEGS) $2 FINDGIMB # /CPSI/ LESS THAN 59 DEGS. # I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK - + DLOAD ABS # CHECK TO SEE IF WE ARE POINTING SCAXIS # THE THRUST AXIS DSU BPL @@ -265,13 +265,13 @@ COMPMATX CALL # NO 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 Q, U = SCAXIS # OTHERWISE U = -SCAXIS. - + VLOAD VCOMP SCAXIS STCALL COF # ROTATE ABOUT -SCAXIS @@ -308,7 +308,7 @@ FINDGIMB AXC,1 CALL 0 GOTO VECQTEMP # RETURN TO CALLER - + PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI 28D SCAXIS @@ -317,7 +317,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 - + ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN HIUNITX # INITIAL S/C AXES. @@ -342,7 +342,7 @@ PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE BANK 35 SETLOC MANUVER1 BANK - + SINGIMLC 2DEC .4285836003 # = SIN(59) $2 SINVEC1 2DEC .3796356537 # = SIN(49.4) $2 @@ -361,27 +361,27 @@ DPB-14 OCT 00001 BANK 34 SETLOC MANUVER BANK - + # Page 398 # ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49) EBANK= CPHI - + COUNT 27/R62 - + R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI TC BANKCALL CADR GOFLASH - TCF ENDEXT + TCF ENDEXT TCF GOMOVE # PROCEED TCF R62DISP # ENTER - + # ASTRONAUT MAY LOAD NEW ICDUS AT THIS # POINT. GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER ADRES 3AXISFLG - + TC BANKCALL CADR R60CSM - TCF ENDEXT - + TCF ENDEXT + diff --git a/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc b/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc index 3e7e0f9..ad17097 100644 --- a/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc +++ b/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -44,7 +44,7 @@ BANK 20 SETLOC DAPS8 BANK - + COUNT* $$/DAPEX EBANK= KMPAC AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT @@ -53,8 +53,8 @@ AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT MASK BIT14 # IF NOT RCS, EXIT EXTEND BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER - - CA CDUZ + + CA CDUZ TC SPSIN2 TS AMGB1 # CALCULATE AMGB CA CDUZ diff --git a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc index 4116427..cf13111 100644 --- a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc +++ b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -35,9 +35,9 @@ BANK 20 SETLOC DAPS3 BANK - + COUNT 21/DAPRC - + EBANK= KMPAC REDORCS LXCH BANKRUPT # RESTART OF AUTOPILOT COMES HERE CA T5PHASE # ON A T5 RUPT @@ -62,7 +62,7 @@ RCSATT LXCH BANKRUPT # SAVE BB EXTEND BZF SETT5 # IF G/C AUTOPILOT IS FULLY ENABLED, # GO TO SETT5 - + CS RCSFLAGS # IF G/C AUTOPILOT IS NOT FULLY ENABLED, MASK BIT14 ADS RCSFLAGS # SET NORATE FLAG, @@ -78,13 +78,13 @@ RCSATT LXCH BANKRUPT # SAVE BB EXTEND # Page 1003 BZF SETT5 # IF IN FREE MODE, GO TO SETT5. - + TS T5PHASE # IF NOT IN FREE MODE, CAF OCT37766 # SCHEDULE REINITIALIZATION (FRESHDAP) TS TIME5 # IN 100 MS VIA T5RUPT - + TCR ZEROJET # ZERO JET CHANNELS IN 14 MS VIA ZEROJET - + TCF KMATRIX DELTATT OCT 37770 # 80MS (TIME5) DELTATT2 OCT 37776 # 20MS (TIME5) @@ -95,7 +95,7 @@ PRIO34A = PRIO34 # CHECK PHASE OF T5 PROGRAM # -# BECAUSE OF THE LENGTH OF THE T5 PROGRAM,IT HAS BEEN DIVIDED INTO +# BECAUSE OF THE LENGTH OF THE T5 PROGRAM,IT HAS BEEN DIVIDED INTO # THREE PARTS, T5PHASE1, T5PHASE2, AND THE JET SELECTION LOGIC, # TO ALLOW FOR THE EXECUTION OF OTHER # INTERRUPTS. T5PHASE IS ALSO USED IN THE INITIALIZATION OF THE AUTOPILOT @@ -112,7 +112,7 @@ SETT5 CCS T5PHASE TCF FRESHDAP # TURN ON AUTOPILOT TCF T5PHASE2 # BRANCH TO PHASE2 OF PROGRAM TCF REDAP # RESTART AUTOPILOT - + TS T5PHASE # PHASE 1 RESET FOR PHASE 2 CA TIME5 TS T5TIME # USED IN COMPENSATING FOR DELAYS IN T5 @@ -145,7 +145,7 @@ RATEFILT CA RCSFLAGS # SEE IF RATEFILTER HAS BEEN INITIALIZED EXTEND # IF SO, PROCEED WITH RATE DERIVATION BZF +2 TCF KMATRIX # IF NOT, SKIP RATE DERIVATION - + # RATE FILTER TIMING = 7.72 MS # # RATE FILTER EQUATIONS @@ -183,7 +183,7 @@ DRHOLOOP TS SPNDX DAS DRHO CCS SPNDX TCF DRHOLOOP - + CA CDUX # MEASURED BODY RATES-- XCH RHO EXTEND @@ -268,9 +268,9 @@ KMATRIX CA ATTSEC TC NOVAC # MATRIX FROM GIMBAL AXES TO BODY AXES EBANK= KMPAC 2CADR AMBGUPDT - + CAF NINE - + TENTHSEK TS ATTSEC # Page 1007 @@ -336,7 +336,7 @@ DELOOP TS SPNDX DXCH CDUXD CCS SPNDX TCF DELOOP - + # Page 1009 # RCS-CSM AUTOPILOT ATTITUDE ERROR DISPLAY # @@ -373,7 +373,7 @@ DACNDLS CS RCSFLAGS # ALTERNATE BETWEEN FDAIDSP1 AND FDAIDSP2 MASK BIT4 EXTEND BZF FDAIDSP2 - + FDAIDSP1 ADS RCSFLAGS TC NEEDLER KRESUME1 TCF RESUME # END PHASE 1 @@ -445,7 +445,7 @@ NEEDLER CAF BIT4 # CHECK FOR COARSE ALIGN ENABLE MASK BIT3 ADS RCSFLAGS TC Q - + NEEDLER1 CA RCSFLAGS MASK SIX EXTEND @@ -453,7 +453,7 @@ NEEDLER1 CA RCSFLAGS MASK BIT3 EXTEND BZF NEEDLER2 # BIT3 = 0, BIT2 = 1 - + CS BIT6 # FIRST PASS BIT3 = 1 EXTEND # DISABLE IMU ERROR COUNTER TO ZERO DACS WAND CHAN12 # MUST WAIT AT LEAST 60 MS. BEFORE @@ -462,7 +462,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS. TS AK1 TS AK2 TS EDRIVEX # ZERO THE DISPLAY REGISTERS - TS EDRIVEY + TS EDRIVEY TS EDRIVEZ TS CDUXCMD # ZERO THE OUT COUNTERS TS CDUYCMD @@ -472,7 +472,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS. AD BIT2 TS RCSFLAGS TC Q # END PASS1 - + NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS EXTEND WOR CHAN12 @@ -481,7 +481,7 @@ NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS MASK RCSFLAGS # ERRORS WAIT AT LEAST 4 MS FOR TS RCSFLAGS # RELAY CLOSURE TC Q - + NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER EXTEND # IS ENABLED RAND CHAN12 @@ -518,7 +518,7 @@ DACLOOP TS SPNDX EXTEND WOR CHAN14 # SET DAC ACTIVITY BITS TC Q - + REINIT CAF DELAY200 # ........TILT LOGIC TS TIME5 # REINITIALIZE DAP IN 200MS TS T5PHASE @@ -527,10 +527,10 @@ DELAY200 DEC 16364 # 200MS DEC -384 -# Page 1013 +# Page 1013 DACLIMIT DEC 16000 DEC 384 - + # Page 1014 # INITIALIZATION PROGRAM FOR RCS-CSM AUTOPILOT # @@ -549,13 +549,13 @@ DACLIMIT DEC 16000 FRESHDAP CAF ONE # RESET HOLDFLAG TO STOP AUTOMATIC TS HOLDFLAG # STEERING AND PREPARE TO PICK UP AN # ATTITUDE HOLD REFERENCE - + REDAP TC IBNKCALL # DECODE DAPDATR1, DAPDATR2 FOR DEADBANDS CADR S41.2 # RATES, QUADFAILS, QUAD MANAGEMENT TC IBNKCALL # DECODE IXX, IAVG, AND CONVERT CADR S40.14 # TO AUTOPILOT GAINS - + CAF NO.T5VAR # NO. LOCATIONS TO BE ZEROED MINUS ONE ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS CAF ZERO @@ -564,23 +564,23 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS CCS SPNDX TCF ZEROT5 TCR ZEROJET - + CS ZERO TS CHANTEMP # INITIALIZE MINIMUM IMPULSE CONTROL - + TS CH31TEMP # INITIALIZE RHC POSITION MEMORY FOR # MANUAL RATE MODES - + CAF =.24 TS SLOPE # INITIALIZE SWITCHING LOGIC SLOPE - + CAF FOUR TS T5TIME # PHASE 0 RESETS FOR PHASE 2 INTERRUPT IN # 60 MS. PHASE 2 RESETS FOR PHASE 1 RUPT # IN (80MS - T5TIME(40MS)). THEREFORE # PHASE 1 (RATEFILTER) BEGINS CYCLING 100 # MS FROM NOW AND EVERY 100MS THEREAFTER. - + CAF ELEVEN TS ATTKALMN # RESET TO PICK UP KALMAN FILTER TAINS # TO INITIALIZE THE S/C ANGULAR RATES @@ -593,7 +593,7 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS TS RHO2 CAF ZERO # RESET AUTOPILOT TO BEGIN EXECUTING TS T5PHASE # PHASE2 OF PROGRAM - + CS IMODES33 # CHECK IMU STATUS MASK BIT6 # IF BIT6 = 0 IMU IN FINE ALIGN CCS A # IF BIT6 = 1 IMU NOT READY @@ -602,12 +602,12 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS CAF RCSINITB # PROVIDE FREE CONTROL ONLY TCF RCSSWIT # DON'T START UP RATE FILTER # SIGNAL NO RATE FILTER - + IMUAOK CAF PRIO34 # START MATRIX INITIALIZATION TC NOVAC # BYPASS IF IMU NOT IN FINE ALIGN EBANK= KMPAC 2CADR AMBGUPDT - + CAF RCSINIT # CLEAR BIT14 --ASSUME WE HAVE A GOOD IMU RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM # SET BIT3 --INITIALIZE NEEDLES @@ -619,7 +619,7 @@ RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM TC RESUME # PICK UP THE KALMAN FILTER GAINS. RATE # FILTER WILL BEGIN OPERATING ZOOMS FROM # NOW - + # CONSTANTS USED IN INITIALIZATION PROGRAM NO.T5VAR DEC 36 @@ -633,22 +633,22 @@ T6ADDR 2CADR T6START ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2, TS SPNDX # YWORD1, PWORD2, PWORD1, RWORD2, CAF ZERO # AND RWORD1 - + # Page 1016 INDEX SPNDX TS RWORD1 CCS SPNDX TCF ZEROJET +1 - + CAF FOUR TS BLAST1 +1 CAF ELEVEN TS BLAST2 +1 - + CS BIT1 MASK RCSFLAGS TS RCSFLAGS # RESET BIT1 OF RCSFLAGS TO 0 - + EXTEND DCA T6ADDR DXCH T6LOC @@ -657,18 +657,18 @@ ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2, CAF BIT15 EXTEND WOR CHAN13 - + TC Q - + T5PHASE2 CCS ATTKALMN # IF (+) INITIALIZE RATE ESTIMATE TCF KALUPDT - + TCF +2 # ONLY IF ATTKALMN POSITIVE TCF +1 CA DELTATT2 # RESET FOR PHASE3 IN 20 MS XCH TIME5 # (JET SELECTION LOGIC) ADS T5TIME # TO COMPENSATE FOR DELAYS IN T5RUPT - + CA RCSFLAGS # IF A HIGH RATE AUTO MANEUVER IS IN MASK BIT15 # PROGRESS (BIT 15 OF RCSFLAGS SET), SET EXTEND # ATTKALMN TO -1 @@ -682,7 +682,7 @@ NOHIAUTO TS ATTKALMN CS OCT01760 # RESET FORCED FIRING BITS (BITS 10 TO 5 MASK RCSFLAGS # OF RCSFLAGS) TO ZERO TS RCSFLAGS - + EXTEND READ CHAN31 TS L @@ -692,10 +692,10 @@ NOHIAUTO TS ATTKALMN MASK MANROT # = OCT00077 EXTEND BZMF NOCHANGE - + LXCH A TS CH31TEMP # SAVE CONTENTS OF CHANNEL 31 IN CH31TEMP - + CA L EXTEND MP BIT5 # PUT BITS 6-1 OF A IN BITS 10-5 OF L @@ -704,18 +704,18 @@ NOHIAUTO TS ATTKALMN # CHANGES IN COMMAND. BITS 10,9 FOR # ROLL, BITS 8,7 FOR YAW, BITS 6,5 FOR # PITCH - + CS RCSFLAGS # SET RATE DAMPING FLAGS (BITS 13,12, AND MASK OCT16000 # 11 OF RCSFLAGS) ADS RCSFLAGS - + NOCHANGE CS CH31TEMP MASK MANROT EXTEND BZMF AHFNOROT # IF NO MANUAL COMMANDS, GO TO AHFNOROT - + TS HOLDFLAG # SET HOLDFLAG + - + TC STICKCHK # WHEN THE RHC IS OUT OF DETENT, PMANNDX, # YMANNDX, AND RMANNDX ARE ALL SET, BY # MEANS OF STICKCHK, TO 0, 1, OR 2 FOR NO, @@ -730,29 +730,29 @@ NOCHANGE CS CH31TEMP # LEFT SET TO THEIR LAST OUT OF DETENT # Page 1018 # VALUES. - + CS FLAGWRD1 # SET STIKFLAG TO INFORM STEERING MASK BIT14 # PROGRAMS (P20) THAT ASTRONAUT HAS ADS FLAGWRD1 # ASSUMED ROTATIONAL CONTROL OF SPACECRAFT - + CAF BIT14 EXTEND RAND CHAN31 EXTEND BZMF FREEFUNC - + CA RCSFLAGS # EXAMINE RCSFLAGS TO SEE IF RATE FILTER MASK BIT14 # HAS BEEN INITIALIZED CCS A # IF SO, PROCEED WITH MANUAL RATE COMMANDS TCF REINIT # .....TILT, RECYCLE TO INITIALIZE FILTER - + CS FIVE # IF MANUAL MANEUVER IS AT HIGH RTE, SET AD RATEINDX # ATTKALMN TO -1. EXTEND # OTHERWISE, LEAVE ATTKALMN ALONE. BZMF +3 CS ONE TS ATTKALMN - + CAF TWO # AUTO-HOLD MANUAL ROTATION SETWBODY TS SPNDX DOUBLE @@ -762,7 +762,7 @@ SETWBODY TS SPNDX EXTEND # = 2 - ROTATION BZF NORATE # IF NO ROTATION COMMAND ON THIS AXIS, # GO TO NORATE. - + AD RATEINDX # RATEINDX = 0 0.05 DEG/SEC TS Q # = 2 0.2 DEG/SEC INDEX Q # = 4 0.5 DEG/SEC @@ -771,7 +771,7 @@ SETWBODY TS SPNDX MP BIT9 # MULTIPLY MANTABLE BY 2 TO THE -6 INDEX DPNDX # TO GET COMMANDED RATE. DXCH WBODY # SET WBODY TO COMMANDED RATE. - + CA RCSFLAGS MASK OCT16000 # IS RATE DAMPING COMPLETED (BITS 13,12 AND EXTEND # 11 OF RCSFLAGS ALL ZERO.) IF SO, GO TO @@ -784,7 +784,7 @@ ZEROER CA ZERO # ZEROER ZEROS MERRORS INDEX DPNDX DXCH MERRORX TCF SPNDXCHK - + NORATE ZL INDEX DPNDX DXCH WBODY # ZERO WBODY FOR THIS AXIS @@ -793,14 +793,14 @@ NORATE ZL EXTEND # IS RATE DAMPING COMPLETED BZF SPNDXCHK # YES, KEEP CURRENT MERRORX GO TO SPNDXCHK TCF ZEROER # NO, GO TO ZEROER - + MERUPDAT INDEX Q # MERRORX=MERRORX+MEASURED CHANGE IN ANGLE CS MANTABLE -1 # -COMMANDED CHANGE IN ANGLE EXTEND # THE ADDITION OF MEASURED CHANGE IN ANGLE MP BIT7 # HAS ALREADY BEEN DONE IN THE RATE FILTER INDEX DPNDX # COMMANDED CHANGE IN ANGLE = WBODY TIMES DAS MERRORX # .1SEC = MANTABLE ENTRY TIMES 2 TO THE -8 - + SPNDXCHK INDEX DPNDX CA MERRORX INDEX SPNDX @@ -808,7 +808,7 @@ SPNDXCHK INDEX DPNDX CCS SPNDX TCF SETWBODY TCF JETS - + OCT01760 OCT 01760 # FORCED FIRING BITS MASK OCT01400 OCT 01400 # ROLL FORCED FIRING MASK ORDER OF @@ -838,18 +838,18 @@ FREEFUNC INDEX RMANNDX # ACCELERATION CA FREETAU # (+3) 0 SEC TS TAU2 TCF T6PROGM - + FREETAU DEC 0 DEC 480 DEC -480 DEC 0 - + T6PROGM CAF ZERO # FOR MANUAL ROTATIONS TS ERRORX TS ERRORY TS ERRORZ TCF T6PROG - + # Page 1021 DEC .2112 # FILTER GAIN FOR TRANSLATION, LEM ON DEC .8400 # FILTER GAIN FOR TRANSLATION 2(ZETA)WN DT @@ -865,7 +865,7 @@ GAIN1 DEC .0640 # KALMAN FILTER GAINS FOR INITIALIZATION DEC .6933 DEC .8151 DEC .9342 - + DEC .0174 # FILTER GAIN FOR TRANSLATION, LEM ON DEC .3600 # FILTER GAIN FOR TRANSLATION (WN)(WN)DT DEC .0174 # FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS @@ -896,7 +896,7 @@ STICKCHK TS T5TEMP TC Q KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING # KALMAN FILTER TAKES 1.1 SEC - + CA DELTATT # =1SEC - 80MS AD T5TIME # + DELAYS # Page 1022 @@ -904,15 +904,15 @@ KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING TCF +3 CAF DELTATT2 # SAFETY PLAY TO ASSURE TS TIME5 # A T5RUPT - + KRESUME2 CS ZERO # RESET FOR PHASE1 TS T5PHASE # RESUME INTERRUPTED PROGRAM TCF RESUME - + FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1 MASK RCSFLAGS TS RCSFLAGS - + CS FLAGWRD0 # ON - DISPLAY ONE OF THE TOTAL ATTITUDE MASK BIT9 # ERRORS EXTEND @@ -923,7 +923,7 @@ FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1 CS ERRORZ TS AK2 TCF RESUME # END PHASE 1 - + FDAITOTL CA FLAGWRD9 MASK BIT6 EXTEND @@ -933,7 +933,7 @@ WRTN22 EXTEND # OTHERWISE, CONTINUE ON TO WRTN22 AND DCA CTHETA # GET SET TO COMPUTE TOTAL ATTITUDE DXCH WTEMP # ERROR WRT N22 BY PICKING UP THE THREE CA CPHI # COMPONENTS OF N22 - + GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR MSU CDUX # DISPLAY ON FDAI ERROR NEEDLES TS AK @@ -965,12 +965,12 @@ GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR MP AMGB8 ADS AK2 TCF RESUME # END PHASE1 OF RCS DAP - + WRTN17 EXTEND # GET SET TO COMPUTE TOTAL ASTRONAUT DCA CPHIX +1 # ATTITUDE ERROR WRT N17 BY PICKING UP DXCH WTEMP # THE THREE COMPONENTS OF N17 CA CPHIX TCF GETAKS - + # Page 1024 (empty page) - + diff --git a/Comanche055/REENTRY_CONTROL.agc b/Comanche055/REENTRY_CONTROL.agc index f3ffbb8..0ac72e9 100644 --- a/Comanche055/REENTRY_CONTROL.agc +++ b/Comanche055/REENTRY_CONTROL.agc @@ -18,13 +18,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -36,10 +36,10 @@ BANK 25 SETLOC REENTRY BANK - + COUNT* $$/ENTRY EBANK= RTINIT - + EBENTRY = EBANK7 EBAOG EQUALS EBANK6 NTRYPRIO EQUALS PRIO20 # (SERVICER) @@ -58,22 +58,22 @@ STARTENT EXIT # MM = 63 # EGSW = 97D B8 # HIND=99D B6 INRLSW=100D B5 # LATSW=101D B4 .05GSW=102D B3 - + AD ENTRYSW TS CM/FLAGS - + RELINT - + TC INTPRET - + SLOAD LODPAD STORE LOD - + SLOAD LADPAD STORE LAD - + DMP # L/DCMINR = LAD COS(15) COS15 STODL L/DCMINR @@ -90,7 +90,7 @@ STARTENT EXIT # MM = 63 SIGN DCOMP HEADSUP # MAY BE NOISE FOR DISPLAY P61 STCALL L/D # L/D = - LAD SGN(HEADSUP) - + STARTEN1 # RETURN VIA GOTOADDR VLOAD VXV VN # (-7) M/CS @@ -101,22 +101,22 @@ STARTENT EXIT # MM = 63 DCOMP RTB SIGNMPAC STODL K2ROLL # K2ROLL = -SGN(LATANG) - + LAD DMP DAD Q21 Q22 STORE Q2 # Q2 = -1152 + 500 LAD - + SSP SSP GOTOADDR # SET SELECTOR FOR INITIAL PASS INITROLL POSEXIT SCALEPOP # SET CM/POSE TO CONTINUE AT SCALEPOP - + RTB SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD - + # CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM, AND RT. ALL ARE .5 UNIT AND IN # REFERENCE COORDINATES. @@ -128,7 +128,7 @@ STARTEN1 STQ VLOAD LUNAFLAG STODL LAT 3ZEROS - + STODL LAT +4 # SET ALT=0. PIPTIME # ESTABLISH RTINIT AT TIME OF PRESENT # Page 846 @@ -146,28 +146,28 @@ STARTEN1 STQ VLOAD ACOS STCALL THETAH # RANGE ANGLE /360 GOTOADDR # RETURN TO CALLER - + 500SEC 2DEC 50000 B-28 # CS. ENTMASK OCT 11774 ENTRYSW OCT 11010 # ENTRYDSP B13. GONEPAST B10. LATSW B4 # Page 847 -SCALEPOP CALL +SCALEPOP CALL TARGETNG - + EXIT - + REFAZE10 TC PHASCHNG OCT 10035 # SERVICER 5.3 RESTART AT REFAZE10 - + TC INTPRET - + # JUMP TO PARTICULAR RE-ENTRY PHASE: # SEQUENCE GOTO GOTOADDR - + # GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS TO THE CURRENT PHASE OF # RE-ENTRY. SEQUENCING IS AS FOLLOWS: # @@ -204,42 +204,42 @@ REFAZE10 TC PHASCHNG # * START TARGETING ... EBANK= RTINIT - + # TARGETNG IS CALLED BY P61, FROM GROUP 4. # TARGETNG IS CALLED BY ENTRY, FROM GROUP 5. - - # ALL MM COME HERE. + + # ALL MM COME HERE. TARGETNG BOFF VLOAD # ENTER WITH PROPER EB FROM CM/POSE(TEST) RELVELSW # RELVELSW = 96D BIT9 GETVEL # WANT INERTIAL VEL. GO GET IT. -VREL # NEW V IS RELATIVE, CONTINUE - + VCOMP GOTO # (VREL) = (V) + KWE UNITR*UNITW GETUNITV -1 # - VREL WAS LEFT BY CM/POSE - + GETVEL VLOAD VXSC # INERTIAL V WANTED VN # KVSCALE = (12800 / .3048) / 2VS KVSCALE # KVSCALE = .81491944 STORE VEL # V/2 VS - + GETUNITV UNIT STQ 60GENRET STODL UNITV 34D STORE VSQUARE # VSQ/4 - + DSU # LEQ = VSQUARE - 1 FOURTH # 4 G'S FULL SCALE STODL LEQ # LEQ/4 - + 36D STOVL V # V/2 VS = VEL/2 VS - + VEL DOT SL1 # RDOT= V.UNITR UNITR STOVL RDOT # RDOT /2 VS - + DELV # PIPA COUNTS IN PLATFORM COORDS. ABVAL DMP KASCALE @@ -251,7 +251,7 @@ DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG # Page 849 UNITR STORE UNI # .5 UNI REF COORDS. - + BOFF DLOAD RELVELSW GETETA @@ -261,13 +261,13 @@ UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE TIME/RTO PIPTIME STCALL DTEAROT # GET PREDICTED TARGET VECTOR RT - + EARROT2 DOT SETPD # SINCE (RT) UNIT VECT, THIS IS 1/4 MAX UNI # LATANG = RT.UNI 0 STOVL LATANG # LATANG = MAC LATANG / 4 - + RT CLEAR GONEBY # SHOW HAVE NOT GONE PAST TARGET. @@ -277,7 +277,7 @@ UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE BPL SET +2 GONEBY # SHOW HAVE GONE PAST TARGET. - + VLOAD RT GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR) @@ -289,14 +289,14 @@ GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR) SL1 ACOS THETDONE STORE THETAH # THETAH/360 # HI WORD, LO BIT =1.32 NM=360 60/16384 - + BON DCOMP GONEBY # =1 IF HAVE GONE PAST TARGET. # (SIGN MAY BECOME ERRATIC VERY NEAR # TARGET DUE TO LOSS OF PRECISION.) +1 STODL RTGON67 # RANGE ERROR: NEG IF WILL FALL SHORT. - + D DSU BMN # Page 850 @@ -314,10 +314,10 @@ THETDONE STORE THETAH # THETAH/360 BOV SQRT NOLDCALC # OVFL LAST CLEARED IN EARROT2 ABOVE. STORE L/DCALC - + NOLDCALC GOTO 60GENRET - + NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT) .05GSW # .05GSW = 102D B3 NOLDCALC # KEEP SINGLE EXIT FOR TARGETING @@ -328,9 +328,9 @@ NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT) BANK 26 SETLOC REENTRY1 BANK - + COUNT* $$/ENTRY - + GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2 # DT/2 = 2/2 =1 RDOT @@ -345,7 +345,7 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2 D D STORE D - + BON DLOAD # EGSW INDICATES FINAL PHASE EGSW SUBETA @@ -353,14 +353,14 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2 DMP GOTO KTETA # = 1000x2PI/(2)E14 163.84 UPDATERT - + SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL. V VMIN BPL SET SUBETA2 RELVELSW - + SUBETA2 DLOAD DMP THETAH @@ -368,11 +368,11 @@ SUBETA2 DLOAD DMP DDV GOTO V # KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT UPDATERT - + SETMIND DLOAD GOTO 1BITDP DSTORE - + # Page 852 TINYTHET DSU ABS # ENTER WITH X-.249 1BITDP +1 # GET 1/4 - MPAC @@ -381,23 +381,23 @@ TINYTHET DSU ABS # ENTER WITH X-.249 DMP GOTO KACOS THETDONE - + # Page 853 # * START INITIAL ROLL ... BANK 25 SETLOC REENTRY BANK - + COUNT* $$/ENTRY - + # MM = 63, 64, ... INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D INRLSW INITRL1 .05GSW LIMITL/D - + # MM = 64, NOW # 3 # KA = KA1 LEG + KA2 @@ -411,11 +411,11 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D P64 # ROLLC VI RDOT # XXX.XX DEG XXXXX. FPS XXXXX. FPS STORE KAT - + DSU BMN KALIM +4 - DLOAD + DLOAD KALIM STORE KAT DLOAD DSU # IF V-VFINAL1 NEG, GO TO FINAL PHASE. @@ -430,7 +430,7 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D GOTOADDR KEP2 # AND IDLE UNTIL D > 0.2 G. (NO P66 HERE) INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW. - + D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4 # Page 854 LEQ @@ -453,7 +453,7 @@ D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4 VFINAL # 3 # V-VFINAL +(RDOT/V) / K44 OVFL $ - + DAD BOV V INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW. @@ -462,38 +462,38 @@ D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4 LAD DCOMP STORE L/D - + # SET INRLSW AT END FOR RESTART PROTECTION INROLOUT BOFSET # END OF PRE .05G PATH OF INITROLL. INRLSW # SWITCH IS ZERO INITIALLY. LIMITL/D # (GO TO) - + KATEST DLOAD DSU # IF KAT - D POS, GO TO CONSTD KAT D # IF POS, OUT WITH COMMAND VIA LIMITL/D BPL GOTO LIMITL/D CONSTD - + INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST RDOT VRCONT BMN CALL # IF POSITIVE, FALL INTO HUNTEST. KATEST - + FOREHUNT # INITIALIZE HUNTEST. - + # Page 855 # * START HUNT TEST ... # MM = 64 SSP # INITIALIZE HUNTEST ON FIRST PASS GOTOADDR HUNTEST # MUST GO AFTER FOREHUNT FOR RESTARTS. - + HUNTEST DLOAD D STODL A1 # A1/805 = A1/25G - + LAD STODL TEM1B RDOT @@ -501,13 +501,13 @@ HUNTEST DLOAD A0CALC LEWD STODL TEM1B - + RDOT A0CALC DDV DAD # V1 = V + RDOT/TEM1B TEM1B V STODL V1 # V1/2 VS - + RDOT DSQ DDV # A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS) TEM1B @@ -520,23 +520,23 @@ A0CALC DDV DAD # V1 = V + RDOT/TEM1B DDV VSQUARE STODL A0 # A0/805 = A0/25G - + RDOT BPL DLOAD V1LEAD A0 STORE A1 # A1/25G - + V1LEAD DLOAD BPL # IF L/D NEG, V1=V1 - 1000 L/D HUNTEST1 - + DLOAD DSU V1 # Page 856 VQUIT STORE V1 - + HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 A0 2C1HS @@ -547,12 +547,12 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 V1 LEWD STORE ALP - + BDSU BDDV # FACT1 = V1 / (1 - ALP) BARELY1 V1 STODL FACT1 # FACT1 / 2VS - + ALP DSU DMP # FACT2 = ALP(ALP - 1) / A0 BARELY1 @@ -560,7 +560,7 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 DDV A0 STORE FACT2 # FACT2 (25G) - + DMP DAD Q7 # Q7 / 805 = Q7 / 25G ALP # VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) ) @@ -569,34 +569,34 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 DMP FACT1 STORE VL # VL / 2 VS - + BDSU DMP # GAMMAL1 = LEWD (V1-VL)/VL V1 LEWD DDV VL STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL. - + # GAMMAL1 = PDL 22D. VL DSU BMN # IF VL-VLMIN NEG, GO TO PREFINAL VLMIN PREFINAL - + DLOAD DSQ # Page 857 VL STODL VBARS # VBARS / 4 VS VS - + HALVE # IF VSAT-VL NEG, GO TO CONSTD DSU BMN VL BECONSTD # SET MODE=HUNTEST, CONTINUE IN CONSTD STODL DVL # DVL / 2VS - + HALVE STORE VS1 # VS1 = VSAT - + DSU BMN # IF V1 GREATER THAN VSAT, GO ON V1 GETDHOOK @@ -605,19 +605,19 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 STODL DVL # DVL = DVL - (VSAT-V1) = V1 - VL V1 STORE VS1 # VS1 = V1, IN THIS CASE - + GETDHOOK DLOAD CALL # DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2 VS1 # VS1 / 2 VS DHOOKYQ7 # GO CALC DHOOK STORE DHOOK # DHOOK / 25G - + SR DDV 6 # CHOOK Q7 - DSU + DSU CHOOK # = .25/16 = (-6) STORE AHOOKDV - + DAD DMP # GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL) 1/16TH CH1 @@ -649,7 +649,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES HALVE STODL COSG/2 VBARS # E=SQRT(1+VBARS........ - + DSU DMP HALVE VBARS @@ -659,7 +659,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES SL2 DAD C1/16 # C1/16 = 1/16 SQRT PDDL # E/4 INTO PDL - + VBARS DMP DMP # ASKEP/2 = ARCSIN(VBARS COSG SING/E) COSG/2 @@ -667,14 +667,14 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES DDV ASIN SL1 PUSH # ASKEP TO PDL 0. STODL ASKEP # BALLISTIC RANGE ASKEP/2PI - + # FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP) VL DMP DAD # ASP1 = Q2 + Q3 VL Q3 Q2 STORE ASP1 # FINAL PHASE RANGE ASP1/2 PI - + PDDL DSQ # ASP1 TO PDL 2. V1 # 2 @@ -685,7 +685,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES DDV CALL A0 LOG # RETURN WITH -LOG IN MPAC - + DMP DDV C12 GAMMAL1 @@ -701,16 +701,16 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES DDV PUSH # ASPDWN TO PDL 6. LAD STODL ASPDWN # RANGE TO PULL OUT ASPDWN /2 PI - + Q6 DSU DMP # ASP3 = Q5(Q6-GAMMAL) GAMMAL Q5 STOVL ASP3 # GAMMA CORRECTION ASP3/2PI - + ASKEP # GET HI-WD AND STODL ASPS(TM) # SAVE HI-WORD OF ASP'S FOR TM. - + ASP3 DAD DAD # ASPDWN FROM PDL 6. @@ -723,14 +723,14 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES TCDANZIG STORE DIFF # DIFF = (ASP-THETAH) / 2 PI # ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE - + ABS DSU # IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY 25NM BMN BON GOTOUPSY HIND GETLEWD - + DLOAD BPL DIFF DCONSTD # EVENTUALLY SETS MODE = HUNTEST. @@ -751,15 +751,15 @@ LWDSTORE STADR BOV LEWDOVFL STORE LEWD - + SIDETRAK EXIT CA EBENTRY TS EBANK - + CA PRIO16 # DROP GRP 5 RESTART PRIO TO 1 LESS THAN TS PHSPRDT5 # GRP 4. - + TC PHASCHNG OCT 00474 # RESTART GRP 4 AT PRE-HUN. # FORCE RESTART TO PICK UP IN GRP 4: @@ -767,26 +767,26 @@ SIDETRAK EXIT CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER # GRP 4 OR SERVICER. TC PRIOCHNG - + CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE. TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR. - + TC INTPRET - + DLOAD SET DIFF HIND STODL DIFFOLD # DIFFOLD / 2 PI - + Q7F STCALL Q7 # Q7 / 805 FPSS HUNTEST # (GO TO) - + LEWDOVFL DLOAD NEARONE STCALL LEWD DCONSTD # (GO TO) ALSO WILL SET MODE = HUNTEST - + LEWDPTR DLOAD SR1 LEWD DCOMP GOTO @@ -815,19 +815,19 @@ NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC DAD VL STCALL VL # VL/2 VS - + DHOOKYQ7 # GO CALC Q7 # Q7=((1-VL/FACT1)SQ - ALP)/FACT2 STODL Q7 # Q7 / 25G - + VL DSQ STODL VBARS # VBARS / 4 VS VS - + 3ZEROS GOTO # SET GAMMAL = 0 HUNTEST3 - + DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7 FACT1 BDSU SL1 @@ -836,19 +836,19 @@ DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7 ALP DDV RVQ FACT2 - + # Page 863 # COME TO PRE-HUNT WHEN RESTART OCCURS AFTER # HUNTEST IS SIDE-TRACKED AT SIDETRAK. # PICK UP IN GROUP 4. - + PRE-HUNT TC INTPRET CLEAR CALL HIND # HIND 99D BIT 6 FLAG 6 FOREHUNT # RE-INITIALIZE HUNTEST AFTER RE-START. GOTO HUNTEST - + FOREHUNT DLOAD # INITIALIZE HUNTEST. 3ZEROS STODL DIFFOLD @@ -857,7 +857,7 @@ FOREHUNT DLOAD # INITIALIZE HUNTEST. LEWD1 STORE LEWD RVQ - + ADENDEXT CADR ENDEXIT # Page 864 @@ -869,14 +869,14 @@ GOTOUPSY RTB # END OF HUNTEST # SET MODE = UPCONTRL. # RETURN FROM P65 DIRECTLY TO UPDONTRL # VIA THE GOTOADDR AT REFAZE10. - + UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1 D # (SUPPRESS LATERAL SWITCH) C21 BMN SET +2 NOSWITCH - + DLOAD DSU # IF V-V1 POS, GO TO DOWN CONTROL. V V1 @@ -889,14 +889,14 @@ UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1 DLOAD BPL # IF RDOT NEG, DO VLTEST RDOT CONT1 - + VLTEST DLOAD DSU # IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3 V VL DSU BMN C18 PREFINAL - + CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D D DSU BMN @@ -905,7 +905,7 @@ CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D DLOAD GOTO LAD STOREL/D - + CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP)) D FACT2 @@ -916,17 +916,17 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP)) BARELY1 FACT1 STORE VREF # VREF / 2VS - + BDSU DMP # RDOTREF = LEWD(V1-VREF) V1 LEWD STODL RDOTREF # RDOTREF / 2VS - + VS1 DSU BMN # IF VSAT-VREF NEG, GO TO CONTINU2 VREF CONTINU2 - + PUSH PUSH # VS1-VREF TO PDL TWICE DMP DDV # RDHOOK=CHI1(1+DV AHOOKDV/DVL) DV DV AHOOKDV # /DHOOK VREF @@ -942,7 +942,7 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP)) VREF RDOTREF # C(RDOTREF)= LEWD (V1-VREF) STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK - + CONTINU2 DLOAD DSU D Q7MIN @@ -957,12 +957,12 @@ CONTINU2 DLOAD DSU Q7 DDV STADR STORE FACTOR # FACTOR / 25G - + # Page 866 # SKIPPER # DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2 # WHERE F1 = FACTOR - + UPCNTRL3 DLOAD RDOT DSU DMP # L/D = LEWD @@ -975,7 +975,7 @@ UPCNTRL3 DLOAD VREF FACTOR DDV PUSH - + -1/KB2 # DELTA L/D INTO PDL BOV ABS # NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN GOMAXL/D @@ -986,10 +986,10 @@ UPCNTRL3 DLOAD POINT1 PT1/16 SIGN PUSH # ATTACH SIGN OF PUSH TO MPAC THEN PUSH - + NEXT1 DLOAD SL4 # DELTA L/D FROM PDL. - + DAD LEWD NEGTESTS BOV PUSH # L/D TO PDL FOR USE IN NEGTESTS. @@ -1015,18 +1015,18 @@ DCONSTD DLOAD # TWO RANGER ENTRIES TO CONSTD HERE DIFF # SAVE OLD VALUE OF DIFF FOR NEXT PASS. STODL DIFFOLD # DIFFOLD / 2 PI - + Q7F STORE Q7 - + BECONSTD SSP RTB # A HUNTEST ENTRY INTO CONSTD. GOTOADDR # RESET MODE TO HUNTEST HUNTEST KILLGRP4 # DEACTIVATE GRP4 FROM HUNTEST. - -CONSTD BOVB + +CONSTD BOVB TCDANZIG # CLEAR OVF IND IF ON. - + DLOAD DMP LEQ C/D0 # C/D0 = -4/D0 B-8 @@ -1040,7 +1040,7 @@ CONSTD BOVB K2D # C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD PDDL D0 # D0 /805 - + CONSTD1 BDSU # ENTER WITH DREF IN MPAC D DMP DAD @@ -1048,10 +1048,10 @@ CONSTD1 BDSU # ENTER WITH DREF IN MPAC SL GOTO 8D NEGTESTS # (GO TO) - + DOWNCNTL BOVB # INITIAL PART OF UPCONTROL. TCDANZIG # CLEAR OVFIND, IF ON. - + DLOAD SR LAD 8D @@ -1080,7 +1080,7 @@ DOWNCNTL BOVB # INITIAL PART OF UPCONTROL. # PUSH UP HERE GOTO # C(MPAC) = DREF CONSTD1 - + # 2 2 # DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS # Page 869 @@ -1090,11 +1090,11 @@ KEP RTB SSP P66 # DISPLAY TRIM GIMBAL ANGLE VALUES. GOTOADDR # SET GOTOADDR TO KEPLER PHASE. KEP2 - + # KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL # IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS # .2 G BEFORE GOING ON TO P67. - + KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE. Q7FKDMIN # (Q7F + KDMIN)/805 D @@ -1116,26 +1116,26 @@ KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE. PREFINAL SSP RTB GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME PREFINAL # FROM HUNTEST. - P67 # DISABLES GRP4. FINE IF FROM HUNTEST, BUT + P67 # DISABLES GRP4. FINE IF FROM HUNTEST, BUT # MAY ALSO REMOVE RESTART PROTECTION OF # N69 (P65). # ROLLC XRNGERR DNRNGERR # XXX.XX DEG XXXX.X NM XXXX.XX NM - + SET SSP EGSW GOTOADDR PREDICT3 - + PREDICT3 DLOAD DSU # IF V-VQUIT NEG, STOP STEERING V VQUIT BMN EXIT STEEROFF - + CA EBENTRY # PRECAUTIONARY. TS EBANK - + CA TWELVE BACK TS JJ @@ -1147,17 +1147,17 @@ BACK TS JJ TCF BACK AD ONE TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM) - + INDEX JJ CS VREFER INDEX JJ AD VREFER +1 # V(K+1) - V(K) (POS NUM) XCH TEM1B - ZL + ZL EXTEND DV TEM1B TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM) - + CAF FIVE # Page 871 @@ -1181,7 +1181,7 @@ BACK2 TS MM EXTEND MP FX +5 # F1 DXCH MPAC # MPAC = F1(D-DREF) - + EXTEND DCS RDOT # FORM RDOTREF - RDOT DDOUBL @@ -1196,7 +1196,7 @@ BACK2 TS MM TS PREDANG # L/D = LOD + (THETA- PREDANG)/ Y TC INTPRET - + SR3 DSU THETAH BON BOFF @@ -1209,7 +1209,7 @@ BACK2 TS MM GONEPAST STCALL DNRNGERR GONEGLAD - + HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360 # Page 872 DCOMP # FALLS SHORT IF NEG, OVERSHOOT IF POS @@ -1224,17 +1224,17 @@ HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360 GOMAXL/D STCALL L/D GLIMITER # (GO TO) - + # GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ... GONEGLAD DLOAD # SET L/D = -LAD GONEGLAD # (ANY NEGATIVE NUMBER WILL DO) - + GOMAXL/D RTB DMP L/D = LAD SIGN(MPAC) SIGNMPAC LAD STORE L/D # AND FALL INTO GLIMITER SECTION - + GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D GMAX/2 D @@ -1256,7 +1256,7 @@ GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D DAD BPL # IF RDOT+XLIM POS, GO TO LIMITL/D RDOT LIMITL/D - + GOPOSLAD DLOAD LAD STOREL/D STORE L/D @@ -1266,7 +1266,7 @@ LIMITL/D DLOAD L/D STODL L/D1 VSQUARE - + BON # NO LATERAL CONTROL IF PAST TARGET GONEPAST L355 @@ -1295,7 +1295,7 @@ L353 DLOAD SIGN # IF LATANG SIGN(K2ROLL)-Y POS, SWITCH NOSWITCH L355 STORE K2ROLL # K2ROLL = -K2ROLL - + L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD) L/D1 LAD # MPAC SET TO +-1 IF OVERFLOW*** @@ -1304,7 +1304,7 @@ L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD) K2ROLL NOSWITCH STORE ROLLC - + ENDEXIT EXIT OVERNOUT CA BIT13 # ENTRYDSP =92D B13 @@ -1315,7 +1315,7 @@ OVERNOUT CA BIT13 # ENTRYDSP =92D B13 CA ENTRYVN # ALL ENTRY DISPLAYS ARE DONE HERE. TC BANKCALL CADR REGODSPR # NO ABORT IF DISKY IN USE - + NODISKY INHINT CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED. TC CHANG1 @@ -1328,22 +1328,22 @@ SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3 ) STEEROFF EXIT CA EBENTRY # PRECAUTIONARY. TS EBANK - + CA PRIO16 # 2 LESS THAN NTRYPRIO. TC NOVAC EBANK= AOG # ANY EB HERE 2CADR P67.1 # START UP REMAINDER OF P67 - + # RTOGO LAT LONG # XXXX.X NM XXX.XX DEG XXX.XX DEG - + TC 2PHSCHNG # INHINT/RELINT DONE. OCT 00414 # 4.41 RESTART FOR P67.1 DISPLAY JOB. OCT 10035 # SERVICER 5.3 RESTART. - + CA P67.2CAD # HEREAFTER, DO LAT, LONG. TS GOTOADDR - + TC INTPRET GOTO P67.2CAD P67.2 # CONTINUE FOR LAT, LONG THIS TIME. @@ -1370,7 +1370,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC .448067 DEC .456023 DEC .67918 # HIGHVELOCITY FOR SAFETY. - + DEC -.010337 # DRANGE/DA SCALED DRDA/(2700/805) DEC -.016550 DEC -.026935 @@ -1384,7 +1384,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC -.602557 DEC -.99999 DEC -.99999 - + DEC -.0478599 B-3 # -DRANGE/DRDOT DEC -.0683663 B-3 # SCALED ((2VS/8 2700) DR/DRDOT) DEC -.1343468 B-3 @@ -1413,7 +1413,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC -.0179817 B3 DEC -.0159061 B3 DEC -.0159061 B3 - + DEC .0008067 # RANGE TO GO SCALED RTOGO/2700 DEC .0032963 # 8.9 DEC .0081852 # 22.1 @@ -1427,7 +1427,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC .186963 DEC .238148 DEC .294185185 - + DEC -.051099 # -AREF/805 DEC -.074534 DEC -.101242 @@ -1456,7 +1456,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC .512963 DEC .558519 DEC .558519 # END OF STORED REFERENCE - + # Page 879 # REENTRY CONSTANTS. @@ -1470,9 +1470,9 @@ MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1 BANK 26 SETLOC REENTRY1 BANK - + COUNT* $$/ENTRY - + BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE, DEFND IN TFF #1BITDP # COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT. @@ -1600,9 +1600,9 @@ KALIM 2DEC .06 # 1.5/25 Q7MIN = KA4 # = 40/805 = .049689441 -HSCALED 2DEC -.55305018 # -28500/2 VS --KSCALE 2DEC -.0312424837 # -805/VS +-KSCALE 2DEC -.0312424837 # -805/VS -COS15 2DEC .965 +COS15 2DEC .965 LATSLOPE EQUALS 1/12TH # ... END OF RE-ENTRY CONSTANTS ... diff --git a/Comanche055/RESTARTS_ROUTINE.agc b/Comanche055/RESTARTS_ROUTINE.agc index cfe42ea..e40f82f 100644 --- a/Comanche055/RESTARTS_ROUTINE.agc +++ b/Comanche055/RESTARTS_ROUTINE.agc @@ -8,16 +8,16 @@ # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same -# name, and page images. Corrected various -# typos in the transcription of program -# comments, and these should be back-ported +# name, and page images. Corrected various +# typos in the transcription of program +# comments, and these should be back-ported # to Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -39,7 +39,7 @@ EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT 01/RSROU - + RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 DOUBLE # SAVE FOR INDEXING TS TEMP2G @@ -107,7 +107,7 @@ TIMETEST CCS A # IS IT AN IMMEDIATE RESTART BANK COUNT 02/RSROU - + ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS LXCH BB # SWITCHED ERASABLE @@ -126,7 +126,7 @@ ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS BANK COUNT 01/RSROU - + FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED TS L # AND SAVE NDX TEMP2G @@ -225,7 +225,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE BANK COUNT 02/RSROU - + ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK LXCH BB LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS diff --git a/Comanche055/RT8_OP_CODES.agc b/Comanche055/RT8_OP_CODES.agc index a4e348c..ce703b8 100644 --- a/Comanche055/RT8_OP_CODES.agc +++ b/Comanche055/RT8_OP_CODES.agc @@ -8,14 +8,14 @@ # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249/RT8_OP_CODES.agc -# and page images. +# and page images. # 2009-05-07 RSB Oops! Left out the entire last page before. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -59,7 +59,7 @@ CDULOGIC CCS MPAC MP HALF DAS MPAC TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION - + # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM: READPIPS INHINT @@ -70,7 +70,7 @@ READPIPS INHINT CA PIPAZ RELINT TS MPAC +5 - + CAF ZERO TS MPAC +1 TS MPAC +4 @@ -80,9 +80,9 @@ VECMODE TCF VMODE # FORCE TP SIGN AGREEMENT IN MPAC: SGNAGREE TC TPAGREE - + # Page 1509 - + TCF DANZIG # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE @@ -148,17 +148,17 @@ INCRCDUS CAF LOCTHETA TS BUF # PLACE ADRES(THETA) IN BUF. CAE MPAC # INCREMENT IN 1'S COMPL. TC CDUINC - + INCR BUF CAE MPAC +3 TC CDUINC - + INCR BUF CAE MPAC +5 TC CDUINC - + TCF VECMODE - + LOCTHETA ADRES THETAD # THE FOLLOWING ROUTINE INCREMENTS IN 2'S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1'S COMPL. @@ -207,33 +207,33 @@ XNBEB ECADR XNB XNB1EB ECADR XNB1 EBANK= XNB - + TRANSP1 CAF XNBEB TS EBANK DXCH XNB +2 DXCH XNB +6 DXCH XNB +2 - + DXCH XNB +4 DXCH XNB +12D DXCH XNB +4 - + DXCH XNB +10D DXCH XNB +14D DXCH XNB +10D TCF DANZIG EBANK= XNB1 - + TRANSP2 CAF XNB1EB TS EBANK DXCH XNB1 +2 DXCH XNB1 +6 DXCH XNB1 +2 - + DXCH XNB1 +4 DXCH XNB1 +12D DXCH XNB1 +4 - + DXCH XNB1 +10D DXCH XNB1 +14D DXCH XNB1 +10D diff --git a/Comanche055/S-BAND_ANTENNA_FOR_CM.agc b/Comanche055/S-BAND_ANTENNA_FOR_CM.agc index 53d7465..ddcd8f4 100644 --- a/Comanche055/S-BAND_ANTENNA_FOR_CM.agc +++ b/Comanche055/S-BAND_ANTENNA_FOR_CM.agc @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -34,10 +34,10 @@ BANK 23 SETLOC SBAND BANK - + COUNT* $$/R05 EBANK= EMSALT - + SBANDANT TC BANKCALL # V 64 E GETS US HERE CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED TC INTPRET diff --git a/Comanche055/SERVICER207.agc b/Comanche055/SERVICER207.agc index 19cc951..47506b7 100644 --- a/Comanche055/SERVICER207.agc +++ b/Comanche055/SERVICER207.agc @@ -10,11 +10,11 @@ # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # name and Comanche 055 page images. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -86,7 +86,7 @@ # # ONMNITOR # -# A SEQUENCE OF THREE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 +# A SEQUENCE OF THREE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS. # # QUIKREAD @@ -123,7 +123,7 @@ # SEQUENCE MAY BE REPEATED. # ENGINOF3 PERFORMED. # DAP SET UP FOR RCS. -# +# # AVERAGE G # Page 821 # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE @@ -204,17 +204,17 @@ BANK 27 SETLOC SERVICES BANK - + EBANK= DVCNTR # ********************* PREREAD *************************************** COUNT 37/SERV - + PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD TC NOVAC EBANK= NBDX 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL - + # CALL-TO AND LASTBIAS ITSELF ARE NOT # PROTECTED. REREADAC SETS 1/PIPADT # TO 2.0 SECS IN CASE LASTBIAS LOST. @@ -226,42 +226,42 @@ REDO5.31 TC PREREAD1 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO EBANK= DVCNTR # FIRST AVERAGE G PASS 2CADR NORMLIZE - + CAF 2SECS TC WAITLIST EBANK= AOG 2CADR READACCS - + CS TWO TC NEWPHASE OCT 5 - + TCF TASKOVER - + PREREAD1 EXTEND QXCH RUPTREG1 - + TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL - + CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A TS PIPAGE # RESTART OCCURS BEFORE READACCS - + CS FLAGWRD1 # SET AVEG FLAG MASK BIT1 ADS FLAGWRD1 - + CA POSMAX MASK FLAGWRD2 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG - + CS FLAGWRD7 # SET V37 FLAG MASK BIT6 ADS FLAGWRD7 - + CAF ZERO TS DVTOTAL # CLEAR DVTOTAL TS DVTOTAL +1 - + TC RUPTREG1 # Page 824 @@ -273,18 +273,18 @@ PIPSDONE CAF FIVE TS L COM DXCH -PHASE5 - + REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ TS PIPAGE - + CA TWO # SET PIPCTR FOR ONMINTOR TS PIPCTR # AFTER ABOVE PHASCHNG - + CS CM/FLAGS MASK BIT2 # CM/DSTBY CCS A TC CHEKAVEG - + CS PIPTIME1 +1 TS TBASE6 # FOR RESTARTS EXTEND # CONTINUE FOR ENTRY DAP @@ -301,17 +301,17 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ MASK BIT12 # CM/DAPARM 93D BIT12 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE, BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM. - + CA 0.5SEC TC WAITLIST EBANK= XPIPBUF 2CADR QUIKREAD - + # NO NEED TO RESTART PROTECT THIS. CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED) XCH XPIPBUF TS XOLDBUF - + CA DELVY XCH YPIPBUF TS YOLDBUF @@ -319,56 +319,56 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ CA DELVZ XCH ZPIPBUF TS ZOLDBUF - + NOSAVPIP CA FIVE TS CM/GYMDT - + CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO # IN JTAGTIME +5 CS. TC WAITLIST EBANK= AOG 2CADR SETJTAG - + CS THREE # 1.3SPOT FOR SETJTAG TC NEWPHASE OCT 1 - + CAF OCT37 TS L COM DXCH -PHASE5 - + CHEKAVEG CS FLAGWRD1 MASK BIT1 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG TC AVEGOUT - + CAF 2SECS TC WAITLIST EBANK= AOG 2CADR READACCS - + MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE TC FINDVAC EBANK= DVCNTR 2CADR SERVICER - + CS FOUR # RESTART SERVICER AND READACCS TC NEWPHASE OCT 5 - + CAF BIT9 EXTEND WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON - + TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK - + # Page 826 AVEGOUT EXTEND DCA AVOUTCAD DXCH AVGEXIT TCF MAKESERV - + EBANK= DVCNTR AVOUTCAD 2CADR AVGEND @@ -428,7 +428,7 @@ CHKCTR CCS RUPTREG1 # ********************* SERVICER *************************************** EBANK= DVCNTR - + SERVICER CAF TWO INHINT PIPCHECK TS RUPTREG1 @@ -438,48 +438,48 @@ PIPCHECK TS RUPTREG1 CCS DELVX TC +2 TC PIPLOOP - + AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE EXTEND BZMF PIPLOOP # COMPENSATION. - + TC ALARM OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER TC AVERAGEG - + PIPLOOP CCS RUPTREG1 TCF PIPCHECK - + TC PHASCHNG # RESTART REREADAC + SERVICER OCT 16035 OCT 20000 EBANK= DVCNTR 2CADR DVTOTUP - + TC BANKCALL # PIPA COMPENSATION CALL CADR 1/PIPA - + DVTOTUP TC INTPRET VLOAD ABVAL # GET ABS VALUE OF DELV DELV DMP EXIT KPIP1 # SCALE AT 2(+7) - + EXTEND DCA MPAC DAS DVTOTAL # ACCUMULATE DVTOTAL AVERAGEG TC PHASCHNG OCT 10035 - + TC INTPRET CALL # Page 829 CALCRVG EXIT - + TC PHASCHNG OCT 10035 - + CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME ADRES RN1 @@ -491,37 +491,37 @@ AVERAGEG TC PHASCHNG EXTEND DCA AVGEXIT DXCH Z # AVERAGEG EXIT - + AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION - + TC UPFLAG # SET DRIFTFLG ADRES DRIFTFLG # BIT 15 FLAG 2 TC 2PHSCHNG OCT 5 # GROUP 5 OFF OCT 05022 # GROUP 2 ON FOR AVETOMID OCT 20000 - + TC INTPRET CALL AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE. EXIT - + CAF ZERO # ZERO MARK COUNTERS. TS VHFCNT TS TRKMKCNT - + TC BANKCALL CADR PIPFREE - + CS BIT9 TS MRKBUF2 # INVALIDATE MARK BUFFER EXTEND WAND DSALMOUT - + TC DOWNFLAG ADRES CM/DSTBY - + TC DOWNFLAG ADRES V37FLAG @@ -530,23 +530,23 @@ AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT MASK FLAGWRD0 EXTEND BZF +4 - + TC 2PHSCHNG OCT 111 # 1.11SPOT OCT 132 # 2.13SPOT - + TC POSTJUMP CADR CANV37 - + SERVEXIT TC PHASCHNG OCT 00035 # A, 5.3 = REREADAC (ONLY) - + TCF ENDOFJOB - + DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION, # FOR 503-FULL CSM/LEM....DELV SC.AT # 5.85 CM/SEC. - + -MAXDELV DEC -6398 # 3200 PPS FOR 2 SEC CCS TAKES 1 JTAGTIME DEC 120 # = 1 SEC + T CDU, T CDU = .1 SEC @@ -555,7 +555,7 @@ JTAGTIME DEC 120 # = 1 SEC + T CDU, T CDU = .1 SEC MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC # SHOULD BE 2-4 SECS FOR NO START # 6-8 SECS FOR FAILURE - + # Page 831 # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE @@ -565,19 +565,19 @@ NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1 TC GENTRAN # INTO RN,VN,PIPTIME ADRES RN1 # FROM HERE ADRES RN # TO HERE - + RELINT TC INTPRET VLOAD CALL # LOAD RN FOR CALCGRAV RN CALCGRAV # INITIALIZE UNITR RMAG GDT1 - + STOVL GDT/2 GOBL1/2 STORE GOBL/2 EXIT TCF ENDOFJOB - + # Page 832 # ***** PIPA READER ***** # MOD NO. 00 BY D. LICKLY DEC. 9 1966 @@ -625,47 +625,47 @@ PIPASR EXTEND CA ZERO TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER TS DELVY - + TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN # THE TM VALUES ARE BEFORE COMPENSATION. - + TS PIPAGE # SHOW PIPA READING IN PROGRESS - + REPIP1 EXTEND DCS PIPAX # X AND Y PIPS READ DXCH TEMX DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. TS DELVX LXCH DELVY - + REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP XCH TEMZ XCH PIPAZ DODELVZ TS DELVZ TC Q - + EBANK= AOG - + REREADAC CCS PHASE5 # LAST PASS CHECK TCF +2 TCF TASKOVER - + CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD, # WHICH SET(S) UP 1/PIPADT (THUSLY) # FOR NON-COASTING COMPENSATION....BE # SURE 1/PIPADT IS AOK. (PRIO31 IS # 2.0SEC SC.AT B+8(CS) - + CCS PIPAGE TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING - + CAF DONEADR # SET UP RETURN FROM PIPASR TS Q - + CCS DELVZ TC Q # Z DONE, GO DO CDUS TCF +3 # Z NOT DONE, CHECK Y. @@ -678,29 +678,29 @@ REREADAC CCS PHASE5 # LAST PASS CHECK TCF CHKTEMX # Y NOT DONE, CHECK X. TCF +1 LXCH PIPAZ # Y DONE, ZERO Z PIP. - + CCS TEMZ CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. TCF DODELVZ TCF -2 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. TC Q - + CHKTEMX CCS TEMX # HAS THIS CHANGED CS TEMX # YES TCF +3 # YES TCF -2 # YES TCF REPIP1 # NO TS DELVX - + CS TEMY TS DELVY - + CS ZERO # ZERO X AND Y PIPS DXCH PIPAX # L STILL ZERO FROM ABOVE - + TCF REPIP3 - + DONEADR GENADR PIPSDONE # Page 835 @@ -777,13 +777,13 @@ CALCRVG VLOAD VXSC 31D STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M CALCGRAV - + VAD VAD VAD VN STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS. 31D - + KPIP 2DEC .1024 # SCALES DELV TO 2(+4) KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC. diff --git a/Comanche055/SERVICE_ROUTINES.agc b/Comanche055/SERVICE_ROUTINES.agc index b6ca0d0..7d2a6a1 100644 --- a/Comanche055/SERVICE_ROUTINES.agc +++ b/Comanche055/SERVICE_ROUTINES.agc @@ -8,16 +8,16 @@ # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same -# name, and page images. Corrected various -# typos in the transcription of program -# comments, and these should be back-ported +# name, and page images. Corrected various +# typos in the transcription of program +# comments, and these should be back-ported # to Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -38,40 +38,40 @@ COUNT 03/FLAG UPENT2 TS L # WHICH FLAGWORD IS IT - MASK OCT7 + MASK OCT7 XCH L # SAVE IN L FOR INDEXING - + MASK OCT77770 # OBTAIN THE BIT INFORMATION INHINT # PREVENT INTERRUPTS TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARILY - + NDX L CS FLAGWRD0 MASK ITEMP1 NDX L ADS FLAGWRD0 RELINT # RELEASE INTERRUPT INHIBIT - + INCR Q # OBTAIN THE CORRECT RETURN ADDRESS TC Q # RETURN - + DOWNENT2 TS L # WHICH FLAGWORD IS IT MASK OCT7 XCH L # SAVE IN L FOR INDEXING - + MASK OCT77770 # OBTAIN THE BIT INFORMATION COM # START TO PROCESS THE INFORMATION - + INHINT # PREVENT INTERRUPTS NDX L MASK FLAGWRD0 NDX L TS FLAGWRD0 RELINT # RELEASE INTERRUPT INHIBIT - + INCR Q # OBTAIN THE CORRECT RETURN ADDRESS TC Q - + OCT7 EQUALS SEVEN BANK 10 @@ -256,16 +256,16 @@ TRFAILOF INHINT CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO ADS OPTMODES # TRACKER FAIL. - + REQ RELINT TC Q - + TRFAILON INHINT CS DSPTAB +11D # TURN ON MASK OCT40200 ADS DSPTAB +11D TCF REQ - + diff --git a/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc b/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc index 28882ab..fee3fdf 100644 --- a/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc +++ b/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -33,7 +33,7 @@ # SINGLE PRECISION SINE AND COSINE COUNT 02/INTER - + SPCOS AD HALF # ARGUMENTS SCALED AT PI SPSIN TS TEMK TCF SPT @@ -66,7 +66,7 @@ POLLEY EXTEND ARG90 INDEX A CS LIMITS TC Q # RESULT SCALED AT 1. - + # SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS. diff --git a/Comanche055/STABLE_ORBIT.agc b/Comanche055/STABLE_ORBIT.agc index b5c972c..3213d5a 100644 --- a/Comanche055/STABLE_ORBIT.agc +++ b/Comanche055/STABLE_ORBIT.agc @@ -7,9 +7,9 @@ # Contact: Hartmuth Gutsche . # Website: www.ibiblio.org/apollo. # Pages: 525-532 -# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file -# of the same name, using Comanche055 page -# images 0525.jpg - 0532.jpg. +# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file +# of the same name, using Comanche055 page +# images 0525.jpg - 0532.jpg. # # This source code has been transcribed or otherwise adapted from digitized # images of a hardcopy from the MIT Museum. The digitization was performed @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -106,10 +106,10 @@ BANK 04 SETLOC STBLEORB BANK - + EBANK= SUBEXIT COUNT* $$/P3879 - + P38 TC AVFLAGA # THIS VEHICLE ACTIVE TC +2 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE @@ -207,7 +207,7 @@ JUNCTN2 DLOAD DSU TINT DELTTIME STORE TARGTIME # TT = TI - DELTA T - + # .... MAINRTNE .... # # SUBROUTINES USED @@ -275,7 +275,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 @@ -344,7 +344,7 @@ P39/P79B RTB DAD DLOAD GOTO TARGTIME MAINRTNE # CALCULATE DELTA V AND DELTA V (LV) - + # .... PREC/TT .... # # SUBROUTINES USED @@ -378,7 +378,7 @@ PREC/TT STQ DLOAD DLOAD GOTO T RTRN - + # .... INTRPVP .... # # SUBROUTINES USED @@ -399,7 +399,7 @@ OTHERV CALL LEMPREC GOTO RTRN - + # .... VNDSPLY .... # # SUBROUTINES USED diff --git a/Comanche055/STAR_TABLES.agc b/Comanche055/STAR_TABLES.agc index 84012cc..d5abc2c 100644 --- a/Comanche055/STAR_TABLES.agc +++ b/Comanche055/STAR_TABLES.agc @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -32,162 +32,162 @@ BANK 32 SETLOC STARTAB BANK - + COUNT 14/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 -# Page 1390 +# Page 1390 2DEC -.7702732847 B-1 # STAR 30 Y 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 -# Page 1391 +# Page 1391 2DEC -.1908999176 B-1 # STAR 22 Z - + 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 - -# Page 1392 + +# Page 1392 2DEC -.1820751783 B-1 # STAR 13 X 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 -# Page 1393 +# Page 1393 2DEC +.0078062795 B-1 # STAR 5 Y 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 - + diff --git a/Comanche055/SXTMARK.agc b/Comanche055/SXTMARK.agc index 803c053..ee15d8d 100644 --- a/Comanche055/SXTMARK.agc +++ b/Comanche055/SXTMARK.agc @@ -10,11 +10,11 @@ # Website: http://www.ibiblio.org/apollo. # Mod history: 16/05/09 FB Transcription Batch 2 Assignment. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -32,7 +32,7 @@ # PROGRAM NAME: SXTMARK DATE: 5 APRIL 1967 # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK # MOD BY: R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116 -# +# # FUNCTIONAL DESCRIPTION: # # SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF @@ -74,13 +74,13 @@ BANK 13 SETLOC SXTMARKE BANK - + EBANK= MRKBUF1 COUNT 07/SXTMK - + SXTMARK INHINT TS RUPTREG1 # NUMBER OF MARKS WANTED - + CAF SIX # BIT2 = MARKING SYSTEM IN USE MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS CCS A @@ -89,7 +89,7 @@ SXTMARK INHINT CAF BIT2 # NOT SET ADS EXTVBACT # SET IT, RESET IN ENDMARK TC MARKOK # YES, FIND VAC AREA - + MKABORT TC BAILOUT OCT 01211 MARKOK CCS VAC1USE # FIND VAC AREA @@ -104,16 +104,16 @@ MARKOK CCS VAC1USE # FIND VAC AREA TC MKVACFND TC BAILOUT OCT 01207 - + MKVACFND AD TWO # ADDRESS OF VAC AREA TS MARKSTAT INDEX A TS QPRET # STORE NEXT AVAILABLE MARK SLOT - + CAF ZERO # STORE VAC AREA OCCUPIED INDEX MARKSTAT TS 0 -1 - + TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK MM 53 TCF +2 @@ -127,15 +127,15 @@ MKVACFND AD TWO # ADDRESS OF VAC AREA MP RUPTREG1 XCH L ADS MARKSTAT - + CAF PRIO32 # ENTER MARK JOB TC NOVAC EBANK= MARKSTAT 2CADR MKVB51 - + RELINT TCF SWRETURN # SAME AS MODEEXIT - + # Page 224 # PROGRAM NAME: MKRELEAS DATE: 5 APRIL 1967 # PROGRAM MODIFIED BY 248/278 PROGRAMMERS LOG SECTION SXTMARK @@ -181,14 +181,14 @@ MKRLEES INHINT CS BIT9 # COARSE OPTICS RETURN FLAG. MASK OPTMODES TS OPTMODES - + CA NEGONE TS OPTIND # KILL COARSE OPTICS - + CS BIT2 # DISABLE OPTICS ERROR COUNTER EXTEND WAND CHAN12 - + RELINT TC SWRETURN # Page 225 @@ -244,23 +244,23 @@ MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW EXTEND DCA MKT2T1 DXCH SAMPTIME # RUPT TIME FOR NOUN 65. - + XCH Q TS QRUPT - + CAF BIT6 # SEE IF MARK OR MKREJECT # Page 226 EXTEND RAND NAVKEYIN CCS A TC MARKIT # IT'S A MARK - + CAF BIT7 # NOT A MARK, SEE IF MKREJECT EXTEND RAND NAVKEYIN CCS A TC MKREJECT # IT'S A MARK REJECT - + KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE EXTEND RAND NAVKEYIN @@ -268,11 +268,11 @@ KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE BZF +3 # IF NO INBITS TC POSTJUMP CADR KEYCOM # IT'S A KEY CODE, NOT A MARK. - + +3 TC ALARM # ALARM IF NO INBITS OCT 113 TC RESUME - + # Page 227 # PROGRAM NAME: MARKCONT DATE: 19 SEPT 1967 # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK @@ -340,17 +340,17 @@ MARKIT1 CAF SIX # SPECIAL FOR R21 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2 ADRES MRKBUF1 ADRES MRKBUF2 - + CAF SIX # TRANSFER CURRENT MARK DATE TO MARKBUF1 TC GENTRAN ADRES MKT2T1 ADRES MRKBUF1 - + TCF TASKOVER - + MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR TC MARK2 # COLLECT MARKS - + CAF TWO # IS MARKING SYSTEM IN USE (BIT2) MASK EXTVBACT EXTEND @@ -363,7 +363,7 @@ MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR TC NOVAC # SPECIAL DISPLAY JOB EBANK= MRKBUF1 2CADR MARKDISP - + CAF SIX TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN ADRES MKT2T1 @@ -379,7 +379,7 @@ MARKET3 TC ALARM 114ALM TC ALARM # MARK NOT WANTED OCT 114 TCF TASKOVER - + # Page 229 # STORE MARK DATA IN MKVAC AND INCREMENT POINTER @@ -390,7 +390,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED COM MASK BIT10 # SET BIT10 TO ENABLE REJECT ADS MARKSTAT - + MASK LOW9 TS ITEMP1 INDEX A @@ -399,7 +399,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED AD SEVEN # INCREMENT POINTER INDEX ITEMP1 TS QPRET # STORE ADVANCED POINTER - + VACSTOR EXTEND DCA MKT2T1 INDEX ITEMP2 @@ -419,7 +419,7 @@ VACSTOR EXTEND CA MKCDUX INDEX ITEMP2 TS 6 - + CAF PRIO34 # IF ALL MARKS MADE FLASH VB50 MASK MARKSTAT EXTEND @@ -429,9 +429,9 @@ VACSTOR EXTEND TC NOVAC EBANK= MARKSTAT 2CADR MKVB50 - + TCF TASKOVER - + # Page 230 # PROGRAM NAME: MKREJECT DATE: 5 APRIL 1967 # PROGRAM MODIFIED BY 258/276 PROGRAMMERS LOG SECTION SXTMARK @@ -486,7 +486,7 @@ MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED TC ALARM # MARKS NOT BEING ACCEPTED OCT 112 TC RESUME - + REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO XCH MARKSTAT # SHOW MARK REJECT @@ -494,18 +494,18 @@ REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST MASK BIT10 CCS A TC REJECT3 - + TC ALARM # DON'T ACCEPT TWO REJECTS TOGETHER OCT 110 TC RESUME - + REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK MASK MARKSTAT TS ITEMP1 CS SEVEN INDEX ITEMP1 ADS QPRET # NEW POINTER - + CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO XCH MARKSTAT # INDICATE MORE MARKS WANTED @@ -516,9 +516,9 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK TC NOVAC EBANK= MARKSTAT 2CADR MKVB51 - + TC RESUME - + # Page 232 # PROGRAM DESCRIPTION MKVB51 AND MKVB50 # @@ -553,7 +553,7 @@ MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB TCF TERMSXT # VB34-TERMINATE TCF ENTANSWR # V33-PROCEED-MARKING DONE TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY - + TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY. TC CHECKMM @@ -562,7 +562,7 @@ TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY. TC TERMP03 TC POSTJUMP CADR TERM52 - + TERMP03 TC UPFLAG ADRES TRM03FLG ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF @@ -584,21 +584,21 @@ JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE TC WAITLIST EBANK= MARKSTAT 2CADR ENDMARKS - + TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB - + ENDMARKS CAF ONE TC IBNKCALL CADR GOODEND MKVB5X CAF PRIO34 MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED CCS A # AND VB50 IF ALL IN - TCF MKVB51 + TCF MKVB51 MKVB50 CAF R1D1 # OCT 16 TS DSPTEM1 CAF V50N25 TCF MKVB51 +3 - + V50N25 VN 5025 VB51 VN 5100 OCT37 = LOW5 @@ -634,14 +634,14 @@ MARKIT CCS CDUCHKWD TC WAITLIST EBANK= MRKBUF1 2CADR MARKDIF - + TCF RESUME - + SETLOC SXTMARK1 BANK - + COUNT 20/SXTMK - + # PROGRAM NAME: MARKDIF # # CALLING SEQUENCE @@ -675,10 +675,10 @@ MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK TC DIFCHK CA MKCDUZ TC DIFCHK - + MKACPT TC IBNKCALL CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT - + DIFCHK INCR MKNDX # INCREMENT INDEX EXTEND @@ -693,10 +693,10 @@ DIFCHK INCR MKNDX # INCREMENT INDEX AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS EXTEND BZMF -3 # NOT GREATER - + TC ALARM # COUPLED WITH PROGRAM ALARM OCT 00121 - - TCF TASKOVER # DO NOT ACCEPT - + + TCF TASKOVER # DO NOT ACCEPT + diff --git a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc index fbff01d..91486e4 100644 --- a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc +++ b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc @@ -7,13 +7,13 @@ # Reference: pp. 420-422 # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. -# Mod history: 05/07/09 OH Transcription Batch 1 Assignment +# Mod history: 05/07/09 OH Transcription Batch 1 Assignment # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -30,13 +30,13 @@ # Page 420 EBANK= XSM - + BANK 33 SETLOC E/PROG1 BANK - + COUNT* $$/P07 - + # SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS. # # E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE. @@ -74,7 +74,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN. INCR EBUF2 E/SWITCH DXCH EBUF2 DTCB - + # Page 421 # E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE. # @@ -84,7 +84,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. @@ -97,7 +97,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 422 # E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS. # @@ -116,16 +116,16 @@ E/CALL LXCH LOC # ADRES -1 OF CADR. BANK 33 SETLOC E/PROG BANK - + COUNT* $$/P07 - + E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A. CS BIT11 NDX LOCCTR ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES. TC RUPTREG3 # RETURN - - + + # THESE PROGRAMS ARE PROVIDED TO ALLOW OVERLAY OF BANKS 30 THRU 33 OF THE 205 VERSIONS OF SYSTEM TESTS AND # PRELAUNCH ALIGN. THE INTENT IS TO ALLOW THE STG AND HYBRID LABS TO RUN ALL THE TESTS WITH COLOSSUS. @@ -133,15 +133,15 @@ E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A. BANK 33 SETLOC TESTLEAD BANK - + COUNT 33/COMST - + EBANK= QPLACE - + COMPVER TC GCOMPVER # MUST BE 33,2000. GTSCPSS1 TC GTSCPSS # MUST BE AT 33,2001 REDO TC NEWMODEX # DISPLAY MM 07. MM 07 # FALL INTO IMUTEST - + diff --git a/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc b/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc index 1644bda..579ca4e 100644 --- a/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc +++ b/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc @@ -6,7 +6,7 @@ # Assembler: yaYUL # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. -# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the +# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. # 2009-05-20 RSB Corrected R32 -> R31. # @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -49,22 +49,22 @@ P30SUBS EQUALS STOPRAT EQUALS P23S EQUALS BNKSUM 02 - + BLOCK 03 FFTAG5 EQUALS FFTAG6 EQUALS DAPS9 EQUALS FFTAG13 EQUALS BNKSUM 03 - + BANK 00 DLAYJOB EQUALS BNKSUM 00 - + BANK 01 RESTART EQUALS BNKSUM 01 - + BANK 4 VERB37 EQUALS CONICS1 EQUALS @@ -80,14 +80,14 @@ E/PROG EQUALS MIDDGIM EQUALS BNKSUM 04 - + BANK 5 FRANDRES EQUALS DOWNTELM EQUALS DAPMASS EQUALS CDHTAG EQUALS BNKSUM 05 - + # MODULE 2 CONTAINS BANKS 6 THROUGH 13 BANK 6 @@ -96,7 +96,7 @@ T4RUP EQUALS IMUCAL2 EQUALS CSIPROG EQUALS BNKSUM 06 - + BANK 7 SXTMARKE EQUALS R02 EQUALS @@ -105,7 +105,7 @@ XANG EQUALS KEYRUPT EQUALS CSIPROG6 EQUALS BNKSUM 07 - + BANK 10 DISPLAYS EQUALS PHASETAB EQUALS @@ -115,7 +115,7 @@ P60S4 EQUALS OPTDRV EQUALS CSIPROG8 EQUALS BNKSUM 10 - + BANK 11 ORBITAL EQUALS ORBITAL1 EQUALS # CONSTANTS @@ -127,14 +127,14 @@ S52/2 EQUALS CSIPROG5 EQUALS INTINIT1 EQUALS BNKSUM 11 - + BANK 12 CONICS EQUALS CSIPROG2 EQUALS CSI/CDH2 EQUALS MODCHG2 EQUALS BNKSUM 12 - + BANK 13 P76LOC EQUALS LATLONG EQUALS @@ -145,7 +145,7 @@ CDHTAGS EQUALS E/PROG1 EQUALS MODCHG3 EQUALS BNKSUM 13 - + # MODULE 3 CONTAINS BANKS 14 THROUGH 21 BANK 14 @@ -154,14 +154,14 @@ RT53 EQUALS P50S1 EQUALS MEASINC2 EQUALS CSI/CDH3 EQUALS - BNKSUM 14 + BNKSUM 14 BANK 15 P50S EQUALS ETRYDAP EQUALS S52/3 EQUALS BNKSUM 15 - + BANK 16 P40S1 EQUALS @@ -172,14 +172,14 @@ P50S2 EQUALS P23S1 EQUALS RTE2 EQUALS BNKSUM 16 - + BANK 17 DAPS4 EQUALS DAPS5 EQUALS DAPS7 EQUALS P50S3 EQUALS BNKSUM 17 - + BANK 20 DAPS6 EQUALS DAPS1 EQUALS @@ -188,7 +188,7 @@ MANUSTUF EQUALS R36CM EQUALS VAC5LOC EQUALS BNKSUM 20 - + BANK 21 DAPS3 EQUALS MYSUBS EQUALS @@ -222,18 +222,18 @@ R30LOC EQUALS P11FOUR EQUALS CSIPROG4 EQUALS BNKSUM 23 - + BANK 24 LOADDAP EQUALS P40S EQUALS CSIPROG7 EQUALS BNKSUM 24 - + BANK 25 REENTRY EQUALS CDHTAG1 EQUALS BNKSUM 25 - + BANK 26 INTPRET1 EQUALS REENTRY1 EQUALS @@ -246,7 +246,7 @@ EPHEM EQUALS P05P06 EQUALS 26P50S EQUALS BNKSUM 26 - + BANK 27 TOF-FF EQUALS TOF-FF1 EQUALS @@ -275,7 +275,7 @@ P20S6 EQUALS P40S3 EQUALS R35A EQUALS BNKSUM 30 - + BANK 31 R35 EQUALS RT23 EQUALS @@ -287,14 +287,14 @@ R31 EQUALS P22S EQUALS RTE3 EQUALS BNKSUM 31 - + BANK 32 MSGSCAN1 EQUALS RTE EQUALS DELRSPL1 EQUALS IMUCAL3 EQUALS BNKSUM 32 - + BANK 33 TESTLEAD EQUALS @@ -302,14 +302,14 @@ TESTLEAD EQUALS IMUCAL EQUALS BNKSUM 33 - + BANK 34 P11ONE EQUALS P20S3 EQUALS P20S4 EQUALS RTECON EQUALS BNKSUM 34 - + BANK 35 RTECON1 EQUALS CSI/CDH EQUALS @@ -319,7 +319,7 @@ P17S1 EQUALS MEASINC3 EQUALS INTINIT2 EQUALS BNKSUM 35 - + # MODULE 6 CONTAINS BANKS 36 THROUGH 43 BANK 36 @@ -329,7 +329,7 @@ P17S EQUALS RTE1 EQUALS S3435LOC EQUALS BNKSUM 36 - + BANK 37 P20S EQUALS BODYATT EQUALS @@ -338,7 +338,7 @@ SERVICES EQUALS P11TWO EQUALS CDHTAG3 EQUALS BNKSUM 37 - + BANK 40 PINSUPER EQUALS @@ -348,29 +348,29 @@ SELFSUPR EQUALS PINBALL1 EQUALS R36CM1 EQUALS BNKSUM 40 - + BANK 41 PINBALL2 EQUALS R36LM EQUALS BNKSUM 41 - + BANK 42 -SBAND EQUALS +SBAND EQUALS PINBALL3 EQUALS EXTVBS EQUALS R36LM1 EQUALS BNKSUM 42 - + BANK 43 SELFCHEC EQUALS EXTVERBS EQUALS BNKSUM 43 - + HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY HIDPHALF EQUALS UNITX LODPHALF EQUALS XUNIT -HIDP1/4 EQUALS DP1/4TH +HIDP1/4 EQUALS DP1/4TH LODP1/4 EQUALS D1/4 # 2DEC .25 HIUNITX EQUALS UNITX HIUNITY EQUALS UNITY @@ -431,6 +431,6 @@ EBRN1 ECADR RN1 #****************************************************************************************************** # Page 36 - + # *** END OF MAIN PROGRAM *** diff --git a/Comanche055/TIME_OF_FREE_FALL.agc b/Comanche055/TIME_OF_FREE_FALL.agc index 435a83f..3192fcd 100644 --- a/Comanche055/TIME_OF_FREE_FALL.agc +++ b/Comanche055/TIME_OF_FREE_FALL.agc @@ -23,7 +23,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A diff --git a/Comanche055/TPI_SEARCH.agc b/Comanche055/TPI_SEARCH.agc index 36a7058..7179558 100644 --- a/Comanche055/TPI_SEARCH.agc +++ b/Comanche055/TPI_SEARCH.agc @@ -17,13 +17,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -40,7 +40,7 @@ # FOR THE TPI AND TPF MANEUVERS. # # THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE -# RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E., THE MAGNITUDE DIFFERENCE OF THE +# RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E., THE MAGNITUDE DIFFERENCE OF THE # POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE. # # THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA @@ -64,11 +64,11 @@ BANK 36 SETLOC P17S1 BANK - + COUNT 36/TPI - + EBANK= RACT3 - + # **** TEMPORARY **** HPE 2DEC 157420.0 B-29 # EARTH'S MIN. PERICENTER ALTITUDE 85 N.M. @@ -134,7 +134,7 @@ S17.1 STQ DLOAD SL1 ACOS PDVL VXV DOT -# Page 553 +# Page 553 RACT3 E2 PDDL SIGN @@ -185,7 +185,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS TIMETHET DLOAD # SAVE START TIME AND GET END TIME T -# Page 554 +# Page 554 STORE TF STODL TFO IT @@ -197,7 +197,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS STORE CSTH LXA,1 CALL XRS - TIMETHET + TIMETHET # INITIALIZE LOOP DLOAD CLEAR T @@ -287,7 +287,7 @@ JUNCT3 VLOAD XRS STOVL X1 VIPRIME -# Page 556 +# Page 556 VSR* 0,2 STOVL VVEC @@ -338,7 +338,7 @@ INTERP SET DSU # HP-HPO X2 XSU,2 DDV X1 -# Page 557 +# Page 557 DMP SR* DELTEE 0 -1,2 @@ -405,7 +405,7 @@ USEKAY SLOAD BON DECTWO KFLAG NEXUS - DSU + DSU P21ONENN NEXUS STODL NN1 HP @@ -415,7 +415,7 @@ NEXUS STODL NN1 SETLOC XANG BANK COUNT 07/XANG - + # CENTRAL ANGLE SUBROUTINE # # THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE @@ -472,7 +472,7 @@ TRANSANG STQ SETPD SETLOC P17S1 BANK COUNT 35/P17 - + # TPI SEARCH DISPLAY ROUTNE P17 TC AVFLAGA # AVFLAG = CSM, SET TRACK + UPDATE FLAGS @@ -531,7 +531,7 @@ P17.3 CAF V06N58 # DISPLAY DELTA VTPI, DELTA VTPF, AND H TC BLANKET TCF ENDOFJOB EBANK= RTRN - + VNCOMP17 EXTEND QXCH QSAVED TS VERBNOUN @@ -543,7 +543,7 @@ VNCOMP17 EXTEND CS MPAC # RECYCLE WITH NEW TPI TIME AD BIT6 # OR PROCEED WITH NEW SEARCH OPTION EXTEND -# Page 561 +# Page 561 BZF P17.1 TC VNCOMP17 +3 ALARUMS SET EXIT diff --git a/Comanche055/TVCDAPS.agc b/Comanche055/TVCDAPS.agc index ed346ff..24000a9 100644 --- a/Comanche055/TVCDAPS.agc +++ b/Comanche055/TVCDAPS.agc @@ -11,7 +11,7 @@ # same name, using Comanche055 page images. # 2009-05-20 RSB Corrections: Eliminated an extraneous EXTEND, # added a missing instruction to PFORWARD. -# 2000-05-21 RSB Wrong opcode was used with DELBRTMP and +# 2000-05-21 RSB Wrong opcode was used with DELBRTMP and # DELBRTMP +1 operands in 4 places. Corrected # an MP operation in 2CASFLTR. # @@ -21,13 +21,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -122,33 +122,33 @@ BANK EBANK= BZERO - + COUNT* $$/DAPS - + # Page 963 # PITCH TVCDAP STARTS HERE....(INCOPORATES CSM/LEM DAP FILTER, MODOR DESIGN) PITCHDAP LXCH BANKRUPT # T5 ENTRY, NORMAL OR VIA DAPINIT EXTEND QXCH QRUPT - + CAF YAWT5 # SET UP T5 CALL FOR YAW AUTOPILOT (LOW- TS T5LOC # ORDER PART OF 2CADR ALREADY THERE) CAE T5TVCDT TS TIME5 - + PSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST TC HACK # TEST-START OR TEST-IN-PROGRESS TCF +2 # NO-TEST TC HACK # TEST-IN-PROGRESS - + PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW) XCH PCDUYPST EXTEND MSU PCDUYPST TCR RLIMTEST # RATE TEST TS MCDUYDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC) - + CAE CDUZ # COMPUTE CDUZDOT (USED BY PITCH AND YAW) XCH PCDUZPST EXTEND @@ -156,7 +156,7 @@ PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW) TCR RLIMTEST # RATE TEST TS MCDUZDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC) TCF PINTEGRL - + RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER EXTEND # THAN 2.33 DEG IN ONE SAMPLE PERIOD MP 1/RTLIM @@ -166,16 +166,16 @@ RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER TS TTMP1 CAE TTMP1 TC Q - + PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE DCA PERRB # ERROR, SC.AT B-1 REVS DXCH ERRBTMP - + EXTEND DCA OMEGAYC DAS ERRBTMP - -# Page 964 + +# Page 964 CS COSCDUZ # PREPARE BODY-AXIS PITCH RATE, OMEGAYB EXTEND MP COSCDUX @@ -184,17 +184,17 @@ PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE MP MCDUYDOT DDOUBL DXCH OMEGAYB - + CS MCDUZDOT EXTEND MP SINCDUX DDOUBL DAS OMEGAYB # (COMPLETED OMEGAYB, SC.AT 1/2TVCDT REVS) - + EXTEND # PICK UP -OMEGAYB (SIGN CHNG, INTEGRATE) DCS OMEGAYB DAS ERRBTMP - + PERORLIM TCR ERRORLIM # PITCH BODY-AXIS-ERROR INPUT LIMITER PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS @@ -206,25 +206,25 @@ PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS EXTEND DCA PTMP5 DXCH TMP5 - + TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT # (INCLUDES VARIABLE GAIN PACKAGE) - + POFFSET EXTEND - DCA PDELOFF + DCA PDELOFF DAS CMDTMP # NO SCALED AT B+0 ASCREV - + PACLIM TCR ACTLIM # ROUND OFF & LIMIT PITCH ACTUATOR COMMAND POUT CS PCMD # INCREMENTAL PITCH COMMAND AD CMDTMP ADS TVCPITCH # UPDATE THE ERROR COUNTER (NO RESTART- # PROTECT. SINCE ERROR CNTR ZEROED) - + CAF BIT11 # BIT FOR TVCPITCH COUNT RELEASE EXTEND WOR CHAN14 - + PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH # Page 965 DCA PTMP2 @@ -235,9 +235,9 @@ PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH EXTEND DCA PTMP6 DXCH TMP6 - + TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION - + DELBARP CAE DELPBAR +1 EXTEND MP E(-AT) @@ -250,7 +250,7 @@ DELBARP CAE DELPBAR +1 EXTEND MP 1-E(-AT) DAS DELBRTMP - + PCOPYCYC TCR PCOPY # PITCH COPYCYCLE PDAPEND TCF RESUME # PITCH DAP COMPLETED @@ -261,9 +261,9 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1) # NOTE POSSIBLE RE-ENTRY FROM RESTART # PACKAGE, SHOULD A RESTART OCCUR # DURING PITCH COPYCYCLE. - - EXTEND - DCA TMP1 + + EXTEND + DCA TMP1 DXCH PTMP1 EXTEND DCA TMP2 @@ -271,7 +271,7 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1) EXTEND DCA TMP3 DXCH PTMP3 - EXTEND + EXTEND DCA TMP4 DXCH PTMP4 EXTEND @@ -280,21 +280,21 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1) EXTEND DCA TMP6 DXCH PTMP6 - + PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR DCA ERRBTMP TS AK1 # FOR PITCH NEEDLES, SC.AT B-1 REVS DXCH PERRB - + CAE CMDTMP # PITCH ACTUATOR COMMAND TS PCMD - + EXTEND # PITCH OFFSET-TRACKER-FILTER DCA DELBRTMP DXCH DELPBAR - + INCR TVCPHASE # PITCH COPYCYCLE COMPLETED (2) - + TC Q # Page 967 @@ -303,27 +303,27 @@ PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR YAWDAP LXCH BANKRUPT # T5 ENTRY, NORMAL EXTEND QXCH QRUPT - + CAF PITCHT5 # SET UP T5 CALL FOR PITCH AUTOPILOT (LOW- TS T5LOC # ORDER PART OF 2CADR ALREADY THERE) CAE T5TVCDT TS TIME5 - + YSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST TC HACK # TEST-START OR TEST-IN-PROGRESS TCF +2 # NO-TEST TC HACK # TEST-IN-PROGRESS - + # USE BODY RATES FROM PITCHDAP (PCDUDOTS) - + YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE DCA YERRB # ERROR, SC.AT B-1 REVS DXCH ERRBTMP - + EXTEND DCA OMEGAZC DAS ERRBTMP - + CAE COSCDUZ # PREPARE BODY-AXIS YAW-RATE, OMEGAZB EXTEND MP SINCDUX @@ -332,22 +332,22 @@ YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE MP MCDUYDOT DDOUBL DXCH OMEGAZB - + CS MCDUZDOT EXTEND MP COSCDUX DDOUBL DAS OMEGAZB # (COMPLETED OMEGAZB, SC.AT 1/2TVCDT REVS) - + EXTEND # PICK UP -OMEGAZB (SIGN CHNG, INTEGRATE) DCS OMEGAZB DAS ERRBTMP - + YERORLIM TCR ERRORLIM # YAW BODY-AXIS-ERROR INPUT LIMITER YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS DCA YTMP1 # FOR THE YAW CHANNEL -# Page 968 +# Page 968 DXCH TMP1 EXTEND DCA YTMP3 @@ -355,10 +355,10 @@ YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS EXTEND DCA YTMP5 DXCH TMP5 - + TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT # (INCLUDES VARIABLE GAIN PACKAGE) - + YOFFSET EXTEND DCA YDELOFF DAS CMDTMP # NOW SCALED AT B+0 ASCREV @@ -373,7 +373,7 @@ YOUT CS YCMD # INCREMENTAL YAW COMMAND CAF BIT12 # BIT FOR TVCYAW COUNT RELEASE EXTEND WOR CHAN14 - + YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW DCA YTMP2 DXCH TMP2 @@ -383,9 +383,9 @@ YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW EXTEND DCA YTMP6 DXCH TMP6 - + TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION - + DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER EXTEND MP E(-AT) @@ -398,7 +398,7 @@ DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER EXTEND MP 1-E(-AT) DAS DELBRTMP - + # Page 969 YCOPYCYC TCR YCOPY # YAW COPYCYCLE @@ -411,17 +411,17 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3) # NOTE POSSIBLE RE-ENTRY FROM RESTART # PACKAGE, SHOULD A RESTART OCCUR # DURING YAW COPYCYCLE. - - EXTEND - DCA TMP1 + + EXTEND + DCA TMP1 DXCH YTMP1 EXTEND DCA TMP2 DXCH YTMP2 EXTEND DCA TMP3 - DXCH YTMP3 - EXTEND + DXCH YTMP3 + EXTEND DCA TMP4 DXCH YTMP4 EXTEND @@ -430,24 +430,24 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3) EXTEND DCA TMP6 DXCH YTMP6 - + YMISC EXTEND # MISC....YAW-RATE-ERROR INTEGRATOR DCA ERRBTMP TS AK2 # FOR YAW NEEDLES, SC.AT B-1 REVS DXCH YERRB - - CAE CMDTMP + + CAE CMDTMP TS YCMD - - EXTEND + + EXTEND DCA DELBRTMP DXCH DELYBAR - + CAF ZERO # YAW COPYCYCLE COMPLETED TS TVCPHASE # RESET TVCPHASE - + TC Q - + # Page 971 # SUBROUTINES COMMON TO BOTH PITCH AND YAW DAPS.... @@ -462,14 +462,14 @@ DAPINIT LXCH BANKRUPT # T5 RUPT ENTRY (CALLED BY TVCINT4) TS TIME5 CAF PITCHT5 # (BBCON ALREADY THERE) TS T5LOC - + CAE CDUY # READ AND STORE CDUS FOR DIFFERENTIATOR TS PCDUYPST # PAST-VALUES CAE CDUZ TS PCDUZPST - + TCF NOQRSM - + # BODY-AXIS-ERROR INPUT LIMITER PACKAGE.... ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT @@ -482,9 +482,9 @@ ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT TCF +2 CS ERRLIM TS ERRBTMP # LIMIT WRITES OVER UPPER WORD ONLY - + TC Q - + # ACTUATOR-COMMAND LIMITER PACKAGE.... ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT @@ -492,7 +492,7 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT TS L CAF ZERO AD CMDTMP - + EXTEND # CHECK FOR ACTUATOR COMMAND LIMIT MP 1/ACTSAT EXTEND @@ -503,9 +503,9 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT TCF +2 CS ACTSAT TS CMDTMP # LIMITS WRITE OVER CMDTMP - + TC Q - + # FILTER COMPUTATIONS FOR PRESENT OUTPUT................ FWDFLTR CAF ZERO @@ -513,7 +513,7 @@ FWDFLTR CAF ZERO TS DAP2 TS DAP3 TS CMDTMP - + TS DELBRTMP 1DAPCAS CAE ERRBTMP +1 # FIRST DAP CASCADE @@ -547,7 +547,7 @@ FWDFLTR CAF ZERO DXCH DAP3 TCF OPTVARK -# Page 973 +# Page 973 3DAPCAS CAE DAP2 +1 # THIRD DAP CASCADE EXTEND MP N10 +10D # N30 @@ -567,14 +567,14 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE EXTEND MP VARK DAS CMDTMP - + DXCH CMDTMP # FIX UP SCALING -- SCALED B+3 ASCREVS DDOUBL DDOUBL DXCH CMDTMP # -- SCALED B+1 ASCREVS # NOTE -- THERE IS AN INHERENT GAIN OF # (B+1 ASCREVS) ON THE OUTPUT DACS. - + TC Q # FILTER PRECOMPUTATIONS FOR NEXT PASS................ @@ -582,7 +582,7 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** TS TTMP1 TS TTMP2 - + CA ERRBTMP +1 # MULTIPLY INPUT BY EXTEND MP N10 +1 # N11/2 @@ -591,31 +591,31 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +1 # N11/2 DAS TTMP1 - + CS DAP1 +1 # MULTIPLY OUTPUT BY EXTEND MP N10 +3 # D11/2 TS TTMP2 +1 CS DAP1 - + # Page 974 EXTEND MP N10 +3 # D11/2 DAS TTMP2 - + DXCH TTMP2 DAS TTMP1 DXCH TTMP1 DDOUBL DAS TMP2 - + DXCH TMP2 DXCH TMP1 - + CAF ZERO TS TTMP1 TS TMP2 - + CA ERRBTMP +1 # MULTIPLY INPUT BY EXTEND # SECOND-ORDER NUMERATOR COEFF. MP N10 +2 # N12 @@ -624,7 +624,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +2 # N12 DAS TTMP1 - + CS DAP1 +1 # MULTIPLY OUTPUT BY EXTEND MP N10 +4 # D12 @@ -633,14 +633,14 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +4 # D12 DAS TMP2 - + DXCH TTMP1 DAS TMP2 - + 2CASFLTR CAF ZERO # **** SECOND CASCADE FILTER ********** TS TTMP1 TS TTMP2 - + CA DAP1 +1 # MULTIPLY INPUT BY EXTEND MP N10 +6 # N21/2 @@ -648,9 +648,9 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** CA DAP1 EXTEND MP N10 +6 # N21/2 -# Page 975 +# Page 975 DAS TTMP1 - + CS DAP2 +1 # MULTIPLY OUTPUT BY EXTEND MP N10 +8D # D21/2 @@ -659,20 +659,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +8D # D21/2 DAS TTMP2 - + DXCH TTMP2 DAS TTMP1 DXCH TTMP1 DDOUBL DAS TMP4 - + DXCH TMP4 DXCH TMP3 - + CAF ZERO TS TTMP1 TS TMP4 - + CA DAP1 +1 # MULTIPLY INPUT BY EXTEND # SECOND-ORDER NUMERATOR COEFF. MP N10 +7 # N22 @@ -681,7 +681,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +7 # N22 DAS TTMP1 - + CS DAP2 +1 # MULTIPLY OUTPUT BY EXTEND MP N10 +9D # D22 @@ -690,20 +690,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +9D # D22 DAS TMP4 - + DXCH TTMP1 DAS TMP4 - + CAE DAPDATR1 # TEST FOR LEM ON OR OFF MASK BIT13 CCS A TC Q # EXIT IF LEM OFF -# Page 976 +# Page 976 3CASFLTR CAF ZERO # **** THIRD CASCADE FILTER ********** TS TTMP1 TS TTMP2 - + CA DAP2 +1 # MULTIPLY INPUT BY (1/2) EXTEND MP N10 +11D # N31/2 @@ -712,7 +712,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +11D # N31/2 DAS TTMP1 - + CS DAP3 +1 EXTEND MP N10 +13D # D31/2 @@ -721,45 +721,45 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER ********** EXTEND MP N10 +13D # D31/2 DAS TTMP2 - + DXCH TTMP2 DAS TTMP1 DXCH TTMP1 DDOUBL DAS TMP6 - + DXCH TMP6 DXCH TMP5 - + CAF ZERO TS TTMP1 TS TMP6 - + CA DAP2 +1 # MULTIPLY INPUT BY - EXTEND + EXTEND MP N10 +12D # N32 TS TTMP1 +1 CA DAP2 EXTEND MP N10 +12D # N32 DAS TTMP1 - + CS DAP3 +1 EXTEND MP N10 +14D # D32 TS TMP6 +1 CS DAP3 EXTEND -# Page 977 +# Page 977 MP N10 +14D # D32 DAS TMP6 - + DXCH TTMP1 DAS TMP6 - + TC Q - -# Page 978 + +# Page 978 # CONSTANTS FOR AUTOPILOTS # NOTE....1 ASCREV (ACTUATOR CMD SCALING) = 85.41 ARCSEC/BIT OR 1.07975111 REVS (85.41x16384/3600/360) diff --git a/Comanche055/TVCEXECUTIVE.agc b/Comanche055/TVCEXECUTIVE.agc index 09cc153..79c7e45 100644 --- a/Comanche055/TVCEXECUTIVE.agc +++ b/Comanche055/TVCEXECUTIVE.agc @@ -10,7 +10,7 @@ # Mod history: 2009-05-12 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. # 2009-05-20 RSB Corrections: CAE -> CAF in one place. -# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to +# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to # CAF SIX. # # This source code has been transcribed or otherwise adapted from digitized @@ -19,13 +19,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -85,36 +85,36 @@ BANK EBANK= BZERO COUNT* $$/TVCX - + TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON) EXTEND BZMF TVCEXFIN # TERMINATE - + CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC TC WAITLIST EBANK= BZERO 2CADR TVCEXEC - + ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART- XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START) XCH OGAPAST - + CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO EXTEND # ERROR (COMMAND - MEASURED) MSU OGANOW TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS - + EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR - MP -BIT14 + MP -BIT14 TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR, # SC.AT B+0 REVS - + CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME) TC WAITLIST EBANK= BZERO 2CADR ROLLDAP - + NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR) CADR NEEDLER # (NEEDLES RESTARTS ITSELF) @@ -128,16 +128,16 @@ VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL) CCS VCNTR # TEST FOR GAIN OF UPDATE TIME TCF +4 # NOT YET -# Page 947 +# Page 947 TCF GAINCHNG # NOW TCF +0 # NOT USED TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40) - + +4 TS VCNTRTMP # PROTECT VCNTR AND CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN TS MASSTMP TCF EXECCOPY - + GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED) TC IBNKCALL # UPDATE 1/CONACC, VARK @@ -145,7 +145,7 @@ GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN AD CSMMASS TS MASSTMP # KG B+16 - + CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER TS VCNTRTMP @@ -153,24 +153,24 @@ EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1) CAE MASSTMP # CSMMASS KG B+16 TS CSMMASS - + CAE VCNTRTMP # VCNTR TS VCNTR TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF - + INCR TVCEXPHS # COPYCYCLE OVER (2) - + 1SHOTCHK CCS CNTR # CHECK FOR ONE-SHOT OR REPCORR TCF +4 # NOT YET TCF 1SHOTOK # NOW TCF REPCHEK # ONE-SHOT OVER, ON TO REPCORR TCF 1SHOTOK # NOW (ONE-SHOT ONLY, NO REPCORR) - + +4 TS CNTRTMP # COUNT DOWN CAF SIX # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY TS TVCEXPHS TCF CNTRCOPY - + REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES EXTEND BZMF TVCEXFIN # NO (NEG OR +-ZERO) @@ -178,24 +178,24 @@ REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES CAF FOUR # SET UP TVCEXPHS FOR ENTRY AT CORSETUP TS TVCEXPHS TCF CORSETUP -# Page 948 +# Page 948 1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN RAND DSALMOUT CCS A TCF +2 # ONE-SHOT OK TCF TVCEXFIN # NO, TERMINATE - + INCR TVCEXPHS # (3) - + # RSB 2009. The following instruction was previously "CAE FCORFRAC", but FCORFRAC # is not in erasable memory as implied by the use of CAE. I've accordingly changed # it to CAF instead to indicate fixed memory. TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION TS TEMPDAP +1 - + INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4) - + CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON MASK BIT13 # (NOTE, SHOWS LEM-OFF) EXTEND @@ -203,10 +203,10 @@ CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1) AD TEMPDAP +1 TS TEMPDAP # CG.CORR USES TEMPDAP - + CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE) TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY") - + CG.CORR EXTEND # PITCH TMC LOOP DCA PDELOFF DXCH PACTTMP @@ -225,14 +225,14 @@ CG.CORR EXTEND # PITCH TMC LOOP EXTEND MP TEMPDAP DAS PACTTMP - + EXTEND # YAW TMC LOOP DCA YDELOFF DXCH YACTTMP EXTEND DCS YDELOFF DDOUBL -# Page 949 +# Page 949 DDOUBL DXCH TTMP1 EXTEND @@ -245,29 +245,29 @@ CG.CORR EXTEND # PITCH TMC LOOP EXTEND MP TEMPDAP DAS YACTTMP - + CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (5) EXTEND # TRIM-ESTIMATES, AND DCA PACTTMP TS PACTOFF # TRIMS DXCH PDELOFF - + EXTEND DCA YACTTMP TS YACTOFF DXCH YDELOFF - + INCR TVCEXPHS # ENTRY FROM 1SHOTCHK AT NEXT LOCATION (6) - + CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY) TS CNTR - + TVCEXFIN CAF ZERO # RESET TVCEXPHS - TS TVCEXPHS + TS TVCEXPHS TCF TASKOVER # TVCEXECUTIVE FINISHED -FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION +FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION # Page 950 (page is empty) diff --git a/Comanche055/TVCINITIALIZE.agc b/Comanche055/TVCINITIALIZE.agc index 4389068..a570995 100644 --- a/Comanche055/TVCINITIALIZE.agc +++ b/Comanche055/TVCINITIALIZE.agc @@ -10,9 +10,9 @@ # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file # of the same name, using Comanche055 page # images. -# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing +# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing # lines in TVCINIT1, changed the capitalization -# of a couple of the "Page N" comments, +# of a couple of the "Page N" comments, # corrected a couple of lines in LOADCOEFF. # 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to # TS N10 +14D. Also, various comment-marks @@ -31,7 +31,7 @@ # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -71,9 +71,9 @@ BANK 17 SETLOC DAPS7 BANK - + EBANK= BZERO - + TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40) EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND QXCH QRUPT # TVCINIT4 ARE ENTRIES) @@ -98,10 +98,10 @@ ENDMRC TCF RESUME # ENTRY. TVCINIT1 LXCH BANKRUPT EXTEND QXCH QRUPT - + TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03 CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT) - + CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS EXTEND MP ONETHOU @@ -109,46 +109,46 @@ TVCINIT1 LXCH BANKRUPT COM AD CSMMASS TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN - + CAE DAPDATR1 # CHECK LEM-ON/OFF MASK BIT14 CCS A CAF BIT1 # LEM-ON (BIT1) TS CNTR # LEM-OFF (ZERO) - + INDEX CNTR # LOAD THE FILTER COEFFICIENTS CAF CSMCFADR TS COEFFADR TC LOADCOEF - + INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE TS KTLX/I - + TCR S40.15 # COMPUTE 1/CONACC, VARK - + TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD INDEX A # DETERMINATION: CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER - + COM # PREPARE T5TVCDT AD POSMAX AD BIT1 TS T5TVCDT - + CS BIT15 # RESET SWTOVER FLAG -# Page 939 +# Page 939 MASK FLAGWRD9 TS FLAGWRD9 - + INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME CAE EKPRIME # SCALED (100 PI)/16 EXTEND MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS) LXCH A # SC.AT PI/8 (DIMENSIONLESS) DXCH KPRIMEDT - + INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC CAE EREPFRAC TS REPFRAC @@ -159,16 +159,16 @@ TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED TS STRKTIME - + CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE) TS V97VCNTR # FOR ENGFAIL (R41) LOGIC - + TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND TS PCMD # OFFSET-TRACKER FILTERS TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED - + CAE YACTOFF TS YDELOFF TS YCMD @@ -209,11 +209,11 @@ NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO ADS RCSFLAGS # (RETURNS AFTER CADR) TC IBNKCALL CADR NEEDLER - + TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU- TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED. # (POSSIBLE TVC-RESTART ENTRY) - + CAE CDUX # PREPARE ROLL DAP TS OGANOW @@ -223,15 +223,15 @@ TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU- EXTEND # TOUCH CSMMASS. IF ENGINE IS ON, BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE # EVEN BURNS LESS THAN 0.4 SEC ARE AOK - + CAE MASSTMP # COPYCYCLE TS CSMMASS - + +3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC) TC WAITLIST EBANK= BZERO 2CADR TVCEXEC - + EXTEND # CALL FOR DAPINIT DCA DAPINIT5 DXCH T5LOC @@ -264,7 +264,7 @@ MCLEANJR CA ZERO CCS CNTRTMP CCS A TCF SWICHOVR +8D - + CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK MASK BIT15 ADS FLAGWRD9 @@ -272,10 +272,10 @@ MCLEANJR CA ZERO CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP TS KTLX/I TCR S40.15 +7 - + CAF FKPRIMDT # - STEERING TS KPRIMEDT - + CAF FREPFRAC # - TMC LOOP TS REPFRAC @@ -285,7 +285,7 @@ MCLEANJR CA ZERO EXTEND DCA DELYBAR DXCH YDELOFF - + CA LBCFADR # Page 942 TS COEFFADR @@ -303,7 +303,7 @@ LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD - DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER, + DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER, DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH # COEFFICIENTS FROM FIXED MEMORY. diff --git a/Comanche055/TVCMASSPROP.agc b/Comanche055/TVCMASSPROP.agc index 3847483..2e87881 100644 --- a/Comanche055/TVCMASSPROP.agc +++ b/Comanche055/TVCMASSPROP.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -71,7 +71,7 @@ # (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ. # (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ. # (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD -# +# # THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2 # CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ) # Page 952 @@ -127,19 +127,19 @@ BANK EBANK= BZERO COUNT* $$/MASP - + MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS TS PHI333 # SET UP TEN PASSES - + LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS MASK BIT13 EXTEND BZF LEMYES - + LEMNO INDEX PHI333 # LEM NOT ATTACHED CAF NOLEMVAL TCF STOINST - + LEMYES CAE LEMMASS # LEM IS ATTACHED DOUBLE EXTEND @@ -148,12 +148,12 @@ LEMYES CAE LEMMASS # LEM IS ATTACHED DDOUBL INDEX PHI333 AD INTVALUE - + STOINST INDEX PHI333 # STORAGE INST BEGIN HERE TS VARST0 CCS PHI333 # ARE ALL TEN PASSES COMPLETED TCF MASSPROP +1 # NO: GO DECREMENT PHI333 - + DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF TCF FIXCW TCF FIXCW @@ -161,11 +161,11 @@ DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF DAS VARST0 +1 CA DXITFIX ADS VARST0 +7 - + FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP TS PHI333 # THREE PASSES TS PSI333 - + CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES AD NEGBPW # SLOPE LOCATIONS. DOUBLE @@ -175,7 +175,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP BZMF PEGGY # DETERMINE CORRECT SLOPE CAF NEG2 TS PHI333 - + PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW CAE VARST5 # GET SLOPE EXTEND @@ -185,10 +185,10 @@ PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW AD VARST0 # ADD BREAKPOINT VALUE INDEX PSI333 TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) ***** - + CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS - + CAE DAPDATR1 # UPDATE WEIGHT/G MASK BIT14 CCS A @@ -201,7 +201,7 @@ BOKKEP2 TS PSI333 # REDUCE PSI BY ONE EXTEND DIM PHI333 TCF PEGGY - + # Page 955 NOLEMVAL DEC 25445 B-20 DEC 87450 B-20 @@ -211,7 +211,7 @@ NOLEMVAL DEC 25445 B-20 DEC 1.54 B-6 DEC 7.77177 B-6 DEC 3.46458 E-5 B+12 - + INTVALUE DEC 26850 B-20 DEC 127518 B-20 DEC .54059 B-2 @@ -222,7 +222,7 @@ INTVALUE DEC 26850 B-20 DEC .647625 E-4 B+12 DEC -27228 B-20 DEC -.206476 B-2 - + SLOPEVAL DEC 1.96307 B-6 DEC 27.5774 B-6 DEC 2.3548 E-5 B+12 @@ -233,7 +233,7 @@ SLOPEVAL DEC 1.96307 B-6 DEC 1.5166 E-9 B+26 DEC -1.284 B-6 DEC 2 E-5 B+12 - + NEGBPW DEC -15402.17 B-16 DXITFIX DEC* -1.88275 E-5 B+12* diff --git a/Comanche055/TVCRESTARTS.agc b/Comanche055/TVCRESTARTS.agc index 6dd4916..e62a4f2 100644 --- a/Comanche055/TVCRESTARTS.agc +++ b/Comanche055/TVCRESTARTS.agc @@ -10,9 +10,9 @@ # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the # same name, using Comanche055 page images. # 2009-05-20 RSB Corrections: TCF -> BZF in one place. -# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to +# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to # CCS TVCPHASE and CCS 4 corrected to CCS A. -# Page 924 corrected to 961. CORCOPY +2 +# Page 924 corrected to 961. CORCOPY +2 # corrected to CORCOPY +1. # # This source code has been transcribed or otherwise adapted from digitized @@ -21,13 +21,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -98,7 +98,7 @@ # Page 957 # STROKE TEST TO BE TERMINATED. A NEW V68 ENTRY WILL BE REQUIRED # TO GET IT GOING AGAIN (NO AUTOMATIC RESTART). -# +# # *REDOTVC IS REACHED FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS # (BITS 15,14 OF FLAGWRD6) SET FOR TVC. DOTVCON TVCPHASE = -1 # AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS, JUST BEFORE @@ -148,15 +148,15 @@ BANK EBANK= TVCPHASE COUNT* $$/RSRT - + REDOTVC LXCH BANKRUPT # TVC RESTART PACKAGE EXTEND QXCH QRUPT # ("TCR" IN "FINCOPY") - + EXECPHS CCS TVCEXPHS # CHECK TVCEXECUTIVE PHASE TCF +2 # MUST RESTART TVCEXECUTIVE TCF TVCDAPHS # NO NEED TO RESTART TVCEXECUTIVE - + CAF NINE # 9CS DELAY TO FORCE EXRSTRT TO OCCUR TC WAITLIST # BEFORE PITCHDAP, AFTER CMDSOUT EBANK= TVCEXPHS @@ -167,12 +167,12 @@ TVCDAPHS CS OCT37776 # CHECK BITS 15 AND 1 OF TVCPHASE TO SEE CCS A TCF FINCOPY # FINISH THE COPYCYCLE FIRST TCF ENABL1 # JUST PREPARE THE OUTCOUNTERS AND GO - + CS TVCPHASE # TEST FOR TVCPHASE = -2 MASK BIT2 # (THIS INDICATES RESTART OCCURRED EXTEND # DURING CSM/LM V46 SWITCH-OVER) BZF TRIM/CMD # NO. TVCPHASE = -1. RSTRT WAS IN TVCINIT - + ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT AD BIT11 # SET BIT FOR OPTICS-DAC-ENABLE ALSO EXTEND # (ENABL1 ENTERED FROM TVCDAPHS / FINCOPY) @@ -181,46 +181,46 @@ ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT TS T5LOC CAF TVCADDR +4 # 60 MS (TVCEXADR) TS TIME5 - + TCF RESUME - + ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS CAF BIT2 # OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT EXTEND WOR CHAN12 -# Page 959 +# Page 959 CAF TVCADDR +2 # WAIT, CALLING CMDSOUT (BBCON THERE) TS T5LOC CAF OCT37776 # 20MS TS TIME5 - + TCF NOQRSM - + CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS EXTEND QXCH QRUPT - + CS ZERO # MOST RECENT ACTUATOR COMMANDS AD PCMD # (AVOID +0) TS TVCPITCH CS ZERO AD YCMD TS TVCYAW - + CAF PRIO6 # RELEASE THE COUNTERS (BITS 11,12) EXTEND WOR CHAN14 - + PHSCHK2 CCS TVCPHASE # CHECK TVCPHASE AGAIN TCF CHKSTRK TCF CHKSTRK CCS A # A CONTAINS THE DIMINISHED ABSOLUTE OF TC +3 # TVCPHASE (-2 BECOMES +1. -1 BECOMES +0) - + TC POSTJUMP # REPEAT TVC INITIALIZATION CADR MRCLEAN # (DO NOT RETURN) - + +3 TC IBNKCALL # REPEAT CSM/LM V46 SWITCH-OVER CADR SWICHOVR +5 # (RETURN TO CHECK FOR STROKE TEST) @@ -228,7 +228,7 @@ CHKSTRK CCS STROKER # CHECK FOR STROKE TEST IN PROGRESS TCF TSTINITJ # YES, KILL IT TCF +2 # NO, PROCEED TCF TSTINITJ # YES, KILL IT - + +4 TC POSTJUMP # IF POSITIVE OR ZERO, RESTART AT CADR TVCINIT4 # TVCINIT4 (ZEROS TVCPHASE, AND # CALLS TVC DAPS VIA DAPINIT) @@ -236,18 +236,18 @@ FINCOPY INDEX TVCPHASE # PICK UP THE APPROPRIATE COPYCYCLE CAF TVCCADR TCR ISWCALL # RE-ENTER THE COPYCYCLE, RETURN AT END TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS - + TRIM/CMD EXTEND # TVCDAPON INITIALIZATION NOT COMPLETED, # Page 960 DCA PACTOFF # EG. P,YCMD MAY NOT BE SET. SET... DXCH PCMD TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS - + TSTINITJ CAF ZERO # DISABLE STROKE TEST (-0 SHOWS PRIOR V68) TS STROKER # (+0 MEANS NEW V68 REQUIRED FOR STARTUP) - + TCF CHKSTRK +4 - + EXRSTRT INDEX TVCEXPHS # TVCEXECUTIVE RESTARTS....GO TO CAF TVCEXADR # APPROPRIATE RESTART POINT INDEX A @@ -267,5 +267,5 @@ TVCEXADR OCT 37772 # (UNUSED TABLE LOC, FILL WITH 60MS, T5) +4 GENADR CORSETUP +5 GENADR CORCOPY +1 +6 GENADR CNTRCOPY - + diff --git a/Comanche055/TVCROLLDAP.agc b/Comanche055/TVCROLLDAP.agc index ca8f391..15396f2 100644 --- a/Comanche055/TVCROLLDAP.agc +++ b/Comanche055/TVCROLLDAP.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -145,7 +145,7 @@ # THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS # THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE # TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND -# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE +# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE # RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2 # SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE # APPROXIMATION. @@ -219,7 +219,7 @@ ROLLDAP CAE OGANOW # OGA RATE ESTIMATOR...SIMPLE FIRST-ORDER MP BIT5 LXCH A TS OGARATE # SC.AT B-4 REV/SEC - + # COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR (SAME REGISTER) # EXAMINE DURATION OF LAST ROLL FIRING IF JETS ARE NOW ON. @@ -227,11 +227,11 @@ DURATION CA ROLLFIRE # SAME SGN AS PRESENT TORQ,MAGN=POSMAX EXTEND BZF +2 # ROLL JETS ARE NOW OFF. TCF ROLLOGIC # ENTER LOGIC, JETS NOW ON. - + CAE TEMREG # EXAMINE LAST FIRING INTERVAL EXTEND # IF POSITIVE, DON'T FIRE BZF ROLLOGIC # ENTER LOGIC, JETS NOW OFF. - + CAF ZERO # JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT TS TEMREG # RESET TEMREG WAIT1/2 TCF TASKOVER # EXIT ROLL DAP @@ -245,7 +245,7 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC MP OGARATE AD DB # SCALED AT 2(+0) REV TS TEMREG # QUANTITY SCALED AT 2(+0) REV. - + # GET SIGN OF OGARATE CA OGARATE @@ -255,14 +255,14 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC TCF +2 CS BIT1 TS SGNRT # + OR - 2(-14) - -# Page 990 + +# Page 990 # CALCULATE DISTANCE FROM SWITCH PARABOLA,DELOGA EXTEND - MP TEMREG # SGN(OGARATE) TEMREG NOW IN L - CS L + MP TEMREG # SGN(OGARATE) TEMREG NOW IN L + CS L AD OGA # SCALED AT 2(+0) REV -DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB +DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB # EXAMINE SGN(DELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN. @@ -272,7 +272,7 @@ DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB TCF +2 CAF BIT15 # = CS (40000) TS I - + INDEX I # TSET ON I SGN(OGARATE) 0 SGNRT # CA OR CS COM @@ -302,11 +302,11 @@ REG3TST BZMF RATELIM # IF REGION 3 (RATES TOO HIGH, FIRE JETS) DDOUBL DDOUBL # (OGA ERROR MUST BE LESS THAN +-225 DEG) AD TEMREG - + INDEX I 0 A # I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC COM -# Page 991 +# Page 991 AD INTERCEP # SCALED AT 2(-3) REV. COM EXTEND @@ -341,7 +341,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT CA OGARATE TS DELOGART # ACTUAL STATE, I.E., DEL OGARATE TCF ONROLL - + # JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VICE VERSA), USE INDIRECT # STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT ((DELOGA # + DB SGN(DELOGA) ), -LMCRATE SGN(DELOGA) ) (THIS IS THE DUMMY @@ -350,7 +350,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT ROLLON INDEX I 0 DB ADS DELOGA # DELOGA WAS DIST. FROM SWITCH PARABOLA - + CS LMCRATE # LIMIT CYCLE RATE AT 2(-4) REV/SEC INDEX I 0 A @@ -392,23 +392,23 @@ RATENUM AD DELOGART # NUMERATOR COMPLETED DV TEMREG # OVERFLOW, IF ANYTHING, NOW APPEARS IN A EXTEND BZF DVOK # NO OVERFLOW....(0,L)/TEMREG = 0,L - + MINLIMAP CCS A CAF POSMAX # POSITIVE OVERFLOW TCF ROLLSET CS POSMAX # NEGATIVE OVERFLOW TCF ROLLSET - + DVOK LXCH A # PUT NUMERATOR BACK INTO A, 0 INTO L EXTEND DV TEMREG # RESULT OF DIVISION IS DESIRED OGARATE TCF ROLLSET # (SCALED AT B-4 REV/SEC) - + RATELIM CS MAXLIM INDEX I # Page 993 0 A # IF I = CA, DESIRED RATE IS -MAXLIM - + # COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4) @@ -431,24 +431,24 @@ ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4) TS TEMREG # JET FIRE TIME AT 625 MICROSEC/BIT EXTEND # POS MEANS POSITIVE ROLL TORQUE. BZF NOROLL - + # JET FIRE TIME IS NZ, TEST FOR JETS NOW ON. CAE TEMREG # DESIRED CHANGE IN OGARATE - EXTEND + EXTEND MP ROLLFIRE # (SGN OF TORQUE: ZERO IF JETS NOW OFF) CCS A TCF MOREROLL # CONTINUE FIRING WITH PRESENT POLARITY TCF NEWROLL # START NEW FIRING NOW, PLUS TCF NOROLL # TERMINATE OLD FIRING, NEW SIGN REQUESTED TCF NEWROLL # START NEW FIRING NOW, MINUS - + # CONTINUE PRESENT FIRING MOREROLL CAF ZERO TS I # USE TEMP. AS MOREROLL SWITCH TCF MAXTFIRE - + # START NEW FIRING BUT CHECK IF GREATER THAN MIN FIRE TIME. NEWROLL CCS TEMREG # CALL THIS T6FIRE @@ -457,7 +457,7 @@ NEWROLL CCS TEMREG # CALL THIS T6FIRE AD ONE COM # -MAG(T6FIRE) AD TMINFIRE # TMINFIRE-MAG(T6FIRE) -# Page 994 +# Page 994 COM EXTEND MINTST BZMF NOROLL # IF NOT GREATER THAN TMINFIRE (NEW FIRE) @@ -483,36 +483,36 @@ NOMXFIRE CCS TEMREG # FOR TORQUE SIGN TCF +2 CA NEGMAX # NEGATIVE TORQUE REQUIRED TS ROLLFIRE # SET ROLLFIRE FOR + OR - TORQUE - + COM # COMPLEMENT... POS. FOR NEG. TORQUE EXTEND BZMF +3 # POSITIVE TORQUE REQUIRED CS TEMREG TS TEMREG - + FIRELOOK CA I # IS IT MOREROLL EXTEND BZF FIREPLUG # YES TCF JETROLL # MAG(T6FIRE) NOW IN TEMREG - + FIREPLUG CAE TIME6 # CHECK FOR EXTENDED FIRING EXTEND SU TEMREG EXTEND EXTENTST BZMF TASKOVER # IF EXTENSION WANTED, DON'T, EXIT ROLL DAP TCF JETROLL - + NOROLL CS ZERO # COAST....(NEG ZERO FOR TIME6) TS ROLLFIRE # NOTE, JETS CAN FIRE NEXT PASS TS TEMREG - + JETROLL EXTEND DCA NOROL1T6 -# Page 995 +# Page 995 DXCH T6LOC CA TEMREG # ENTER JET FIRING TIME TS TIME6 - + CA I # I=0 IF MOREROLL, KEEP SAME JETS ON EXTEND SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP @@ -522,7 +522,7 @@ SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP TCF T6ENABL TCF -TORQUE TCF T6ENABL - + # PROCEED WITH + TORQUE +TORQUE CA ROLLWORD # WHAT WAS THE LAST +TORQUE COMBINATION @@ -537,19 +537,19 @@ NO.13-15 CS BIT1 EXTEND WRITE CHAN6 TCF T6ENABL - + NO.9-11 CAF BIT1 # 1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD) ADS ROLLWORD # CHANGE BIT 1 TO ONE CAF +ROLL1 EXTEND WRITE CHAN6 TCF T6ENABL - + -TORQUE CA ROLLWORD # WHAT WAS LAST -TORQUE COMBINATION MASK BIT2 # WAS IT NO.12-10 EXTEND BZF NO.12-10 # NOT 12-10, SO USE IT THIS TIME - + NO.16-14 CS BIT2 MASK ROLLWORD TS ROLLWORD # CHANGE BIT 2 TO ZERO @@ -557,14 +557,14 @@ NO.16-14 CS BIT2 EXTEND WRITE CHAN6 TCF T6ENABL - + NO.12-10 CAF BIT2 # 1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD) # Page 996 ADS ROLLWORD # CHANGE BIT 2 TO ONE CAF -ROLL1 EXTEND WRITE CHAN6 - + T6ENABL CAF BIT15 EXTEND WOR CHAN13 diff --git a/Comanche055/TVCSTROKETEST.agc b/Comanche055/TVCSTROKETEST.agc index cd5732a..5c4959b 100644 --- a/Comanche055/TVCSTROKETEST.agc +++ b/Comanche055/TVCSTROKETEST.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -136,35 +136,35 @@ BANK 17 SETLOC DAPS2 BANK - + COUNT* $$/STRK EBANK= CADDY - + STRKTSTI TCR TSTINIT # STROKE TEST INITIALIZATION PKG (CALLED # AS A JOB BY VERB68) - + STRKCHK INHINT CAE DAPDATR1 # CHECK FOR CSM/LM CONFIGURATION MASK BIT14 EXTEND BZF +3 - + CAE ESTROKER # BEGIN ON NEXT DAP PASS (PITCH OR YAW) TS STROKER # (STROKING DONE IN PITCH ONLY, HOWEVER) - + TCF ENDOFJOB - + TSTINIT CS FCADDY # NORMAL ENTRY FROM STRKTSTI TS CADDY TS N # NOTE SGN CHNG FCADDY(+) TO CADDY(-) - + CAF FREVS TS REVS - + CS FCARD # NOTE SGN CHNG FCARD(+) TO CARD(-) TS CARD - + TC Q # RETURN TO STRKTSTI+1 (OR CHKSTRK+2 OR +4) # Page 982 @@ -200,20 +200,20 @@ FCARD6 DEC 4 # 4..(+ 4) HACK EXTEND # ENTRY (IN T5 RUPT) FROM TVCDAPS QXCH BUNKER # SAVE Q FOR DAP RETURN - + CAF 20MS # 2DAPSx2(PASSES/DAP)x2(CS/PASS)=8CS=TVCDT TC WAITLIST EBANK= BUNKER 2CADR HACKWLST - + TCF +3 - + HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST TS BUNKER # BUNKER IS TC TASKOVER - + CA STROKER # STROKE ADS TVCPITCH - + CAF BIT11 # RELEASE THE ERROR COUNTERS EXTEND WOR CHAN14 @@ -223,16 +223,16 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST EXTEND BZMF +2 TC BUNKER # EXIT, WHILE ON A SLOPE - + CCS REVS TCF REVUP # POSITIVE REVS TCF REVUP +4 # FINAL REVERSAL, THE SET - + INCR CARD # NEGATIVE REVS SET LAST PASS, READY FOR CS CARD # THE NEXT SET. CHECK IF NO MORE SETS EXTEND BZF STROKILL # ALL SETS COMPLETED - + INDEX CARD CAF FCARD +4 # PICK UP NO. REVERSALS (-), NEXT SET TS REVS # REINITIALIZE @@ -241,21 +241,21 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST TS N # REINITIALIZE TS CADDY TC BUNKER # EXIT, AT END OF SET - + STROKILL TS STROKER # RESET (TO +0) TO END TEST TC BUNKER # EXIT, STROKE TEST FINIS - + REVUP TS REVS # ALL REVERSALS EXCEPT LAST OF SET CA N DOUBLE # 2 x 1/2AMP TCF +4 - + +4 CS ONE # FINAL REVERSAL, THIS SET TS REVS # PREPARE TO BRANCH TO NEW BURST CA N # JUST RETURN TO ZERO, FINAL SLOPE OF SET TS CADDY # CADUP - + CS STROKER # CHANGE SIGN OF SLOPE TS STROKER TC BUNKER # EXIT AT A REVERSAL (SLOPE CHANGE) - + diff --git a/Comanche055/UPDATE_PROGRAM.agc b/Comanche055/UPDATE_PROGRAM.agc index efb8d15..9c4702f 100644 --- a/Comanche055/UPDATE_PROGRAM.agc +++ b/Comanche055/UPDATE_PROGRAM.agc @@ -10,14 +10,14 @@ # Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc # and page images. Corrected various typos # in the transcription of program comments, -# and these should be back-ported to +# and these should be back-ported to # Colossus249. # -# The contents of the "Comanche055" files, in general, are transcribed -# from scanned documents. +# The contents of the "Comanche055" files, in general, are transcribed +# from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. April 1, 1969. +# 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # @@ -166,7 +166,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E BZF +2 # (+0 = P00, -0 = FRESHSTART) TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE # INTERRUPTED BY P27. - + CAE MODREG # UPDATE ALLOWED TS UPOLDMOD # SAVE CURRENT MAJOR MODE # Page 1500 @@ -178,7 +178,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E TC POSTJUMP # LEAVE EXTENDED VERB BANK AND CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK. - + CKMDMORE CS FLAGWRD5 MASK BIT8 # CHECK IF COMPUTER IS LGC CCS A # IS COMPUER LGC OR AGC @@ -189,7 +189,7 @@ UPERLEM TCF UPERROR # ERROR: IT'S THE LEM + MODE IS NOT P00. UPERCMC TCF UPERROR # ERROR: IT'S THE CMC AND MODE IS NOT # P00 OR P02. TC Q # ALLOW UPDATE TO PROCEED. - + UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT @@ -217,7 +217,7 @@ UPPART2 EQUALS # UPDATE PROGRAM -- PART 2 TS DNLSTCOD # DOWNLIST TC NEWMODEX # SET MAJOR MODE = 27 -# Page 1501 +# Page 1501 DEC 27 INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE @@ -315,7 +315,7 @@ UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA. CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO XCH L # INDICATE TO THE GROUND (VIA DOWNLINK) CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO -# Page 1503 +# Page 1503 EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM TS FLAGWRD7 @@ -415,7 +415,7 @@ DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT UPEND71 CAE UPBUFF +1 # SET EBANK TS EBANK # AND -# Page 1505 +# Page 1505 MASK LOW8 # CALCULATE TS UPTEMP # S-REG VALUE OF RECEIVING AREA AD NEG3 # IN THE PROCESS OF @@ -465,7 +465,7 @@ LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE MASK LOW8 # ISOLATE RELATIVE ADDRESS INDEX A -# Page 1506 +# Page 1506 EBANK= 1400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L EBANK= TEPHEM @@ -513,8 +513,8 @@ UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA DAS TETCSM CAF ZERO - -# Page 1507 + +# Page 1507 ZL DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME DAS TETLEM @@ -549,6 +549,6 @@ UPACTOFF CS BIT3 EXTEND # TURN OFF UPLINK ACTIVITY LIGHT WAND DSALMOUT # (BIT 3 OF CHANNEL 11) TC Q - + diff --git a/Comanche055/WAITLIST.agc b/Comanche055/WAITLIST.agc index facf8da..72abde0 100644 --- a/Comanche055/WAITLIST.agc +++ b/Comanche055/WAITLIST.agc @@ -16,13 +16,13 @@ # thanks to both. The images (with suitable reduction in storage size and # consequent reduction in image quality as well) are available online at # www.ibiblio.org/apollo. If for some reason you find that the images are -# illegible, contact me at info@sandroid.org about getting access to the +# illegible, contact me at info@sandroid.org about getting access to the # (much) higher-quality images which Paul actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 055 of AGC program Comanche by NASA -# 2021113-051. 10:28 APR. 1, 1969 +# 2021113-051. 10:28 APR. 1, 1969 # # This AGC program shall also be referred to as # Colossus 2A @@ -116,7 +116,7 @@ EBANK= LST1 # TASK LISTS IN SWITCHED E BANK. COUNT 02/WAIT - + TWIDDLE INHINT TS L # SAVE DELAY TIME IN L CA POSMAX @@ -164,7 +164,7 @@ VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR. TS WAITADR CA BBANK # BBANK IS SAVED DURING DELAY. EXTEND -# Page 1224 +# Page 1224 ROR SUPERBNK # ADD SBANK TO BBCON. TS L CAF DELAYEX @@ -185,7 +185,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG TCF +1 CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN - TCF SVCT3X + TCF SVCT3X TCF +3 TCF SVCT3X TCF SVCT3X @@ -195,7 +195,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG 2CADR NBDONLY TCF TASKOVER - + SETLOC FFTAG6 BANK @@ -208,7 +208,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMU ZERO BANK 01 COUNT 01/WAIT - + WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM. CS TIME3 AD BIT8 # BIT 8 = OCT 200 @@ -319,7 +319,7 @@ WTLST5 CCS A # TEST TD - T2 + 1 OCT 6 # Page 1229 - +4 CCS A + +4 CCS A AD LST1 +7 TCF +4 AD ONE @@ -329,13 +329,13 @@ WTLST5 CCS A # TEST TD - T2 + 1 +4 CCS A WTABORT TC BAILOUT # NO ROOM IN THE INN OCT 1203 - + AD ONE TC WTLST2 OCT 10 - + OCT40201 OCT 40201 - + # Page 1230 # THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1. # N N+1 @@ -411,7 +411,7 @@ T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK. BLOCK 02 COUNT 02/WAIT - + TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME. CAF WAITBB TS BBANK @@ -495,7 +495,7 @@ LGCL2CDR 2CADR LNGCALL2 BANK 01 COUNT 01/WAIT - + LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN CA TWO # OBTAIN THE RETURN ADDRESS ADS Q diff --git a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc index d5d22b1..b22fba2 100644 --- a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc +++ b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc @@ -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 diff --git a/Luminary099/AGS_INITIALIZATION.agc b/Luminary099/AGS_INITIALIZATION.agc index e963aee..dc74ee4 100644 --- a/Luminary099/AGS_INITIALIZATION.agc +++ b/Luminary099/AGS_INITIALIZATION.agc @@ -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 diff --git a/Luminary099/ALARM_AND_ABORT.agc b/Luminary099/ALARM_AND_ABORT.agc index e0b74ff..6703141 100644 --- a/Luminary099/ALARM_AND_ABORT.agc +++ b/Luminary099/ALARM_AND_ABORT.agc @@ -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 - + diff --git a/Luminary099/AOSTASK_AND_AOSJOB.agc b/Luminary099/AOSTASK_AND_AOSJOB.agc index 3e0dba1..7934b75 100644 --- a/Luminary099/AOSTASK_AND_AOSJOB.agc +++ b/Luminary099/AOSTASK_AND_AOSJOB.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/AOTMARK.agc b/Luminary099/AOTMARK.agc index 047f614..74ef793 100644 --- a/Luminary099/AOTMARK.agc +++ b/Luminary099/AOTMARK.agc @@ -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 - + diff --git a/Luminary099/ASCENT_GUIDANCE.agc b/Luminary099/ASCENT_GUIDANCE.agc index dcdee44..20f89da 100644 --- a/Luminary099/ASCENT_GUIDANCE.agc +++ b/Luminary099/ASCENT_GUIDANCE.agc @@ -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 diff --git a/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc b/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc index 00d1a1c..dfb9a13 100644 --- a/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc +++ b/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc @@ -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 diff --git a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc index 05e18b9..2faaf0f 100644 --- a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc +++ b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index 2e92de3..41ddb23 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index bbce75c..b24afbe 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -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 diff --git a/Luminary099/CONTROLLED_CONSTANTS.agc b/Luminary099/CONTROLLED_CONSTANTS.agc index c39fe07..4fb77e0 100644 --- a/Luminary099/CONTROLLED_CONSTANTS.agc +++ b/Luminary099/CONTROLLED_CONSTANTS.agc @@ -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 diff --git a/Luminary099/DAPIDLER_PROGRAM.agc b/Luminary099/DAPIDLER_PROGRAM.agc index fb42a73..672cb08 100644 --- a/Luminary099/DAPIDLER_PROGRAM.agc +++ b/Luminary099/DAPIDLER_PROGRAM.agc @@ -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 diff --git a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc index 23af0cc..e444b1a 100644 --- a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc +++ b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc @@ -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 diff --git a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc index 402a4e7..912c3d0 100644 --- a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc +++ b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 -- diff --git a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc index 74ccad5..c62904d 100644 --- a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc +++ b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/ERASABLE_ASSIGNMENTS.agc b/Luminary099/ERASABLE_ASSIGNMENTS.agc index 9ab2e1e..a466652 100644 --- a/Luminary099/ERASABLE_ASSIGNMENTS.agc +++ b/Luminary099/ERASABLE_ASSIGNMENTS.agc @@ -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. diff --git a/Luminary099/EXECUTIVE.agc b/Luminary099/EXECUTIVE.agc index 06a3090..9b239ad 100644 --- a/Luminary099/EXECUTIVE.agc +++ b/Luminary099/EXECUTIVE.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/EXTENDED_VERBS.agc b/Luminary099/EXTENDED_VERBS.agc index 749e0b3..cdad18f 100644 --- a/Luminary099/EXTENDED_VERBS.agc +++ b/Luminary099/EXTENDED_VERBS.agc @@ -13,7 +13,7 @@ # 2009-06-05 RSB Corrected 5 typos. # 2009-06-06 RSB Eliminated an extraneous 3-instruction block # and added a missing instruction. -# 2009-06-07 RSB Added a couple of "SBANK=" for compatibility +# 2009-06-07 RSB Added a couple of "SBANK=" for compatibility # with yaYUL. Corrected a typo. # 2010-12-31 JL Fixed page number comments. # 2011-01-06 JL Added missing comment characters. @@ -32,22 +32,22 @@ # 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 262 BANK 7 SETLOC EXTVERBS BANK - + EBANK= OGC - + COUNT* $$/EXTVB - + # FAN-OUT GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC TC LST2FAN # FAN AS BEFORE. - + LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY) TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR # 72 ONLY) @@ -111,7 +111,7 @@ VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE TC ALM/END # VB98 SPARE TC GOLOADLV # VB99 PLEASE ENABLE ENGINE - + # END OF EXTENDED VERB FAN TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY @@ -123,10 +123,10 @@ TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY CAF OCT24 # SET 3, AND 5 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY # SYSTEM BUSY - + CA Q TS MPAC +1 - + CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB TC NVSUB TC +1 @@ -134,7 +134,7 @@ SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. - + TERMEXTV EQUALS ENDEXT # Page 264 ENDEXTVB EQUALS ENDEXT @@ -145,12 +145,12 @@ XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT GOPIN TC POSTJUMP CADR PINBRNCH - + CHKP00H CA MODREG # CHECK FOR P00 OR P00-. EXTEND BZF TCQ TC ALM/END - + OC24100 OCT 24100 # Page 265 @@ -170,22 +170,22 @@ VBZERO TC OP/INERT IMUZEROK TC CKMODCAD TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO CADR IMUZERO - + TC BANKCALL # STALL CADR IMUSTALL TC +1 - + TC GOPIN # IMUZERO - + RRZEROK TC RDRUSECK TC BANKCALL CADR RRZERO - + RWAITK TC BANKCALL CADR RADSTALL TCF +1 TC GOPIN # RRZERO - + # LRPOS2K VERB 60 DESCRIPTION # COMMAND LANDING RADAR TO POSITION 2 # @@ -212,13 +212,13 @@ LRP2ALM TC ALARM DAPATTER TC DOWNFLAG ADRES NEEDLFLG TC GOPIN - + # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES. TOTATTER TC UPFLAG ADRES NEEDLFLG TC GOPIN - + # Page 267 # VBCOARK VERB 41 DESCRIPTION # COARSE ALIGN IMU OR RADAR @@ -265,7 +265,7 @@ TOTATTER TC UPFLAG VBCOARK TC OP/INERT TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72) - + # RETURNS TO L+1 IF IMU OR L+2 IF RR. OP/INERT CS OCT24 @@ -273,13 +273,13 @@ OP/INERT CS OCT24 EXTEND # Page 268 BZF TCQ # IF = 20. - + AD RRIMUDIF # -52 EXTEND BZF Q+1 - + TC ALM/END # ILLEGAL. - + RRIMUDIF DEC -52 # THE IMU IMUCOARK TC CKMODCAD TC TESTXACT # COARSE ALIGN FROM KEYBOARD. @@ -288,19 +288,19 @@ IMUCOARK TC CKMODCAD CADR GOXDSPF TC TERMEXTV TCF +1 - + ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. TC BANKCALL CADR EXDSPRET - + TC BANKCALL # CALL MODE SWITCHING PROG CADR IMUCOARS - + TC BANKCALL # STALL CADR IMUSTALL TC ENDEXTVB TC ENDEXTVB - + VNLODCDU VN 2522 IMUCOARV VN 4100 @@ -317,33 +317,33 @@ RRDESNBK TC RDRUSECK INHINT # RELINT DONE IN GOXDSPF MASK RADMODES TS RADMODES - + CAF VNLDRCDU # ASK FOR GIMBAL ANGLES. TC BANKCALL CADR GOXDSPF TC TERMEXTV TCF -4 # V33 - + TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS. CADR AURLOKON - + CAF OPTCOARV # RE-DISPLAY OUR OWN VERB TC BANKCALL CADR EXDSPRET - + CAF PRIO20 TC FINDVAC EBANK= LOSCOUNT 2CADR RRDESK2 - + TCF TERMEXTV # FREES DISPLAY - + VNLDRCDU VN 2473 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. RRDESK2 TC BANKCALL CADR RRDESNB - + TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR CA PRIORITY MASK LOW9 @@ -361,7 +361,7 @@ RRDESK2 TC BANKCALL OCT 503 # TURN ON ALARM LIGHT -- 503 DESIGNATE FAIL TC ENDOFJOB - + RRDESEND CCS RADMODES # TERMINATE CONTINOUS DESIGNATE ONLY TCF GOPIN TCF GOPIN @@ -384,14 +384,14 @@ OCT41000 OCT 41000 # CONTINOUS DESIGNATE -- DESIGNATE SETLOC EXTVB1 BANK COUNT* $$/EXTVB - + AURLOKON TC MAKECADR TS DESRET CAF TWO TS OPTIONX +1 CAF SIX # OPTION CODE FOR V04N12 TS OPTIONX - + -5 CAF V04N1272 TC BANKCALL # R2 00001 LOCK-ON CADR GOMARKFR @@ -401,7 +401,7 @@ AURLOKON TC MAKECADR CAF BIT3 TC BLANKET TC ENDOFJOB - + +5 CA OPTIONX +1 MASK BIT2 CCS A @@ -409,7 +409,7 @@ AURLOKON TC MAKECADR TC UPFLAG ADRES LOKONSW TCF AURLKON1 - + NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS TC UPFLAG # WANTED (TO BE TERMINATED BY V44.) @@ -419,7 +419,7 @@ NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO AURLKON1 RELINT CA DESRET TCF BANKJUMP - + V04N1272 VN 412 -LOKONFG OCT -20 @@ -437,7 +437,7 @@ LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58 ADRES LRINH TCF GOPIN - + EBANK= OGC # Page 273 @@ -467,27 +467,27 @@ IMUFINEK TC CKMODCAD CADR GOXDSPF TC TERMEXTV TC +1 # PROCEED WITHOUT A LOAD - + CAF IMUFINEV # RE-DISPLAY OUR OWN VERB TC BANKCALL CADR EXDSPRET - + TC BANKCALL # CALL MODE SWITCH PROG CADR IMUFINE - + TC BANKCALL # HIBERNATION CADR IMUSTALL TC ENDEXTVB - + FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS TC BANKCALL CADR IMUPULSE - + TC BANKCALL # WAIT FOR PULSES TO GET OUT. CADR IMUSTALL TC ENDEXTVB TC ENDEXTVB - + LGYROBIN ECADR OGC VNLODGYR VN 2593 IMUFINEV VN 4200 @@ -504,7 +504,7 @@ IMUFINEV VN 4200 # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S - + GOLOADLV TC FLASHOFF CAF PINSUPBT @@ -512,7 +512,7 @@ GOLOADLV TC FLASHOFF WRITE SUPERBNK TC POSTJUMP CADR LOADLV1 - + # VERB 47 -- AGS INITIALIZATION -- R47. # # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS. @@ -522,17 +522,17 @@ V47TXACT TC TESTXACT # NO OTHER EXTVERB. TC FINDVAC ## [WORKAROUND] RSB 2009 SBANK= LOWSUPER -## [WORKAROUND] +## [WORKAROUND] EBANK= AGSBUFF 2CADR AGSINIT - + TC ENDOFJOB - + CKMODCAD CA MODECADR EXTEND BZF TCQ TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT - + # Page 275 # ALINTIME VERB 55 DESCRIPTION # REQUIRE P00 OR P00-. @@ -542,16 +542,16 @@ CKMODCAD CA MODECADR # 3. REQUIRE EXECUTION OF VERB 23. # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. # 5. RELEASE EXT VERB DISPLAY SYSTEM - + ALINTIME TC TESTXACT TC POSTJUMP # NO ROOM IN 43 CADR R33 - + BANK 42 SETLOC SBAND BANK COUNT* $$/R33 - + R33 CAF PRIO7 TC PRIOCHNG CAF VNLODDT @@ -564,7 +564,7 @@ R33 CAF PRIO7 EXTEND BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL TC ENDEXT # WITH V23 (DATA IN). - + UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. CAF ZERO TS MPAC +2 # NEEDED FOR TP AGREE @@ -573,7 +573,7 @@ UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. DXCH MPAC DXCH DSPTEM2 +1 # INCREMENT DAS MPAC - + TC TPAGREE # FORCE SIGN AGREEMENT. DXCH MPAC # NEW CLOCK. DAS TIME2 @@ -590,11 +590,11 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME BANK 42 SETLOC EXTVERBS BANK - + EBANK= RSTACK - + COUNT* $$/R0477 - + R77 TC RDRUSECK # TRY TO AVOID THE 1210. CA FLAGWRD3 # IS R04 RUNNING? MASK R04FLBIT @@ -603,12 +603,12 @@ R77 TC RDRUSECK # TRY TO AVOID THE 1210. TC UPFLAG ADRES R77FLAG TCF R04Z - + R04 TC RDRUSECK # TRY TO AVOID THE 1210. TC TESTXACT TC UPFLAG ADRES R04FLAG # SET R04FLAG FOR ALARMS - + R04Z CAF EBANK4 TS EBANK CAF 1SEC+1 # SAMPLE ONCE PER SECOND @@ -616,7 +616,7 @@ R04Z CAF EBANK4 CAF ZERO TS RTSTLOC TS RFAILCNT # ZERO BAD SAMPLE COUNTER - + INHINT CS LRPOSCAL # INITIALIZE MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0 @@ -626,16 +626,16 @@ R04Z CAF EBANK4 RAND CHAN33 ADS RADMODES RELINT - + CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0 MASK R04FLBIT CCS A TCF R04K - + CAF ONE # INDICATES RENDEZVOUS DESIRED TS OPTIONX +1 R04A CAF BIT3 # OPTION CODE FOR V04N12 - + # Page 277 TS OPTIONX CAF V04N12X @@ -647,22 +647,22 @@ R04A CAF BIT3 # OPTION CODE FOR V04N12 CAF BIT3 TC BLANKET TC ENDOFJOB - + CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2 TS RTSTDEX - + R04X CAF SIX # RR OR LR DESIRED MASK RTSTDEX CCS A TCF R04L # LANDING RADAR TS RTSTBASE # FOR RR BASE =0, MAX =1 - + R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT EXTEND RAND CHAN33 EXTEND BZF R04C # YES - + CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE TS DSPTEM1 CAF V50N25X @@ -671,62 +671,62 @@ R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT TCF R04END # V34 TCF R04B # V33 TCF -7 # E - + R04C CAF BIT14 # ENABLE RR AUTO TRACKER EXTEND WOR CHAN12 - + CAF TWO TS RTSTMAX # FOR SEQUENTIAL STORAGE - + TC WAITLIST ## [WORKAROUND] RSB 2009 SBANK= PINSUPER -## [WORKAROUND] +## [WORKAROUND] EBANK= RSTACK 2CADR RADSAMP - + RELINT - + CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0 MASK R04FLBIT # Page 278 CCS A TCF GOPIN # R77 - + CAF SIX # RR OR LR MASK RTSTDEX CCS A TCF R04LR # LR - + R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC) TC BANKCALL # R1 + XXX.XX DEG TRUNNION CADR GOMARKF # R2 + XXX.XX DEG SHAFT TCF R04END # V34 R3 BLANK TCF +2 # V33 TCF R04RR # V32 - + CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC) TC BANKCALL # R1 +- XXX.XX NM RANGE CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE TCF R04END # V34 R3 BLANK TCF R04Y # V33 TCF R04RR # V32 - + R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITON (1/SEC) TC BANKCALL # R1 +- XXXXX, FT LR RANGE CADR GOMARKF # R2 + 0000X. POS. NO. TCF R04END # V34 R3 BLANK TCF +2 # V33 TCF R04LR # V32 - + CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC) TC BANKCALL # R1 +- XXXXX. FPS LR V(X) CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y) TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z) TCF R04Y # V33 TCF R04LR # V32 - + R04Y CAF ZERO # TO TERMINATE SAMPLING. TS RSAMPDT CAF 2SECS # WAIT FOR LAST RADARUP @@ -743,11 +743,11 @@ R04Y CAF ZERO # TO TERMINATE SAMPLING. AD TWO # WAS RR # Page 279 - TCF R04X -1 - + TCF R04X -1 + R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND. TS RSAMPDT - + R04L CAF TWO TS RTSTBASE # FOR LR BASE =2, MAX =3 CAF SIX @@ -757,7 +757,7 @@ R04END CAF ZERO # ZERO RSAMPDT CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE TC BANKCALL # PENDING RUPT. CADR DELAYJOB - + INHINT CS BIT14 # DISABLE RR AUTO TRACKER. EXTEND @@ -765,7 +765,7 @@ R04END CAF ZERO # ZERO RSAMPDT TC DOWNFLAG ADRES R04FLAG # SIGNAL END OF R04. - + TC ENDEXT R77END CAF EBANK4 # TO TERMINATE SAMPLING @@ -775,11 +775,11 @@ R77END CAF EBANK4 # TO TERMINATE SAMPLING CAF BIT6 # WAIT 320 MS FOR POSSIBLE TC BANKCALL # PENDING RUPT. CADR DELAYJOB - + TC DOWNFLAG ADRES R77FLAG TCF GOPIN - + V16N72 VN 1672 V16N78 VN 1678 V16N66 VN 1666 @@ -827,15 +827,15 @@ DEC22 DEC 22 COUNT* $$/EXTVB -VB64 TC CHKP00H # DEMAND PROGRAM 00. +VB64 TC CHKP00H # DEMAND PROGRAM 00. TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. CAF PRIO4 TC FINDVAC EBANK= ALPHASB 2CADR SBANDANT # CALC., DISPLAY S-BAND ANTENNA ANGLES. - + TC ENDOFJOB - + # Page 281 # IMUATTCK VERB 43 DESCRIPTION # LOAD IMU ATTITUDE ERROR METERS @@ -853,7 +853,7 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS RAND CHAN12 CCS A TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON - + CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1 EXTEND # INDICATING THE MODE SELECTED IS OFF. RXOR CHAN31 @@ -861,9 +861,9 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS EXTEND BZF +2 # NEEDLES IS OFF. TCF ALM/END # EXIT. NEEDLES IS ON. - + TC TESTXACT - + CAF VNLODCDU TC BANKCALL CADR GOXDSPF @@ -879,13 +879,13 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS. EBANK= THETAD 2CADR ATTCK2 - + TCF ENDEXT - + BANK 42 SETLOC PINBALL3 # SOMETHING IN B42. BANK - + COUNT* $$/EXTVB # Page 282 ATTCK2 CAF TWO # PUT OUT COMMANDS. @@ -898,20 +898,20 @@ ATTCK2 CAF TWO # PUT OUT COMMANDS. XCH CDUXCMD CCS Q TCF ATTCK2 +1 - + CAF 13,14,15 EXTEND WOR CHAN14 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED. - + ATTSCALE DEC 0.1 BANK 7 SETLOC EXTVERBS BANK - + COUNT* $$/EXTVB - + V43K VN 4300 # V82PERF VERB82 DESCRIPTION @@ -925,7 +925,7 @@ V43K VN 4300 # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE -# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO +# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. @@ -949,7 +949,7 @@ V82PERF TC TESTXACT EXTEND DCA V82CON TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF - + EBANK= HAPO V82CON 2CADR V82CALL @@ -969,11 +969,11 @@ V83PERF TC TESTXACT TC WAITLIST EBANK= TSTRT 2CADR R31CALL - + TC ENDOFJOB - + # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63) -# +# # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM. # @@ -1008,9 +1008,9 @@ V89PERF TC CHKP00H TC FINDVAC EBANK= RONE 2CADR V89CALL - + TC ENDOFJOB - + # V90PERF VERB 90 DESCRIPTION # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36) # @@ -1028,9 +1028,9 @@ V90PERF TC TESTXACT TC FINDVAC EBANK= RPASS36 2CADR R36 - + TCF ENDOFJOB - + # MINIMP VERB 76 DESCRIPTION # MINIMUM IMPULSE MODE # @@ -1041,7 +1041,7 @@ MINIMP INHINT MASK PULSES # PULSES = 1 INDICATES MIN IMP MODE ADS DAPBOOLS TCF GOPIN # RETURN VIA PINBRNCH - + # NOMINIMP VERB 77 DESCRIPTION # RATE COMMAND MODE @@ -1059,7 +1059,7 @@ NOMINIMP INHINT TC IBNKCALL CADR ZATTEROR TC GOPIN - + # Page 286 # CREMANU VERB 49 DESCRIPTION # START AUTOMATIC ATTITUDE MANEUVER @@ -1081,16 +1081,16 @@ NOMINIMP INHINT # 1. REPEAT FLASHING V06,N22. CREWMANU TC CHKP00H # DEMAND P00 - + TC TESTXACT - + CAF PRIO10 TC FINDVAC EBANK= BCDU 2CADR R62DISP - + TC ENDOFJOB - + # Page 287 # TRMTRACK VERB 56 DESCRIPTION # TERMINATE TRACKING (P20 AND P25). @@ -1108,62 +1108,62 @@ TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON MASK FLAGWRD0 EXTEND BZF GOPIN # NO - + TC DOWNFLAG ADRES RNDVZFLG TC DOWNFLAG ADRES P25FLAG - + TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF ADRES SRCHOPTN - + CA TRACKBIT # IS TRACK FLAG ON? MASK FLAGWRD1 EXTEND BZF GOPIN - + TC POSTJUMP CADR TRMTRAK1 - + BITS9+7 OCT 500 SETLOC SBAND # BANK 42 BANK - + COUNT* $$/EXTVB - -TRMTRAK1 TC DOWNFLAG + +TRMTRAK1 TC DOWNFLAG ADRES UPDATFLG # UPDATE FLAG DOWN TC DOWNFLAG ADRES TRACKFLG # TRACK FLAG DOWN TC DOWNFLAG ADRES IMUSE - + TC INTPRET - CALL + CALL INTSTALL # DON'T INTERRUPT INTEGRATION # Page 288 EXIT - + TC PHASCHNG OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY - + INHINT TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP CADR STOPRATE # MANEUVER - + TC IBNKCALL CADR RESTORDB - + TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES. - + CS BIT14 # DISABLE LOCKON EXTEND WAND CHAN12 TC POSTJUMP CADR GOPROG2 # CAUSE RESTART. - + # DNEDUMP VERB 74 DESCRIPTION # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP. # @@ -1190,9 +1190,9 @@ LDNDUMPI REMADR DNDUMPI LEMVEC TC DOWNFLAG ADRES VEHUPFLG # VB 80 -- VEHUPFLG DOWN INDICATES LEM - + TC NOUPDOWN - + # CSMVEC VERB 81 DESCRIPTION # UPDATE CSM STATE VECTOR # Page 289 @@ -1200,19 +1200,19 @@ LEMVEC TC DOWNFLAG CSMVEC TC UPFLAG ADRES VEHUPFLG # VB 81 -- VEHUPFLG UP INDICATES CSM - + NOUPDOWN TC DOWNFLAG ADRES NOUPFLAG - + TCF GOPIN - + # UPDATOFF VERB 95 DESCRIPTION # INHIBIT STATE VECTOR UPDATES BY INCORP # SET NOUPFLAG TO 1 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG ADRES NOUPFLAG - + TC GOPIN # Page 290 # SYSTEST VERB 92 DESCRIPTION @@ -1222,28 +1222,28 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG # 2. SET EXT VERB BUSY FLAG. EBANK= QPLACE - + SYSTEST TC CHKP00H # DEMAND P00 TC TESTXACT - + CAF PRIO22 TC FINDVAC EBANK= QPLACE SBANK= IMUSUPER 2CADR REDO - + TC ENDOFJOB - + # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED. WMATRXNG INHINT CS RENDWBIT MASK FLAGWRD5 TS FLAGWRD5 - + TC GOPIN - + GOSHOSUM EQUALS SHOWSUM SHOWSUM TC CHKP00H # * @@ -1271,14 +1271,14 @@ NOKILL CA ADRS1 # * TC NOKILL # * CA SELFADRS TS SKEEP1 - + TC ENDEXT # * VNCON VN 501 # * ENDSUMS CA SKEEP6 # * EXTEND # * BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN. TC STSHOSUM # * START SHOWSUM AGAIN. - + # Page 292 # DAPDISP VERB 48 DESCRIPTION # LOAD AUTO PILOT DATA @@ -1292,15 +1292,15 @@ DAPDISP TC TESTXACT TC PRIOCHNG TC POSTJUMP CADR DAPDATA1 - + BANK 34 SETLOC LOADDAP BANK - + COUNT* $$/R03 - + SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S - + DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS. MASK DAPBOOLS # LM TS DAPDATR1 # LM @@ -1328,7 +1328,7 @@ MSKDATR1 MASK DSPLYMSK FORCEONE CAF BIT13 ADS DAPDATR1 TCF MSKDATR1 - + DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1. MASK FLGWRD10 @@ -1373,7 +1373,7 @@ DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS TS RATEINDX # ARE DP TC POSTJUMP CADR STIKLOAD - + V01N46 VN 0146 DSPLYMSK OCT 33113 BOOLSMSK OCT 13113 @@ -1381,9 +1381,9 @@ BOOLSMSK OCT 13113 BANK 01 SETLOC LOADDAP1 BANK - + COUNT* $$/R03 - + STIKLOAD CAF EBANK6 # Page 294 TS EBANK @@ -1407,7 +1407,7 @@ STIKLOAD CAF EBANK6 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S. TS -RATEDB RELINT # PROCEED TO NOUN 47, MASS LOAD. - + DAPDATA2 CAF V0647 TC BANKCALL CADR GOXDSPFR @@ -1447,11 +1447,11 @@ LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF CADR RESTORDB # INERTIA. RELINT # PROCEED TO NOUN 48 (OR END). - + DAPDATA3 CS FLGWRD10 MASK APSFLBIT EXTEND # END ROUTINE IF LEM HAS STAGED. - BZF ENDEXT + BZF ENDEXT CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE TC BANKCALL CADR GOXDSPFR @@ -1466,7 +1466,7 @@ DPDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT TC WAITLIST EBANK= ROLLTIME 2CADR TRIMGIMB - + TCF ENDOFJOB # DOES A RELINT TRIMDONE CAF V50N48 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03 @@ -1477,7 +1477,7 @@ TRIMDONE CAF V50N48 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43 TC BLANKET TCF ENDOFJOB - + V0647 VN 0647 V06N48 VN 0648 @@ -1501,19 +1501,19 @@ FINE DEC .165054 # FINE STICK SCALING (4 D/S). BANK 7 SETLOC EXTVERBS BANK - + COUNT* $$/EXTVB - + EBANK= RRECTHIS ATTACHED CAF PRIO10 TC FINDVAC EBANK= RRECTHIS - + 2CADR ATTACHIT - + TC ENDOFJOB - + ATTACHIT TC INTPRET CALL INTSTALL @@ -1528,7 +1528,7 @@ ATTACHIT TC INTPRET TC GENTRAN ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN ADRES RRECTOTH - + RELINT TC INTPRET CALL # UPDATE R-OTHER, V-OTHER @@ -1537,18 +1537,18 @@ ATTACHIT TC INTPRET PBODY SVDWN1 EXIT - + CAF TCPINAD INDEX FIXLOC TS QPRET TC POSTJUMP CADR INTWAKE # FREE INTEGRATION AND EXIT. -# Page 298 +# Page 298 TCPIN RTB PINBRNCH - + OCT51 OCT 51 TCPINAD CADR TCPIN @@ -1560,11 +1560,11 @@ TCPINAD CADR TCPIN VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT ADRES QUITFLAG # AT NEXT TIMESTEP - + CAF ZERO TC POSTJUMP CADR V37 # GO TO P00 - + # VERB 67: DISPLAY OF W MATRIX V67 TC TESTXACT @@ -1572,26 +1572,26 @@ V67 TC TESTXACT TC FINDVAC EBANK= WWPOS 2CADR V67CALL - + TC ENDOFJOB - + # VERB 65 DISABLE U,V JETS DURING DPS BURNS SNUFFOUT TC UPFLAG ADRES SNUFFER TC GOPIN - + # VERB 75 ENABLE U,V JETS DURING DPS BURNS OUTSNUFF TC DOWNFLAG ADRES SNUFFER TC GOPIN - + # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION. # # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE, # 360-270 DEG IN THE -Y HEMISPHERE. -# +# # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y. EBANK= RR-AZ @@ -1601,17 +1601,17 @@ VERB85 TC TESTXACT TC POSTJUMP CADR DSPRRLOS - + SETLOC PINBALL1 BANK - + COUNT* $$/EXTVB - + DSPRRLOS CAF PRIO5 TC FINDVAC EBANK= RR-AZ 2CADR RRLOSDSP - + CAF PRIO4 TC PRIOCHNG CAF V16N56 @@ -1620,11 +1620,11 @@ DSPRRLOS CAF PRIO5 TC B5OFF TC B5OFF TC B5OFF - + CAF BIT3 TC BLANKET TC ENDOFJOB - + RRLOSDSP EXTEND DCA CDUT DXCH MPAC @@ -1642,7 +1642,7 @@ RRLOSDSP EXTEND UNITZ STOVL COSTH # 16D UNITX - DOT + DOT 6D STCALL SINTH # 18D ARCTRIG @@ -1670,12 +1670,12 @@ RRLOSDSP EXTEND CA 1SEC TC BANKCALL CADR DELAYJOB - + CA BIT5 MASK EXTVBACT CCS A TC RRLOSDSP TC ENDEXT - + V16N56 VN 1656 diff --git a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc index b0f88be..9ff7297 100644 --- a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc +++ b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc @@ -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 diff --git a/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc b/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc index 802b539..de61952 100644 --- a/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc +++ b/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/FLAGWORD_ASSIGNMENTS.agc b/Luminary099/FLAGWORD_ASSIGNMENTS.agc index a0904b4..0a37247 100644 --- a/Luminary099/FLAGWORD_ASSIGNMENTS.agc +++ b/Luminary099/FLAGWORD_ASSIGNMENTS.agc @@ -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 diff --git a/Luminary099/FRESH_START_AND_RESTART.agc b/Luminary099/FRESH_START_AND_RESTART.agc index b81cc05..433dfb1 100644 --- a/Luminary099/FRESH_START_AND_RESTART.agc +++ b/Luminary099/FRESH_START_AND_RESTART.agc @@ -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 - + diff --git a/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc b/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc index 00d268e..6569e66 100644 --- a/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc +++ b/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc index b1c2f9b..155442b 100644 --- a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc +++ b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/HeaderTemplate.agc b/Luminary099/HeaderTemplate.agc index 493c932..649d8ab 100644 --- a/Luminary099/HeaderTemplate.agc +++ b/Luminary099/HeaderTemplate.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/IMU_COMPENSATION_PACKAGE.agc b/Luminary099/IMU_COMPENSATION_PACKAGE.agc index f2b418f..c8a04d7 100644 --- a/Luminary099/IMU_COMPENSATION_PACKAGE.agc +++ b/Luminary099/IMU_COMPENSATION_PACKAGE.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc index 4530a06..ff5b60e 100644 --- a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc +++ b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc @@ -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 - + diff --git a/Luminary099/IMU_PERFORMANCE_TESTS_4.agc b/Luminary099/IMU_PERFORMANCE_TESTS_4.agc index 8776338..0c1b354 100644 --- a/Luminary099/IMU_PERFORMANCE_TESTS_4.agc +++ b/Luminary099/IMU_PERFORMANCE_TESTS_4.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/IMU_PERFORMANCE_TEST_2.agc b/Luminary099/IMU_PERFORMANCE_TEST_2.agc index 3f5262b..9f03ea7 100644 --- a/Luminary099/IMU_PERFORMANCE_TEST_2.agc +++ b/Luminary099/IMU_PERFORMANCE_TEST_2.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc b/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc index b140d0f..0c70d92 100644 --- a/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc +++ b/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc index d945853..5022cd1 100644 --- a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc +++ b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc @@ -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 diff --git a/Luminary099/INTEGRATION_INITIALIZATION.agc b/Luminary099/INTEGRATION_INITIALIZATION.agc index 236de92..08c7100 100644 --- a/Luminary099/INTEGRATION_INITIALIZATION.agc +++ b/Luminary099/INTEGRATION_INITIALIZATION.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/INTER-BANK_COMMUNICATION.agc b/Luminary099/INTER-BANK_COMMUNICATION.agc index 297eec4..1ff8e2c 100644 --- a/Luminary099/INTER-BANK_COMMUNICATION.agc +++ b/Luminary099/INTER-BANK_COMMUNICATION.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/INTERPRETER.agc b/Luminary099/INTERPRETER.agc index b30ba41..4179918 100644 --- a/Luminary099/INTERPRETER.agc +++ b/Luminary099/INTERPRETER.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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. diff --git a/Luminary099/INTERPRETIVE_CONSTANT.agc b/Luminary099/INTERPRETIVE_CONSTANT.agc index cbe7035..030bcdb 100644 --- a/Luminary099/INTERPRETIVE_CONSTANT.agc +++ b/Luminary099/INTERPRETIVE_CONSTANT.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/INTERRUPT_LEAD_INS.agc b/Luminary099/INTERRUPT_LEAD_INS.agc index 56719f1..4b26465 100644 --- a/Luminary099/INTERRUPT_LEAD_INS.agc +++ b/Luminary099/INTERRUPT_LEAD_INS.agc @@ -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 - + diff --git a/Luminary099/KALCMANU_STEERING.agc b/Luminary099/KALCMANU_STEERING.agc index fce6f8d..9006f1b 100644 --- a/Luminary099/KALCMANU_STEERING.agc +++ b/Luminary099/KALCMANU_STEERING.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 + diff --git a/Luminary099/KALMAN_FILTER.agc b/Luminary099/KALMAN_FILTER.agc index 0b9cac8..a313004 100644 --- a/Luminary099/KALMAN_FILTER.agc +++ b/Luminary099/KALMAN_FILTER.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/KEYRUPT_UPRUPT.agc b/Luminary099/KEYRUPT_UPRUPT.agc index 50ff700..1e79ff5 100644 --- a/Luminary099/KEYRUPT_UPRUPT.agc +++ b/Luminary099/KEYRUPT_UPRUPT.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc index cd367f4..77c6a4a 100644 --- a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc +++ b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc @@ -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 diff --git a/Luminary099/LANDING_ANALOG_DISPLAYS.agc b/Luminary099/LANDING_ANALOG_DISPLAYS.agc index ede4e48..800f31a 100644 --- a/Luminary099/LANDING_ANALOG_DISPLAYS.agc +++ b/Luminary099/LANDING_ANALOG_DISPLAYS.agc @@ -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 diff --git a/Luminary099/LEM_GEOMETRY.agc b/Luminary099/LEM_GEOMETRY.agc index 320c249..8aa5580 100644 --- a/Luminary099/LEM_GEOMETRY.agc +++ b/Luminary099/LEM_GEOMETRY.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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.) - + diff --git a/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc b/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc index 911dc99..cea37cd 100644 --- a/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc +++ b/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc @@ -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 diff --git a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc index b21161c..e1d5abe 100644 --- a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc +++ b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc @@ -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 diff --git a/Luminary099/MAIN.agc b/Luminary099/MAIN.agc index 7dcf27c..1b2f268 100644 --- a/Luminary099/MAIN.agc +++ b/Luminary099/MAIN.agc @@ -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 diff --git a/Luminary099/ORBITAL_INTEGRATION.agc b/Luminary099/ORBITAL_INTEGRATION.agc index 6d91d4a..7cca363 100644 --- a/Luminary099/ORBITAL_INTEGRATION.agc +++ b/Luminary099/ORBITAL_INTEGRATION.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc index 8a11483..89bb05b 100644 --- a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc +++ b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/P12.agc b/Luminary099/P12.agc index 569efd0..f5b6f60 100644 --- a/Luminary099/P12.agc +++ b/Luminary099/P12.agc @@ -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 diff --git a/Luminary099/P20-P25.agc b/Luminary099/P20-P25.agc index 6fb23bc..4d9b8f8 100644 --- a/Luminary099/P20-P25.agc +++ b/Luminary099/P20-P25.agc @@ -12,7 +12,7 @@ # 2009-06-06 RSB Added a missing instruction, and a block # of 3 missing instructions. # 2009-06-07 RSB Fixed a misprint. -# 2009-06-07 RSB Changed the construct "2DEC E-6 B12" +# 2009-06-07 RSB Changed the construct "2DEC E-6 B12" # (which isn't legal in yaYUL) to # "2DEC 1.0 E-6 B12". # 2011-05-07 JL Removed workarounds. @@ -30,7 +30,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 492 # RENDEZVOUS NAVIGATION PROGRAM 20 @@ -43,7 +43,7 @@ # FUNCTIONAL DESCRIPTION # # THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM -# STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER +# STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER # THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY) # ON THE BASIS OF THE RR TRACKING DATA. # @@ -61,7 +61,7 @@ # R61LEM (PREFERRED TRACKING ATTITUDE) # R21LEM (RR DESIGNATE) ENDOFJOB # R22LEM (DATA READ) GOPERF1 -# R31LEM (RENDEZVOUS PARAMETER DISPLAY) +# R31LEM (RENDEZVOUS PARAMETER DISPLAY) # PRIOLARM (PRIORITY DISPLAY) # # NORMAL EXIT MODES -- @@ -88,11 +88,11 @@ # CENTRALS -- A,Q,L SBANK= LOWSUPER # FOR LOW 2CADR'S. - + BANK 33 SETLOC P20S BANK - + EBANK= LOSCOUNT COUNT* $$/P20 PROG22 = PROG20 @@ -131,10 +131,10 @@ ORBCHG2 TC INTPRET SETLOC P20S4 BANK COUNT* $$/P20 - + ORBCHG3 CALL INTSTALL - DLOAD + DLOAD TIG STORE LNCHTM STORE TDEC1 # ESTIMATED LAUNCH TIME @@ -237,12 +237,12 @@ NOWMATX CALL EXIT TC BANKCALL CADR PROG20A - + BANK 24 SETLOC P20S BANK COUNT* $$/P20 - + TC DOWNFLAG # RESET VEHUPFLG -- LM STATE VECTOR ADRES VEHUPFLG # TO BE UPDATED PROG20A TC BANKCALL @@ -287,7 +287,7 @@ P20LEM1 TC PHASCHNG TC -4 # PROC (ILLEGAL) TC P20LEM1 # ENTER RECYCLE TC ENDOFJOB - + P20LEMA TC PHASCHNG OCT 04022 TC LUNSFCHK # CHECK LUNAR SURFACE FLAG (P22 FLAG) @@ -309,12 +309,12 @@ P20LEMB7 CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT RAND CHAN33 EXTEND BZF P20LEMB3 # YES -- DO AUTOMATIC ACQUISITION (R21) - + P20LEMB5 CS OCT24 # RADAR NOT IN AUTO CHECK IF AD MODREG # MAJOR MODE IS 20 EXTEND BZF P20LEMB6 # BRANCH -- YES -- OKAY TO DO PLEASE PERFORM - + AD NEG2 # ALSO CHECK FOR P22 EXTEND BZF P20LEMB6 # BRANCH -- YES OK TO DO PLEASE PERFORM @@ -333,14 +333,14 @@ P20LEMB6 CAF OCT201 # REQUEST RR AUTO MODE SELECTION TC LUNSFCHK # ENTER INDICATES MANUAL ACQUISITION (R23) TC P20LEMB2 # YES -- R23 NOT ALLOWED -- TURN ON OPR ERROR TC R23LEM # NO -- DO MANUAL ACQUISITION - + P20LEMB1 TC UPFLAG # RETURN FROM R23 -- LOCKON ACHIEVED ADRES ACMODFLG # SET MANUAL FLAG AND GO BACK TO CHECK TC P20LEMB # RR AUTO MODE - + P20LEMB2 TC FALTON # TURNS ON OPERATOR ERROR LIGHT ON DSKY TC P20LEMB # AND GOES BACK TO CHECK AUTO MODE - + P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED MASK RCDU0BIT EXTEND @@ -355,12 +355,12 @@ P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED TC DOWNFLAG ADRES ACMODFLG TC P20LEMWT # WAIT 2.5 SECONDS THEN GO TO RR DATA READ - + P20LEMB4 CAF 250DEC TC BANKCALL # WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING CADR DELAYJOB # ZEROED -- THEN GO BACK AND CHECK AGAIN TC P20LEMB3 - + P20LEMC3 TC INTPRET RTB LOADTIME @@ -389,7 +389,7 @@ P20LEMWT CAF 250DEC P20LMWT1 TC PHASCHNG OCT 40072 TC ENDOFJOB - + P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET MASK RNDVZBIT EXTEND @@ -403,19 +403,19 @@ P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET TC FINDVAC EBANK= LOSCOUNT 2CADR R22LEM42 - + TC TASKOVER - + P20LEMC2 TC FIXDELAY # TRACK FLAG NOT SET, WAIT 15 SECONDS DEC 1500 # AND CHECK AGAIN - + TC P20LEMC1 - + P20LEMD CAF 1500DEC TC TWIDDLE # WAITLIST FOR 15 SECONDS ADRES P20LEMD1 TC ENDOFJOB - + P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET MASK TRACKBIT CCS A @@ -423,14 +423,14 @@ P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET TC FIXDELAY # NO -- WAIT 15 SECONDS DEC 1500 TC P20LEMD1 - + P20LEMD2 CAF PRIO26 # SCHEDULE JOB TO DO R21 TC FINDVAC EBANK= LOSCOUNT 2CADR P20LEMC3 # START AT PERM. MEMORY INTEGRATION - + TC TASKOVER - + 250DEC DEC 250 ALRM526 OCT 00526 OCT201 OCT 00201 @@ -484,7 +484,7 @@ UPPSV4 CALL # INTEGRATE OTHER VEHICLE STORE LMVEL GOTO LS21X - + UPPSV3 CLEAR CALL VINTFLAG INTEGRV @@ -500,7 +500,7 @@ UPPSV3 CLEAR CALL UPPSV4 EBANK= LOSCOUNT COUNT* $$/P22 - + # Page 502 # PROGRAM DESCRIPTION # @@ -553,7 +553,7 @@ PROG25 TC 2PHSCHNG OCT 4 # MAKE GROUP 4 INACTIVE (VERB 37) OCT 05022 OCT 26000 # PRIORITY 26 - + TC BANKCALL CADR R02BOTH # IMU STATUS CHECK TC UPFLAG @@ -586,7 +586,7 @@ P25LEM2 CAF PRIO14 TC FINDVAC EBANK= LOSCOUNT 2CADR P25LEM1 - + TC TASKOVER 60SCNDS DEC 6000 @@ -719,7 +719,7 @@ R22LEM3 CS FLAGWRD1 # SHOULD WE BYPASS STATE VECTOR UPDATE BZF R22LEM42 # UPDATE FLAG NOT SET CAF PRIO26 # INSURE HIGH PRIO IN RESTART TS PHSPRDT2 - + TC INTPRET GOTO LSR22.3 @@ -736,7 +736,7 @@ R22LEM96 EXIT TC NOVAC EBANK= N49FLAG 2CADR N49DSP - + TC INTPRET SLOAD N49FLAG @@ -767,12 +767,12 @@ R22LEM45 TS R65CNTR TC R22LEM R22WAIT CAF 1500DEC TC P20LEMWT +1 - + R22LEM46 CAF 2SECS TC BANKCALL # WAIT 2 SECONDS AND TAKE ANOTHER MARK CADR DELAYJOB TC R22LEM - + N49DSP CAF V06N49NB TC BANKCALL # EXCESSIVE STATE VECTOR UPDATE -- FLASH CADR PRIODSP # VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V @@ -788,7 +788,7 @@ R22RSTRT TC PHASCHNG # IF A RESTART OCCURS WHILE READING RADAR CADR RADSTALL # WAIT FOR READ COMPLETE TC P20LEMC # COULD NOT READ RADAR -- TRY TO REDISGNATE TC R22LEM # READ SUCCESSFUL -- CONTINUE AT R22 - + ALRM525 OCT 00525 V06N05 VN 00605 V06N49NB VN 00649 @@ -804,7 +804,7 @@ LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE CCS A # BRANCH -- P22FLAG SET INCR Q # NOT SET TC Q # RETURN - + # Page 508 # RR DESIGNATE ROUTINE (R21LEM) # PROGRAM DESCRIPTION @@ -830,7 +830,7 @@ LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE # TASKOVER BANKCALL RADSTALL RRDESSM # # NORMAL EXIT MODES -# +# # WHEN LOCK-ON IS ACHIEVED, BRANCH WILL BE TO P20 WHERE R22 (DATA READ # WILL BE SELECTED OR A NEED FOR A MANEUVER (BRANCH TO P20LEMA) # @@ -992,7 +992,7 @@ R21LEMB DLOAD TC LONGCALL EBANK= LOSCOUNT 2CADR R21LEM9 - + TC ENDOFJOB R21LEM9 TC KILLTASK CADR STDESIG @@ -1001,7 +1001,7 @@ R21LEM9 TC KILLTASK TC FINDVAC EBANK= LOSCOUNT 2CADR R21LEM10 - + TC TASKOVER R21LEM11 CAF ALRM530 # ALARM 530 -- LOS NOT IN COVERAGE TC BANKCALL # AFTER TRYING TO DESIGNATE FOR @@ -1026,7 +1026,7 @@ R21DISP TC PHASCHNG CAF BIT7 TC LINUS # SET BITS TO MAKE THIS A PRIORITY DISPLAY TC ENDOFJOB - + # Page 512 V06N72PV VN 00672 @@ -1110,7 +1110,7 @@ R23LEM2 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG R23LEM3 TC BANKCALL CADR R61LEM TC R23LEM1 - + OCT501PV OCT 501 OCT205 OCT 205 @@ -1179,7 +1179,7 @@ R24LEM2 TC PHASCHNG CADR PRIODSPR TC GOTOV56 TC R24END # PROCEED EXIT R24 TO P20LEM1 - + TC R24LEM3 # RECYCLE -- CALL R61 TO MANEUVER S/C # Page 516 TC BANKCALL @@ -1188,12 +1188,12 @@ R24END TC KILLTASK CADR CALLDGCH TC CLRADMOD # CLEAR BITS 10 & 15 OF RADMODES. TCF P20LEM1 # AND GO TO 400 MI. RANGE CHECK IN P20 - + BLOCK 3 SETLOC FFTAG6 BANK COUNT* $$/R24 - + CLRADMOD CS BIT10+15 INHINT MASK RADMODES @@ -1201,15 +1201,15 @@ CLRADMOD CS BIT10+15 CS BIT2 # DISABLE RR ERROR COUNTERS EXTEND WAND CHAN12 # USER WILL RELINT - + TC Q - + BIT10+15 OCT 41000 BANK 24 SETLOC P20S BANK COUNT* $$/R24 - + R24LEM3 TC PHASCHNG OCT 04022 TC KILLTASK @@ -1227,9 +1227,9 @@ R24LEM4 CAF ZERO # ZERO OUT RADCADR (WHICH WAS SET BY TS RADCADR # ENDRADAR WHEN DESIGNATE STOPPED) SO THAT # RRDESSM WILL RETURN TO CALLER TC R24LEM2 # AND GO BACK TO PUT UP V16 N80 DISPLAY - + V16N80 VN 01680 - + # Page 517 # PREFERRED TRACKING ATTITUDE ROUTINE R61LEM # PROGRAM DESCRIPTION @@ -1382,7 +1382,7 @@ R61C+L2 CAF PRIO26 TC FINDVAC EBANK= LOSCOUNT 2CADR R61C+L01 - + TC TASKOVER R61C+L04 TC BANKCALL # TO CONVERT ANGLES TO FDAI CADR BALLANGS @@ -1396,7 +1396,7 @@ R61C+L1 CAF BIT7+9PV # IS RENDEZVOUS OR P25FLAG SET TC R61C+L06 # YES EXIT ROUTINE R65WAIT TC POSTJUMP CADR P20LEMWT - + BIT7+9PV OCT 00500 # Page 520 COS15DEG 2DEC 0.96593 B-1 @@ -1416,11 +1416,11 @@ READCDUD INHINT # READS DESIRED CDU'S AND STORES IN CA RUPTREG1 TS EBANK RELINT - TCF TMODE + TCF TMODE BLOCK 02 SETLOC RADARFF BANK - + EBANK= LOSCOUNT COUNT* $$/RRSUB @@ -1432,13 +1432,13 @@ MAGSUB EXTEND BZMF +2 TCF +2 COM - + INDEX Q AD 0 EXTEND BZMF Q+2 # ABS(A) <= CONST GO TO L+3 TCF Q+1 # ABS(A) > CONST GO TO L+2 - + # Page 522 # PROGRAM NAME: RRLIMCHK # @@ -1488,38 +1488,38 @@ RRLIMCHK EXTEND INCR Q DXCH ITEMP1 LXCH Q # L(CALLER +2) TO L. - + CAF ANTENBIT # SEE WHICH MODE RR IS IN. MASK RADMODES CCS A TCF MODE2CHK - + CA ITEMP1 # MODE 1 IS DEFINED AS # Page 523 TC MAGSUB # 1. ABS(T) L 55 DEGS. DEC -.30555 # 2. ABS(S + 5.5 DEGS) L 64.5 DEGS TC L # (SHAFT LIMITS AT +59, -70 DEGS) - + CAF 5.5DEGS AD ITEMP2 TC MAGSUB DEC -.35833 # 64.5 DEGS TC L TC RRLIMOK # IN LIMITS. - + MODE2CHK CAF 82DEGS # MODE 2 IS DEFINED AS AD ITEMP2 # 1. ABS(T) G 125 DEGS. TC MAGSUB # 2. ABS(S + 82 DEGS) L 57 DEGS DEC -.31667 # (SHAFT LIMITS AT -25, -139 DEGS) TC L - + CA ITEMP1 TC MAGSUB DEC -.69444 # 125 DEGS - + RRLIMOK INDEX L TC L # ( = TC 1 ) - + 5.5DEGS DEC .03056 82DEGS DEC .45556 @@ -1565,7 +1565,7 @@ SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST MASK IMODES33 CCS A TC Q - + RRTRKF CA BIT8 TS L @@ -1573,7 +1573,7 @@ RRTRKF CA BIT8 MASK RADMODES EXTEND BZF TRKFLON # CONDITION 3 ABOVE. - + RRCHECK CAF RRDATABT # SEE IF RR DATA FAILED. MASK RADMODES # Page 525 @@ -1583,7 +1583,7 @@ TRKFLON CA L MASK L EXTEND BZF TCQ # NO CHANGE. - + FLIP CA DSPTAB +11D # CAN'T USE LXCH DSPTAB +11D (RESTART PROB) EXTEND RXOR LCHAN @@ -1591,7 +1591,7 @@ FLIP CA DSPTAB +11D # CAN'T USE LXCH DSPTAB +11D (RESTART PROB) AD BIT15 TS DSPTAB +11D TC Q - + 13,7,2 OCT 10102 ENDRMODF EQUALS @@ -1614,7 +1614,7 @@ ENDRMODF EQUALS # TO TASKOVER. # # CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER-ON AUTO -# BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING +# BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING # THE RR (STATE BIT 7). # # ERASABLE INITIALIZATION REQUIRED: @@ -1624,7 +1624,7 @@ ENDRMODF EQUALS # SUBROUTINES CALLED: RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR # # JOBS OR TASKS INITIATED: -# +# # NONE # # ALARMS: NONE (SEE RRZEROSB) @@ -1634,7 +1634,7 @@ ENDRMODF EQUALS BANK 24 SETLOC P20S1 BANK - + EBANK= LOSCOUNT COUNT* $$/RSUB RRTURNON TC RRZEROSB @@ -1653,7 +1653,7 @@ RRTURNON TC RRZEROSB # DETERMINE THE RR MODE, AND TURN ON THE TRACKER FAIL # LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12 # BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC -# RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER +# RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER # WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS # REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU'S # TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE @@ -1688,7 +1688,7 @@ RRZEROSB EXTEND WOR CHAN12 # TURN ON ZERO RR CDU TC FIXDELAY DEC 2 - + CAF ZERO TS CDUT TS CDUS @@ -1697,26 +1697,26 @@ RRZEROSB EXTEND WAND CHAN12 TC FIXDELAY DEC 1000 # RESET FAIL INHIBIT IN 10 SECS. -- D.281 - + CS RCDU0BIT # REMOVE ZEROING IN PROCESS BIT # Page 528 MASK RADMODES TS RADMODES - + CA CDUT TC MAGSUB DEC -.5 TCF +3 # IF MODE 2. - + CAF ZERO TCF +2 CAF ANTENBIT XCH RADMODES MASK -BIT12 ADS RADMODES - + TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW. - + TC RRRET # DONE. -BIT12 EQUALS -1/8 # IN SPROOT @@ -1742,7 +1742,7 @@ RRZEROSB EXTEND # -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A # REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS # FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANFERRED TO -# REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS +# REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS # REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES # BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT # INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR @@ -1776,20 +1776,20 @@ DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS. TC FIXDELAY DEC 2 - + CAF ANTENBIT # MANEUVER TRUNNION ANGLE TO NOMINAL POS. # Page 530 MASK RADMODES CCS A CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2. TC RRTONLY - + CAF ANTENBIT # NOT PUT SHAFT IN RIGHT POSITION MASK RADMODES CCS A CS HALF # -90 FOR MODE 2. TC RRSONLY - + REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IN REMODE # REQUESTED DURING REPOSITION. MASK RADMODES # REMOVE REPOSITION BIT. @@ -1801,13 +1801,13 @@ REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IN REMODE EXTEND # REMOVE ERROR COUNTER ENABLE. WAND CHAN12 TCF TASKOVER - + SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS EXTEND RAND CHAN12 CCS A # DO NOT CLEAR LAST COMMAND IF TC Q # ERROR COUNTERS ARE ENABLED - + TS LASTYCMD TS LASTXCMD CAF BIT2 @@ -1867,7 +1867,7 @@ REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180) CCS A CAF BIT15 TC RRTONLY - + CAF -45DEGSR TC RRSONLY # Page 532 @@ -1877,25 +1877,25 @@ REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180) CAF -80DEGSR # GO TO T = -130 (-50). AD -50DEGSR TC RRTONLY - + CS RADMODES MASK ANTENBIT CCS A CAF BIT15 # GO TO T = -180 (+0). TC RRTONLY - + CS RADMODES # GO TO S = -90 (+0). MASK ANTENBIT CCS A CS HALF TC RRSONLY - + TC RMODINV - + CS REMODBIT # END OF REMODE. MASK RADMODES TS RADMODES - + CAF DESIGBIT # WAS REMODE CALLED DURING DESIGNATE? MASK RADMODES # (BIT10 RADMODES = 1) EXTEND @@ -1911,7 +1911,7 @@ RMODINV LXCH RADMODES # INVERT THE MODE STATUS. RXOR LCHAN TS RADMODES TC Q - + # Page 533 # PROGRAM NAMES: RRTONLY, RRSONLY # @@ -1959,10 +1959,10 @@ RMODINV LXCH RADMODES # INVERT THE MODE STATUS. RRTONLY TS RDES # DESIRED TRUNNION ANGLE. CAF ZERO TCF RR1AXIS - + RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180. - + RR1AXIS TS RRINDEX EXTEND QXCH RRRET @@ -1971,12 +1971,12 @@ RR1AXIS TS RRINDEX # Page 534 NXTRR1AX TC FIXDELAY DEC 50 # 2 SAMPLES PER SECOND. - + RR1AX2 CS RADMODES # IF SOMEONE REQUESTS A DESIGNATE WHICH MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN EXTEND # PROGRESS, INTERRUPT IT AND START THE BZF REPOSRPT # REMODE IMMEDIATELY. - + CA RDES EXTEND INDEX RRINDEX @@ -1990,17 +1990,17 @@ RR1AX2 CS RADMODES # IF SOMEONE REQUESTS A DESIGNATE WHICH XCH ITEMP1 # STORE RR-OUT-OF-AUTO-MODE BIT. TC MAGSUB # SEE IF WITHIN ONE DEGREE. DEC -.00555 # SCALED IN HALF-REVS. - + CCS ITEMP1 # NO. IF RR OUT OF AUTO MODE, EXIT. TC RRRET # RETURN TO CALLER. - + CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO. TCF +2 # SETTING A TO 0. XCH L DXCH TANG - + TC RROUT - + TCF NXTRR1AX # COME BACK IN .5 SECONDS. RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC. @@ -2025,7 +2025,7 @@ RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC. # ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM. # # CALLING SEQUENCE: -# +# # L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY # RRTONLY, RRSONLY, AND DODES # @@ -2052,11 +2052,11 @@ RROUT2 TS ITEMP2 INDEX A CA TANG TS ITEMP1 # SAVE SIGN COMMAND FOR LIMITING. - + TC MAGSUB # SEE IF WITHIN LIMITS. -RRLIMIT DEC -384 TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384. - + SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN XCH LASTYCMD # LASTYCMD AND LASTXCMD @@ -2066,15 +2066,15 @@ SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED AD NEG0 # PREVENT +0 IN OUTCOUNTER INDEX ITEMP2 TS CDUTCMD - + CCS ITEMP2 # PROCESS BOTH INPUTS. TCF RROUT2 - + CAF PRIO6 # ENABLE COUNTERS. EXTEND WOR CHAN14 # PUT ON CDU DRIVES S AND T TC L # RETURN. - + RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384. CS -RRLIMIT TCF +2 @@ -2089,18 +2089,18 @@ RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO MASK RADMODES # IF SO, DON'T RE-ZERO CDUS. CCS A TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND). - + INHINT CS RCDU0BIT # SET FLAG TO SHOW ZEROING IN PROGRESS. MASK RADMODES AD RCDU0BIT TS RADMODES - + CAF ONE TC WAITLIST EBANK= LOSCOUNT 2CADR RRZ2 - + CS RADMODES # SEE IF IN AUTO MODE. MASK AUTOMBIT CCS A @@ -2109,10 +2109,10 @@ RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO OCT 510 ROADBACK RELINT TCF SWRETURN - + RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO. TCF ENDRADAR - + BIT11+1 OCT 02001 # Page 538 @@ -2178,11 +2178,11 @@ RRDESSM STQ CLEAR VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION RRTARGET *SMNB* - + CALL # GET RR GIMBAL ANGLES IN PRESENT AND RRANGLES # ALTERNATE MODE. EXIT - + INHINT TC RRLIMCHK ADRES MODEA # CONFIGURATION FOR CURRENT MODE. @@ -2204,7 +2204,7 @@ LUNDESCH CS FLAGWRD8 # OVERFLOW RETURN FROM RRANGLES CCS A # TEST RNDVZFLG TC NODESSM # NOT ON MOON -- CALL FOR ATTITUDE MANEUVER TCF ENDOFJOB # ... BUT NOT IN R29. - + # Page 540 # PROGRAM NAME: STARTDES # @@ -2259,14 +2259,14 @@ STARTDES INCR DESRET MASK REPOSBIT # SEE IF REPOSITIONING IN PROGRESS. CCS A TCF DESRETRN # ECTR ALREADY SET UP. - + TC SETRRECR # SET UP ERROR COUNTERS. # Page 541 CAF TWO TC WAITLIST EBANK= LOSCOUNT 2CADR BEGDES - + DESRETRN CA RADCADR # FIRST PASS THRU DESIGNATE EXTEND BZF DESRTRN # YES SET EXIT @@ -2275,11 +2275,11 @@ DESRTRN RELINT INCR DESRET CA DESRET TCF BANKJUMP - + NORDSTAL CAF ZERO # ZERO RADCADR TO WIPE OUT ANYONE TS RADCADR # WAITING IN RADSTALL SINCE WE ARE NOW TCF DESRTRN # RETURNING TO P20 AND MAY DO NEW RADSTALL - + # Page 542 # SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE. @@ -2287,17 +2287,17 @@ TRYSWS TC RMODINV # (NOTE RUPT INHIBIT) TC RRLIMCHK # TRY DIFFERENT MODE. ADRES MODEB TCF NODESSM # VEHICLE MANEUVER REQUIRED - + TC RMODINV # RESET BIT12 CAF REMODBIT # SET FLAG FOR REMODE. ADS RADMODES - + TCF OKDESSM - + NODESSM TC RMODINV # RE-INVERT MODE AND RETURN INCR DESRET # TO CALLER +2 TCF NORDSTAL - + MAXTRYS DEC 60 # Page 543 @@ -2306,7 +2306,7 @@ MAXTRYS DEC 60 RRDESNB TC MAKECADR TS DESRET - + TC DOWNFLAG # RESET FLAG TO PREVENT DODES FROM GOING ADRES LOSCMFLG # BACK TO R21 CA MAXTRYS # SET TIME LIMIT COUNTER @@ -2315,38 +2315,38 @@ RRDESNB TC MAKECADR TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK ADRES TANG TCF TRYSWN # SEE IF IN OTHER MODE. - + OKDESNB RELINT EXTEND DCA TANG DXCH TANGNB TC INTPRET - + CALL # GET LOS IN NB COORDS. RRNB STORE RRTARGET - + SET EXIT RRNBSW - + INHINT TCF STARTDES +1 TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO. TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK ADRES TANG TCF NODESNB # NOT POSSIBLE. - + TC RMODINV CAF REMODBIT # CALL FOR REMODE. ADS RADMODES TCF OKDESNB - + NODESNB TC RMODINV # REINVERT MODE BIT. TC ALARM # BAD INPUT ANGLES. OCT 502 TC CLRADMOD TC ENDOFJOB # AVOID 503 ALARM. - + RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK CAF 0 # EXCEPT THAT THE MODE 1 SHAFT LOWER INCR Q # LIMIT IS -85 INSTEAD OF -70 DEGREES @@ -2356,7 +2356,7 @@ RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK DCA 0 DXCH ITEMP1 LXCH Q # L(CALLER +2) TO L - + CAF ANTENBIT # SEE WHICH MODE RR IS IN MASK RADMODES CCS A @@ -2365,7 +2365,7 @@ RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK TC MAGSUB # MODE 1 IS DEFINED AS DEC -.30555 # 1 ABS(T) L 55 DEGS TC L # 2 SHAFT LIMITS AT +59, -85 DEGS - + CA ITEMP2 # LOAD SHAFT ANGLE EXTEND BZMF NEGSHAFT # IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS @@ -2376,7 +2376,7 @@ SHAFTLIM TC MAGSUB TC RRLIMOK # IN LIMITS NEGSHAFT AD 20.5DEGS # MAKE NEGATIVE SHAFT LIMIT -85 DEGREES TCF SHAFTLIM - + 20.5DEGS DEC .11389 # Page 545 @@ -2437,25 +2437,25 @@ BEGDES CS RADMODES TC REMODE DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND. DEC 50 - + STDESIG CAF REPOSBIT MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A TCF BADDES # REPOSITION TO BE IN PROGRESS. - + CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED. TCF +3 # IF SO, DON'T CHECK BIT 10 TO SEE IF IN TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY. TCF MOREDES +1 - + CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF MASK DESIGBIT # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER TCF ENDRADAR # CHECKING RR CDU FAIL. - + STDESIG1 CCS DESCOUNT # SEE IF THE TIME LIMIT HAS EXPIRED TCF MOREDES - + CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR EXTEND WAND CHAN12 @@ -2463,15 +2463,15 @@ BADDES CS DESIGBIT # REMOVE DESIGNATE FLAG MASK RADMODES TS RADMODES TCF RDBADEND - + MOREDES TS DESCOUNT CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS. TC FINDVAC EBANK= LOSCOUNT 2CADR DODES - + TCF DESLOOP - + B14+B2 OCT 20002 # Page 547 @@ -2487,10 +2487,10 @@ B14+B2 OCT 20002 # + SHAFT = LOS . (COS(S), 0, -SIN(S)) (DOT PRODUCT) # - TRUNNION = LOS . (SIN(T)SIN(S), COS(T), SIN(T)COS(S)) # THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2 -# (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE +# (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE # POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS # SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN -# .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE +# .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE # (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING, # THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT # CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11) @@ -2541,9 +2541,9 @@ B14+B2 OCT 20002 DODES EXTEND DCA CDUT DXCH TANG - + TC INTPRET - + SETPD VLOAD 0 RRTARGET @@ -2559,7 +2559,7 @@ DODES EXTEND CDUTRIG CALL *SMNB* - + DONBRD STODL 32D TANG +1 RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0, @@ -2573,7 +2573,7 @@ DONBRD STODL 32D 0 STADR STORE TANG +1 # SHAFT COMMAND - + SLOAD RTB TANG CDULOGIC @@ -2590,7 +2590,7 @@ DONBRD STODL 32D SL1 VDEF DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND. 32D - + # Page 550 # AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A # COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET. @@ -2610,7 +2610,7 @@ DONBRD STODL 32D MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS. TS TANG +1 # SHAFT COMMAND FOR RROUT TC INTPRET - + DLOAD DMP 2 # COS(S). 4 # COS(T). @@ -2626,7 +2626,7 @@ DONBRD STODL 32D *NBSM* # GET URR IN SM AXES. DOT EXIT RRTARGET # GET COSIN OF ANGLE BETWEEN RR AND LOS - + EXTEND DCS COS1/2DG DAS MPAC # DIFFERENCE OF COSINES, SCALED B-2. @@ -2648,29 +2648,29 @@ SIGNLCHK CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .5 DEGS. MASK LOKONBIT # PROBLEM IS FINISHED. CCS A TCF RRDESDUN - + CAF BIT14 # ENABLE THE TRACKER EXTEND WOR CHAN12 - + DGOODCHK CAF BIT4 # SEE IF DATA GOOD RECEIVED YET EXTEND RAND CHAN33 CCS A TCF DORROUT - + RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND. INHINT TS RADMODES - + TC DOWNFLAG # RESET LOSCMFLG TO PREENT A ADRES LOSCMFLG # RECOMPUTATION OF LOS AFTER DATA GOOD CS BIT2 # TURN OFF ENABLE RR ERROR COUNTER EXTEND WAND CHAN12 TCF ENDOFJOB # WITH ECTR DISABLED. - + DORROUT CA FLAGWRD2 # IF BOTH LOSCMFLAG AND SEARCH FLAG ARE MASK BIT12,14 # ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS EXTEND @@ -2695,7 +2695,7 @@ NOTP20 INHINT MASK REPOSBIT # REPOSITION HAS TAKEN OVER CCS A TC RROUT - + CA FLAGWRD2 MASK LOSCMBIT # IF LOSCMFLG NOT SET, DON'T TEST EXTEND # LOS COUNTER @@ -2710,10 +2710,10 @@ NOTP20 INHINT TC CHANG1 TC BANKCALL CADR R21LEM2 - + DODESEND TS LOSCOUNT TC ENDOFJOB - + RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC. BIT12,14 EQUALS PRIO24 # OCT 24000 COS1/2DG 2DEC .999961923 B-2 # COSINE OF 0.5 DEGREES. @@ -2729,19 +2729,19 @@ ALLREAD OCT 17 LRVELZ TC INITREAD OCT 16 - + LRVELY TC INITREAD OCT 15 - + LRVELX TC INITREAD OCT 14 - + RRRDOT TC INITREAD -1 OCT 12 - + RRRANGE TC INITREAD -1 OCT 11 - + # LRVEL IS THE ENTRY TO THE LR VELOCITY READ ROUTINE WHEN 5 SAMPLES ARE # WANTED. ENTER WITH C(A)= 0,2,4 FOR LRVELZ,LRVELY,LRVELX RESP. @@ -2749,7 +2749,7 @@ LRVEL TS TIMEHOLD # STORE VBEAM INDEX HERE MOMENTARILY CAF FIVE # SPECIFY FIVE SAMPLES INDEX TIMEHOLD TCF LRVELZ - + # Page 554 -1 CAF ONE # ENTRY TO TAKE ONLY 1 SAMPLE INITREAD INHINT @@ -2758,37 +2758,37 @@ INITREAD INHINT EXTEND # INTERVAL (ASSUMES NO BAD SAMPLES WILL BE MP BIT3 # ENCOUNTERED). DXCH TIMEHOLD - + CCS A TS NSAMP AD ONE # INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES. # DOUBLE TS SAMPLIM - + CAF DGBITS # READ CURRENT VALUE OF DATA GOOD BITS. EXTEND RAND CHAN33 TS OLDATAGD - + CS ALLREAD EXTEND WAND CHAN13 # REMOVE ALL RADAR BITS - + INDEX Q CAF 0 EXTEND WOR CHAN13 # SET NEW RADAR BITS - + EXTEND DCA TIME2 DAS TIMEHOLD # TIME OF NOMINAL MIDPOINT - + CAF ZERO TS L DXCH SAMPLSUM TCF ROADBACK - + DGBITS OCT 230 # Page 555 @@ -2798,14 +2798,14 @@ DGBITS OCT 230 SETLOC RADARUPT BANK - + COUNT* $$/RRUPT RADAREAD EXTEND # MUST SAVE SBANK BECAUSE OF RUPT EXITS ROR SUPERBNK # VIA TASKOVER (BADEND OR GOODEND). TS BANKRUPT EXTEND QXCH QRUPT - + CAF SEVEN EXTEND RAND CHAN13 @@ -2821,17 +2821,17 @@ TRYCOUNT CCS SAMPLIM TC ALARM OCT 520 TC RESUME - + NOMORE CA FLGWRD11 # IS LRBYPASS SET? MASK LRBYBIT EXTEND BZF BADRAD # NO. R12 IS ON -- BYPASS 521 ALARM. - + CS FLAGWRD3 # CHECK R04FLAG. MASK R04FLBIT # IF 1, R04 IS RUNNING. DO NOT ALARM EXTEND BZF BADRAD - + TC ALARM # P20 WANTS THE ALARM. OCT 521 BADRAD CS ONE @@ -2844,7 +2844,7 @@ PLENTY TS SAMPLIM EXTEND # Page 556 BZF RENDRAD - + TC R77CHECK # R77 QUITS HERE. LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION EXTEND @@ -2852,18 +2852,18 @@ LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION MASK BIT6 EXTEND BZF VELCHK - + TC ALARM OCT 522 TC BADRAD - + VELCHK CAF BIN3 # = 00003 OCT EXTEND RXOR CHAN13 # RESET ACTIVITY BIT MASK BIN3 EXTEND BZF LRHEIGHT # TAKE A LR RANGE READING - + CAF POSMAX MASK RNRAD AD LVELBIAS @@ -2872,11 +2872,11 @@ VELCHK CAF BIN3 # = 00003 OCT DOUBLE MASK BIT1 DXCH ITEMP3 - + CAF BIT8 # DATA GOOD ISN'T CHECKED UNTIL AFTER READ- TC DGCHECK # ING DATA SO SOME RADAR TESTS WILL WORK # INDEPENDENT OF DATA GOOD. - + CCS NSAMP TC NOEND GOODRAD CS ONE @@ -2886,7 +2886,7 @@ GOODRAD CS ONE TS RADMODES TC RADLITES # LAMPS MAY GO OFF IF DATA JUST GOOD. TC RGOODEND -2 - + NOEND TS NSAMP RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE. TCF +2 @@ -2896,27 +2896,27 @@ RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE. # Page 557 WOR CHAN13 # RESET ACTIVITY BIT TC RESUME - - -LRHEIGHT CAF BIT5 + + +LRHEIGHT CAF BIT5 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33) CAF BIT9 TC SCALECHK -1 - + RENDRAD CAF REPOSBIT # MAKE SURE ANTENNA HAS NOT GONE OUT OF MASK RADMODES # LIMITS. CCS A TCF BADRAD - + CS RADMODES # BE SURE RR CDU HASN'T FAILED. MASK RCDUFBIT CCS A TCF BADRAD - + CAF BIT4 # SEE IF DATA HAS BEEN GOOD. TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33) - + CAF BIT1 # SEE IF RR RDOT. EXTEND RAND CHAN13 @@ -2926,7 +2926,7 @@ RENDRAD CAF REPOSBIT # MAKE SURE ANTENNA HAS NOT GONE OUT OF TCF RADIN # NO SCALE CHECK FOR RR RDOT. CAF BIT3 TS L - + SCALECHK EXTEND RAND CHAN33 # SCALE STATUS NOW XCH L @@ -2935,11 +2935,11 @@ SCALECHK EXTEND RXOR LCHAN # SEE IF THEY DIFFER CCS A TC SCALCHNG # THEY DIFFER. - + RADIN CAF POSMAX MASK RNRAD TS ITEMP4 - + CAE RNRAD DOUBLE MASK BIT1 @@ -2947,14 +2947,14 @@ RADIN CAF POSMAX # Page 558 CCS Q # SEE IF RR RDOT. TCF SCALADJ # NO, BUT SCALE CHANGING MAY BE NEEDED. - + EXTEND # IF RR RANGE RATE, THROW OUT BIAS DCS RDOTBIAS DASAMPL DAS ITEMP3 DGCHECK2 CA ITEMP1 # SEE THAT DATA HAS BEEN GOOD BEFORE AND TC DGCHECK +1 # AFTER TAKING SAMPLE. TC GOODRAD - + SCALCHNG LXCH RADMODES AD BIT1 EXTEND @@ -2967,7 +2967,7 @@ SCALCHNG LXCH RADMODES TC UPFLAG # SET RNGSCFLG ADRES RNGSCFLG # FOR LRS24.1 TCF BADRAD - + # R77 MUST IGNORE DATA FAILS SO AS NOT TO DISTURB THE ASTRONAUT. R77CHECK CS FLAGWRD5 @@ -2991,32 +2991,32 @@ BITS5,8 OCT 220 SCALADJ CCS L # L HAS SCALE INBIT FOR THIS RADAR. TCF +2 # ON HIGH SCALE. TCF DGCHECK2 - + CA DNINDEX MASK BIT3 CCS A TCF LRSCK - + DXCH ITEMP3 DDOUBL DDOUBL DDOUBL DXCH ITEMP3 - + TCF DGCHECK2 - + LRSCK CCS ITEMP3 TCF +11 CS ITEMP4 AD HISCALIM EXTEND BZMF +5 - + CS FLGWRD11 MASK SCABBIT ADS FLGWRD11 TCF +4 - + CS SCABBIT MASK FLGWRD11 TS FLGWRD11 @@ -3026,7 +3026,7 @@ LRSCK CCS ITEMP3 DDOUBL DDOUBL TCF DASAMPL - + HISCALIM DEC 460 # 2481.7 FT ****************************** # Page 560 DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND @@ -3044,12 +3044,12 @@ DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND DXCH ITEMP3 # IF DATA GOOD BEFORE AND AFTER, ADD TO DAS SAMPLSUM # ACCUMULATION. TC Q - + DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT MASK RADMODES # SHOWING SOME RADAR DATA FAILED. AD ITEMP1 TS RADMODES - + DXCH ITEMP3 # IF WE HAVE BEEN UNABLE TO GATHER N DXCH SAMPLSUM # SAMPLES, USE LAST ONE ONLY. TC RADLITES @@ -3059,20 +3059,20 @@ DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT SETLOC P20S1 BANK - + COUNT* $$/RSUB LRPOS2 INHINT CS RADMODES MASK LRPOSBIT # SHOW DESIRED LR POSITION IS 2 ADS RADMODES - + CAF BIT7 EXTEND RAND CHAN33 # SEE IF ALREADY THERE. EXTEND BZF RADNOOP - + CAF BIT13 EXTEND WOR CHAN12 # COMMAND TO POSITION 2 @@ -3080,27 +3080,27 @@ LRPOS2 INHINT TC WAITLIST EBANK= LOSCOUNT 2CADR LRPOSCAN - + TC ROADBACK - + LRPOSNXT TS SAMPLIM TC FIXDELAY # SCAN ONCE PER SECOND 15 TIMES MAX AFTER DEC 100 # INITIAL DELAY OF 7 SECONDS. - + CAF BIT7 # SEE IF LR POS2 IS ON EXTEND RAND CHAN33 EXTEND BZF LASTLRDT # IF THERE, WAIT FINAL SECOND FOR BOUNCE. - + CCS SAMPLIM # SEE IF MAX TIME UP. TCF LRPOSNXT - + CS BIT13 # IF TIME UP, DISABLE COMMAND AND ALARM. EXTEND WAND CHAN12 TCF RDBADEND - + RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED. TC WAITLIST EBANK= LOSCOUNT @@ -3110,12 +3110,12 @@ RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED. LASTLRDT CA 2SECS # WAIT TWO SECONDS AFTER RECEIPT OF INBIT TC VARDELAY # TO WAIT FOR ANTENNA BOUNCE TO DIE OUT. - + CS BIT13 # REMOVE COMMAND EXTEND WAND CHAN12 TCF RGOODEND - + LRPOSCAN CAF FOURTEEN # SET UP FOR 15 SAMPLES. TCF LRPOSNXT 6SECS DEC 600 @@ -3129,17 +3129,17 @@ ENDRADAR CAF RCDUFBIT # PROLOG TO CHECK RR CDU FAIL BEFORE END. TCF RDBADEND -2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL TS RUPTAGN - + RGOODEND CAF TWO TC POSTJUMP CADR GOODEND - + -2 CS ZERO # RDBADEND WHEN NOT UNDER WIATLIST. TS RUPTAGN RDBADEND CAF TWO TC POSTJUMP CADR BADEND - + BIN3 EQUALS THREE # Page 564 @@ -3257,7 +3257,7 @@ NOTSHIFT UNIT BOVB # IF OVERFLOW, RANGE MUST BE GREATER SETLOC P20S1 BANK COUNT* $$/LPS20 - + LPS20.2 DLOAD DSU MLOSV # MAGNITUDE OF LOS FHNM # OVER 400NM @@ -3321,7 +3321,7 @@ FHNM 2DEC 740800 B-20 # 400 NAUTICAL MILES IN METERS B-20 SETLOC LRS22 BANK COUNT* $$/LRS22 - + LRS22.1 TC MAKECADR TS LRS22.1X TC DOWNFLAG @@ -3341,7 +3341,7 @@ READRDOT TC BANKCALL TC BANKCALL CADR RADSTALL # WAIT FOR DATA READ COMPLETION TCF EREXIT1 # COULD NOT READ RADAR-ERROR EXIT 1 - + INHINT # NO INTERRUPTS WHILE READING TIME AND CDU DXCH TIMEHOLD # SET MARK TIME EQUAL TO THE MID-POINT DXCH MPAC +5 # TEMP BUFFER FOR DOWNLINK @@ -3425,7 +3425,7 @@ READRDOT TC BANKCALL CAF BIT2 # SET ERROR CODE TS MPAC TCF OUT22.1 - + NORMEXIT EXIT # NORMAL EXIT -- SET MPAC EQUAL ZERO CAF ZERO TS MPAC @@ -3435,7 +3435,7 @@ CHEXERR CAE FLAGWRD5 MASK RNGSCBIT CCS A # CHECK IF RANGE SCALE CHANGED TCF READRDOT # YES -- TAKE ANOTHER READING - + EREXIT1 CA BIT1 # SET ERROR CODE TS MPAC TC OUT22.1 @@ -3473,7 +3473,7 @@ RRLOSVEC EQUALS RRTARGET LRS22.2 TC MAKECADR TS LRS22.1X TC INTPRET - # CHECK IF RR LOS IS WITHIN 30 DEG OF + # CHECK IF RR LOS IS WITHIN 30 DEG OF 30DEGCHK DLOAD ACOS # THE SPACECRAFT +Z AXIT RRBORSIT +4 # BY TAKING ARCCOS OF Z-COMP. OF THE RR # LOS VECTOR, A HALF UNIT VECTOR @@ -3492,7 +3492,7 @@ OKEXIT EXIT # NORMAL EXIT -- SET MPAC = ZERO TS MPAC OUT22.2 CAE LRS22.1X TC BANKJUMP - + 30DEG 2DEC .083333333 # THIRTY DEGREES, SCALED REVS, B0 # Page 574 @@ -3569,7 +3569,7 @@ LSR22.3 CALL INTGRCAL CALL GRP2PC - CALL + CALL INTSTALL CLEAR BOFF DIM0FLAG @@ -3591,12 +3591,12 @@ DOLEM CALL SET CALL VINTFLAG SETIFLGS - CALL + CALL INTGRCAL # Page 576 - CALL + CALL GRP2PC - CALL + CALL INTSTALL CLEAR BOFF DIM0FLAG @@ -3655,7 +3655,7 @@ SETX2 SXA,2 CALL SRR* BDSU 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-29 RM # RM - (MAGNITUDE RCSM-RLM) - SLR* + SLR* 2,2 # SHIFT TO EARTH/MOON SPHERE STODL DELTAQ # EARTH B-29. MOON B-27 36D # RLC B-29/B-27 @@ -3679,7 +3679,7 @@ SETX2 SXA,2 CALL STORE VARIANCE QOK CALL LGCUPDTE - + SSP CALL WHCHREAD DEC 2 # STORE R-RATE CODE (2) FOR R3 IN NOUN 49 @@ -3693,7 +3693,7 @@ QOK CALL BON VCOMP # B1, COMP. IF LM BEING CORRECTED VEHUPFLG +1 - VXSC + VXSC 36D # B1 = RLC (B-24/B-22) # Page 578 STOVL BVECTOR +6 @@ -3708,7 +3708,7 @@ QOK CALL VCVCSM PDVL DOT # VC - VL = VLC TO PD6 0 - 6 + 6 PUSH SRR* # RDOT B-8/B-6 TO PD12 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-8 DSQ DMPR # RDOT**2 B-16 X RATEVAR B12 @@ -3781,7 +3781,7 @@ VOK2 VLOAD VSL* # THEN ADJUST B0, B1, DELTAQ AND VARIANCE TPMODE STCALL VARIANCE # AND STORE TP VARIANCE LGCUPDTE - + CALL GRP2PC BON EXIT # ARE ANGLES TO BE DONE @@ -3876,7 +3876,7 @@ SHAFTBQ STCALL MZ TPMODE # STORE VARIANCE TRIPLE PRECISION STCALL VARIANCE # B-40 LGCUPDTE - + CALL GRP2PC TRUNBQ CALL @@ -3933,11 +3933,11 @@ TRUNBQ CALL 0,1 STCALL DELTAQ # EARTH B-29. MOON B-27 LGCUPDTE - CALL + CALL GRP2PC -RENDEND GOTO +RENDEND GOTO R22LEM93 - + # FUNCTIONAL DESCRIPTION: # LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM # COMPUTER ONLY. THIS ROUTINE COMPUTES THE BE-VECTORS AND DELTA Q FOR RANGE @@ -3988,19 +3988,19 @@ LSR22.4 CALL INTGRCAL GOTO RANGEBQ - + INITWMX6 CALL WLINIT # INITIALIZE W-MATRIX SET CALL VINTFLAG SETIFLGS CALL - INTGRCAL + INTGRCAL GOTO RANGEBQ - + # THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV -# Page 584 +# Page 584 INTGRCAL STQ DLOAD IGRET MKTIME @@ -4008,7 +4008,7 @@ INTGRCAL STQ DLOAD INTEGRV GOTO IGRET - + # THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING # DIAGONAL ELEMENTS TO INITIAL STORED VALUES. @@ -4019,18 +4019,18 @@ WLINIT EXIT CAF WSIZE TS W.IND CAF ZERO - INDEX W.IND + INDEX W.IND TS W CCS W.IND TC -5 CAF AIGBANK # RESTORE EBANK 7 TS BBANK TC INTPRET - BON SLOAD # IF ON LUNAR SURFACE, INITIALIZE WITH + BON SLOAD # IF ON LUNAR SURFACE, INITIALIZE WITH SURFFLAG # WSURFPOS AND WSURFVEL INSTEAD OF WLSRFPOS # WRENDPOS AND WRENDVEL WRENDPOS - GOTO + GOTO WPOSTORE WLSRFPOS SLOAD WSURFPOS @@ -4062,7 +4062,7 @@ WVELSTOR STORE W +72D MARKCTR # SET MARK COUNTER EQUAL ZERO 0 RVQ - + EBANK= W WBANK BBCON WLINIT EBANK= AIG @@ -4077,7 +4077,7 @@ AIGBANK BBCON LSR22.3 GETULC SETPD VLOAD 0 DELTALEM - LXA,2 + LXA,2 SCALSHFT # LOAD X2 WITH SCALE SHIFT VSR* VAD 9D,2 # SHIFT FOR EARTH/MOON SPHERE @@ -4096,7 +4096,7 @@ GETULC SETPD VLOAD STOVL 36D # ULC IN PD0 AND MPAC,RLC IN 36D ULC RVQ - + # RADARANG # # THIS SUBROUTINE COMPUTS SINTHETA = -ULC DOT MY @@ -4213,20 +4213,20 @@ CHKSRCH CAF BIT14 # ISSUE AUTO TRACK ENABLE TO RADAR MASK FLAGWRD2 # (SRCHOPT FLAG SET) EXTEND BZF ENDOFJOB # NO-TERMINATE JOB - + CAF 6SECONDS # SCHEDULE TASK TO DRIVE RADAR TO NEXT PT. INHINT TC WAITLIST # IN 6 SECONDS EBANK= LOSCOUNT 2CADR CALLDGCH - + RELINT CS RADMODES # IS REMODE IN PROGRESS MASK REMODBIT EXTEND BZF ENDOFJOB # YES -- WAIT SIX SECONDS TC INTPRET - + RTB DAD # COMPUTE LOS AT PRESENT TIME + 1.5 SEC. LOADTIME 1.5SECS @@ -4306,15 +4306,15 @@ CONTDES2 CS CDESBIT AD CDESBIT # A CONTINUOUS DESIGNATE WANTED. TS RADMODES TC INTPRET - + CALL # Page 591 RRDESSM # DESIGNATE RADAR TO RRTARGET VECTOR - + EXIT TC LIMALARM # LOS NOT IN MODE 2 COVERAGE (P22) TC LIMALARM # VEHICLE MANEUVER REQUIRED (P20) - + # COMPUTE OMEGA,ANGLE BETWEEN RR LOS AND # SPACECRAFT +Z AXIS OMEGCALC EXTEND @@ -4340,15 +4340,15 @@ CALCXY VLOAD VXV VXV UNIT UXVECT STORE UYVECT # UY = LOS X UX - GOTO + GOTO OFFCALC - + DESGLOS VLOAD MXV # WHEN N= 0,DESIGNATE ALONG LOS LOSDESRD REFSMMAT # CONVERT LOS FROM REFERENCE TO SM COORDS VSL1 GOTO CONTDESG - + CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET MASK RNDVZBIT EXTEND @@ -4357,9 +4357,9 @@ CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET TC FINDVAC # PONT IN SEARCH PATTERN EBANK= RLMSRCH 2CADR DATGDCHK - + TC TASKOVER - + DATGDCHK CAF BIT4 EXTEND # CHECK IF DATA GOOD DISCRETE PRESENT RAND CHAN33 @@ -4371,7 +4371,7 @@ DATGDCHK CAF BIT4 BZF LRS24.1 # YES -- RESET N = 0 AND START AROUND AGAIN INCR NSRCHPNT # NO -- SET N = N+1 AND GO TO TCF CHKSRCH # NEXT POINT IN PATTERN - + STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1 TS DATAGOOD # Page 593 @@ -4379,14 +4379,14 @@ STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1 TC KILLTASK # DELETE DESIGNATE TASK FROM CADR DESLOOP +2 # WAITLIST USING KILLTASK TC ENDOFJOB - + LIMALARM TC ALARM # ISSUE ALARM 527 -- LOS NOT IN MODE2 OCT 527 # COVERAGE IN P22 OR VEHICLE MANEUVER INHINT # REQUIRED IN P20 TC KILLTASK # KILL WAITLIST CALL FOR NEXT CADR CALLDGCH # POINT IN SEARCH PATTERN TC ENDOFJOB - + ALL1S DEC 11111 SIN60DEG 2DEC .86603 COS60DEG = DPHALF # (2DEC .50) @@ -4404,7 +4404,7 @@ ONEOCT OCT 00001 # **** NOTE -- THESE TWO CONSTANTS MUST **** 1.5SECS 2DEC 150 ZERO/SP EQUALS HI6ZEROS - + BLOCK 02 SETLOC FFTAG5 BANK @@ -4444,7 +4444,7 @@ VB56CADR 2CADR TRMTRACK # OUTPUT: (ALL FOR DOWNLINK) # # RM RDOTM (RAW) -# AIG AMG +# AIG AMG # AOG TRKMKCNT TRKMKCNT = 00001 IF SET IS CONSISTENT, # TANGNB TANGNB +1 OTHERWISE TRKMKCNT = 00000. # MKTIME @@ -4475,9 +4475,9 @@ VB56CADR 2CADR TRMTRACK BANK 33 SETLOC R29/SERV BANK - + COUNT* $$/r29 - + NR29&RDR EQUALS EBANK5 # Page 596 @@ -4488,7 +4488,7 @@ R29 CS RADMODES MASK DESIGBIT EXTEND BZF R29.LOS # BRANCH IF DESIGNATION IS ALREADY ON. - + INHINT ADS RADMODES # SHOW THAT DESIGNATION IS NOW ON. CS BIT14 @@ -4506,24 +4506,24 @@ R29 CS RADMODES MASK RADMODES CCS A # TEST RR MODE BIT. TCF SETPRPOS # MODE 2. - + CA PRIO21 # MODE 1: MUST REMODE. TC NOVAC EBANK= LOSCOUNT 2CADR R29REM0J # NEEDS OWN JOB TO RADSTALL IN. - + CS DESIGBIT MASK RADMODES # CLEAR DESIGNATE FLAG IN RADMODES TS RADMODES # BEFORE CALLING REMODE CA REMODBIT ADS RADMODES # SHOW THAT REMODING IS ON. TCF NOR29NOW # CONTINUE SERVICER FUNCTIONS. - + SETPRPOS CA ONE TC WAITLIST EBANK= LOSCOUNT 2CADR PREPOS29 # TASK TO SET TRUNNION ANGLE TO 180 DEG. - + CA REPOSBIT ADS RADMODES # SHOW THAT REPOSITIONING IS ON. TCF NOR29NOW @@ -4535,30 +4535,30 @@ R29REM0J CA ONE TC WAITLIST EBANK= LOSCOUNT 2CADR REMODE # REMODE MUST RUN AS A TASK. - + TC BANKCALL # WAIT FOR END OF REMODING CADR RADSTALL - + TCF ENDOFJOB # BAD EXIT CAN'T HAPPEN. TCF ENDOFJOB - + # TASK TO PREPOSITION THE RR TRUNNION ANGLE TO -180 DEG. SETLOC R29S1 BANK - + PREPOS29 CA NEGMAX # -180 DEG. TC RRTONLY # DRIVE TRUNNION CDU. CS REPOSBIT # SHOW THAT REPOSITIONING IS OFF. MASK RADMODES TS RADMODES TCF TASKOVER - + # COMPUTE THE LINE-OF-SIGHT AND LOS VELOCITY, AND PASS THEM TO THE R29DODES LOOP. SETLOC R29 BANK - + R29.LOS EXTEND DCS PIPTIME DXCH MPAC @@ -4594,23 +4594,23 @@ SETUP29D STOVL LOSSM # LINE-OF-SIGHT VECTOR, STABLE MEMBER AXES STORE LOSVDT/4 # 1/2 SECOND'S WORTH OF LOS VELOCITY. CLEAR EXIT LOSCMFLG # LET R29DLOOP USE NEW DATA. - + CS STATE MASK OLDESBIT EXTEND BZF NOR29NOW # BRANCH IF R29 DES. LOOP IS REQUESTED. INHINT ADS STATE # OTHERWISE REQUEST IT NOW. - + CCS PIPCTR # SEE IF TASK SHOULD BE OFFSET ONE SECOND. CS SUPER110 # -96D +100D = 4. AD 1SEC # 0 +100D = 100D. TC WAITLIST EBANK= LOSCOUNT 2CADR BEGDES29 # START BEGDES29 TASK ASAP. - + TCF NOR29NOW # RELINT AND CONTINUE SERVICER FUNCTIONS. - + .5SECB17 2DEC 50 B-17 # Page 599 @@ -4620,29 +4620,29 @@ SETUP29D STOVL LOSSM # LINE-OF-SIGHT VECTOR, STABLE MEMBER AXES BANK 24 SETLOC P20S BANK - + COUNT* $$/R29 - + BEGDES29 CAF PRIO21 TC NOVAC EBANK= LOSVDT/4 2CADR R29DODES # START R29DODES JOB TWICE A SECOND. - + R29DLOOP CAF .5SEC TC VARDELAY - + CS RADMODES MASK DESIGBIT CCS A TCF TASKOVER # QUIT IF DESIGNATION IS CALLED OFF. - + CS FLAGWRD2 MASK LOSCMBIT EXTEND BZF +3 # BRANCH IF SETUP29D'S SUPPLYING NEW DATA. ADS FLAGWRD2 # SET LOSCMFLG: SHOW THAT DES. LOOP IS ON. TCF BEGDES29 - + CA ONE TCF R29DLOOP +1 # WAIT A CENTISECOND FOR NEW DATA. # Page 600 @@ -4660,25 +4660,25 @@ R29DLOOP CAF .5SEC BANK 32 SETLOC F2DPS*32 BANK - + COUNT* $$/R29 EBANK= LOSVDT/4 - + R29DODES CA ONE TS TANG # INDICATE 1ST PASS THRU VECTOR LOOP. CA FIVE - + R29DVBEG CCS A # COUNT DOWN BY TWO'S IN VECTOR LOOP. TS Q CCS TANG TCF R29DPAS1 # DO THIS ON 1ST PASS THRU LOOP. - + EXTEND # (A "PASS" HERE MEANS 3 TIMES AROUND). INDEX Q DCA LOSVDT/4 INDEX Q DAS LOSSM # ADVANCE LOS VECTOR 1/2 SECOND. - + R29DPAS1 EXTEND INDEX Q DCA LOSSM @@ -4686,16 +4686,16 @@ R29DPAS1 EXTEND DXCH MPAC +1 # JECTED 1/2 SEC AHEAD (2ND PASS). CCS TANG TCF R29DVEND # BUG OUT HERE IN 1ST PASS. - + EXTEND INDEX Q DCA LOSVDT/4 INDEX Q DAS MPAC +1 # PROJECT LOS 1 SECOND AHEAD (2ND PASS). - + R29DVEND CCS Q TCF R29DVBEG # BRANCH TO CONTINUE VECTOR LOOP. - + # Page 601 # UNITIZE AND TRANSFORM TO NAV BASE AXES THE PRESENT LOS (1ST PASS) OR THE 1-SEC PROJECTED LOS (2ND PASS). @@ -4706,7 +4706,7 @@ R29DVEND CCS Q TC USPRCADR # WITH FIXLOC ARMED FOR LENGTH AND LENGTH CADR UNIT # SQUARED, BORROW UNITIZING ROUTINE. TC MPACVBUF # MOVE UNIT(LOS) TO AX*SR*T ARG AREA. - + CCS TANG TCF +2 TCF GOTANGLS # GET CDU ANGLES ONLY AFTER 1ST PASS. @@ -4722,7 +4722,7 @@ R29DVEND CCS Q TS CDUSPOT +4 # CDU ANGLES IN FUNNY ORDER FOR AX*SR*T. TC BANKCALL CADR QUICTRIG # GET SINES AND COSINES OF CDU ANGLES. - + GOTANGLS CS THREE TC BANKCALL CADR AX*SR*T # TRANSFORM UNIT LOS TO NB AXES (ULOSNB). @@ -4772,7 +4772,7 @@ TESTCOS DAS MPAC # (ULOSNB IN VBUF WAS A HALF-UNIT VECTOR). WOR CHAN12 # IF PLUS OVERFLOW, SET SELFTRACK ENABLE. RELINT TCF R29DVBEG -1 # MAKE 2ND PASS THRU VECTOR LOOP. - + # Page 603 # COMPUTE SHAFT AND TRUNNION COMMANDS TO NULL HAVE THE ERROR IN HALF A SECOND. @@ -4807,7 +4807,7 @@ R29DPAS2 CA SAVECDUT +1 EXTEND MP RR29GAIN TS TANG +1 # STORE REFINED S CMD. - + # Page 604 # WHETHER OR NOT TRACKING WAS ENABLED THIS TIME, CHECK ON RR DATA-GOOD. IF PRESENT, STOP DESIGNATING AND START # READING DATA FROM THE RENDEZVOUS RADAR. @@ -4818,11 +4818,11 @@ DGOOD? CAF BIT4 INHINT # (MAINLY FOR RROUT). EXTEND BZF R29LOKON # BRANCH IF DATA-GOOD IS PRESENT. - + TC BANKCALL CADR RROUT # DATA-GOOD IS ABSENT, SO SEND COMMANDS. TCF END29DOD - + R29LOKON CS DESIGBIT MASK RADMODES TS RADMODES # SHOW THAT DESIGNATION IS OVER. @@ -4837,12 +4837,12 @@ R29LOKON CS DESIGBIT TC WAITLIST EBANK= LOSCOUNT 2CADR R29READ # START READING TASK AND JOB. - + END29DOD CS LOSCMBIT MASK FLAGWRD2 TS FLAGWRD2 # ALWAYS CLEAR LOSCMFLG. TCF ENDOFJOB - + R29FXLOC ADRES INTB15+ -34D RR29GAIN DEC -.53624 LOSVDT/4 EQUALS LOSVEL @@ -4855,41 +4855,41 @@ SAVECDUT EQUALS MLOSV BANK 24 SETLOC P20S BANK - + COUNT* $$/R29 - + EBANK= LOSCOUNT - + R29READ CAF PRIO26 # CALLED BY WAITLIST TC NOVAC EBANK= LOSCOUNT 2CADR R29RDJOB # START JOB TO READ AND DOWNLINK FOR R29. - + CA 2SECS TC VARDELAY - + CA FLAGWRD3 # 2 SECONDS LATER, SEE IF READING IS STILL MASK READRBIT # ALLOWED (NO TRACKER FAIL ETC.) CCS A TCF R29READ # IT'S OK: CALL IT AGAIN. TCF TASKOVER # IT AIN'T: WAIT FOR REDESIGNATE. - + R29RDJOB CA FLAGWRD3 # CALLED VIA NOVAC. MASK NR29FBIT CCS A # TEST "NOR29FLG". TCF ENDRRD29 # R29 IS NOW OVER, STOP AT ONCE. - + CA RADMODES MASK AUTOMBIT CCS A # TEST RR-NOT-IN-AUTO-MODE BIT. TCF ENDRRD29 # ASTRO TOOK RR OUT OF AUTO MODE. - + TC BANKCALL CADR RRRDOT # INITIATE READING OF RANGE RATE. TC BANKCALL CADR RADSTALL # GOT TO SLEEP UNTIL IT'S READY. TCF ENDRRD29 # BAD READ; REDESIGNATE. - + # Page 606 # R29 RADAR READING CONTINUED. @@ -4904,13 +4904,13 @@ R29RDJOB CA FLAGWRD3 # CALLED VIA NOVAC. DXCH MPAC +4 # MPAC'S 7 WORDS ARE BUFFERED FOR COPYCYCLE. CA CDUX TS MPAC +6 # IMUCDU ANGLES AT RR READ, FOR DOWNLINK. - + R29RANGE TC BANKCALL CADR RRRANGE # INITIATE READING OF RR RANGE. TC BANKCALL CADR RADSTALL # GO TO SLEEP UNTIL IT'S READY. TCF R29RRR? # BAD READ OR SCALE CHANGE ... WHICH? - + INHINT DXCH DNRRANGE # COPYCYCLE TO LAY OUT NEW R29 DOWNLINK. DXCH RM @@ -4925,7 +4925,7 @@ R29RANGE TC BANKCALL CA ONE TS TRKMKCNT # SHOW THAT DOWNLINK DATA IS CONSISTENT. TCF ENDOFJOB - + R29RRR? CS FLAGWRD5 MASK BIT10 CCS A # WAS IT A SCALE CHANGE (REAL OR PHONY)? @@ -4933,7 +4933,7 @@ R29RRR? CS FLAGWRD5 TC DOWNFLAG ADRES RNGSCFLG TCF R29RANGE # YES; CLEAR FLAG AND READ AGAIN. - + ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE TS TRKMKCNT # RR-READING MODE. DISCREDIT DOWNTEL. TC DOWNFLAG @@ -4943,7 +4943,7 @@ ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE # Page 607 WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE. TCF ENDOFJOB - + # Page 608 # W-MATRIX MONITOR @@ -4951,9 +4951,9 @@ ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE SETLOC VB67 BANK COUNT* $$/EXTVB - + EBANK= WWPOS - + V67CALL TC INTPRET CALL V67WW @@ -4988,7 +4988,7 @@ N99LOOP TS Q BZF V06N9933 TC UPFLAG ADRES V67FLAG - + V06N9933 TC INTPRET BON EXIT V67FLAG @@ -5054,7 +5054,7 @@ V06N99 VN 0699 SETLOC VB67A BANK COUNT* $$/EXTVB - + ADDPOS DAD WWPOS STORE WWPOS @@ -5109,36 +5109,36 @@ FT99999 2DEC 30479 B-19 SETLOC RADARUPT BANK COUNT* $$/RRUPT - + EBANK= LOSCOUNT R12LITES CA ONE MASK IMODES33 CCS A TCF ISWRETRN - + TC HLIGHT TC HLIGHT -3 TCF ISWRETRN - + RADLITES CA BIT1 MASK IMODES33 CCS A TC Q - + CS BIT5 AD ITEMP1 CCS A CS ONE TCF VLIGHT - + TCF RRTRKF - + HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX CA HLITE TS L - + CA FLGWRD11 MASK SCABBIT CCS A @@ -5147,7 +5147,7 @@ HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX BOTHLITS MASK RADMODES CCS A TCF ONLITES - + CA FLGWRD11 INDEX ITEMP5 MASK HFLSHBIT @@ -5157,17 +5157,17 @@ BOTHLITS MASK RADMODES LITIT EXTEND QXCH ITEMP6 TC TRKFLON +1 - + EXTEND QXCH ITEMP6 TCF RRTRKF - + ONLITES INDEX ITEMP5 CS HFLSHBIT MASK FLGWRD11 TS FLGWRD11 - + CA L TCF LITIT VLIGHT TS ITEMP5 @@ -5175,7 +5175,7 @@ VLIGHT TS ITEMP5 TS L CA BIT8 TCF BOTHLITS - + HLITE EQUALS BIT5 VLITE EQUALS BIT3 diff --git a/Luminary099/P30_P37.agc b/Luminary099/P30_P37.agc index dca84cc..0d984bd 100644 --- a/Luminary099/P30_P37.agc +++ b/Luminary099/P30_P37.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index 931ea8b..0f923f2 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -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) diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc index f8578ac..6344a23 100644 --- a/Luminary099/P34-35_P74-75.agc +++ b/Luminary099/P34-35_P74-75.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/P40-P47.agc b/Luminary099/P40-P47.agc index bf8c16b..11ab016 100644 --- a/Luminary099/P40-P47.agc +++ b/Luminary099/P40-P47.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index 9ce3be7..881326c 100644 --- a/Luminary099/P51-P53.agc +++ b/Luminary099/P51-P53.agc @@ -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 diff --git a/Luminary099/P70-P71.agc b/Luminary099/P70-P71.agc index 5bd3fd6..360447f 100644 --- a/Luminary099/P70-P71.agc +++ b/Luminary099/P70-P71.agc @@ -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. diff --git a/Luminary099/P76.agc b/Luminary099/P76.agc index b429c0c..ff167e2 100644 --- a/Luminary099/P76.agc +++ b/Luminary099/P76.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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). diff --git a/Luminary099/PHASE_TABLE_MAINTENANCE.agc b/Luminary099/PHASE_TABLE_MAINTENANCE.agc index 1aeffde..0f1e9b2 100644 --- a/Luminary099/PHASE_TABLE_MAINTENANCE.agc +++ b/Luminary099/PHASE_TABLE_MAINTENANCE.agc @@ -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. - + diff --git a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index bc4aa3e..056d1da 100644 --- a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -53,40 +53,40 @@ # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION # 'EXTENDED VERBS'). # -# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION 'ASSEMBLY AND +# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION 'ASSEMBLY AND # OPERATION INFORMATION'. # -## Ramón Alonso, one of the original AGC developers, provides a -## little more insight: Apparently, nobody had yet arrived at any kind +## Ramón Alonso, one of the original AGC developers, provides a +## little more insight: Apparently, nobody had yet arrived at any kind ## of software requirements for the AGC's user interface when the desire -## arose within the Instrumentation Laboratory to set up a demo -## guidance-computer unit with which to impress visitors to the lab. -## Of course, this demo would have to do something, if it was going to be -## at all impressive, and to do something it would need some software. In -## short order, some of the coders threw together a demo program, -## inventing and using the verb/noun user-interface concept (in the -## whimsical fashion seen in much of this code), but without any idea -## that the verb/noun concept would somehow survive into the flight -## software. As time passed, and more and more people became familiar -## with the demo, nobody got around to inventing an improvement for the -## user interface, so the coders simply built it into the flight software +## arose within the Instrumentation Laboratory to set up a demo +## guidance-computer unit with which to impress visitors to the lab. +## Of course, this demo would have to do something, if it was going to be +## at all impressive, and to do something it would need some software. In +## short order, some of the coders threw together a demo program, +## inventing and using the verb/noun user-interface concept (in the +## whimsical fashion seen in much of this code), but without any idea +## that the verb/noun concept would somehow survive into the flight +## software. As time passed, and more and more people became familiar +## with the demo, nobody got around to inventing an improvement for the +## user interface, so the coders simply built it into the flight software ## without any specific requirements to do so.
##
-## However, that does not mean that the verb/noun interface was universally -## beloved. Ramón says that many objections were received from -## naysayers, such as "it's not scientific", "it's not dignified", or -## even "astronauts won't understand it". Even though the coders of -## the demo hadn't seriously intended the verb/noun interface to be used -## in any permanent way, it became a kind of devilish game to counter -## these objections with (perhaps) sophistic arguments as to why the -## interface was really a good one. In the end, the coders won. I don't +## However, that does not mean that the verb/noun interface was universally +## beloved. Ramón says that many objections were received from +## naysayers, such as "it's not scientific", "it's not dignified", or +## even "astronauts won't understand it". Even though the coders of +## the demo hadn't seriously intended the verb/noun interface to be used +## in any permanent way, it became a kind of devilish game to counter +## these objections with (perhaps) sophistic arguments as to why the +## interface was really a good one. In the end, the coders won. I don't ## know whether they were elated or dismayed by this victory.
##
-## The astronauts, of course, could understand the interface, -## but they did not like it. Most of them really wanted an interface much -## more like that they had used in aircraft: i.e., lots of dials and -## switches. Dave Scott is the the only astronaut I'm aware of who had -## kind words for it (or for the AGC in general), though we are told that +## The astronauts, of course, could understand the interface, +## but they did not like it. Most of them really wanted an interface much +## more like that they had used in aircraft: i.e., lots of dials and +## switches. Dave Scott is the the only astronaut I'm aware of who had +## kind words for it (or for the AGC in general), though we are told that ## Jim McDivitt wasn't necessary completely hostile to it.
##
##
—Ron Burkey, 07/2009
@@ -116,7 +116,7 @@ # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB. # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE # Page 391 -# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE +# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE # RESPONSIBILITY OF THE EXTEDED VERB CALLED TO EVENTUALLY # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB. # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON. @@ -124,7 +124,7 @@ # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A. # 4) KEY RELEASE BUTTON CALLS 'PINBRNCH' IN THE DISPLAY INTERFACE -# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF +# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF # THE KEY RELEASE LIGHT IS OFF AND 'CADRSTOR' IS NOT +0. # # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK @@ -208,7 +208,7 @@ # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278. ## The document described above, "Keyboard and Display Program Operation" -## by Alan I. Green and Robert J. Filene is +## by Alan I. Green and Robert J. Filene is ## ## available online at the Virtual AGC website. ## —Ron Burkey, 07/2009 @@ -449,7 +449,7 @@ # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11 # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11 -## Hint: In the source code below, each of the blue operands to the +## Hint: In the source code below, each of the blue operands to the ## right of the instruction opcodes is a hyperlink back to the definition ## of the symbol. This is particularly useful for tracing program flow. # Page 398 @@ -458,7 +458,7 @@ BANK 40 SETLOC PINBALL1 BANK - + COUNT* $$/PIN CHARIN CAF ONE # BLOCK DISPLAY SYST XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD @@ -508,11 +508,11 @@ CHARIN2 XCH MPAC TC CHARALRM # 35 TC CLEAR # 36 CLEAR TC NOUN # 37 NOUN - + ELRCODE1 OCT 22 ENTERJMP TC POSTJUMP CADR ENTER - + 89TEST CCS DSPCOUNT TC +4 # + TC +3 # +0 @@ -523,7 +523,7 @@ ENTERJMP TC POSTJUMP CCS A TC NUM # IF DECBRNCH IS +, 8 OR 9 OK TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9 - + # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING # WORD AS A FRACTION, KEEPING RESULTS TO DP. # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG, @@ -616,13 +616,13 @@ DECEND CS ONE MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT TS DSPCOUNT TC ENDOFJOB - + CRITCON OCT 22 # (DEC 18) OCT 20 # (DEC 16) OCT 12 # (DEC 10) OCT 5 OCT 0 - + DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND @@ -632,7 +632,7 @@ GETINREL INDEX DSPCOUNT CAF INRELTAB TS INREL # (A TEMP. REG) TC Q - + INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0) OCT 4 # R3D4 =(1) OCT 4 # R3D3 =(2) @@ -654,7 +654,7 @@ INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0) # Page 402 OCT 0 # VD2 =(18D) OCT 0 # VD1 =(19D) - + VERB CAF ZERO TS VERBREG CAF VD1 @@ -672,7 +672,7 @@ NOUN CAF ZERO TS NOUNREG CAF ND1 # ND1, OCT 21 (DEC 17) TC NVCOM - + NEGSGN TC SIGNTEST TC -ON CAF TWO @@ -684,12 +684,12 @@ FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0. MAKE IT +0. TS CLPASS TC +1 TC ENDOFJOB - + POSGN TC SIGNTEST TC +ON CAF ONE TC BOTHSGN - + +ON LXCH Q TC GETINREL INDEX INREL @@ -715,11 +715,11 @@ SGNCOM CAF ZERO AD ONE TS SGNOFF TC SGNCOM - + SGNTAB OCT 5 # -R1 OCT 3 # -R2 OCT 0 # -R3 - + SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1, CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS. @@ -737,12 +737,12 @@ SGNTST1 AD DSPCOUNT BZF +2 # MATCH FOUND TC Q TC L # SIGN LEGAL - + # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT # XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION. # -# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS +# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS # APPROPRIATE TO BE CLEARED. # # CLPASS +0 PASS0, CAN BE BACKED UP @@ -787,7 +787,7 @@ LEGALTST AD NEG2 TC CCSHOLE TC ENDOFJOB # ILLEGAL INREL=0,1 TC Q # LEGAL INREL=2 - + # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG, # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT. # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED. @@ -822,14 +822,14 @@ LEGALTST AD NEG2 CAF R1D1 -2 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER TC L # OF REG. JUST BLANKED - + SINBLANK OCT 16 # DEC 14 OCT 5 OCT 4 DOUBLK OCT 15 # DEC 13 OCT 11 # DEC 9 OCT 3 - + BRNCHCON OCT 77774 # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO @@ -860,7 +860,7 @@ BLANKCON OCT 4000 BANK 41 SETLOC PINBALL2 BANK - + COUNT* $$/PIN NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE. LOADLV1 TC LOADLV @@ -892,7 +892,7 @@ ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -) TS REQRET # SET REQRET +. TC FLASHOFF TC REQRET - + ENTEXIT = ENTRET MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG. @@ -946,7 +946,7 @@ USEADD XCH ZREG DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING DXCH Z # ROUTINE. TC VERBFAN - + EBANK= DSPCOUNT # Page 408 LODNNLOC 2CADR LODNNTAB @@ -964,7 +964,7 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED. CA NOUNCADR TC DSPOCTWO TC VERBFAN - + AD ONE TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD. VERBFAN CS LST2CON @@ -982,7 +982,7 @@ LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB) VBFANDIR INDEX VERBREG CAF VERBTAB TC BANKJUMP - + VERBTAB CADR GODSPALM # VB00 ILLEGAL CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1) CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1) @@ -1025,7 +1025,7 @@ REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE CADR MMCHANG # VB37 CHANGE MAJOR MODE CADR GODSPALM # VB38 SPARE CADR GODSPALM # VB39 SPARE - + # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK. # Page 410 # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING @@ -1066,7 +1066,7 @@ MIXNN2 CA NOUNTEM CCS DECOUNT TC MIXNN1 TC VERBFAN - + MIXAD TC MIXTEMP # DPTEST ENTER WITH SF ROUT NUMBER IN A. @@ -1092,7 +1092,7 @@ DPTEST INDEX A TC Q # 360-CDU NO DP DPTEST1 INDEX Q TC 1 # RETURN TO L+2 - + REQDATX CAF R1D1 TCF REQCOM REQDATY CAF R2D1 @@ -1122,7 +1122,7 @@ PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB. NOUNADD. TS DSPCOUNT CA NOUNREG TCF UPDAT1 - + TS VERBREG UPDATVB XCH Q TS UPDATRET @@ -1133,12 +1133,12 @@ UPDATVB XCH Q UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN, SINCE CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL. TC UPDATRET - + GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F. GODSPALM TC POSTJUMP CADR DSPALARM - + # Page 413 # NOUN TABLES # @@ -1233,7 +1233,7 @@ DSPCOM3 TS DISTEM # +0 +1 +2 INTO DISTEM TC DSPOCTWO XCH DISTEM TC DSPCOM2 +2 - + # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN. @@ -1257,7 +1257,7 @@ DCOMPTST TS SFTEMP1 # - VERB COMP LXCH Q TC DECTEST TC COMPTST1 - + DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT. TC GETCOMP @@ -1272,7 +1272,7 @@ DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1 CCS A TC ALMCYCLE TC L - + # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1. # IF NOT, IT RETURNS. @@ -1282,7 +1282,7 @@ NOUNTEST LXCH Q TC L TC L TC GODSPALM - + TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY. CA NNADTEM AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED @@ -1298,7 +1298,7 @@ TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY. TC L # NO DP INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART. TC L - + CHANDSP CA NOUNCADR MASK LOW9 EXTEND @@ -1306,10 +1306,10 @@ CHANDSP CA NOUNCADR READ 0 CS A TCF DSPCOM1 - + COMPICK ADRES NNTYPTEM ADRES NNADTEM - + GETCOMP INDEX MIXBR # NORMAL MIXED CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM INDEX A @@ -1389,7 +1389,7 @@ ENDRTOUT EQUALS # Page 418 SETLOC BLANKCON +1 - + COUNT* $$/PIN # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR # NUMBERS IN THE NEGATIVE (AGC) RANGE. @@ -1400,13 +1400,13 @@ DEGOUTSF CAF ZERO TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0) TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2) TC DEGCOM - + # 360-CDUD COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND # GOES TO DEGOUTSF. 360-CDUO TC 360-CDU TC DEGOUTSF - + 360-CDU CA MPAC MASK POSMAX # IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING EXTEND @@ -1427,13 +1427,13 @@ LRPOSOUT EXTEND MASK THREE TS MPAC TC ARTOUTSF # DISPLAY AS WHOLE - + SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE INDEX MPAC +2 # DP AUGMENTER CONSTANT DCA DEGTAB DXCH SFTEMP1 TC Q - + FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1 TC Q # IF MPAC IS - RETURN TO L+2 AFTER TC Q # MASKING OUT THE SIGN BIT @@ -1445,7 +1445,7 @@ FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1 TS MPAC INDEX Q TC 1 - + DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND INDEX MPAC +2 # ADDS AUGMENTER. DCA DEGTAB @@ -1454,32 +1454,32 @@ DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND DXCH SFTEMP1 DAS MPAC TC SCOUTEND - + DEGTAB OCT 05605 # HI PART OF .18 OCT 03656 # LOW PART OF .18 OCT 16314 # HI PART OF .45 OCT 31463 # LO PART OF .45 - + ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON DXCH MPAC TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0. SCOUTEND TC POSTJUMP CADR DSPDCEND - + AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2. TC L14/OUT - + DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT XCH MPAC +1 # BY B14 TS MPAC TC SCOUTEND - + DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR TC SCOUTEND - + DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1. TC TPLEFTN # SHIFT LEFT 7. @@ -1494,7 +1494,7 @@ DPOUT XCH Q TC DMP ADRES SFTEMP1 TC MPAC+6 - + # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN @@ -1513,8 +1513,8 @@ DPOUT XCH Q TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN) TC POSTJUMP CADR DSPDCEND +2 - -# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN + +# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT # DOES NOT FORCE TPAGREE. @@ -1541,7 +1541,7 @@ ENDRDLO TC READLO1 BANK 42 SETLOC PINBALL3 BANK - + COUNT* $$/PIN HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC, CADR READLO # MPAC+1. @@ -1577,7 +1577,7 @@ HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC, TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF. CADR DSPDECWD TC ENTEXIT - + SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY OCT 01217 @@ -1586,9 +1586,9 @@ MINCON2 OCT 00011 # .0006 FOR MINUTES DISPLAY # Page 422 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28 OCT 10422 -HRCON1 2DEC .16384 +HRCON1 2DEC .16384 - OCT 00000 + OCT 00000 RNDCON OCT 00062 # .5 SEC M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC. @@ -1651,7 +1651,7 @@ M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE CADR DSPDC2NR TC POSTJUMP CADR DSPDCEND +2 - + HISECON OCT 23147 # .6 + 2EXP-14 HIMINCON OCT 23346 # .6 + 2EXP-7 @@ -1660,7 +1660,7 @@ M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1 NORMADR ADRES M/SNORM +1 M/SCON3 OCT 00025 # 59M 59.5S OCT 37016 - + SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC TCF POSEC # IF -, ROUND BY SUBTRACING .5 SEC TCF POSEC # FINDS TIME IN MPAC, MPAC+1 @@ -1687,7 +1687,7 @@ SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC XCH MPAC +1 XCH MPAC TC SEPSCRET - + SEPMIN XCH Q # FIND WHOLE MINUTES IN BIT13 TS SEPMNRET # OF LOTEMOUT AND ABOVE. CA LOTEMOUT # REMOVES REST OF SECONDS. @@ -1798,7 +1798,7 @@ BITSOFF CS YREG # BITS TO BE PROCESSED. TS 0 # RESET BITS. BITSOFF1 RELINT TC LOADLV - + ABLOAD CS ONE TC COMPTEST TC NOUNTEST # TEST IF NOUN CAN BE LOADED. @@ -1822,7 +1822,7 @@ PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE INDEX NOUNADD TS 1 TC LOADLV - + ALOAD TC REQDATX EXTEND DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING @@ -1833,7 +1833,7 @@ ALOAD TC REQDATX INDEX NOUNADD TS 0 TC LOADLV - + BLOAD CS ONE TC COMPTEST CAF BIT15 # SET CLPASS FOR PASS0 ONLY @@ -1847,7 +1847,7 @@ BLOAD CS ONE INDEX NOUNADD TS 1 TC LOADLV - + CLOAD CS TWO TC COMPTEST CAF BIT15 # SET CLPASS FOR PASS0 ONLY @@ -1871,7 +1871,7 @@ LOADLV CAF ZERO TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE. - + VBSP1LD DEC 21 # VB21 = ALOAD VBSP2LD DEC 22 # VB22 = BLOAD VBSP3LD DEC 23 # VB23 = CLOAD @@ -1897,7 +1897,7 @@ SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE MASK NNTYPTEM TC RIGHT5 TC EXITEM # SF ROUTINE NUMBER IN A - + SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE TS EXITEM INDEX DECOUNT @@ -1908,7 +1908,7 @@ SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY INDEX L TC 0 - + # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2). SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A @@ -1929,7 +1929,7 @@ SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER) # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2). SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A TC EXITEM - + DISPLACE TC GOQ # Page 429 TC RIGHT5 @@ -1939,7 +1939,7 @@ CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW5 OF MASK NNTYPTEM # NNTYPTAB FOR SF CONUM. DOUBLE TC EXITEM # 2X(SF CONSTANT NUMBER) IN A - + PUTCOM TS DECOUNT XCH Q TS DECRET @@ -1990,14 +1990,14 @@ PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD. CAF ZERO # DP TS DECOUNT TC PUTDPCOM - + CA NNADTEM AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED EXTEND BZF CHANLOAD PUTCOM2 XCH MPAC TC DECRET - + EBANK= DSPCOUNT GTSFINLC 2CADR GTSFIN @@ -2012,7 +2012,7 @@ CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK). INDEX MPAC WRITE 0 TC LOADLV - + # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A @@ -2052,7 +2052,7 @@ ENDRUTIN EQUALS # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET. SETLOC ENDDPDEC +1 - + COUNT* $$/PIN # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8) @@ -2073,7 +2073,7 @@ DEGINSF2 TC TPSL1 # LEFT 2 TC SIGNFIX # IF +0, GO TO SIGNFIX COM # IF -, USE -MAGNITUDE +1 TS MPAC # IF -0, USE +0 -SIGNFIX CCS MPAC+6 +SIGNFIX CCS MPAC+6 TC SGNTO1 # IF OVERFLOW TC ENDSCALE # NO OVERFLOW/UNDERFLOW CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180 @@ -2097,7 +2097,7 @@ NORBACK CS A TC 360-CDU ENDSCAL1 TC POSTJUMP CADR PUTCOM2 - + SFMIXCAL TC BANKCALL CADR SFRUTMIX TC MIXBACK @@ -2105,15 +2105,15 @@ SFMIXCAL TC BANKCALL SFNORCAL TC BANKCALL CADR SFRUTNOR TC NORBACK - + NEG180 CS POSMAX TC ENDSCALE -1 - + SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1 MASK POSMAX CS A TC ENDSCALE -1 - + DEGCON1 2DEC 5.555555555 B-3 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2. @@ -2132,7 +2132,7 @@ BINROUND TC 2ROUND ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2. ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC. TC BINROUND - + DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1, ADRES SFTEMP1 # SFTEMP. STORES LOW PART OF RESULT XCH MPAC +2 # IN (E SUBK) +1 OR E+1 @@ -2152,22 +2152,22 @@ DPINCOM AD NOUNADD # MIXED NORMAL INDEX Q TS 1 # PLACE LOW PART IN TC ENDSCAL1 # (E SUBK) +1 MIXED - + DPINORM CAF ZERO # E +1 NORMAL TC DPINCOM - + DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1 TC TPLEFTN # SHIFT LEFT 7. TC DPINSF +2 - + DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1. TC TPLEFTN # SHIFT LEFT 3. TC DPINSF +2 - + TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF. XCH Q # CALL WITH N-1 IN A. @@ -2177,7 +2177,7 @@ LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC. TC LEFTNCOM # Page 434 TC SFTEMP2 - + 2ROUND XCH MPAC +1 DOUBLE TS MPAC +1 @@ -2192,9 +2192,9 @@ TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF TC ALMCYCLE # OF ALARM AND RECYCLE. TC Q TC ALMCYCLE # UF ALARM AND RECYCLE. - + SETLOC ENDSPMIN +1 - + COUNT* $$/PIN HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM. TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT @@ -2270,7 +2270,7 @@ MPACTST CCS MPAC # ALARM IF MPAC NON ZERO TC Q TC ALMCYCLE # ALARM AND RECYCLE. TC Q - + SIZETST TS MPAC +2 # CALLED WITH - CON IN A CCS MPAC +1 # GET MAG OF MPAC+1 # Page 436 @@ -2279,10 +2279,10 @@ SIZETST TS MPAC +2 # CALLED WITH - CON IN A AD ONE AD MPAC +2 EXTEND # MAG OF MPAC+1 - CON - BZMF +2 + BZMF +2 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE. TC Q # MAG OF MPAC+1 L/= CON - + # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN). # ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1). @@ -2294,7 +2294,7 @@ ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A OCT34BAR OCT 77743 TC FORCEV25 TC Q - + FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD TC ALMCYCLE # VERB. ALARM AND RECYCLE. @@ -2328,7 +2328,7 @@ ENDHMSS EQUALS # MONITOR DOESNT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW. SETLOC ENDRUTIN - + COUNT* $$/PIN MONITOR CS BIT15/14 MASK NOUNCADR @@ -2369,7 +2369,7 @@ MONIT2 CAF LOW7 DXCH MONSAVE # ZERO THE KILL MONITOR BIT RELINT # SET UP EXTERNAL MONITOR BIT TC ENTRET - + MONREQ TC LODSAMPT # CALLED BY WAITLIST CCS MONSAVE1 # TIME IS SNATCHED N RUPT FOR NOUN 65 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS @@ -2380,14 +2380,14 @@ MONREQ TC LODSAMPT # CALLED BY WAITLIST TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ EBANK= DSPCOUNT 2CADR MONREQ - + CAF CHRPRIO TC NOVAC # ENTER EXEC REQUEST FOR MONDO EBANK= DSPCOUNT 2CADR MONDO - + TC TASKOVER - + KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF TS MONSAVE TS MONSAVE1 # TURN OFF KILL MONITOR BIT. @@ -2419,10 +2419,10 @@ MONDO CCS MONSAVE1 # CALLED BY EXEC ENDMONDO TC TESTNN # EBANK. BLOCK 2 - + SETLOC FFTAG8 BANK - + COUNT* $$/PIN PASTEVB CAF MID7 MASK MONSAVE2 # NVMONOPT PASTE OPTION @@ -2452,9 +2452,9 @@ MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT TC ENDOFJOB # Page 440 # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER. -# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE +# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777) -# +# # FOR BANKS L/E 27, THIS IS ENOUGH. # # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON) @@ -2491,7 +2491,7 @@ DSPSIGN XCH Q TC DSPWDRET TC +ON TC DSPWDRET - + DSPRND EXTEND # ROUND BY 5 EXP-6 DCA DECROUND -1 DAS MPAC @@ -2501,7 +2501,7 @@ DSPRND EXTEND # ROUND BY 5 EXP-6 DCA DPOSMAX DXCH MPAC TC Q - + # DSPDECWD CONVERTS C(MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6. @@ -2532,7 +2532,7 @@ TRACE1S TS COUNT CS VD1 TS DSPCOUNT TC WDRET - + OCT 00000 DECROUND OCT 02476 @@ -2552,7 +2552,7 @@ DSPDC2NR XCH Q TC DSPSIGN CAF ONE TC DSPDCWD1 - + # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL # STARTING IN THE LOC SPECIFIED IN DSPCOUNT. @@ -2582,13 +2582,13 @@ DSPDECVN EXTEND XCH Q TS WDRET TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR - + VNDSPCON OCT 00244 # .01 ROUNDED UP GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART TC POSTJUMP # OF UPDATVB. CADR UPDAT1 +2 - + ENDECVN EQUALS SETLOC ENDSPF +1 @@ -2648,9 +2648,9 @@ DSP2BIT TS CYR # DSPTAB ENTRY INTO DSREL. SETLOC ENDECVN - + COUNT* $$/PIN -DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANYOF THE +DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANYOF THE TS DSEXIT # ROTINE CALLING DSPIN USE L AS RETURN. CAF LOW5 MASK COUNT @@ -2699,12 +2699,12 @@ DFRNT INDEX COUNT INCR NOUT # DSPTAB ENTRY WAS + DSLV RELINT TC DSEXIT - + DSMSK OCT 37 OCT 1740 OCT 2000 OCT 3740 - + # FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN # BIT11 OF CODE. @@ -2714,7 +2714,7 @@ DSMSK OCT 37 XCH Q # MUST USE SAME RETURN AS DSPIN TS DSEXIT TC DSPIN1 - + DSPOCTIN TC DSPIN # SO DSPOCTWO DOESNT USE SWCALL CAF +2 TC BANKJUMP @@ -2794,7 +2794,7 @@ MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG CA MPAC TC POSTJUMP CADR MODROUTB # GO THRU STANDARD LOC. - + MODROUTB = V37 REQMM CS Q TS REQRET @@ -2808,7 +2808,7 @@ REQMM CS Q CAF ONE TS DECBRNCH # SET FOR DEC TC ENTEXIT - + # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY. # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH @@ -2838,7 +2838,7 @@ REQUESTC TC RELDSP SETVAC CAF TCFINDVC TC REQEX1 - + # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY. # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH @@ -2863,10 +2863,10 @@ VBPROC CAF ONE # PROCEED WITHOUT DATA TC RELDSP TC FLASHOFF TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE - + VBTERM CS ONE TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG - + # Page 449 # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER # EXECUTIVE CONTROL, WITH CHRPRIO. @@ -2876,7 +2876,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0. CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR TS DSPCOUNT TC VBPROC - + # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3). # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM, @@ -2884,7 +2884,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0. VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN. TC VBPROC +1 - + # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, REQUEQUENCE, # END OF LOAD. @@ -2935,7 +2935,7 @@ UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED, TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY. TC RELDSP1 TC ENDOFJOB - + ENDRELDS EQUALS # Page 451 @@ -2993,7 +2993,7 @@ ENDRELDS EQUALS # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASED INT THE VERB # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS -# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL +# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO @@ -3035,11 +3035,11 @@ PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS. NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING - + SETLOC ENDRQWT +1 - + COUNT* $$/PIN - + # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS # Page 453 # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY. @@ -3066,7 +3066,7 @@ BLANKDSP AD SEVEN # 7,8,9, OR 10 (A HAD 0,1,2,OR 3) TS DSPCOUNT TC FLASHOFF # PROTECT AGAINS INVISIBLE FLASH TC ENTSET -2 # ZEROS REQRET - + NVSUB1 CAF ENTSET # IN BANK TS ENTRET # SET RETURN TO NVSUBEND CCS NVTEMP # WHAT NOW @@ -3084,7 +3084,7 @@ NVSUB1 CAF ENTSET # IN BANK # USES MPAC, +1, +2). CCS MPAC +3 # TEST NOUN TC NVSUB2 # IF NOUN NOT +0, GO ON - CA MPAC +4 + CA MPAC +4 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN CAF ZERO # XERO REQRET SO THAT PASTED VERBS CAN TS REQRET # BE EXECUTED BY OPERATOR. @@ -3119,7 +3119,7 @@ KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT. TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL # MONITOR BIT. TC Q - + # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB # +1 PROCEED NO DATA. SET BY SPECIAL VERB # -1 TERMINATE. SET BY SPECIAL VERB. @@ -3153,20 +3153,20 @@ ENDIDLE LXCH Q # RETURN ADDRESS INTO L. AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR. TS CADRSTOR TC JOBSLEEP - + ENDINST TC ENDOFJOB ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0. TC DSPABORT # RETURNS IF CADRSTOR = +0. TC Q TC DSPABORT - + ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0. TC DSPABORT # RETURNS IF DSPLIST = +0. TC Q DSPABORT TC P00DOO OCT 01206 - + # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION. # IT DOES ENDOFJOB. @@ -3179,7 +3179,7 @@ JAMTERM CAF PINSUPBT TS DSPCOUNT TC POSTJUMP CADR VBTERM - + 34DEC DEC 34 # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA @@ -3195,7 +3195,7 @@ JAMPROC CAF PINSUPBT TS DSPCOUNT TC POSTJUMP CADR VBPROC - + 33DEC DEC 33 # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3. @@ -3227,7 +3227,7 @@ BLANKSUB MASK SEVEN EXTEND WRITE SUPERBNK TC BLNKSUB1 - + EBANK= DSPCOUNT BLNKBBNK BBCON BLNKSUB1 ENDBLFF EQUALS @@ -3259,7 +3259,7 @@ TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE. TC Q # IF CURRENT BIT = 1, RETURN TO L+1. INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3. TC 2 - + ENDBSUB1 EQUALS # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH @@ -3272,7 +3272,7 @@ ENDBSUB1 EQUALS BANK 7 SETLOC PINBALL4 BANK - + COUNT* $$/PIN DSPMM XCH Q TS MPAC @@ -3281,7 +3281,7 @@ DSPMM XCH Q TC NOVAC EBANK= DSPCOUNT 2CADR DSPMMJB - + RELINT ENDSPMM TC MPAC @@ -3289,7 +3289,7 @@ ENDSPMM TC MPAC # DSPMM PLACE MAJOR MODE CODE INTO MODREG SETLOC ENDBSUB1 - + COUNT* $$/PIN DSPMMJB CAF MD1 # GETS HERE THRU DSPMM XCH DSPCOUNT @@ -3302,11 +3302,11 @@ DSPMMJB CAF MD1 # GETS HERE THRU DSPMM XCH DSPMMTEM # RESTORE DSPCOUNT TS DSPCOUNT TC ENDOFJOB - + # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE. -# +# # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY). @@ -3334,7 +3334,7 @@ RECAL2 INDEX LOCCTR RELINT RECAL3 TC RELDSP TC ENDOFJOB - + # Page 459 DOTERM CAF ZERO TC RECAL2 @@ -3471,17 +3471,17 @@ PRSHRTMP TS MPTEMP TS MPAC +1 TS MPAC +2 TC Q - + FLASHON CAF BIT6 # TURN ON V/N FLASH EXTEND # BIT 6 OF CHANNEL 11 WOR DSALMOUT TC Q - + FLASHOFF CS BIT6 # TURN OFF V/N FLASH EXTEND WAND DSALMOUT TC Q - + # Page 463 # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM. # @@ -3519,7 +3519,7 @@ FLASHOFF CS BIT6 # TURN OFF V/N FLASH # # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR # IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS -# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL +# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM. # # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO @@ -3570,7 +3570,7 @@ NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS # AFTER EXECUTION. NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND TCF PRENVBSY # GO TO SLEEP. - + # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED # VERB DISPATCHER, VBRESEQ, RECALTST. # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP. @@ -3597,7 +3597,7 @@ RELDSP2 RELINT TC RELRET RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH. TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS - # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF + # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF # DSPLIST IS NOT EMPTY. CCS DSPLIST TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE. @@ -3605,7 +3605,7 @@ RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH. CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE TS DSPLOCK TC RELRET - + ENDPINBF EQUALS # Page 466 @@ -3618,14 +3618,14 @@ PINTEST EQUALS LST2FAN # OFF THE CAUTION AND STATUS LIGHTS. SETLOC ENDNVSB1 +1 - + COUNT* $$/PIN VBTSTLTS INHINT CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT MASK IMODES33 # TURN OUT ANY LAMPS. AD BIT1 TS IMODES33 - + CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE, EXTEND # V/N FLASH, OPERATOR ERROR. WOR DSALMOUT @@ -3653,11 +3653,11 @@ TSTLTS1 TS ERCNT TC WAITLIST EBANK= DSPTAB 2CADR TSTLTS2 - + TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD # ACTION) UNTIL TSTLTS3 TO INSURE THAT # LIGHTS TEST WILL BE SEEN. - + FULLDSP OCT 05675 # DISPLAY ALL 8'S FULLDSP1 OCT 07675 # DISPLAY ALL 8'S AND + TSTCON1 OCT 00175 @@ -3669,14 +3669,14 @@ TSTCON2 OCT 40674 # DSPTAB+11D BITS 3,4,5,6,8,9 LR LITES, TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7. # UPLINK ACITIVY, TEMP, OPERATOR ERROR. SHOLTS OCT 764 # 5 SEC - + TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST TC NOVAC EBANK= DSPTAB 2CADR TSTLTS3 - + TC TASKOVER - + TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE INHINT EXTEND # TURN OFF UPLINK ACTIVITY, TEMP, @@ -3693,19 +3693,19 @@ TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE MASK IMODES33 # LIGHTS COMPLETE. AD PRIO16 TS IMODES33 - + CS OCT55000 MASK IMODES30 AD PRIO15 # 15000. TS IMODES30 - + CS RFAILS2 MASK RADMODES AD RCDUFBIT TS RADMODES - + RELINT - + TC BANKCALL # REDISPLAY C(MODREG) CADR DSPMM TC KILMONON # TURN ON KILL MONITOR BIT. @@ -3747,12 +3747,12 @@ ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR MASK IMODES30 AD BIT10 TS IMODES30 - + CS RFAILS MASK RADMODES AD RCDUFBIT TS RADMODES - + CS BIT10 # TURN OFF 'TEST ALARM' OUTBIT. EXTEND WAND CHAN13 @@ -3795,4 +3795,4 @@ NOTBIT12 OCT 73777 ENDPINS1 EQUALS SBANK= LOWSUPER - + diff --git a/Luminary099/PINBALL_NOUN_TABLES.agc b/Luminary099/PINBALL_NOUN_TABLES.agc index 0f69a63..b2c0453 100644 --- a/Luminary099/PINBALL_NOUN_TABLES.agc +++ b/Luminary099/PINBALL_NOUN_TABLES.agc @@ -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 - + diff --git a/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc b/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc index 8265566..94f9942 100644 --- a/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc +++ b/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc index 0724045..fbde56d 100644 --- a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc +++ b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/R30.agc b/Luminary099/R30.agc index a2141cd..3254430 100644 --- a/Luminary099/R30.agc +++ b/Luminary099/R30.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/R31.agc b/Luminary099/R31.agc index 28c7b6a..9e94238 100644 --- a/Luminary099/R31.agc +++ b/Luminary099/R31.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/R60_62.agc b/Luminary099/R60_62.agc index 663f044..4c5f715 100644 --- a/Luminary099/R60_62.agc +++ b/Luminary099/R60_62.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/R63.agc b/Luminary099/R63.agc index e477acf..0934730 100644 --- a/Luminary099/R63.agc +++ b/Luminary099/R63.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/RADAR_LEADIN_ROUTINES.agc b/Luminary099/RADAR_LEADIN_ROUTINES.agc index d8e5553..6f7ae2a 100644 --- a/Luminary099/RADAR_LEADIN_ROUTINES.agc +++ b/Luminary099/RADAR_LEADIN_ROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/RCS_FAILURE_MONITOR.agc b/Luminary099/RCS_FAILURE_MONITOR.agc index 347aac5..9052951 100644 --- a/Luminary099/RCS_FAILURE_MONITOR.agc +++ b/Luminary099/RCS_FAILURE_MONITOR.agc @@ -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 - - + + diff --git a/Luminary099/RESTARTS_ROUTINE.agc b/Luminary099/RESTARTS_ROUTINE.agc index 1470e3f..8f60685 100644 --- a/Luminary099/RESTARTS_ROUTINE.agc +++ b/Luminary099/RESTARTS_ROUTINE.agc @@ -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 diff --git a/Luminary099/RESTART_TABLES.agc b/Luminary099/RESTART_TABLES.agc index 4c8a42c..a71398e 100644 --- a/Luminary099/RESTART_TABLES.agc +++ b/Luminary099/RESTART_TABLES.agc @@ -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 - + diff --git a/Luminary099/RTB_OP_CODES.agc b/Luminary099/RTB_OP_CODES.agc index a3bec33..62504cd 100644 --- a/Luminary099/RTB_OP_CODES.agc +++ b/Luminary099/RTB_OP_CODES.agc @@ -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 diff --git a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc index 1d24695..0c45e18 100644 --- a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc +++ b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 *** diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc index c57513e..7f1eb2d 100644 --- a/Luminary099/SERVICER.agc +++ b/Luminary099/SERVICER.agc @@ -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 diff --git a/Luminary099/SERVICE_ROUTINES.agc b/Luminary099/SERVICE_ROUTINES.agc index 434d530..b814872 100644 --- a/Luminary099/SERVICE_ROUTINES.agc +++ b/Luminary099/SERVICE_ROUTINES.agc @@ -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 diff --git a/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc b/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc index 1c364e1..4623c0d 100644 --- a/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc +++ b/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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. - + diff --git a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc index 14654e7..930a324 100644 --- a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc +++ b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/STABLE_ORBIT.agc b/Luminary099/STABLE_ORBIT.agc index 40317ce..da8d945 100644 --- a/Luminary099/STABLE_ORBIT.agc +++ b/Luminary099/STABLE_ORBIT.agc @@ -7,9 +7,9 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc index 63431f7..dcb1f8d 100644 --- a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc +++ b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/T4RUPT_PROGRAM.agc b/Luminary099/T4RUPT_PROGRAM.agc index 96f5b34..2632218 100644 --- a/Luminary099/T4RUPT_PROGRAM.agc +++ b/Luminary099/T4RUPT_PROGRAM.agc @@ -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 diff --git a/Luminary099/T6-RUPT_PROGRAMS.agc b/Luminary099/T6-RUPT_PROGRAMS.agc index c838543..41e3f93 100644 --- a/Luminary099/T6-RUPT_PROGRAMS.agc +++ b/Luminary099/T6-RUPT_PROGRAMS.agc @@ -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 diff --git a/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc b/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc index 72d7deb..d64e961 100644 --- a/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc +++ b/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc @@ -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 diff --git a/Luminary099/THE_LUNAR_LANDING.agc b/Luminary099/THE_LUNAR_LANDING.agc index 4e30ffc..97dc2bf 100644 --- a/Luminary099/THE_LUNAR_LANDING.agc +++ b/Luminary099/THE_LUNAR_LANDING.agc @@ -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 diff --git a/Luminary099/THROTTLE_CONTROL_ROUTINES.agc b/Luminary099/THROTTLE_CONTROL_ROUTINES.agc index 7c551f4..c2931e5 100644 --- a/Luminary099/THROTTLE_CONTROL_ROUTINES.agc +++ b/Luminary099/THROTTLE_CONTROL_ROUTINES.agc @@ -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 diff --git a/Luminary099/TIME_OF_FREE_FALL.agc b/Luminary099/TIME_OF_FREE_FALL.agc index 1dc33a3..fe8c705 100644 --- a/Luminary099/TIME_OF_FREE_FALL.agc +++ b/Luminary099/TIME_OF_FREE_FALL.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 diff --git a/Luminary099/TJET_LAW.agc b/Luminary099/TJET_LAW.agc index 2ea0ece..1afd51e 100644 --- a/Luminary099/TJET_LAW.agc +++ b/Luminary099/TJET_LAW.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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. diff --git a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc index e33e031..c2fda36 100644 --- a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc +++ b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/Luminary099/UPDATE_PROGRAM.agc b/Luminary099/UPDATE_PROGRAM.agc index 1c2bdb6..c5eb029 100644 --- a/Luminary099/UPDATE_PROGRAM.agc +++ b/Luminary099/UPDATE_PROGRAM.agc @@ -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 - + diff --git a/Luminary099/WAITLIST.agc b/Luminary099/WAITLIST.agc index 4da7d1a..05d530f 100644 --- a/Luminary099/WAITLIST.agc +++ b/Luminary099/WAITLIST.agc @@ -7,8 +7,8 @@ # Contact: Ron Burkey . # 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 - + diff --git a/README.md b/README.md index 5e4a1ba..44cc59b 100644 --- a/README.md +++ b/README.md @@ -31,7 +31,7 @@ If you are interested in compiling the original source code, check out [Virtual Notations on the hardcopy document read, in part: Assemble revision 055 of AGC program Comanche by NASA - 2021113-051. 10:28 APR. 1, 1969 + 2021113-051. 10:28 APR. 1, 1969 Page 1