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. |
058003,000002: ## Copyright: Public domain.
058004,000003: ## Filename: KEYRUPT,_UPRUPT.agc
058005,000004: ## Purpose: A log section of Zerlina 56, the final revision of
058006,000005: ## Don Eyles's offline development program for the variable
058007,000006: ## guidance period servicer. It also includes a new P66 with LPD
058008,000007: ## (Landing Point Designator) capability, based on an idea of John
058009,000008: ## Young's. Neither of these advanced features were actually flown,
058010,000009: ## but Zerlina was also the birthplace of other big improvements to
058011,000010: ## Luminary including the terrain model and new (Luminary 1E)
058012,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
058013,000012: ## and revision 56 includes all changes up to and including Luminary
058014,000013: ## 183. It is therefore quite close to the Apollo 14 program,
058015,000014: ## Luminary 178, where not modified with new features.
058016,000015: ## Reference: pp. 1327-1329
058017,000016: ## Assembler: yaYUL
058018,000017: ## Contact: Ron Burkey <info@sandroid.org>.
058019,000018: ## Website: www.ibiblio.org/apollo/index.html
058020,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
058021,000020: ## 2017-08-29 MAS Updated for Zerlina 56.
058022,000021:
|
|
Page 1327 |
058024,000023: 14,3775 BANK 14
058025,000024: 04,2000 SETLOC KEYRUPT
058026,000025: 04,2000 BANK
058027,000026: 04,3261 COUNT* $$/KEYUP
058028,000027:
058029,000028: 04,3261 54016 KEYRUPT1 TS BANKRUPT
058030,000029: 04,3262 56002 XCH Q
058031,000030: 04,3263 54012 TS QRUPT
058032,000031: 04,3264 04400 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
058033,000032: 04,3265 34346 CAF LOW5
058034,000033: 04,3266 00006 EXTEND
058035,000034: 04,3267 02015 RAND MNKEYIN # CHECK IF KEYS 5M-1M ON
058036,000035: 04,3270 54073 KEYCOM TS RUPTREG4
058037,000036: 04,3271 40101 CS FLAGWRD5
058038,000037: 04,3272 74735 MASK DSKYFBIT
058039,000038: 04,3273 26101 ADS FLAGWRD5
058040,000039:
058041,000040: 04,3274 34355 ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1)
058042,000041: 04,3275 05072 TC NOVAC
058043,000042: 04,3276 0776 EBANK= DSPCOUNT
058044,000043: 04,3276 02057 60101 2CADR CHARIN
058045,000044:
058046,000045: 04,3300 30073 CA RUPTREG4
058047,000046: 04,3301 50064 INDEX LOCCTR
058048,000047: 04,3302 54154 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
058049,000048: 04,3303 05301 TC RESUME
058050,000049:
|
|
Page 1328 |
058052,000051: # UPRUPT PROGRAM
058053,000052:
058054,000053: 04,3304 54016 UPRUPT TS BANKRUPT
058055,000054: 04,3305 56002 XCH Q
058056,000055: 04,3306 54012 TS QRUPT
058057,000056: 04,3307 04400 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
058058,000057: 04,3310 34755 CAF ZERO
058059,000058: 04,3311 56045 XCH INLINK
058060,000059: 04,3312 54073 TS KEYTEMP1
058061,000060: 04,3313 30077 CA FLAGWRD3 # AFTER EARTH LAUNCH?
058062,000061: 04,3314 74741 MASK NOP07BIT
058063,000062: 04,3315 10000 CCS A
058064,000063: 04,3316 13322 TCF UPRPT1 # YES
058065,000064: 04,3317 30073 CA KEYTEMP1 # NO: SUM UPLINK DATA
058066,000065: 04,3320 27247 ADS UPSUM
058067,000066: 04,3321 25250 INCR UPSUM +1
058068,000067: 04,3322 34751 UPRPT1 CAF BIT3 # TURN ON UPACT LIGHT
058069,000068: 04,3323 00006 EXTEND # (BIT 3 OF CHANNEL 11)
058070,000069: 04,3324 05011 WOR DSALMOUT
058071,000070: 04,3325 34346 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
058072,000071: 04,3326 70073 MASK KEYTEMP1 # LOW5 OF WORD
058073,000072: 04,3327 56073 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
058074,000073: 04,3330 00006 EXTEND
058075,000074: 04,3331 74742 MP BIT10 # SHIFT RIGHT 5
058076,000075: 04,3332 54332 TS KEYTEMP2
058077,000076: 04,3333 74346 MASK LOW5 # MID 5
058078,000077: 04,3334 63370 AD HI10
058079,000078: 04,3335 03365 TC UPTEST
058080,000079: 04,3336 34742 CAF BIT10
058081,000080: 04,3337 00006 EXTEND
058082,000081: 04,3340 70332 MP KEYTEMP2 # SHIFT RIGHT 5
058083,000082: 04,3341 74346 MASK LOW5 # HIGH 5
058084,000083: 04,3342 40000 COM
058085,000084: 04,3343 03365 TC UPTEST
058086,000085:
058087,000086: 04,3344 43373 UPOK CS ELRCODE # CODE IS GOOD. IF CODE = 'ERROR RESET',
058088,000087: 04,3345 60073 AD KEYTEMP1 # CLEAR UPLOCKFL(SET BIT4 OF FLAGWRD7 = 0)
058089,000088: 04,3346 00006 EXTEND # IF CODE DOES NOT = 'ERROR RESET', ACCEPT
058090,000089: 04,3347 13355 BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).
058091,000090:
058092,000091: 04,3350 34750 CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1
058093,000092: 04,3351 70103 MASK FLAGWRD7
058094,000093: 04,3352 10000 CCS A
058095,000094: 04,3353 05301 TC RESUME # UPLOCKFL = 1
058096,000095: 04,3354 03274 TC ACCEPTUP # UPLOCKFL = 0
058097,000096:
058098,000097: 04,3355 44750 CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E.,SET BIT 4 OF )
058099,000098: 04,3356 70103 MASK FLAGWRD7 # FLAGWRD7 = 0)
058100,000099: 04,3357 54103 TS FLAGWRD7
058101,000100: 04,3360 03274 TC ACCEPTUP
|
|
Page 1329 |
058103,000102: # CODE IS BAD
058104,000103: 04,3361 40103 TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY
058105,000104: 04,3362 74750 MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL
058106,000105: 04,3363 26103 ADS FLAGWRD7 # 'ERROR RESET' IS SENT VIA UPLINK.
058107,000106: 04,3364 05301 TC RESUME
058108,000107: 04,3365 60073 UPTEST AD KEYTEMP1
058109,000108: 04,3366 10000 CCS A
058110,000109: 04,3367 03361 TC TMFAIL2
058111,000110: 04,3370 77740 HI10 OCT 77740
058112,000111: 04,3371 03361 TC TMFAIL2
058113,000112: 04,3372 00002 TC Q
058114,000113:
058115,000114: 04,3373 00022 ELRCODE OCT 22
058116,000115:
058117,000116: # 'UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
058118,000117: # 1. VBRELDSP
058119,000118: # 2. ERROR RESET
058120,000119: # 3. UPDATE PROGRAM(P27) ENTERED BY V70,V71,V72,AND V73.
058121,000120:
058122,000121:
058123,000122: # -
058124,000123: # THE RECEPTION OF A BAD CODE(I.E CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
058125,000124: # THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
058126,000125: # WHEN UPLINK ACTIVITY IS LOCKED OUT ,IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET' CODE.
058127,000126: # (IT IS RECOMMENDED THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
058128,000127: # BY 15 ZEROES. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
058129,000128: # FAILURE)
058130,000129: # UPLINK ACTIVITY IS ALSO ALLOWED(UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
End of include-file KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc