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