Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
015159,000002: ## Copyright: Public domain.
015160,000003: ## Filename: R63.agc
015161,000004: ## Purpose: A log section of Zerlina 56, the final revision of
015162,000005: ## Don Eyles's offline development program for the variable
015163,000006: ## guidance period servicer. It also includes a new P66 with LPD
015164,000007: ## (Landing Point Designator) capability, based on an idea of John
015165,000008: ## Young's. Neither of these advanced features were actually flown,
015166,000009: ## but Zerlina was also the birthplace of other big improvements to
015167,000010: ## Luminary including the terrain model and new (Luminary 1E)
015168,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
015169,000012: ## and revision 56 includes all changes up to and including Luminary
015170,000013: ## 183. It is therefore quite close to the Apollo 14 program,
015171,000014: ## Luminary 178, where not modified with new features.
015172,000015: ## Reference: pp. 343-346
015173,000016: ## Assembler: yaYUL
015174,000017: ## Contact: Ron Burkey <info@sandroid.org>.
015175,000018: ## Website: www.ibiblio.org/apollo/index.html
015176,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
015177,000020: ## 2017-08-22 RSB Transcribed.
015178,000021:
![]() |
Page 343 |
015180,000023: # SUBROUTINE NAME: V89CALL
015181,000024: # MOD NO: 0 DATE: 9 JAN 1968
015182,000025: # MOD BY: DIGITAL DEVEL GROUP LOG SECTION: R63
015183,000026:
015184,000027: # FUNCTIONAL DESCRIPTION:
015185,000028:
015186,000029: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
015187,000030: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
015188,000031:
015189,000032: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
015190,000033: # EXIT R63, OTHERWISE CONTINUE.
015191,000034:
015192,000035: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
015193,000036: # ORIENTATION KNOWN TO LGC, CONTINUE.
015194,000037:
015195,000038: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
015196,000039: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
015197,000040: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
015198,000041: # AFTER KEYING IN PROCEED.
015199,000042:
015200,000043: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
015201,000044:
015202,000045: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
015203,000046: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
015204,000047: # PREPARED FOR VECPOINT.
015205,000048:
015206,000049: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
015207,000050: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
015208,000051:
015209,000052: # 7. RECYCLE - RETURN TO STEP 4.
015210,000053: # TERMINATE - EXIT R63.
015211,000054: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
015212,000055:
015213,000056:
015214,000057: # CALLING SEQUENCE: V 89 E.
015215,000058:
015216,000059: # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, CSMCONIC, LEMCONIC,
015217,000060: # VECPOINT, BALLANGS, R60LEM.
015218,000061:
015219,000062: # NORMAL EXIT MODES: TC ENDEXT
015220,000063:
015221,000064: # ALARMS: 1. OPERATOR ERROR IF NOT IN P00.
015222,000065: # 2. PROGRAM ALARM IF IMU IS OFF.
015223,000066: # 3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN.
015224,000067:
015225,000068: # OUTPUT: NONE
015226,000069:
015227,000070: # ERASABLE INITIALIZATION REQUIRED: NONE
015228,000071:
015229,000072: # DEBRIS: OPTION1, +1, TDEC1, POINTVSM, SCAXIS, CPHI, CTHETA, CPSI,
015230,000073:
![]() |
Page 344 |
015232,000075: # 3AXISFLG.
015233,000076:
015234,000077: 06,3723 E4,1577 EBANK= RONE
015235,000078: 32,2217 BANK 32
015236,000079: 26,2000 SETLOC BAWLANGS
015237,000080: 26,2000 BANK
015238,000081:
015239,000082:
015240,000083: 26,2024 COUNT* $$/R63
015241,000084: 26,2024 04616 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
015242,000085: 26,2025 11241 CADR R02BOTH # KNOWN. ALARMS IF NOT.
015243,000086: 26,2026 36257 CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
015244,000087: 26,2027 55050 TS OPTIONX # TRACKING ATTITUDE AXIS.
015245,000088: 26,2030 34753 CAF ONE
015246,000089: 26,2031 55051 TS OPTIONX +1
015247,000090: 26,2032 32121 CAF VB04N12 # V 04 N 12
015248,000091: 26,2033 04616 TC BANKCALL
015249,000092: 26,2034 20477 CADR GOFLASH
015250,000093: 26,2035 05503 TC ENDEXT # TERMINATE
015251,000094: 26,2036 02040 TC +2 # PROCEED
015252,000095: 26,2037 02032 TC -5 # DATA IN. OPTION1+1 = 1 FOR Z AXIS
015253,000096: 26,2040 06051 V89RECL TC INTPRET # = 2 FOR X AXIS
015254,000097: 26,2041 43234 RTB DAD
015255,000098: 26,2042 21555 LOADTIME # READ PRESENT TIME
015256,000099: 26,2043 14124 DP1MIN
015257,000100: 26,2044 02176 STORE TSTART82 # SAVE TIME FOR LEMCONIC CALL
015258,000101: 26,2045 34041 STCALL TDEC1 # STORE TIME FOR CSMCONIC CALL
015259,000102: 26,2046 27065 CSMCONIC # CSM STATE VECTOR UPDATE
015260,000103: 26,2047 77775 VLOAD # CSMCONIC LEFT R VECTOR IN RATT
015261,000104: 26,2050 00001 RATT
015262,000105: 26,2051 16200 STODL RONE # SAVE FOR LINE OF SIGHT (LOS) COMPUTATION
015263,000106: 26,2052 02176 TSTART82
015264,000107: 26,2053 34041 STCALL TDEC1 # STORE TIME FOR LEMCONIC CALL
015265,000108: 26,2054 27077 LEMCONIC # LEM STATE VECTOR UPDATE
015266,000109: 26,2055 52375 VLOAD VSU # CSM POSITION - LEM POSITION = LOS
015267,000110: 26,2056 02200 RONE # LOS VECTOR LEFT IN MPAC
015268,000111: 26,2057 00001 RATT
015269,000112: 26,2060 47121 MXV RTB # (REFSMMAT X LOS). TRANSFORMS LOS FROM
015270,000113: 26,2061 01732 REFSMMAT # REFERENCE COORD TO STAB MEMB COORD.
015271,000114: 26,2062 21710 NORMUNIT
015272,000115: 26,2063 03773 STORE POINTVSM # STORE LOS FOR VECPOINT CALL
015273,000116: 26,2064 77776 EXIT
015274,000117: 26,2065 41051 CS OPTIONX +1 # 1 FOR Z AXIS. 2 FOR X AXIS.
015275,000118: 26,2066 64753 AD ONE
015276,000119: 26,2067 00006 EXTEND
015277,000120: 26,2070 12115 BZF ALINEZ
015278,000121: 26,2071 06051 ALINEX TC INTPRET # X AXIS ALIGNMENT
015279,000122: 26,2072 77775 VLOAD
015280,000123: 26,2073 06516 UNITX # READ (.5, 0, 0)
015281,000124:
![]() |
Page 345 |
015283,000126: 26,2074 37765 V89CALL1 STCALL SCAXIS # STORE SELECTED ALIGNMENT AXIS
015284,000127: 26,2075 56040 VECPOINT # PUTS DESIRED GIM ANG (OG,IG,MG) IN TMPAC
015285,000128: 26,2076 00322 STORE CPHI # STORE GIMBAL ANGLES FOR BALLANGS CALL.
015286,000129: 26,2077 77776 EXIT
015287,000130: 26,2100 04616 TC BANKCALL
015288,000131: 26,2101 54274 CADR BALLANGS # PUTS DESIRED BALL ANGLES IN FDAIX,Y,Z
015289,000132: 26,2102 32122 CAF VB06N18 # V 06 N 18
015290,000133: 26,2103 04616 TC BANKCALL # NOUN 18 REFERS TO FDAIX,Y,Z
015291,000134: 26,2104 20477 CADR GOFLASH
015292,000135: 26,2105 05503 TC ENDEXT # TERMINATE
015293,000136: 26,2106 02110 TC +2 # PROCEED
015294,000137: 26,2107 02040 TC V89RECL # RECYCLE
015295,000138: 26,2110 05527 TC DOWNFLAG # RESET 3 AXIS FLAG
015296,000139: 26,2111 00124 ADRES 3AXISFLG # RESET BIT6 FLAG WORD 5
015297,000140: 26,2112 04616 TC BANKCALL # PERFORMS LEM MANEUVER TO ALIGN SELECTED
015298,000141: 26,2113 54125 CADR R60LEM # SPACECRAFT AXIS TO CSM.
015299,000142: 26,2114 15503 TCF ENDEXT # TERMINATE R63
015300,000143:
015301,000144:
015302,000145: 26,2115 06051 ALINEZ TC INTPRET # Z AXIS ALIGNMENT
015303,000146: 26,2116 52175 VLOAD GOTO
015304,000147: 26,2117 06512 UNITZ # READ (0, 0, .5)
015305,000148: 26,2120 54074 V89CALL1
015306,000149:
015307,000150:
015308,000151: 26,2121 01014 VB04N12 VN 412
015309,000152: 26,2122 01422 VB06N18 VN 0618
015310,000153:
![]() |
Page 346 |
015312,000155: 26,2123 00000 13560 DP1MIN 2DEC 6000 B-28
End of include-file R63.agc. Parent file is MAIN.agc