Source Code

055472,000001: 055473,000002: 055474,000003: 055475,000004: 055476,000005: 055477,000006: 055478,000007: 055479,000008: 055480,000009: 055481,000010: 055482,000011: 055483,000012: 055484,000013: 055485,000014: 055486,000015: 055487,000016: 055488,000017: 055489,000018: 055490,000019: 055491,000020: 055492,000021: 055493,000022: 055494,000023: 055495,000024: 055496,000025: 055497,000026: 055498,000027: 055499,000028: 01,3526 055500,000029: 01,2000 055501,000030: 01,2000 055502,000031: 055503,000032: 01,3526 E3,1436 055504,000033: 055505,000034: 01,3526 < # Copyright: Public domain. # Filename: RESTARTS_ROUTINE.agc # Purpose: Part of the source code for Luminary 1A build 099. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC), for Apollo 11. # Assembler: yaYUL # Contact: Onno Hommes <ohommes@cmu.edu>. # Website: www.ibiblio.org/apollo. # Pages: 1303-1309 # Mod history: 2009-05-27 OH Transcribed from page images. # This source code has been transcribed or otherwise adapted from # digitized images of a hardcopy from the MIT Museum. The digitization # was performed by Paul Fjeld, and arranged for by Deborah Douglas of # the Museum. Many thanks to both. The images (with suitable reduction # in storage size and consequent reduction in image quality as well) are # available online at www.ibiblio.org/apollo. If for some reason you # find that the images are illegible, contact me at info@sandroid.org # about getting access to the (much) higher-quality images which Paul # actually created. # Notations on the hardcopy document read, in part: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 # 16:27 JULY 14, 1969 # Page 1303 BANK 01 SETLOC RESTART BANK EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT* $$/RSROU 453">055506,000035: 01,3526 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 60000 DOUBLE # SAVE FOR INDEXING 54155 TS TEMP2G 33770 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN 54157 TS TEMPSWCH # TABLE PHASE 33565 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT 54707 TS GOLOC +2 # GROUP AFTER THIS 30154 CA TEMPPHS 75007 MASK OCT1400 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART 13551 TCF ITSAVAR # IT'S A VARIABLE RESTART 432">055521,000050: 01,3541 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART 10000 CCS A 13651 TCF ITSATBL # NO, IT'S A TABLE RESTART 35024 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START 05105 TC FINDVAC # THE DISPLAY RESTART JOB EBANK= LST1 03037 20103 2CADR INITDSP 03565 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE 2">055532,000061: 01,3551 75007 ITSAVAR MASK OCT1400 # IS IT TYPE B ? 10000 CCS A 13622 TCF ITSLIKEB # YES, IT IS TYPE B 00006 EXTEND # STORES THE JOB (OR TASK) 2CADR FOR EXIT 50155 NDX TEMP2G 31437 DCA PHSNAME1 52706 DXCH GOLOC 30154 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCALL 74757 MASK OCT7 67746 AD MINUS2 10000 CCS A 13734 TCF ITSLNGCL # IT'S A LONGCALL 452">055547,000076: 01,3565 04631 RTRNCADR TC SWRETURN # CAN'T GET HERE. # Page 1304 13570 TCF ITSAWAIT 13635 TCF ITSAJOB # IT'S A JOB 954">055553,000082: 01,3570 33774 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL 54704 TS GOLOC -1 50155 NDX TEMP2G # DIRECTLY STORED 31054 CA PHSPRDT1 354">055558,000087: 01,3574 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART 24000 INCR A # NO. 13601 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN 15436 TCF ITSINDIR # STORED INDIRECTLY 13620 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT* $$/RSROU 952">055573,000102: 5436 22706 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS 22006 LXCH BB # SWITCHED ERASABLE 50000 NDX A # GET THE TIME INDIRECTLY 30001 CA 1 22006 LXCH BB # RESTORE THE BB AND GOLOC 22706 LXCH GOLOC +1 13601 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT* $$/RSROU D45">055591,000120: 01,3601 40000 FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED 54001 TS L # AND SAVE 50155 NDX TEMP2G 41053 CS TBASE1 00006 EXTEND 60025 SU TIME1 10000 CCS A 40000 COM # Page 1305 67731 AD OCT37776 64753 AD ONE 60001 AD L 10000 CCS A 34755 CA ZERO 13620 TCF +2 13620 TCF +1 445">055607,000136: 01,3620 64753 IMEDIATE AD ONE 00704 TC GOLOC -1 542">055609,000138: 01,3622 33565 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE 33771 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS 54707 TS GOLOC +2 # VARIABLE TYPE OF PHASE 30154 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE 76074 MASK OCT177 # PART OF THIS VARIABLE PHASE 54154 TS TEMPPHS 00006 EXTEND 50155 NDX TEMP2G # OBTAIN THE JOB'S 2CADR 31437 DCA PHSNAME1 52706 DXCH GOLOC 2">055624,000153: 01,3635 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO 31054 CA PHSPRDT1 143">055626,000155: 01,3637 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S 00006 EXTEND # A FINDVAC OR A NOVAC 63645 BZMF ITSNOVAC 33773 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL. 56704 XCH GOLOC -1 # PICK UP PRIO 00704 TC GOLOC -1 # AND GO 143">055634,000163: 01,3645 33775 ITSNOVAC CAF NOVACADR # NEGATIVE, 56704 XCH GOLOC -1 # SET UP NOVAC CALL, 40000 COM # CORRECT PRIO, 00704 TC GOLOC -1 # AND GO C">055639,000168: 01,3651 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN 10020 CCS CYR 13654 TCF +1 # IT'S EVEN 13752 TCF ITSEVEN 33565 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A 54707 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT 30154 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN 54021 TS SR # THE RESTART TABLES 60021 AD SR # Page 1306 50155 NDX TEMP2G 62003 AD SIZETAB +1 54156 TS POINTER 2">055655,000184: 01,3665 00006 CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE 50156 NDX POINTER 32002 DCA CADRTAB # GET THE 2CADR 22706 LXCH GOLOC +1 # STORE THE BB INFORMATION 10000 CCS A # IS IT A JOB OR IT IT TIMED 24000 INCR A # POSITIVE, MUST BE A JOB 13746 TCF ITSAJOB2 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL 54705 TS GOLOC # LET'S STORE THE CORRECT CADR 33774 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST 54704 TS GOLOC -1 30706 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL 74742 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7, # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT # IN IMPORTANCE ANYWAY. BIT 4 13741 TCF ITSWTLST # IT IS A WAITLIST CALL 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL 15445 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT* $$/RSROU C31">055690,000219: 5445 22706 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK 22006 LXCH BB 22706 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS 00006 EXTEND # GET THE DELTA TIME 50000 NDX A 30001 DCA 0 22706 LXCH GOLOC +1 # RESTORE OUR E AND F BANK 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS 22706 LXCH GOLOC +1 # AND PRESERVE OUR L # Page 1307 13707 TCF ITSLGCL2 # NOT LET'S PROCESS THIS LONGCALL # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT* $$/RSROU C32">055711,000240: 01,3707 53154 ITSLGCL2 DXCH LONGTIME 00006 EXTEND # CALCULATE TIME LEFT 40025 DCS TIME2 21154 DAS LONGTIME 00006 EXTEND 31152 DCA LONGBASE 21154 DAS LONGTIME 11153 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED 13727 TCF LONGCLCL 13722 TCF +2 13615 TCF IMEDIATE -3 11154 CCS LONGTIME +1 13727 TCF LONGCLCL 13725 NOOP # CAN'T GET HERE ************ 13615 TCF IMEDIATE -3 13620 TCF IMEDIATE 34C">055730,000259: 01,3727 33772 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL 54704 TS GOLOC -1 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL 31154 DCA LONGTIME 00704 TC GOLOC -1 34C">055737,000266: 01,3734 33774 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST 54704 TS GOLOC -1 50155 NDX TEMP2G 41054 CS PHSPRDT1 # GET THE DELTA T ADDRESS 15445 TCF ITSLGCL1 # NOW GET THE DELTA TIME 354">055745,000274: 01,3741 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION 54706 TS GOLOC +1 50156 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED 32000 CA PRDTTAB # DIRECTOY OR INDIRECTLY 13574 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED # Page 1308 232">055754,000283: 01,3746 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR 50156 NDX POINTER # ADD THE PRIORITY AND LET'S GO 32000 CA PRDTTAB 13637 TCF CHKNOVAC E">055761,000290: 01,3752 30157 ITSEVEN CA TEMPSWCH # SET FOR EITHER THE SECOND PART OF THE 54707 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP 50155 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN 32002 CA SIZETAB # THE TABLE 60154 AD TEMPPHS # THIS MAY LOOK BAD BUT LET'S SEE YOU DO 60154 AD TEMPPHS # BETTER IN TIME OR NUMBER OF LOCATIONS 60154 AD TEMPPHS 54156 TS POINTER 13665 TCF CONTBL2 # NO PROCESS WHAT IS IN THE TABLE 432">055773,000302: 01,3763 36245 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF 26156 ADS POINTER # THE TABLE 33565 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT # GROUP 13665 TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL 3">055781,000310: 01,3770 0154 TEMPPHS EQUALS MPAC >055782,000311: 01,3770 0155 TEMP2G EQUALS MPAC +1 2">055783,000312: 01,3770 0156 POINTER EQUALS MPAC +2 348">055784,000313: 01,3770 0157 TEMPSWCH EQUALS MPAC +3 /a>055785,000314: 01,3770 0705 GOLOC EQUALS VAC5 +20D >055786,000315: 01,3770 7746 MINUS2 EQUALS NEG2 >055787,000316: 01,3770 6074 OCT177 EQUALS LOW7 452">055789,000318: 01,3770 03763 PHS2CADR GENADR PHSPART2 452">055790,000319: 01,3771 03541 PRT2CADR GENADR GETPART2 452">055791,000320: 01,3772 05277 LGCLCADR GENADR LONGCALL 452">055792,000321: 01,3773 05105 FVACCADR GENADR FINDVAC 452">055793,000322: 01,3774 05203 WTLTCADR GENADR WAITLIST 452">055794,000323: 01,3775 05072 NOVACADR GENADR NOVAC RESTARTS_ROUTINE.agc. Parent file is MAIN.agc