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