Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
021876,000002: ## Copyright: Public domain.
021877,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
021878,000004: ## Purpose: A section of Comanche revision 067.
021879,000005: ## It is part of the reconstructed source code for the flight
021880,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
021881,000007: ## (AGC) for Apollo 12. No original listings of this program are
021882,000008: ## available; instead, this file was created via dissassembly of
021883,000009: ## dumps of Comanche 067 core rope modules and comparison with
021884,000010: ## other AGC programs.
021885,000011: ## Assembler: yaYUL
021886,000012: ## Contact: Ron Burkey <info@sandroid.org>.
021887,000013: ## Website: www.ibiblio.org/apollo/index.html
021888,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
021889,000015:
021890,000016: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
021891,000017:
021892,000018: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
021893,000019: # MOD BY RUDNICKI.S DATE 25JAN68
021894,000020:
021895,000021: # FUNCTIONAL DESCRIPTION
021896,000022:
021897,000023: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
021898,000024: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
021899,000025: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
021900,000026: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
021901,000027: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
021902,000028: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
021903,000029: # VEHICLES
021904,000030:
021905,000031: # CALLING SEQUENCE
021906,000032:
021907,000033: # ASTRONAUT REQUEST THRU DSKY
021908,000034:
021909,000035: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
021910,000036: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
021911,000037:
021912,000038: # INPUT
021913,000039:
021914,000040: # (1) SOI MANEUVER
021915,000041:
021916,000042: # (A) TIG TIME OF SOI MANEUVER
021917,000043: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
021918,000044: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
021919,000045: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
021920,000046: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
021921,000047: # ORBIT
021922,000048: # (D) OPTION EQUALS 1 FOR SOI
021923,000049:
021924,000050: # (2) SOR MANEUVER
021925,000051:
021926,000052: # (A) TIG TIME OF SOR MANEUVER
021927,000053: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
021928,000054: # (C) OPTION EQUALS 2 FOR SOR
021929,000055: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
021930,000056: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
021931,000057: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
021932,000058: # SOI PHASE
021933,000059: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
021934,000060:
021935,000061: # OUTPUT
021936,000062:
021937,000063: # (1) TRKMKCNT NUMBER OF MARKS
021938,000064: # (2) TTOGO TIME TO GO
021939,000065: # (3) +MGA MIDDLE GIMBAL ANGLE
021940,000066: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
021941,000067: # (FOR SOI ONLY)
021942,000068: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
021943,000069: # THE SOI (SOR) MANEUVER
021944,000070: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
021945,000071: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
021946,000072: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
021947,000073: # COORDINATES
021948,000074:
021949,000075: # SUBROUTINES USED
021950,000076:
021951,000077: # AVFLAGA
021952,000078: # AVFLAGP
021953,000079: # VNDSPLY
021954,000080: # BANKCALL
021955,000081: # GOFLASHR
021956,000082: # GOTOPOOH
021957,000083: # BLANKET
021958,000084: # ENDOFJOB
021959,000085: # PREC/TT
021960,000086: # SELECTMU
021961,000087: # INTRPVP
021962,000088: # MAINRTNE
021963,000089:
021964,000090: 04,2742 BANK 04
021965,000091: 04,2000 SETLOC STBLEORB
021966,000092: 04,2000 BANK
021967,000093:
021968,000094: 04,2742 E4,1770 EBANK= SUBEXIT
021969,000095: 04,2742 COUNT* $$/P3879
021970,000096:
021971,000097: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
021972,000098: 04,2743 02745 TC +2
021973,000099: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
021974,000100: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
021975,000101: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
021976,000102: 04,2747 03263 TC VNDSPLY
021977,000103: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
021978,000104: 04,2751 04676 TCR BANKCALL
021979,000105: 04,2752 21057 CADR GOFLASHR
021980,000106: 04,2753 14106 TCF GOTOPOOH # TERMINATE
021981,000107: 04,2754 12761 TCF +5 # PROCEED
021982,000108: 04,2755 12750 TCF -5 # RECYCLE
021983,000109: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
021984,000110: 04,2757 05542 TCR BLANKET
021985,000111: 04,2760 15233 TCF ENDOFJOB
021986,000112: 04,2761 35036 CAF FIVE
021987,000113: 04,2762 55131 TS OPTION1
021988,000114: 04,2763 35033 CAF ONE
021989,000115: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
021990,000116: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
021991,000117: 04,2766 04676 TCR BANKCALL
021992,000118: 04,2767 21057 CADR GOFLASHR
021993,000119: 04,2770 14106 TCF GOTOPOOH # TERMINATE
021994,000120: 04,2771 12776 TCF +5 # PROCEED
021995,000121: 04,2772 12765 TCF -5 # RECYCLE
021996,000122: 04,2773 35031 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
021997,000123: 04,2774 05542 TCR BLANKET
021998,000124: 04,2775 15233 TCF ENDOFJOB
021999,000125: 04,2776 06006 TC INTPRET
022000,000126: 04,2777 77731 SSP
022001,000127: 04,3000 03766 NN
022002,000128: 04,3001 00002 2
022003,000129: 04,3002 70535 SLOAD SR1
022004,000130: 04,3003 01133 OPTION2
022005,000131: 04,3004 71230 BHIZ DLOAD
022006,000132: 04,3005 11013 OPTN1
022007,000133: 04,3006 03656 TINT
022008,000134: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
022009,000135: 04,3010 77614 CLRGO
022010,000136: 04,3011 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022011,000137: 04,3012 11042 JUNCTN1
022012,000138: 04,3013 43014 OPTN1 SET CLEAR # SOI
022013,000139: 04,3014 01070 OPTNSW
022014,000140: 04,3015 00670 UPDATFLG
022015,000141: 04,3016 77624 CALL
022016,000142: 04,3017 11216 PREC/TT
022017,000143: 04,3020 43214 SET DAD
022018,000144: 04,3021 00470 UPDATFLG
022019,000145: 04,3022 03413 TIG
022020,000146: 04,3023 03656 STORE TINT # TI = TIG + TF
022021,000147: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
022022,000148: 04,3025 77776 EXIT
022023,000149: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
022024,000150: 04,3027 04676 TCR BANKCALL
022025,000151: 04,3030 21057 CADR GOFLASHR
022026,000152: 04,3031 14106 TCF GOTOPOOH # TERMINATE
022027,000153: 04,3032 13037 TCF +5 # PROCEED
022028,000154: 04,3033 13026 TCF -5 # RECYCLE
022029,000155: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022030,000156: 04,3035 05542 TCR BLANKET
022031,000157: 04,3036 15233 TCF ENDOFJOB
022032,000158: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022033,000159: 04,3040 03263 TC VNDSPLY
022034,000160: 04,3041 06006 TC INTPRET
022035,000161: 04,3042 45014 JUNCTN1 CLEAR CALL
022036,000162: 04,3043 04266 P39/79SW
022037,000163: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022038,000164: 04,3045 77624 RECYCLE CALL
022039,000165: 04,3046 11216 PREC/TT
022040,000166: 04,3047 71214 BOFF DLOAD
022041,000167: 04,3050 01350 OPTNSW
022042,000168: 04,3051 11071 OPTN2
022043,000169: 04,3052 03656 TINT
022044,000170: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022045,000171: 04,3054 11247 INTRPVP # INTERCEPT TIME
022046,000172: 04,3055 53575 VLOAD UNIT
022047,000173: 04,3056 00001 RATT # RP/(RP)
022048,000174: 04,3057 47315 PDVL VXV
022049,000175: 04,3060 00007 VATT
022050,000176: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
022051,000177: 04,3062 00047 X1
022052,000178: 04,3063 56325 PDDL DDV
022053,000179: 04,3064 02611 DELTAR
022054,000180: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
022055,000181: 04,3066 20172 0 -7,1
022056,000182: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022057,000183: 04,3070 11075 JUNCTN2
022058,000184: 04,3071 43345 OPTN2 DLOAD DAD
022059,000185: 04,3072 02611 TINTSOI
022060,000186: 04,3073 00037 T
022061,000187: 04,3074 03656 STORE TINT # TI = TI + TF
022062,000188: 04,3075 45345 JUNCTN2 DLOAD DSU
022063,000189: 04,3076 03656 TINT
022064,000190: 04,3077 02613 DELTTIME
022065,000191: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
022066,000192:
022067,000193: # .... MAINRTNE ....
022068,000194:
022069,000195: # SUBROUTINES USED
022070,000196:
022071,000197: # S3435.25
022072,000198: # PERIAPO1
022073,000199: # SHIFTR1
022074,000200: # VNDSPLY
022075,000201: # BANKCALL
022076,000202: # GOFLASH
022077,000203: # GOTOPOOH
022078,000204: # VN1645
022079,000205:
022080,000206: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022081,000207: 04,3102 11247 INTRPVP # TARGET TIME
022082,000208: 04,3103 77745 DLOAD
022083,000209: 04,3104 03413 TIG
022084,000210: 04,3105 03503 STORE INTIME
022085,000211: 04,3106 77331 SSP VLOAD
022086,000212: 04,3107 02371 SUBEXIT
022087,000213: 04,3110 11114 TEST3979
022088,000214: 04,3111 00001 RATT
022089,000215: 04,3112 77624 CALL
022090,000216: 04,3113 72546 S3435.25
022091,000217: 04,3114 43014 TEST3979 BOFF BON
022092,000218: 04,3115 04346 P39/79SW
022093,000219: 04,3116 11125 MAINRTN1
022094,000220: 04,3117 01311 FINALFLG
022095,000221: 04,3120 11123 P39P79
022096,000222: 04,3121 77614 SET
022097,000223: 04,3122 00470 UPDATFLG
022098,000224: 04,3123 77776 P39P79 EXIT
022099,000225: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
022100,000226: 04,3125 51575 MAINRTN1 VLOAD ABVAL
022101,000227: 04,3126 03646 DELVEET3
022102,000228: 04,3127 26635 STOVL DELVTPI # DELTA V
022103,000229: 04,3130 03640 VPASS4
022104,000230: 04,3131 51451 VSU ABVAL
022105,000231: 04,3132 03620 VTPRIME
022106,000232: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022107,000233: 04,3134 03540 RACT3
022108,000234: 04,3135 45115 PDVL CALL
022109,000235: 04,3136 03612 VIPRIME
022110,000236: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
022111,000237: 04,3140 77624 CALL
022112,000238: 04,3141 45263 SHIFTR1
022113,000239: 04,3142 02641 STORE POSTTPI
022114,000240: 04,3143 43014 BON SET
022115,000241: 04,3144 01311 FINALFLG
022116,000242: 04,3145 11147 DSPLY58
022117,000243: 04,3146 00470 UPDATFLG
022118,000244: 04,3147 77776 DSPLY58 EXIT
022119,000245: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022120,000246: 04,3151 03263 TC VNDSPLY
022121,000247: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022122,000248: 04,3153 03263 TC VNDSPLY
022123,000249: 04,3154 06006 TC INTPRET
022124,000250: 04,3155 77214 CLEAR VLOAD
022125,000251: 04,3156 01267 XDELVFLG
022126,000252: 04,3157 03646 DELVEET3
022127,000253: 04,3160 37646 STCALL DELVSIN
022128,000254: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022129,000255: 04,3162 52014 BON GOTO
022130,000256: 04,3163 04306 P39/79SW
022131,000257: 04,3164 11203 P39/P79B
022132,000258: 04,3165 11045 RECYCLE
022133,000259:
022134,000260: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022135,000261:
022136,000262: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022137,000263: # MOD BY RUDNICKI.S DATE 25JAN68
022138,000264:
022139,000265: # FUNCTIONAL DESCRIPTION
022140,000266:
022141,000267: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022142,000268: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022143,000269: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022144,000270: # THE SOR MANEUVER
022145,000271:
022146,000272: # CALLING SEQUENCE
022147,000273:
022148,000274: # ASTRONAUT REQUEST THRU DSKY
022149,000275:
022150,000276: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022151,000277: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022152,000278:
022153,000279: # INPUT
022154,000280:
022155,000281: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022156,000282: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022157,000283: # SAVED FROM P38/P78
022158,000284:
022159,000285: # OUTPUT
022160,000286:
022161,000287: # (1) TRKMKCNT NUMBER OF MARKS
022162,000288: # (2) TTOGO TIME TO GO
022163,000289: # (3) +MGA MIDDLE GIMBAL ANGLE
022164,000290: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022165,000291:
022166,000292: # SUBROUTINES USED
022167,000293:
022168,000294: # AVFLAGA
022169,000295: # AVFLAGP
022170,000296: # LOADTIME
022171,000297: # SELECTMU
022172,000298: # PRECSET
022173,000299: # S34/35.1
022174,000300: # MAINRTNE
022175,000301:
022176,000302: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
022177,000303: 04,3167 00006 EXTEND
022178,000304: 04,3170 31422 DCA ATIGINC
022179,000305: 04,3171 03175 TC P39/P79A
022180,000306: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
022181,000307: 04,3173 00006 EXTEND
022182,000308: 04,3174 31424 DCA PTIGINC
022183,000309: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022184,000310: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022185,000311: 04,3177 06006 TC INTPRET
022186,000312: 04,3200 45014 SET CALL
022187,000313: 04,3201 04066 P39/79SW
022188,000314: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022189,000315: 04,3203 43234 P39/P79B RTB DAD
022190,000316: 04,3204 45510 LOADTIME
022191,000317: 04,3205 02364 KT
022192,000318: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
022193,000319: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022194,000320: 04,3210 45215 PRECSET # VEHICLES TO TIG
022195,000321: 04,3211 77624 CALL
022196,000322: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
022197,000323: 04,3213 52145 DLOAD GOTO
022198,000324: 04,3214 02615 TARGTIME
022199,000325: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022200,000326:
022201,000327: # .... PREC/TT ....
022202,000328:
022203,000329: # SUBROUTINES USED
022204,000330:
022205,000331: # PRECSET
022206,000332: # TIMETHET
022207,000333: # S34/35.1
022208,000334:
022209,000335: 04,3216 71220 PREC/TT STQ DLOAD
022210,000336: 04,3217 02367 RTRN
022211,000337: 04,3220 03413 TIG
022212,000338: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022213,000339: 04,3222 45215 PRECSET # VEHICLES TO TIG
022214,000340: 04,3223 53775 VLOAD VSR*
022215,000341: 04,3224 03554 RPASS3
022216,000342: 04,3225 57176 0,2
022217,000343: 04,3226 16657 STODL RVEC
022218,000344: 04,3227 03754 CENTANG
022219,000345: 04,3230 71406 PUSH COS
022220,000346: 04,3231 16734 STODL CSTH
022221,000347: 04,3232 43156 SIN SET
022222,000348: 04,3233 03466 RVSW
022223,000349: 04,3234 26732 STOVL SNTH
022224,000350: 04,3235 03562 VPASS3
022225,000351: 04,3236 77657 VSR*
022226,000352: 04,3237 57176 0,2
022227,000353: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022228,000354: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
022229,000355: 04,3242 77624 CALL
022230,000356: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
022231,000357: 04,3244 52145 DLOAD GOTO
022232,000358: 04,3245 00037 T
022233,000359: 04,3246 02367 RTRN
022234,000360:
022235,000361: # .... INTRPVP ....
022236,000362:
022237,000363: # SUBROUTINES USED
022238,000364:
022239,000365: # CSMPREC
022240,000366: # LEMPREC
022241,000367:
022242,000368: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022243,000369: 04,3250 02367 RTRN # TDEC1
022244,000370: 04,3251 01352 AVFLAG
022245,000371: 04,3252 11257 OTHERV
022246,000372: 04,3253 77624 CALL
022247,000373: 04,3254 27101 CSMPREC
022248,000374: 04,3255 77650 GOTO
022249,000375: 04,3256 02367 RTRN
022250,000376: 04,3257 77624 OTHERV CALL
022251,000377: 04,3260 27115 LEMPREC
022252,000378: 04,3261 77650 GOTO
022253,000379: 04,3262 02367 RTRN
022254,000380:
022255,000381: # .... VNDSPLY ....
022256,000382:
022257,000383: # SUBROUTINES USED
022258,000384:
022259,000385: # BANKCALL
022260,000386: # GOFLASH
022261,000387: # GOTOPOOH
022262,000388:
022263,000389: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
022264,000390: 04,3264 23767 QXCH RTRN
022265,000391: 04,3265 55765 TS VERBNOUN
022266,000392: 04,3266 31765 CA VERBNOUN
022267,000393: 04,3267 04676 TCR BANKCALL
022268,000394: 04,3270 20720 CADR GOFLASH
022269,000395: 04,3271 14106 TCF GOTOPOOH # TERMINATE
022270,000396: 04,3272 01767 TC RTRN # PROCEED
022271,000397: 04,3273 13266 TCF -5 # RECYCLE
022272,000398: 04,3274 01441 V06N33SR VN 0633
022273,000399: 04,3275 01467 V06N55SR VN 0655
022274,000400: 04,3276 01006 V04N06SR VN 0406
022275,000401: 04,3277 01471 V06N57SR VN 0657
022276,000402: 04,3300 01442 V06N34SR VN 0634
022277,000403: 04,3301 01472 V06N58SR VN 0658
022278,000404: 04,3302 01521 V06N81SR VN 0681
022279,000405:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc