Source Code
064166,000001: # Copyright: Public domain.
064167,000002: # Filename: SERVICE_ROUTINES.agc
064168,000003: # Purpose: Part of the source code for Comanche, build 055. It
064169,000004: # is part of the source code for the Command Module's
064170,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11.
064171,000006: # Assembler: yaYUL
064172,000007: # Reference: pp. 1485-1492
064173,000008: # Contact: Ron Burkey <info@sandroid.org>
064174,000009: # Website: http://www.ibiblio.org/apollo.
064175,000010: # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
064176,000011: # name, and page images. Corrected various
064177,000012: # typos in the transcription of program
064178,000013: # comments, and these should be back-ported
064179,000014: # to Colossus249.
064180,000015:
064181,000016: # The contents of the "Comanche055" files, in general, are transcribed
064182,000017: # from scanned documents.
064183,000018:
064184,000019: # Assemble revision 055 of AGC program Comanche by NASA
064185,000020: # 2021113-051. April 1, 1969.
064186,000021:
064187,000022: # This AGC program shall also be referred to as Colossus 2A
064188,000023:
064189,000024: # Prepared by
064190,000025: # Massachusetts Institute of Technology
064191,000026: # 75 Cambridge Parkway
064192,000027: # Cambridge, Massachusetts
064193,000028:
064194,000029: # under NASA contract NAS 9-4065.
064195,000030:
064196,000031: # Refer directly to the online document mentioned above for further
064197,000032: # information. Please report any errors to info@sandroid.org.
064198,000033:
064199,000034: # Page 1485
064200,000035: 7722 BLOCK 3
064201,000036: 6000 SETLOC FFTAG6
064202,000037: 6000 BANK
064203,000038: 7722 COUNT 03/FLAG
064204,000039:
064205,000040: 7722 54001 UPENT2 TS L # WHICH FLAGWORD IS IT
064206,000041: 7723 75023 MASK OCT7
064207,000042: 7724 56001 XCH L # SAVE IN L FOR INDEXING
064208,000043:
064209,000044: 7725 75731 MASK OCT77770 # OBTAIN THE BIT INFORMATION
064210,000045: 7726 00004 INHINT # PREVENT INTERRUPTS
064211,000046: 7727 54061 TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARILY
064212,000047:
064213,000048: 7730 50001 NDX L
064214,000049: 7731 40074 CS FLAGWRD0
064215,000050: 7732 70061 MASK ITEMP1
064216,000051: 7733 50001 NDX L
064217,000052: 7734 26074 ADS FLAGWRD0
064218,000053: 7735 00003 RELINT # RELEASE INTERRUPT INHIBIT
064219,000054:
064220,000055: 7736 24002 INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
064221,000056: 7737 00002 TC Q # RETURN
064222,000057:
064223,000058: 7740 54001 DOWNENT2 TS L # WHICH FLAGWORD IS IT
064224,000059: 7741 75023 MASK OCT7
064225,000060: 7742 56001 XCH L # SAVE IN L FOR INDEXING
064226,000061:
064227,000062: 7743 75731 MASK OCT77770 # OBTAIN THE BIT INFORMATION
064228,000063: 7744 40000 COM # START TO PROCESS THE INFORMATION
064229,000064:
064230,000065: 7745 00004 INHINT # PREVENT INTERRUPTS
064231,000066: 7746 50001 NDX L
064232,000067: 7747 70074 MASK FLAGWRD0
064233,000068: 7750 50001 NDX L
064234,000069: 7751 54074 TS FLAGWRD0
064235,000070: 7752 00003 RELINT # RELEASE INTERRUPT INHIBIT
064236,000071:
064237,000072: 7753 24002 INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
064238,000073: 7754 00002 TC Q
064239,000074:
064240,000075: 7755 5023 OCT7 EQUALS SEVEN
064241,000076: 10,3766 BANK 10
064242,000077:
064243,000078: # Page 1486
064244,000079: # UPFLAG AND DOWNFLAG ARE ENTIRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES. USING THEM, WHETHER OR
064245,000080: # NOT IN INTERRUPT, ONE MAY SET OR CLEAR ANY SINGLE, NAMED BIT IN ANY ERASABLE REGISTER, SUBJECT OF COURSE TO
064246,000081: # EBANK SETTING. A "NAMED" BIT, AS THE WORD IS USED HERE, IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY THE YUL
064247,000082: # ASSEMBLER.
064248,000083:
064249,000084: # AT PRESENT THE ONLY NAMED BITS ARE THOSE IN THE FLAGWORDS. ASSEMBLER CHANGES WILL MAKE IT POSSIBLE TO
064250,000085: # NAME ANY BIT IN ERASABLE MEMORY.
064251,000086:
064252,000087: # CALLING SEQUENCES ARE AS FOLLOWS --
064253,000088: # TC UPFLAG TC DOWNFLAG
064254,000089: # ADRES NAME OF FLAG ADRES NAME OF FLAG
064255,000090:
064256,000091: # RETURN IS TO THE LOCATION FOLLOWING THE "ADRES" ABOUT .58 MS AFTER THE "TC".
064257,000092: # UPON RETURN A CONTAINS THE CURRENT FLAGWRD SETTING.
064258,000093:
064259,000094: 5546 BLOCK 02
064260,000095: 4000 SETLOC FFTAG1
064261,000096: 4000 BANK
064262,000097: 5546 COUNT* $$/FLAG
064263,000098:
064264,000099: 5546 30002 UPFLAG CA Q
064265,000100: 5547 05564 TC DEBIT
064266,000101: 5550 40000 COM # +(15 - BIT)
064267,000102: 5551 00006 EXTEND
064268,000103: 5552 04001 ROR LCHAN # SET BIT
064269,000104: 5553 50061 COMFLAG INDEX ITEMP1
064270,000105: 5554 54074 TS FLAGWRD0
064271,000106: 5555 22063 LXCH ITEMP3
064272,000107: 5556 00003 RELINT
064273,000108: 5557 00001 TC L
064274,000109:
064275,000110: 5560 30002 DOWNFLAG CA Q
064276,000111: 5561 05564 TC DEBIT
064277,000112: 5562 70001 MASK L # RESET BIT
064278,000113: 5563 15553 TCF COMFLAG
064279,000114:
064280,000115: 5564 65017 DEBIT AD ONE # CET DE BITS
064281,000116: 5565 00004 INHINT
064282,000117: 5566 54063 TS ITEMP3
064283,000118: 5567 35026 CA LOW4 # DEC15
064284,000119: 5570 54061 TS ITEMP1
064285,000120: 5571 50063 INDEX ITEMP3
064286,000121: 5572 27777 CA 0 -1 # ADRES
064287,000122: 5573 54001 TS L
064288,000123: 5574 35021 CA ZERO
064289,000124: # Page 1487
064290,000125: 5575 00006 EXTEND
064291,000126: 5576 10061 DV ITEMP1 # A = FLAGWRD, L = (15 - BIT)
064292,000127: 5577 52062 DXCH ITEMP1
064293,000128: 5600 50061 INDEX ITEMP1
064294,000129: 5601 30074 CA FLAGWRD0
064295,000130: 5602 54001 TS L # CURRENT STATE
064296,000131: 5603 50062 INDEX ITEMP2
064297,000132: 5604 45001 CS BIT15 # -(15 - BIT)
064298,000133: 5605 00002 TC Q
064299,000134:
064300,000135: # Page 1488
064301,000136: # DELAYJOB -- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
064302,000137:
064303,000138: # ENTRANCE REQUIREMENTS ...
064304,000139: # CAF DT # DELAY JOB FOR DT CENTISECS
064305,000140: # TC BANKCALL
064306,000141: # CADR DELAYJOB
064307,000142:
064308,000143: 06,3770 BANK 06
064309,000144: 00,2000 SETLOC DLAYJOB
064310,000145: 00,2000 BANK
064311,000146:
064312,000147: # THIS MUST REMAIN IN BANK 0 ****************************************
064313,000148:
064314,000149: 00,3732 COUNT 00/DELAY
064315,000150:
064316,000151: 00,3732 00004 DELAYJOB INHINT
064317,000152: 00,3733 54002 TS Q # STORE DELAY DT IN Q FOR DLY -1 IN
064318,000153: 00,3734 36214 CAF DELAYNUM # WAITLIST
064319,000154: 00,3735 54070 DELLOOP TS RUPTREG1
064320,000155: 00,3736 50000 INDEX A
064321,000156: 00,3737 31141 CA DELAYLOC # IS THIS DELAYLOC AVAILABLE
064322,000157: 00,3740 00006 EXTEND
064323,000158: 00,3741 13746 BZF OK2DELAY # YES
064324,000159:
064325,000160: 00,3742 10070 CCS RUPTREG1 # NO, TRY NEXT DELAYLOC
064326,000161: 00,3743 13735 TCF DELLOOP
064327,000162:
064328,000163: 00,3744 07755 TC BAILOUT # NO AVAILABLE LOCS.
064329,000164: 00,3745 01104 OCT 1104
064330,000165:
064331,000166: 00,3746 33766 OK2DELAY CA TCSLEEP # SET WAITLIST IMMEDIATE RETURN
064332,000167: 00,3747 54061 TS WAITEXIT
064333,000168:
064334,000169: 00,3750 30004 CA FBANK
064335,000170: 00,3751 60070 AD RUPTREG1 # STORE BBANK FOR TASK CALL
064336,000171: 00,3752 54001 TS L
064337,000172:
064338,000173: 00,3753 33767 CAF WAKECAD # STORE CADR FOR TASK CALL
064339,000174: 00,3754 15255 TCF DLY2 -1 # DLY IS IN WAITLIST ROUTINE
064340,000175:
064341,000176: 00,3755 04711 TCGETCAD TC MAKECADR # GET CALLER'S FCADR
064342,000177:
064343,000178: 00,3756 50070 INDEX RUPTREG1
064344,000179: 00,3757 55141 TS DELAYLOC # SAVE DELAY CADRS
064345,000180:
064346,000181: 00,3760 05175 TC JOBSLEEP
064347,000182:
064348,000183: 00,3761 35021 WAKER CAF ZERO
064349,000184: 00,3762 50006 INDEX BBANK
064350,000185: 00,3763 57141 XCH DELAYLOC # MAKE DELAYLOC AVAILABLE
064351,000186: # Page 1489
064352,000187: 00,3764 05201 TC JOBWAKE
064353,000188:
064354,000189: 00,3765 05324 TC TASKOVER
064355,000190:
064356,000191: 00,3766 03753 TCSLEEP GENADR TCGETCAD -2
064357,000192: 00,3767 03761 WAKECAD GENADR WAKER
064358,000193:
064359,000194: # Page 1490
064360,000195: # GENTRAN, A BLOCK TRANSFER ROUTINE
064361,000196: # WRITTEN BY D. EYLES
064362,000197: # MOD 1 BY KERNAN UTILITYM REV 17 11/18/67
064363,000198: # MOD 2 BY SCHULENBERG -- (REMOVE RELINT) -- SKIPPER REV 4 2/28/68
064364,000199:
064365,000200: # THIS ROUTINE IS USEFUL FOR TRANSFERRING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
064366,000201: # CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
064367,000202:
064368,000203: # GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:
064369,000204: # I CA N-1 # NO. NUMBER OF QUANTITIES MINUS ONE.
064370,000205: # I +1 TC GENTRAN # IN FIXED-FIXED.
064371,000206: # I +2 ADRES L # STARTING ADRES OF DATA TO BE MOVED.
064372,000207: # I +3 ADRES M # STARTING ADRES OF DUPLICATION BLOCK.
064373,000208: # I +4 # RETURNS HERE.
064374,000209:
064375,000210: # GENTRAN TAKES 25 MCT'S (300 MICROSECONDS) PER ITEM + 5 MCT'S (60 MICS) FOR ENTERING AND EXITING.
064376,000211: # A, L, AND ITEMP1 ARE NOT PRESERVED.
064377,000212:
064378,000213: 5606 BLOCK 02
064379,000214: 4000 SETLOC FFTAG4
064380,000215: 4000 BANK
064381,000216:
064382,000217: 5606 0061 EBANK= ITEMP1
064383,000218:
064384,000219: 5606 COUNT* $$/TRAN
064385,000220:
064386,000221: 5606 00004 GENTRAN INHINT
064387,000222: 5607 54061 TS ITEMP1 # SAVE N-1
064388,000223: 5610 50002 INDEX Q # C(Q) = ADRES L.
064389,000224: 5611 60000 AD 0 # ADRES (L + N - 1).
064390,000225: 5612 50000 INDEX A
064391,000226: 5613 30000 CA 0 # C(ABOVE).
064392,000227: 5614 54001 TS L # SAVE DATA.
064393,000228: 5615 30061 CA ITEMP1
064394,000229: 5616 50002 INDEX Q
064395,000230: 5617 60001 AD 1 # ADRES (M + N - 1).
064396,000231: 5620 50000 INDEX A
064397,000232: 5621 22000 LXCH 0 # STUFF IT.
064398,000233: 5622 10061 CCS ITEMP1 # LOOP UNTIL N-1 = 0.
064399,000234: 5623 15607 TCF GENTRAN +1
064400,000235: 5624 16710 TCF Q+2 # RETURN TO CALLER.
064401,000236:
064402,000237: # Page 1491
064403,000238: # B5OFF ZERO BIT 5 OF EXTVBACK, WHICH IS SET BY TESTXACT.
064404,000239: # MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
064405,000240:
064406,000241: 5625 COUNT* $$/EXTVB
064407,000242:
064408,000243: 5625 45013 B5OFF CS BIT5
064409,000244: 5626 71044 MASK EXTVBACT
064410,000245: 5627 55044 TS EXTVBACT
064411,000246: 5630 05217 TC ENDOFJOB
064412,000247:
064413,000248: # Page 1492
064414,000249: # SUBROUTINES TO TURN OFF AND TURN ON TRACKER FAIL LIGHT.
064415,000250:
064416,000251: 5631 00004 TRFAILOF INHINT
064417,000252: 5632 47704 CS OCT40200 # TURN OFF TRACKER LIGHT
064418,000253: 5633 71036 MASK DSPTAB +11D
064419,000254: 5634 65001 AD BIT15
064420,000255: 5635 55036 TS DSPTAB +11D
064421,000256: 5636 41331 CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON
064422,000257: 5637 75011 MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO
064423,000258: 5640 27331 ADS OPTMODES # TRACKER FAIL.
064424,000259:
064425,000260: 5641 00003 REQ RELINT
064426,000261: 5642 00002 TC Q
064427,000262:
064428,000263: 5643 00004 TRFAILON INHINT
064429,000264: 5644 41036 CS DSPTAB +11D # TURN ON
064430,000265: 5645 77704 MASK OCT40200
064431,000266: 5646 27036 ADS DSPTAB +11D
064432,000267: 5647 15641 TCF REQ
064433,000268:
064434,000269:
064435,000270:
064436,000271:
End of include-file SERVICE_ROUTINES.agc. Parent file is MAIN.agc