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. |
030957,000002: ## Copyright: Public domain.
030958,000003: ## Filename: P76.agc
030959,000004: ## Purpose: A log section of Zerlina 56, the final revision of
030960,000005: ## Don Eyles's offline development program for the variable
030961,000006: ## guidance period servicer. It also includes a new P66 with LPD
030962,000007: ## (Landing Point Designator) capability, based on an idea of John
030963,000008: ## Young's. Neither of these advanced features were actually flown,
030964,000009: ## but Zerlina was also the birthplace of other big improvements to
030965,000010: ## Luminary including the terrain model and new (Luminary 1E)
030966,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
030967,000012: ## and revision 56 includes all changes up to and including Luminary
030968,000013: ## 183. It is therefore quite close to the Apollo 14 program,
030969,000014: ## Luminary 178, where not modified with new features.
030970,000015: ## Reference: pp. 703-705
030971,000016: ## Assembler: yaYUL
030972,000017: ## Contact: Ron Burkey <info@sandroid.org>.
030973,000018: ## Website: www.ibiblio.org/apollo/index.html
030974,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
030975,000020: ## 2017-08-19 MAS Updated for Zerlina 56.
030976,000021:
|
|
Page 703 |
030978,000023: # 1) PROGRAM NAME - TARGET DELTA V PROGRAM (P76).
030979,000024: # 2) FUNCTIONAL DESCRIPTION - UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
030980,000025: # TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
030981,000026: # TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE
030982,000027: # OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
030983,000028: # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER
030984,000029: # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
030985,000030: # STATES CORRESPOND TO THE SAME TIME.
030986,000031: # 3) ERASABLE INITIALIZATION REQUIRED - NONE.
030987,000032: # 4) CALLING SEQUENCES AND EXIT MODES - CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76 E.
030988,000033: # EXITS BY TCF ENDOFJOB.
030989,000034: # 5) OUTPUT - OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
030990,000035: # THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
030991,000036: # TO REF COSYS.
030992,000037: # 6) DEBRIS - OTHER VEHICLE STATE VECTOR.
030993,000038: # 7) SUBROUTINES CALLED - BANKCALL,GOXDSPF,CSMPREC (OR LEMPREC),ATOPCSM (OR ATOPLEM),INTSTALL,INTWAKE, PHASCHNG
030994,000039: # INTPRET, INTEGRVS, AND MINIRECT.
030995,000040:
030996,000041: # 8) FLAG USE - MOONFLAG,CMOONFLAG,INTYPFLG,RASFLAG, AND MARKCTR.
030997,000042:
030998,000043: 30,2061 BANK 30
030999,000044: 13,2000 SETLOC P76LOC
031000,000045: 13,2000 BANK
031001,000046:
031002,000047: 13,2207 COUNT* $$/P76
031003,000048:
031004,000049: 13,2207 E7,1441 EBANK= TIG
031005,000050:
031006,000051: 13,2207 05515 P76 TC UPFLAG
031007,000052: 13,2210 00031 ADRES TRACKFLG
031008,000053:
031009,000054: 13,2211 06051 TC INTPRET
031010,000055: 13,2212 77775 VLOAD
031011,000056: 13,2213 03434 DELVLVC
031012,000057: 13,2214 01253 STORE DELVOV
031013,000058: 13,2215 77776 EXIT
031014,000059:
031015,000060: 13,2216 32335 CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
031016,000061: 13,2217 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
031017,000062: 13,2220 20477 CADR GOFLASH
031018,000063: 13,2221 12331 TCF ENDP76
031019,000064: 13,2222 02224 TC +2 # PROCEED
031020,000065: 13,2223 02216 TC -5 # STORE DATA AND REPEAT FLASHING
031021,000066: 13,2224 32334 CAF V06N84 # FLASH LAST DELTA V,
031022,000067: 13,2225 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
031023,000068: 13,2226 20477 CADR GOFLASH
031024,000069: 13,2227 12331 TCF ENDP76
031025,000070: 13,2230 02232 TC +2
031026,000071: 13,2231 02224 TC -5
031027,000072: 13,2232 06051 TC INTPRET # RETURN TO INTERPRETIVE CODE
|
|
Page 704 |
031029,000074: 13,2233 43145 DLOAD SET
031030,000075: 13,2234 03442 TIG
031031,000076: 13,2235 01076 NODOFLAG
031032,000077: 13,2236 34041 STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION
031033,000078: 13,2237 27042 OTHPREC
031034,000079: 13,2240 53575 COMPMAT VLOAD UNIT
031035,000080: 13,2241 00001 RATT
031036,000081: 13,2242 77676 VCOMP # U(-R)
031037,000082: 13,2243 00031 STORE 24D # U(-R) TO 24D
031038,000083: 13,2244 53435 VXV UNIT # U(-R)XV = U(VXR)
031039,000084: 13,2245 00007 VATT
031040,000085: 13,2246 00023 STORE 18D
031041,000086: 13,2247 53435 VXV UNIT # U(VXR)XU(-R) = U((RXV)XR)
031042,000087: 13,2250 00031 24D
031043,000088: 13,2251 24015 STOVL 12D
031044,000089: 13,2252 01253 DELVOV
031045,000090: 13,2253 76505 VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS
031046,000091: 13,2254 00015 12D
031047,000092: 13,2255 77655 VAD
031048,000093: 13,2256 00007 VATT
031049,000094: 13,2257 00007 STORE 6 # V(PD6)=VATT + DELTA V
031050,000095: 13,2260 77624 CALL # PREVENT WOULD-BE USER OF ORBITAL
031051,000096: 13,2261 27410 INTSTALL # INTEG FROM INTERFERING WITH UPDATING
031052,000097: 13,2262 77624 CALL
031053,000098: 13,2263 26336 P76SUB1
031054,000099: 13,2264 53775 VLOAD VSR*
031055,000100: 13,2265 00007 6
031056,000101: 13,2266 57176 0,2
031057,000102: 13,2267 25543 STOVL VCV
031058,000103: 13,2270 00001 RATT
031059,000104: 13,2271 77657 VSR*
031060,000105: 13,2272 57176 0,2
031061,000106: 13,2273 15535 STODL RCV
031062,000107: 13,2274 03442 TIG
031063,000108: 13,2275 01517 STORE TET
031064,000109: 13,2276 71214 CLEAR DLOAD
031065,000110: 13,2277 01673 INTYPFLG
031066,000111: 13,2300 01643 TETTHIS
031067,000112: 13,2301 34041 INTOTHIS STCALL TDEC1
031068,000113: 13,2302 27106 INTEGRVS
031069,000114: 13,2303 77624 CALL
031070,000115: 13,2304 27410 INTSTALL
031071,000116: 13,2305 77775 VLOAD
031072,000117: 13,2306 00017 RATT1
031073,000118: 13,2307 01503 STORE RRECT
031074,000119: 13,2310 15535 STODL RCV
031075,000120: 13,2311 00015 TAT
031076,000121: 13,2312 25517 STOVL TET
031077,000122: 13,2313 00025 VATT1
031078,000123: 13,2314 77624 CALL
|
|
Page 705 |
031080,000125: 13,2315 27705 MINIRECT
031081,000126: 13,2316 77776 EXIT
031082,000127: 13,2317 05364 TC PHASCHNG
031083,000128: 13,2320 04024 OCT 04024
031084,000129:
031085,000130: 13,2321 06051 TC INTPRET
031086,000131: 13,2322 45014 SET CALL
031087,000132: 13,2323 05070 REINTFLG
031088,000133: 13,2324 26660 ATOPOTH
031089,000134: 13,2325 77624 CALL
031090,000135: 13,2326 27417 INTWAKE0
031091,000136: 13,2327 77414 OUT CLEAR EXIT # ALLOW V37. NO NEED TO CLEAR NODOFLAG AT
031092,000137: 13,2330 01276 NODOFLAG # ENDP76 SINCE FLAG NOT SET WHEN DISPLAY
031093,000138: # RESPONSES TRANSFER THERE FROM P76+.
031094,000139: 13,2331 34755 ENDP76 CAF ZERO
031095,000140: 13,2332 55462 TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
031096,000141: 13,2333 16001 TCF GOTOPOOH
031097,000142:
031098,000143: 13,2334 01524 V06N84 NV 0684
031099,000144: 13,2335 01441 NV 0633
031100,000145: 13,2336 43174 P76SUB1 AXT,2 SET
031101,000146: 13,2337 00002 2
031102,000147: 13,2340 00063 MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE.
031103,000148: 13,2341 77014 BON AXT,2
031104,000149: 13,2342 04303 CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE.
031105,000150: 13,2343 00052 QPRET
031106,000151: 13,2344 00000 0
031107,000152: 13,2345 43414 CLEAR RVQ
031108,000153: 13,2346 00263 MOONFLAG
End of include-file P76.agc. Parent file is MAIN.agc