Source Code

016591,000001: 016592,000002: 016593,000003: 016594,000004: 016595,000005: 016596,000006: 016597,000007: 016598,000008: 016599,000009: 016600,000010: 016601,000011: 016602,000012: 016603,000013: 016604,000014: 016605,000015: 016606,000016: 016607,000017: 016608,000018: 016609,000019: 016610,000020: 016611,000021: 016612,000022: 016613,000023: 016614,000024: 016615,000025: 016616,000026: 016617,000027: 016618,000028: 016619,000029: 016620,000030: 016621,000031: 016622,000032: 016623,000033: 016624,000034: 016625,000035: 016626,000036: 016627,000037: 016628,000038: 34,2002 016629,000039: 27,2000 016630,000040: 27,2000 016631,000041: 016632,000042: 27,2000 016633,000043: 016634,000044: 27,2000 016635,000045: 016636,000046: 016637,000047: < 016933,000343: 27,2311 016934,000344: 27,2312 016935,000345: 35,2000 016936,000346: 27,2000 016937,000347: 27,2000 016938,000348: # Copyright: Public domain. # Filename: R60_62.agc # Purpose: Part of the source code for Colossus, build 249. # It is part of the source code for the Command Module's (CM) # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. # Assembler: yaYUL # Reference: pp. 385-393 of 1701.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo. # Mod history: 08/10/04 RSB. Began adapting from corresponding Luminary131 # source file. # The contents of the "Colossus249" files, in general, are transcribed # from a scanned document obtained from MIT's website, # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this # document read, in part: # Assemble revision 249 of AGC program Colossus by NASA # 2021111-041. October 28, 1968. # This AGC program shall also be referred to as # Colossus 1A # Prepared by # Massachussets Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # under NASA contract NAS 9-4065. # Refer directly to the online document mentioned above for further information. # Please report any errors (relative to 1701.pdf) to info@sandroid.org. # In some cases, where the source code for Luminary 131 overlaps that of # Colossus 249, this code is instead copied from the corresponding Luminary 131 # source file, and then is proofed to incorporate any changes. # Page 385 BANK 34 SETLOC MANUVER BANK 1146 EBANK= TEMPR60 COUNT 27/R60 # CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968 >016638,000048: 27,2000 04604 R60CSM TC MAKECADR 55146 TS TEMPR60 # INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR E4E">016643,000053: 27,2002 34705 REDOMANN CAF BIT6 70101 MASK FLAGWRD5 # IS 3-AXIS FLAG SET 10000 CCS A 12013 TCF TOBALL # YES 06006 TC INTPRET 77624 CALL 56126 VECPOINT # TO COMPUTE FINAL ANGLES 01156 STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI 77776 EXIT >016653,000063: 27,2013 32125 TOBALL CAF V06N18 04555 TC BANKCALL 21036 CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER 02114 TC R61TEST 02023 TC REDOMANC # PROCEED 12052 TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60 02056 TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS 05112 TC ENDOFJOB E43">016662,000072: 27,2023 34705 REDOMANC CAF BIT6 70101 MASK FLAGWRD5 # IS 3-AXIS FLAG SET 10000 CCS A 12034 TCF TOBALLC # YES 06006 TC INTPRET 77624 CALL 56126 VECPOINT # TO COMPUTE FINAL ANGLES 01156 STORE CPHI # STORE ANGLES 77776 EXIT 3">016672,000082: 27,2034 34371 TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC # Page 386 00006 EXTEND 06031 RXOR CHAN31 77707 MASK 13,14,15 00006 EXTEND 12043 BZF +2 # AUTO, NON-FLASH N16 12013 TCF TOBALL # NOT AUTO 32125 CAF V06N18 # STATIC DISPLAY DURING AUTO MANEUVER 04555 TC BANKCALL 20602 CADR GODSPR 02056 TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS E56">016686,000096: 27,2047 04555 STARTMNV TC BANKCALL # PERFORM MANEUVER VIA KALCMANU 17547 CADR GOMANUR 556">016688,000098: 27,2051 12013 ENDMANUV TCF TOBALL # FINISHED MANEUVER. 531">016690,000100: 27,2052 05447 ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG 00124 ADRES 3AXISFLG # BIT 6 FLAG 5 31146 CAE TEMPR60 04577 TC BANKJUMP 553">016695,000105: 27,2056 40100 CHKLINUS CS FLAGWRD4 74677 MASK BIT12 # IS PRIORITY DISPLAY FLAG SET? 10000 CCS A 00002 TC Q # NO -- EXIT 30002 CA Q 54156 TS MPAC +2 # SAVE RETURN 46214 CS THREE # OBTAIN LOCATION FOR RESTART 60133 AD BUF2 # HOLD Q OF LAST DISPLAY 55053 TS TBASE1 05301 TC PHASCHNG 00071 OCT 71 34704 CAF BIT7 05415 TC LINUS # GO SET BITS FOR PRIORITY DISPLAY 00156 TC MPAC +2 3">016711,000121: 27,2074 34706 RELINUS CAF BIT5 # RESTORE ORIGINAL PRIORITY 70075 MASK FLAGWRD1 00006 EXTEND 12111 BZF GOREDO20 # NO 05435 TC UPFLAG 00077 ADRES PDSPFLAG # R60 PRIODSP FLAG 05435 TC UPFLAG 00024 ADRES TARG1FLG # FOR R52 34714 CAF ZERO # RESET TO ZERO, SINCE # Page 387 55303 TS OPTIND # OPTIND WAS SET TO -1 BY V379 34761 CAF PRIO14 # RESTORE ORIGINAL PRIORITY 05103 TC PRIOCHNG 01053 TC TBASE1 230">016731,000141: 27,2111 05301 GOREDO20 TC PHASCHNG 00111 OCT 111 # 1.11 FOR PIKUP20 05112 TC ENDOFJOB 4">016736,000146: 27,2114 31011 R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE 00006 EXTEND # VERB49 OR VERB89 SO DO ENDEXT. 12052 BZF ENDMANU1 # RESET 3-AXIS & RETURN. USER DOES ENDEXT 30100 CA FLAGWRD4 # ARE WE IN R61 (P20) 74677 MASK BIT12 00006 EXTEND 14106 BZF GOTOP00H # NO 04550 TC GOTOV56 # YES 7">016745,000155: 27,2124 20100 BIT14+7 OCT 20100 >016746,000156: 27,2125 01422 V06N18 VN 0618 # Page 388 # PROGRAM DESCRIPTION -- VECPOINT # THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS # TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY # BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES. # THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN # SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS # VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMTION VECPOINT COMPUTES A SET OF THREE GIMBAL # ANGLES (2'S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM # IN T(MPAC) BEFORE RETURNING TO THE CALLER. # THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE, # THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROGLEM BY ROTATING THE CROSS- # PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL # LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR -X) AXIS, # THE ADDITIONAL ROTATION TO AVOID GIMBAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGREES FROM +X (OR -X) # THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND # STORED AS 2'S COMPLEMENT ANGLES N T(MPAC) BEFORE RETURNING TO THE CALLER. # WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT # CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE # REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION # EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES. # CALLING SEQUENCE # 1) LOAD SCAXIS, POINTVSM # 2) CALL # VECPOINT # RETURNS WITH # 1) DESIRED OUTER GIMBAL ANGLE IN MPAC # 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1 # 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2 # ERASABLES USED -- # 1) SCAXIS 6 # 2) POINTVSM 6 # 3) MIS 18 # 4) DEL 18 # 5) COF 6 # 6) VECQTEMP 1 # 7) ALL OF VAC AREA 43 # TOTAL 99 SETLOC VECPT BANK # Page 389 EBANK= BCDU COUNT 27/VECPT E54">016803,000213: 27,2126 40020 VECPOINT STQ BOV # SAVE RETURN ADDRESS 03310 VECQTEMP 56131 VECLEAR # AND CLEAR OVFIND 2">016806,000216: 27,2131 47164 VECLEAR AXC,2 RTB 03320 MIS # READ THE PRESENT CDU ANGLES AND 44376 READCDUK # STORE THEM IN PD25, 26, 27 7">016809,000219: 27,2134 34032 STORANG STCALL 25D 44405 CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS) 61375 VLOAD VXM 03357 POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO 03321 MIS # INITIAL S/C AXES (VF = POINTVSM) 77656 UNIT 00035 STORE 28D # PD 28 29 30 31 32 33 53435 VXV UNIT # TAKE THE CROSS PRODUCT VF X VI 03351 SCAXIS # WHERE VI = SCAXIS 57400 BOV VCOMP 56256 PICKAXIS 17343 STODL COF # CHECK MAGNITUDE 00045 36D # OF CROSS PRODUCT 50025 DSU BMN # VECTOR, IF LESS 16327 DPB-14 # THAN B-14 ASSUME 56256 PICKAXIS # UNIT OPERATION 50375 VLOAD DOT # INVALID. 03351 SCAXIS 00035 28D 65552 SL1 ARCCOS 458">016830,000240: 27,2160 77624 COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM 44530 DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI 75160 AXC,1 AXC,2 03320 MIS # COMPUTE THE TRANSFORMATION FROM FINAL 03425 DEL # S/C AXES TO STABLE MEMBER AXES 77624 CALL # MFS = MIS MFI 44304 MXM3 # (IN PD LIST) 51545 DLOAD ABS 00007 6 # MFS6 = SIN(CPSI) 50025 DSU BMN 16314 SINGIMLC # = SIN(59 DEGS) 56246 FINDGIMB # /CPSI/ LESS THAN 59 DEGS. # I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK 51545 DLOAD ABS # CHECK TO SEE IF WE ARE POINTING 03351 SCAXIS # THE THRUST AXIS 51025 DSU BPL 16316 SINVEC1 # SIN 49.4 DEGS # Page 390 56246 FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO 77775 VLOAD # GIMBAL LOCK, ABORT COULD GO HERE 77626 STADR 50442 STOVL MIS +12D 77626 STADR # STORE MFS (IN PD LIST) IN MIS 50450 STOVL MIS +6 77626 STADR 50456 STOVL MIS 03327 MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES 57444 BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO 56213 IGSAMEX # FINAL X S/C AXIS 8">016862,000272: 27,2213 50035 IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE 03351 SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION 56222 U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3) # X SCAXIS . XF) LESS THAN Q, U = SCAXIS # OTHERWISE U = -SCAXIS. 57575 VLOAD VCOMP 03351 SCAXIS 37343 STCALL COF # ROTATE ABOUT -SCAXIS 56225 CHEKAXIS 953">016872,000282: 27,2222 77775 U=SCAXIS VLOAD 03351 SCAXIS 03343 STORE COF # ROTATE ABOUT + SCAXIS 953">016875,000285: 27,2225 51545 CHEKAXIS DLOAD ABS 03351 SCAXIS # SEE IF WE ARE POINTING THE AOT 51025 DSU BPL 16320 SINVEC2 # SIN 29.5 DEGS 56235 PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS 52145 DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER 16324 VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE 56237 COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT # OF GIMBAL LOCK (VECANG2 garbled) 731">016884,000294: 27,2235 77745 PICKANG1 DLOAD 16322 VECANG1 # =.50 DEGS. 34E">016886,000296: 27,2237 77624 COMPMFSN CALL 44530 DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO 75160 AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK 03320 MIS 03425 DEL 77624 CALL # COMPUTE THE NEW TRANSFORMATION FROM 44304 MXM3 # DESIRED S/C AXES TO STABLE MEMBER AXES # WHICH WILL ALIGN VI WITH VF AND AVOID # GIMBAL LOCK D42">016895,000305: 27,2246 45160 FINDGIMB AXC,1 CALL 00000 0 # EXTRACT THE COMMANDED CDU ANGLES FROM 44655 DCMTOCDU # THIS MATRIX 40234 RTB SETPD 45547 V1STO2S # CONVERT TO 2'S COMPLEMENT # Page 391 00001 0 77650 GOTO 03310 VECQTEMP # RETURN TO CALLER 953">016905,000315: 27,2256 50375 PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI 00035 28D 03351 SCAXIS 72240 BMN TLOAD 56266 ROT180 00032 25D 77650 GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU 03310 VECQTEMP # PRESETN CDU ANGLES >016914,000324: 27,2266 47375 ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION 03327 MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN 15330 HIUNITX # INITIAL S/C AXES. 47256 UNIT VXV # FIND Y(SM) X X(I) 03351 SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I))) 40056 UNIT BOV # I.E., PICK A VECTOR IN THE PLANE OF X(I), 56310 PICKX # Y(SM) PERPENDICULAR TO VI 17343 STODL COF 00045 36D # CHECK MAGNITUDE 50025 DSU BMN # OF THIS VECTOR. 16327 DPB-14 # IF LESS THAN B-14, 56310 PICKX # PICK X-AXIS. 77775 VLOAD 03343 COF >016928,000338: 27,2304 17343 XROT STODL COF 15330 HIDPHALF 77650 GOTO 56160 COMPMATX /a>016932,000342: 27,2310 52175 PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE 15330 HIUNITX 56304 XROT BANK 35 SETLOC MANUVER1 BANK C43">016939,000349: 27,2313 15555 35172 SINGIMLC 2DEC .4285836003 # = SIN(59) 1">016940,000350: 27,2315 14113 36326 SINVEC1 2DEC .3796356537 # = SIN(49.4) 2">016941,000351: 27,2317 07701 35703 SINVEC2 2DEC .2462117800 # = SIN(29.5) 1">016942,000352: 27,2321 04343 21616 VECANG1 2DEC .1388888889 # = 50 DEGREES 2">016943,000353: 27,2323 03070 34344 VECANG2 2DEC .09722222222 # = 35 DEGREES >016945,000355: 27,2325 00000 1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) >016946,000356: 27,2326 00001 DPB-14 OCT 00001 # Page 392 00000 OCT 00000 BANK 34 SETLOC MANUVER BANK # Page 393 # ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49) 1155 EBANK= CPHI COUNT 27/R62 0">016960,000370: 27,2330 34745 R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI 04555 TC BANKCALL 20624 CADR GOFLASH 15423 TCF ENDEXT 12336 TCF GOMOVE # PROCEED 12330 TCF R62DISP # ENTER # ASTRONAUT MAY LOAD NEW ICDUS AT THIS # POINT. >016969,000379: 27,2336 05435 GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER 00124 ADRES 3AXISFLG 04555 TC BANKCALL 56000 CADR R60CSM 15423 TCF ENDEXT Parent file is MAIN.agc