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