Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
057836,000002: ## Copyright: Public domain.
057837,000003: ## Filename: SERVICE_ROUTINES.agc
057838,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
057839,000005: ## It is part of the source code for the Lunar Module's (LM)
057840,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
057841,000007: ## Assembler: yaYUL
057842,000008: ## Contact: Ron Burkey <info@sandroid.org>.
057843,000009: ## Website: www.ibiblio.org/apollo.
057844,000010: ## Pages: 1374-1380
057845,000011: ## Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
057846,000012: ## from the Luminary131/ file of the same
057847,000013: ## name, using Luminary099 page images.
057848,000014: ## 2016-12-18 RSB Proofed text comments with octopus/ProoferComments
057849,000015: ## and corrected the errors found.
057850,000016: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
057851,000017: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
057852,000018: ## side-by-side diff of Luminary 69/99/116/131/210.
057853,000019:
![]() |
Page 1374 |
057855,000021: 10,3544 BANK 10
057856,000022: 10,2000 SETLOC DISPLAYS
057857,000023: 10,2000 BANK
057858,000024: 10,3544 COUNT* $$/DSPLA
057859,000025:
057860,000026: 10,3544 00004 UPENT2 INHINT
057861,000027: 10,3545 75660 MASK OCT77770
057862,000028: 10,3546 54001 TS L
057863,000029: 10,3547 40100 CS FLAGWRD4
057864,000030: 10,3550 70001 MASK L
057865,000031: 10,3551 26100 ADS FLAGWRD4
057866,000032: 10,3552 00003 JOIN RELINT
057867,000033: 10,3553 16737 TCF Q+1
057868,000034:
057869,000035: 10,3554 00004 DOWNENT2 INHINT
057870,000036: 10,3555 75660 MASK OCT77770
057871,000037: 10,3556 40000 COM
057872,000038: 10,3557 70100 MASK FLAGWRD4
057873,000039: 10,3560 54100 TS FLAGWRD4
057874,000040: 10,3561 13552 TCF JOIN
057875,000041:
057876,000042: 10,3562 4757 OCT7 EQUALS SEVEN
057877,000043:
![]() |
Page 1375 |
057879,000045: # UPFLAG AND DOWNFLAG ARE ENTIRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES. USING THEM, WHETHER OR
057880,000046: # NOT IN INTERRUPT, ONE MAY SET OR CLEAR ANY SINGLE, NAMED BIT IN ANY ERASABLE REGISTER, SUBJECT OF COURSE TO
057881,000047: # EBANK SETTING. A "NAMED" BIT, AS THE WORD IS USED HERE, IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY THE YUL
057882,000048: # ASSEMBLER.
057883,000049:
057884,000050: # AT PRESENT THE ONLY NAMED BITS ARE THOSE IN THE FLAGWORDS. ASSEMBLER CHANGES WILL MAKE IT POSSIBLE TO
057885,000051: # NAME ANY BIT IN ERASABLE MEMORY.
057886,000052:
057887,000053: # CALLING SEQUENCES ARE AS FOLLOWS :-
057888,000054: # TC UPFLAG TC DOWNFLAG
057889,000055: # ADRES NAME OF FLAG ADRES NAME OF FLAG
057890,000056:
057891,000057: # RETURN IS TO THE LOCATION FOLLOWING THE "ADRES" ABOUT .58 MS AFTER THE "TC".
057892,000058: # UPON RETURN A CONTAINS THE CURRENT FLAGWRD SETTING.
057893,000059:
057894,000060: 5504 BLOCK 02
057895,000061: 4000 SETLOC FFTAG1
057896,000062: 4000 BANK
057897,000063: 5504 COUNT* $$/FLAG
057898,000064:
057899,000065: 5504 30002 UPFLAG CA Q
057900,000066: 5505 05522 TC DEBIT
057901,000067: 5506 40000 COM # +(15 - BIT)
057902,000068: 5507 00006 EXTEND
057903,000069: 5510 04001 ROR LCHAN # SET BIT
057904,000070: 5511 50061 COMFLAG INDEX ITEMP1
057905,000071: 5512 54074 TS FLAGWRD0
057906,000072: 5513 22063 LXCH ITEMP3
057907,000073: 5514 00003 RELINT
057908,000074: 5515 00001 TC L
057909,000075:
057910,000076: 5516 30002 DOWNFLAG CA Q
057911,000077: 5517 05522 TC DEBIT
057912,000078: 5520 70001 MASK L # RESET BIT
057913,000079: 5521 15511 TCF COMFLAG
057914,000080:
057915,000081: 5522 64753 DEBIT AD ONE # GET DE BITS
057916,000082: 5523 00004 INHINT
057917,000083: 5524 54063 TS ITEMP3
057918,000084: 5525 34762 CA LOW4 # DEC15
057919,000085: 5526 54061 TS ITEMP1
057920,000086: 5527 50063 INDEX ITEMP3
057921,000087: 5530 27777 CA 0 -1 # ADRES
057922,000088: 5531 54001 TS L
057923,000089: 5532 34755 CA ZERO
![]() |
Page 1376 |
057925,000091: 5533 00006 EXTEND
057926,000092: 5534 10061 DV ITEMP1 # A = FLAGWRD, L = (15 - BIT)
057927,000093: 5535 52062 DXCH ITEMP1
057928,000094: 5536 50061 INDEX ITEMP1
057929,000095: 5537 30074 CA FLAGWRD0
057930,000096: 5540 54001 TS L # CURRENT STATE
057931,000097: 5541 50062 INDEX ITEMP2
057932,000098: 5542 44735 CS BIT15 # -(15 - BIT)
057933,000099: 5543 00002 TC Q
057934,000100:
![]() |
Page 1377 |
057936,000102: # DELAYJOB - A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
057937,000103:
057938,000104: # ENTRANCE REQUIREMENTS ...
057939,000105: # CAF DT DELAY JOB FOR DT CENTISECS
057940,000106: # TC BANKCALL
057941,000107: # CADR DELAYJOB
057942,000108:
057943,000109: 06,3764 BANK 06
057944,000110: 00,2000 SETLOC DLAYJOB
057945,000111: 00,2000 BANK
057946,000112:
057947,000113: # THIS MUST REMAIN IN BANK 0 *****************************************
057948,000114:
057949,000115: 00,3735 COUNT* $$/DELAY
057950,000116: 00,3735 00004 DELAYJOB INHINT
057951,000117: 00,3736 54002 TS Q # STORE DELAY DT IN Q FOR DLY -1 IN
057952,000118: 00,3737 34752 CAF DELAYNUM # WAITLIST
057953,000119: 00,3740 54070 DELLOOP TS RUPTREG1
057954,000120: 00,3741 50000 INDEX A
057955,000121: 00,3742 31326 CA DELAYLOC # IS THIS DELAYLOC AVAILABLE
057956,000122: 00,3743 00006 EXTEND
057957,000123: 00,3744 13752 BZF OK2DELAY # YES
057958,000124:
057959,000125: 00,3745 10070 CCS RUPTREG1 # NO, TRY NEXT DELAYLOC
057960,000126: 00,3746 13740 TCF DELLOOP
057961,000127:
057962,000128: 00,3747 52134 DXCH BUF2
057963,000129: 00,3750 05716 TC BAILOUT1 # NO AVAILABLE LOCS.
057964,000130: 00,3751 01104 OCT 1104
057965,000131:
057966,000132: 00,3752 33772 OK2DELAY CA TCSLEEP # SET WAITLIST IMMEDIATE RETURN
057967,000133: 00,3753 54061 TS WAITEXIT
057968,000134:
057969,000135: 00,3754 30004 CA FBANK
057970,000136: 00,3755 60070 AD RUPTREG1 # STORE BBANK FOR TASK CALL
057971,000137: 00,3756 54001 TS L
057972,000138:
057973,000139: 00,3757 33773 CAF WAKECAD # STORE CADR FOR TASK CALL
057974,000140: 00,3760 15211 TCF DLY2 -1 # DLY IS IN WAITLIST ROUTINE
057975,000141:
057976,000142: 00,3761 04645 TCGETCAD TC MAKECADR # GET CALLERS FCADR
057977,000143:
057978,000144: 00,3762 50070 INDEX RUPTREG1
057979,000145: 00,3763 55326 TS DELAYLOC # SAVE DELAY CADRS
057980,000146:
057981,000147: 00,3764 05133 TC JOBSLEEP
057982,000148:
057983,000149: 00,3765 34755 WAKER CAF ZERO
057984,000150: 00,3766 50006 INDEX BBANK
057985,000151: 00,3767 57326 XCH DELAYLOC # MAKE DELAYLOC AVAILABLE
![]() |
Page 1378 |
057987,000153: 00,3770 05137 TC JOBWAKE
057988,000154:
057989,000155: 00,3771 05261 TC TASKOVER
057990,000156:
057991,000157: 00,3772 03757 TCSLEEP GENADR TCGETCAD -2
057992,000158: 00,3773 03765 WAKECAD GENADR WAKER
057993,000159:
![]() |
Page 1379 |
057995,000161: # GENTRAN, A BLOCK TRANSFER ROUTINE.
057996,000162: # WRITTEN BY D. EYLES
057997,000163: # MOD 1 BY KERNAN UTILITYM REV 17 11/18/67
057998,000164: # MOD 2 BY SCHULENBERG (REMOVE RELINT) SKIPPER REV 4 2/28/68
057999,000165:
058000,000166: # THIS ROUTINE IS USEFULL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
058001,000167: # CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
058002,000168:
058003,000169: # GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:
058004,000170: # I CA N-1 # OF QUANTITIES MINUS ONE.
058005,000171: # I +1 TC GENTRAN IN FIXED-FIXED.
058006,000172: # I +2 ADRES L STARTING ADRES OF DATA TO BE MOVED.
058007,000173: # I +3 ADRES M STARTING ADRES OF DUPLICATION BLOCK.
058008,000174: # I +4 RETURNS HERE.
058009,000175:
058010,000176: # GENTRAN TAKES 25 MCT'S (300 MICROSECONDS) PER ITEM + 5 MCT'S (60 MICS) FOR ENTERING AND EXITING.
058011,000177: # A, L AND ITEMP1 ARE NOT PRESERVED.
058012,000178:
058013,000179: 5544 BLOCK 02
058014,000180: 4000 SETLOC FFTAG4
058015,000181: 4000 BANK
058016,000182:
058017,000183: 5544 0061 EBANK= ITEMP1
058018,000184:
058019,000185: 5544 COUNT* $$/TRAN
058020,000186:
058021,000187: 5544 00004 GENTRAN INHINT
058022,000188: 5545 54061 TS ITEMP1 # SAVE N-1.
058023,000189: 5546 50002 INDEX Q # C(Q) = ADRES L.
058024,000190: 5547 60000 AD 0 # ADRES (L + N - 1).
058025,000191: 5550 50000 INDEX A
058026,000192: 5551 30000 CA 0 # C(ABOVE).
058027,000193: 5552 54001 TS L # SAVE DATA.
058028,000194: 5553 30061 CA ITEMP1
058029,000195: 5554 50002 INDEX Q
058030,000196: 5555 60001 AD 1 # ADRES (M + N - 1).
058031,000197: 5556 50000 INDEX A
058032,000198: 5557 22000 LXCH 0 # STUFF IT.
058033,000199: 5560 10061 CCS ITEMP1 # LOOP UNTIL N-1 = 0.
058034,000200: 5561 15545 TCF GENTRAN +1
058035,000201: 5562 16741 TCF Q+2 # RETURN TO CALLER.
058036,000202:
![]() |
Page 1380 |
058038,000204: # B5OFF ZERO BIT 5 OF EXTVBACT, WHICH IS SET BY TESTXACT.
058039,000205: # MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
058040,000206:
058041,000207: 5563 COUNT* $$/EXTVB
058042,000208:
058043,000209: 5563 44747 B5OFF CS BIT5
058044,000210: 5564 71044 MASK EXTVBACT
058045,000211: 5565 55044 TS EXTVBACT
058046,000212: 5566 05155 TC ENDOFJOB
058047,000213:
058048,000214:
058049,000215:
End of include-file SERVICE_ROUTINES.agc. Parent file is MAIN.agc