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. |
037047,000002: ## Copyright: Public domain.
037048,000003: ## Filename: P12.agc
037049,000004: ## Purpose: A log section of Zerlina 56, the final revision of
037050,000005: ## Don Eyles's offline development program for the variable
037051,000006: ## guidance period servicer. It also includes a new P66 with LPD
037052,000007: ## (Landing Point Designator) capability, based on an idea of John
037053,000008: ## Young's. Neither of these advanced features were actually flown,
037054,000009: ## but Zerlina was also the birthplace of other big improvements to
037055,000010: ## Luminary including the terrain model and new (Luminary 1E)
037056,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
037057,000012: ## and revision 56 includes all changes up to and including Luminary
037058,000013: ## 183. It is therefore quite close to the Apollo 14 program,
037059,000014: ## Luminary 178, where not modified with new features.
037060,000015: ## Reference: pp. 829-833
037061,000016: ## Assembler: yaYUL
037062,000017: ## Contact: Ron Burkey <info@sandroid.org>.
037063,000018: ## Website: www.ibiblio.org/apollo/index.html
037064,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
037065,000020: ## 2017-08-26 MAS Updated for Zerlina 56.
037066,000021:
![]() |
Page 829 |
037068,000023: 24,3644 BANK 24
037069,000024: 30,2000 SETLOC P12
037070,000025: 30,2000 BANK
037071,000026:
037072,000027: 30,2061 E7,1513 EBANK= DVCNTR
037073,000028: 30,2061 COUNT* $$/P12
037074,000029:
037075,000030: 30,2061 05364 P12LM TC PHASCHNG
037076,000031: 30,2062 04024 OCT 04024
037077,000032:
037078,000033: 30,2063 04616 TC BANKCALL
037079,000034: 30,2064 11241 CADR R02BOTH # CHECK THE STATUS OF THE IMU.
037080,000035:
037081,000036: 30,2065 36000 CAF THRESH2 # INITIALIZE DVMON
037082,000037: 30,2066 55251 TS DVTHRUSH
037083,000038: 30,2067 34751 CAF FOUR
037084,000039: 30,2070 55513 TS DVCNTR
037085,000040:
037086,000041: 30,2071 33015 CAF V06N33A
037087,000042: 30,2072 04616 TC BANKCALL # FLASH TIG
037088,000043: 30,2073 20477 CADR GOFLASH
037089,000044: 30,2074 16001 TCF GOTOPOOH
037090,000045: 30,2075 12077 TCF +2 # PROCEED
037091,000046: 30,2076 12071 TCF -5 # ENTER
037092,000047:
037093,000048: 30,2077 05364 TC PHASCHNG
037094,000049: 30,2100 04024 OCT 04024
037095,000050:
037096,000051: 30,2101 06051 TC INTPRET
037097,000052: 30,2102 43014 SET SET
037098,000053: 30,2103 03067 MUNFLAG
037099,000054: 30,2104 06464 ACC4-2FL
037100,000055: 30,2105 43014 SET CLEAR
037101,000056: 30,2106 00073 R10FLAG
037102,000057: 30,2107 00270 RNDVZFLG
037103,000058: 30,2110 43014 SET SET
037104,000059: 30,2111 04464 FLPI
037105,000060: 30,2112 04461 FLVR
037106,000061: 30,2113 45014 CLEAR CALL
037107,000062: 30,2114 00666 ALW66FLG
037108,000063: 30,2115 71426 GUIDINIT
037109,000064: 30,2116 77624 CALL
037110,000065: 30,2117 60243 P12INIT
037111,000066: 30,2120 77745 P12LMB DLOAD
037112,000067: 30,2121 25727 (TGO)A # SET TGO TO AN INITIAL NOMINAL VALUE.
037113,000068: 30,2122 17515 STODL TGO
037114,000069: 30,2123 03442 TIG
037115,000070: 30,2124 34041 STCALL TDEC1
037116,000071: 30,2125 27056 LEMPREC # ROTATE THE STATE VECTORS TO THE
037117,000072: 30,2126 64375 VLOAD MXV # IGNITION TIME.
![]() |
Page 830 |
037119,000074: 30,2127 00007 VATT
037120,000075: 30,2130 01732 REFSMMAT
037121,000076: 30,2131 77772 VSL1
037122,000077: 30,2132 27601 STOVL V1S # COMPUTE V1S = VEL(TIG)*2(-7)M/CS.
037123,000078: 30,2133 00001 RATT
037124,000079: 30,2134 52521 MXV VSL6
037125,000080: 30,2135 01732 REFSMMAT
037126,000081: 30,2136 37517 STCALL R # COMPUTE R = POS(TIG)*2(-24) M.
037127,000082: 30,2137 71743 MUNGRAV # COMPUTE GDT1/2(TIG)*2(-7)M/CS.
037128,000083: 30,2140 53575 VLOAD UNIT
037129,000084: 30,2141 03517 R
037130,000085: 30,2142 37535 STCALL UNIT/R/ # COMPUTE UNIT/R/ FOR YCOMP.
037131,000086: 30,2143 57333 YCOMP
037132,000087: 30,2144 57461 SR DCOMP
037133,000088: 30,2145 20606 5D
037134,000089: 30,2146 17643 STODL XRANGE # INITIALIZE XRANGE FOR NOUN 76.
037135,000090: 30,2147 31452 VINJNOM
037136,000091: 30,2150 16270 STODL ZDOTD
037137,000092: 30,2151 31454 RDOTDNOM
037138,000093: 30,2152 02264 STORE RDOTD
037139,000094: 30,2153 77776 EXIT
037140,000095:
037141,000096: 30,2154 05364 TC PHASCHNG
037142,000097: 30,2155 04024 OCT 04024
037143,000098:
037144,000099: 30,2156 33014 NEWLOAD CAF V06N76 # FLASH CROSS-RANGE AND APOLUNE VALUES.
037145,000100: 30,2157 04616 TC BANKCALL
037146,000101: 30,2160 20477 CADR GOFLASH
037147,000102: 30,2161 16001 TCF GOTOPOOH
037148,000103: 30,2162 12164 TCF +2 # PROCEED
037149,000104: 30,2163 12156 TCF NEWLOAD # ENTER NEW DATA.
037150,000105:
037151,000106: 30,2164 32306 CAF P12ADRES
037152,000107: 30,2165 55455 TS WHICH
037153,000108:
037154,000109: 30,2166 05364 TC PHASCHNG
037155,000110: 30,2167 04024 OCT 04024
037156,000111:
037157,000112: 30,2170 06051 TC INTPRET
037158,000113: 30,2171 54345 DLOAD SL
037159,000114: 30,2172 03643 XRANGE
037160,000115: 30,2173 20206 5D
037161,000116: 30,2174 77615 DAD
037162,000117: 30,2175 02326 Y
037163,000118: 30,2176 27633 STOVL YCO
037164,000119: 30,2177 03535 UNIT/R/
037165,000120: 30,2200 53361 VXSC VAD
037166,000121: 30,2201 31450 49FPS
037167,000122: 30,2202 03601 V1S
037168,000123: 30,2203 03525 STORE V # V(TIPOVER) = V(IGN) + 57FPS (UNIT/R/)
![]() |
Page 831 |
037170,000125: 30,2204 72441 DOT SL1
037171,000126: 30,2205 03535 UNIT/R/
037172,000127: 30,2206 37474 STCALL RDOT # RDOT * 2(-7)
037173,000128: 30,2207 60307 ASCENT
037174,000129: 30,2210 77745 P12RET DLOAD
037175,000130: 30,2211 02352 ATP # ATP(2)*2(18)
037176,000131: 30,2212 65316 DSQ PDDL
037177,000132: 30,2213 02346 ATY # ATY(2)*2(18)
037178,000133: 30,2214 43316 DSQ DAD
037179,000134: 30,2215 75454 BZE SQRT
037180,000135: 30,2216 60222 YAWDUN
037181,000136: 30,2217 55352 SL1 BDDV
037182,000137: 30,2220 02346 ATY
037183,000138: 30,2221 77736 ARCSIN
037184,000139: 30,2222 26354 YAWDUN STOVL YAW
037185,000140: 30,2223 03253 UNFC/2
037186,000141: 30,2224 50256 UNIT DOT
037187,000142: 30,2225 03535 UNIT/R/
037188,000143: 30,2226 65552 SL1 ARCCOS
037189,000144: 30,2227 77676 DCOMP
037190,000145: 30,2230 02356 STORE PITCH
037191,000146: 30,2231 77776 EXIT
037192,000147: 30,2232 05364 TC PHASCHNG
037193,000148: 30,2233 04024 OCT 04024
037194,000149:
037195,000150: 30,2234 00004 INHINT
037196,000151: 30,2235 04674 TC IBNKCALL
037197,000152: 30,2236 40143 CADR PFLITEDB
037198,000153: 30,2237 05527 TC DOWNFLAG
037199,000154: 30,2240 00213 ADRES FLPI
037200,000155:
037201,000156: 30,2241 04635 TC POSTJUMP
037202,000157: 30,2242 74130 CADR BURNBABY
037203,000158:
037204,000159: 30,2243 77745 P12INIT DLOAD # INITIALIZE ENGINE DATA. USED FOR P12 AND
037205,000160: 30,2244 16013 (1/DV)A # P71.
037206,000161: 30,2245 03641 STORE 1/DV3
037207,000162: 30,2246 03637 STORE 1/DV2
037208,000163: 30,2247 17635 STODL 1/DV1
037209,000164: 30,2250 16017 (AT)A
037210,000165: 30,2251 16254 STODL AT
037211,000166: 30,2252 16021 (TBUP)A
037212,000167: 30,2253 16262 STODL TBUP
037213,000168: 30,2254 34013 ATDECAY
037214,000169: 30,2255 54276 DCOMP SL
037215,000170: 30,2256 20214 11D
037216,000171: 30,2257 02260 STORE TTO
037217,000172: 30,2260 57535 SLOAD DCOMP
037218,000173: 30,2261 26001 APSVEX
037219,000174: 30,2262 77702 SR2
![]() |
Page 832 |
037221,000176: 30,2263 02256 STORE VE
037222,000177: 30,2264 43414 BOFF RVQ
037223,000178: 30,2265 04747 FLAP
037224,000179: 30,2266 60267 COMMINIT
037225,000180: 30,2267 43345 COMMINIT DLOAD DAD # INITIALIZE TARGET DATA. USED BY P12, P70
037226,000181: 30,2270 25725 HINJECT # AND P71 IF IT DOES NOT FOLLOW P70.
037227,000182: 30,2271 02324 /LAND/
037228,000183: 30,2272 17631 STODL RCO
037229,000184: 30,2273 06520 HI6ZEROS
037230,000185: 30,2274 03654 STORE TXO
037231,000186: 30,2275 03633 STORE YCO
037232,000187: 30,2276 26266 STOVL YDOTD
037233,000188: 30,2277 01563 VRECTCSM
037234,000189: 30,2300 64235 VXV MXV
037235,000190: 30,2301 01555 RRECTCSM
037236,000191: 30,2302 01732 REFSMMAT
037237,000192: 30,2303 77656 UNIT
037238,000193: 30,2304 02567 STORE QAXIS
037239,000194: 30,2305 77616 RVQ
037240,000195:
037241,000196: 30,2306 02024 P12ADRES REMADR P12TABLE
037242,000197:
037243,000198: 34,2000 SETLOC ASENT8
037244,000199: 34,2000 BANK
037245,000200: 34,3426 COUNT* $$/P12
037246,000201:
037247,000202: 34,3426 40220 GUIDINIT STQ SETPD
037248,000203: 34,3427 01163 TEMPR60
037249,000204: 34,3430 00001 0D
037250,000205: 34,3431 41575 VLOAD PUSH
037251,000206: 34,3432 06512 UNITZ
037252,000207: 34,3433 41434 RTB PUSH
037253,000208: 34,3434 21555 LOADTIME
037254,000209: 34,3435 77624 CALL
037255,000210: 34,3436 55720 RP-TO-R
037256,000211: 34,3437 74321 MXV VXSC
037257,000212: 34,3440 01732 REFSMMAT
037258,000213: 34,3441 16027 MOONRATE
037259,000214: 34,3442 26316 STOVL WM
037260,000215: 34,3443 02021 RLS
037261,000216: 34,3444 52446 ABVAL SL3
037262,000217: 34,3445 36324 STCALL /LAND/
037263,000218: 34,3446 01163 TEMPR60
037264,000219:
037265,000220: 34,3447 00046 07374 49FPS 2DEC .149352 B-6 # EXPECTED RDOT AT TIPOVER
037266,000221:
037267,000222: 34,3451 04145 15527 VINJNOM 2DEC 16.7924 B-7 # 5509.5 FPS(APO=30NM WITH RDOT=19.5FPS)
037268,000223:
037269,000224: 34,3453 00007 23346 RDOTDNOM 2DEC .059436 B-7 # 19.5 FPS
037270,000225:
![]() |
Page 833 This page is empty in the hardcopy of the original assembly listing. |
End of include-file P12.agc. Parent file is MAIN.agc