Source Code

059757,000001: 059758,000002: 059759,000003: 059760,000004: 059761,000005: 059762,000006: 059763,000007: 059764,000008: 059765,000009: 059766,000010: 059767,000011: 059768,000012: 059769,000013: 059770,000014: 059771,000015: 059772,000016: 059773,000017: 059774,000018: 059775,000019: 059776,000020: 059777,000021: 059778,000022: 059779,000023: 059780,000024: 059781,000025: 059782,000026: 059783,000027: 059784,000028: 059785,000029: 059786,000030: 059787,000031: 059788,000032: 059789,000033: 059790,000034: 059791,000035: 059792,000036: 059793,000037: 01,3520 059794,000038: 01,2000 059795,000039: 01,2000 059796,000040: 059797,000041: 01,3520 E3,1436 059798,000042: 059799,000043: 01,3520 059800,000044: < # Copyright: Public domain. # Filename: RESTARTS_ROUTINE.agc # Purpose: Part of the source code for Colossus, build 249. # It is part of the source code for the Command Module's (CM) # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. # Assembler: yaYUL # Reference: Starts on p. 1404 of 1701.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo. # Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file. # The contents of the "Colossus249" files, in general, are transcribed # from a scanned document obtained from MIT's website, # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this # document read, in part: # Assemble revision 249 of AGC program Colossus by NASA # 2021111-041. October 28, 1968. # This AGC program shall also be referred to as # Colossus 1A # Prepared by # Massachussets Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # under NASA contract NAS 9-4065. # Refer directly to the online document mentioned above for further information. # Please report any errors (relative to 1701.pdf) to info@sandroid.org. # In some cases, where the source code for Luminary 131 overlaps that of # Colossus 249, this code is instead copied from the corresponding Luminary 131 # source file, and then is proofed to incorporate any changes. # Page 1404 BANK 01 SETLOC RESTART BANK EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT 01/RSROU 453">059801,000045: 01,3520 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 60000 DOUBLE # SAVE FOR INDEXING 54155 TS TEMP2G 33762 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN 54157 TS TEMPSWCH # TABLE PHASE 33557 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT 54707 TS GOLOC +2 # GROUP AFTER THIS 30154 CA TEMPPHS 74744 MASK OCT1400 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART 13543 TCF ITSAVAR # IT'S A VARIABLE RESTART 432">059816,000060: 01,3533 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART 10000 CCS A 13643 TCF ITSATBL # NO, IT'S A TABLE RESTART 34761 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START 05042 TC FINDVAC # THE DISPLAY RESTART JOB EBANK= LST1 03165 20103 2CADR INITDSP 03557 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE 2">059827,000071: 01,3543 74744 ITSAVAR MASK OCT1400 # IS IT TYPE B ? 10000 CCS A 13614 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 74716 MASK OCT7 67715 AD MINUS2 10000 CCS A 13726 TCF ITSLNGCL # IT'S A LONGCALL # Page 1405 452">059843,000087: 01,3557 04570 RTRNCADR TC SWRETURN # CAN'T GET HERE. 13562 TCF ITSAWAIT 13627 TCF ITSAJOB # IT'S A JOB 954">059848,000092: 01,3562 33766 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL 54704 TS GOLOC -1 50155 NDX TEMP2G # DIRECTLY STORED 31054 CA PHSPRDT1 354">059853,000097: 01,3566 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART 24000 INCR A # NO. 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN 15367 TCF ITSINDIR # STORED INDIRECTLY 13612 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT 02/RSROU 952">059869,000113: 5367 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 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT 01/RSROU D45">059888,000132: 01,3573 40000 FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED 54001 TS L # AND SAVE 50155 NDX TEMP2G 41053 CS TBASE1 00006 EXTEND # Page 1406 60025 SU TIME1 10000 CCS A 40000 COM 67700 AD OCT37776 64712 AD ONE 60001 AD L 10000 CCS A 34714 CA ZERO 13612 TCF +2 13612 TCF +1 445">059904,000148: 01,3612 64712 IMEDIATE AD ONE 00704 TC GOLOC -1 542">059906,000150: 01,3614 33557 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE 33763 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 76043 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">059921,000165: 01,3627 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO 31054 CA PHSPRDT1 143">059923,000167: 01,3631 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S 00006 EXTEND # A FINDVAC OR A NOVAC 63637 BZMF ITSNOVAC 33765 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL. 56704 XCH GOLOC -1 # PICK UP PRIO 00704 TC GOLOC -1 AND 143">059931,000175: 01,3637 33767 ITSNOVAC CAF NOVACADR # NEGATIVE, 56704 XCH GOLOC -1 # SET UP NOVAC CALL, 40000 COM # CORRECT PRIO, 00704 TC GOLOC -1 # AND GO C">059936,000180: 01,3643 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN 10020 CCS CYR 13646 TCF +1 # IT'S EVEN 13744 TCF ITSEVEN 33557 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A 54707 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT # Page 1407 30154 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN 54021 TS SR # THE RESTART TABLES 60021 AD SR 50155 NDX TEMP2G 62001 AD SIZETAB +1 54156 TS POINTER 2">059951,000195: 01,3657 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 13740 TCF ITSAJOB2 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL 54705 TS GOLOC # LET'S STORE THE CORRECT CADR 33766 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 74701 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. BUT 4 13733 TCF ITSWTLST # IT IS A WAITLIST CALL 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL 15376 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT 02/RSROU C31">059987,000231: 5376 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 # Page 1408 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 13701 TCF ITSLGCL2 # NOT GET'S PROCESS THIS LONGCALL # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT 01/RSROU C32">060007,000251: 01,3701 53140 ITSLGCL2 DXCH LONGTIME 00006 EXTEND # CALCULATE TIME LEFT 40025 DCS TIME2 21140 DAS LONGTIME 00006 EXTEND 31136 DCA LONGBASE 21140 DAS LONGTIME 11137 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED 13721 TCF LONGCLCL 13714 TCF +2 13607 TCF IMEDIATE -3 11140 CCS LONGTIME +1 13721 TCF LONGCLCL 13717 NOOP # CAN'T GET HERE ************ 13607 TCF IMEDIATE -3 13612 TCF IMEDIATE 34C">060026,000270: 01,3721 33764 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL 54704 TS GOLOC -1 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL 31140 DCA LONGTIME 00704 TC GOLOC -1 34C">060033,000277: 01,3726 33766 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST 54704 TS GOLOC -1 50155 NDX TEMP2G 41054 CS PHSPRDT1 # GET THE DELTA T ADDRESS 15376 TCF ITSLGCL1 # NOW GET THE DELTA TIME 354">060041,000285: 01,3733 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION 54706 TS GOLOC +1 # Page 1409 50156 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED 32000 CA PRDTTAB # DIRECTOY OR INDIRECTLY 13566 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED 232">060049,000293: 01,3740 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR 50156 NDX POINTER # ADD THE PRIORITY AND LET'S GO 32000 CA PRDTTAB 13631 TCF CHKNOVAC E">060056,000300: 01,3744 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 32000 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 13657 TCF CONTBL2 # NO PROCESS WHAT IS IN THE TABLE 432">060068,000312: 01,3755 36214 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF 26156 ADS POINTER # THE TABLE 33557 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT # GROUP 13657 TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL 3">060076,000320: 01,3762 0154 TEMPPHS EQUALS MPAC >060077,000321: 01,3762 0155 TEMP2G EQUALS MPAC +1 2">060078,000322: 01,3762 0156 POINTER EQUALS MPAC +2 348">060079,000323: 01,3762 0157 TEMPSWCH EQUALS MPAC +3 /a>060080,000324: 01,3762 0705 GOLOC EQUALS VAC5 +20D >060081,000325: 01,3762 7715 MINUS2 EQUALS NEG2 >060082,000326: 01,3762 6043 OCT177 EQUALS LOW7 452">060084,000328: 01,3762 03755 PHS2CADR GENADR PHSPART2 452">060085,000329: 01,3763 03533 PRT2CADR GENADR GETPART2 452">060086,000330: 01,3764 05231 LGCLCADR GENADR LONGCALL 452">060087,000331: 01,3765 05042 FVACCADR GENADR FINDVAC 452">060088,000332: 01,3766 05140 WTLTCADR GENADR WAITLIST 452">060089,000333: 01,3767 05027 NOVACADR GENADR NOVAC RESTARTS_ROUTINE.agc. Parent file is MAIN.agc