Source Code

050964,000001: 050965,000002: 050966,000003: 050967,000004: 050968,000005: 050969,000006: 050970,000007: 050971,000008: 050972,000009: 050973,000010: 050974,000011: 050975,000012: 050976,000013: 050977,000014: 050978,000015: 050979,000016: 050980,000017: 050981,000018: 050982,000019: 050983,000020: 050984,000021: 050985,000022: 050986,000023: 050987,000024: 050988,000025: 050989,000026: 050990,000027: 050991,000028: 050992,000029: 050993,000030: 050994,000031: 050995,000032: 050996,000033: 050997,000034: 050998,000035: 050999,000036: 051000,000037: 5027 051001,000038: 051002,000039: 051003,000040: 051004,000041: 5027 051005,000042: < 051007,000044: 5030 051008,000045: 5031 051009,000046: 051010,000047: 5032 051011,000048: 5033 051012,000049: 5034 051013,000050: 5035 051014,000051: 5036 051015,000052: 5037 051016,000053: 5040 051017,000054: 5041 051018,000055: 051019,000056: 051020,000057: < 051035,000072: 5054 051036,000073: 5055 051037,000074: 5056 051038,000075: 051039,000076: 051040,000077: 051405,000442: 051406,000443: 01,3207 051407,000444: 01,3210 051408,000445: 01,3211 051409,000446: 01,3212 051410,000447: 01,3213 051411,000448: 01,3214 051412,000449: 01,3215 051413,000450: 051414,000451: 051415,000452: 01,3217 051416,000453: 01,3220 051417,000454: 01,3221 051418,000455: 01,3222 051419,000456: 051420,000457: 051421,000458: 051422,000459: 051423,000460: 051424,000461: 01,3223 051425,000462: < 051433,000470: 01,3232 051434,000471: 01,3233 051435,000472: 01,3234 051436,000473: 051437,000474: 01,3235 051438,000475: 01,3236 051439,000476: 01,3237 051440,000477: 01,3240 051441,000478: 051442,000479: 01,3241 # Copyright: Public domain. # Filename: EXECUTIVE.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. 1190 of 1701.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo. # Mod history: 08/28/04 RSB. Adapted from correspoinding 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 1190 BLOCK 02 # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA: COUNT 02/EXEC /a>051006,000043: 5027 00004 NOVAC INHINT 65121 AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET) 54063 TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC) 00006 EXTEND 50002 INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT. 30001 DCA 0 # 2CADR OF JOB ENTERED. 52066 DXCH NEWLOC 35120 CAF EXECBANK 56004 XCH FBANK 54061 TS EXECTEM1 12650 TCF NOVAC2 # ENTER EXECUTIVE BANK. # TO ENTER A JOB REQUEST REQUIREING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. 3">051021,000058: 5042 00004 FINDVAC INHINT 54063 TS NEWPRIO 00006 EXTEND 50002 INDEX Q 30001 DCA 0 E">051026,000063: 5047 52066 SPVACIN DXCH NEWLOC 35120 CAF EXECBANK 56004 XCH FBANK 12626 TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK. # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L: # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO. /a>051034,000071: 5053 56002 SPVAC XCH Q 67715 AD NEG2 56002 XCH Q 15047 TCF SPVACIN # TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED: >051041,000078: 5057 22002 CHANG1 LXCH Q 35120 CAF EXECBANK 56006 XCH BBANK 12727 TCF CHANJOB # TO SUSPEND AN INTERPRETIVE JOB: >051048,000085: 5063 40164 CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE. # ITRACE (4) REFERS TO "CHANG2" # Page 1191 54001 TS L 35120 +2 CAF EXECBANK 54006 TS BBANK 12726 TCF CHANJOB -1 # Page 1192 # TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.): 550">051060,000097: 5070 54164 JOBSLEEP TS LOC 35120 CAF EXECBANK 54004 TS FBANK 13017 TCF JOBSLP1 # TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION: 5">051067,000104: 5074 00004 JOBWAKE INHINT 54065 TS NEWLOC 44711 CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES. 26002 ADS Q 35120 CAF EXECBANK 56004 XCH FBANK 13044 TCF JOBWAKE2 # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION: E47">051077,000114: 5103 00004 PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO 54063 TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS 35120 CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC- 56006 XCH BBANK # STYLE CHANGE-JOB. 54165 TS BANKSET 30002 CA Q 13113 TCF PRIOCH2 # TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS: F42">051087,000124: 5112 35120 ENDOFJOB CAF EXECBANK 54004 TS FBANK 13124 TCF ENDJOB1 4">051091,000128: 5115 30061 ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY 54004 TS FBANK # COMPLETE. 16710 TCF Q+2 E4B">051094,000131: 5120 02626 EXECBANK CADR FINDVAC2 554">051096,000133: 5121 00110 FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET) # Page 1193 # LOCATE AN AVAILABLE VAC AREA BANK 01 COUNT 01/EXEC 332">051104,000141: 01,2626 54061 FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.) 10400 CCS VAC1USE 12643 TCF VACFOUND 10454 CCS VAC2USE 12643 TCF VACFOUND 10530 CCS VAC3USE 12643 TCF VACFOUND 10604 CCS VAC4USE 12643 TCF VACFOUND 10660 CCS VAC5USE 12643 TCF VACFOUND 05604 TC BAILOUT 01201 OCT 1201 # NO VAC AREAS. E44">051118,000155: 01,2643 64711 VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO 22007 ZL # IN ITS VAC USE REGISTER AND STORE THE 50000 INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE 21777 LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD. 26063 ADS NEWPRIO >051124,000161: 01,2650 34714 NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET. 54064 TS LOCCTR 32657 CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS ECH. >051127,000164: 01,2653 54062 NOVAC3 TS EXECTEM2 50064 INDEX LOCCTR 10167 CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF 12717 TCF NEXTCORE # THE CORESPONDING CORE SET IS AVAILABLE. 553">051131,000168: 01,2657 00006 NO.CORES DEC 6 B-14 12717 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE # Page 1194 E44">051136,000173: 01,2661 30063 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE 50064 INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE 54167 TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING 74741 MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR. 50064 INDEX LOCCTR 54166 TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS. 10064 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP 12704 TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY. 54121 TS OVFIND 30166 CA PUSHLOC 54120 TS FIXLOC 354">051149,000186: 01,2674 10067 SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE). 12704 TCF SETLOC # MUST BE AWAKENED OUT UNCHANGED JOB. 05640 TC CCSHOLE 05640 TC CCSHOLE 54067 TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET. 52066 DXCH NEWLOC 52165 DXCH LOC 15115 TCF ENDFIND >051158,000195: 01,2704 52066 SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS 50064 INDEX LOCCTR 52165 DXCH LOC 50067 INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE 40167 CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED 60063 AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB 00006 EXTEND # SHOULD BE SET TO SIGNAL A SWITCH. 65115 BZMF ENDFIND 30064 CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF 54067 TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC 15115 TCF ENDFIND # REGISTERS, ETC. 245">051170,000207: 01,2717 33054 NEXTCORE CAF COREINC 26064 ADS LOCCTR 10062 CCS EXECTEM2 12653 TCF NOVAC3 05604 TC BAILOUT # NO CORE SETS AVAILABLE. 01202 OCT 1202 # Page 1195 # THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB. 22164 -2 LXCH LOC 30165 -1 CAE BANKSET # BANKSET, NOT BBANK, HAS RIGHT CONTENTS. 2">051181,000218: 01,2727 00004 CHANJOB INHINT 00006 EXTEND 04007 ROR SUPERBNK # PICK UP CURRENT SBANK FOR BBCON 56001 XCH L # LOC IN A AND BBCON IN L. 50067 +4 INDEX NEWJOB 52165 DXCH LOC 52165 DXCH LOC 30165 CAE BANKSET 00006 EXTEND 01007 WRITE SUPERBNK # SET SBANK FOR NEW JOB. 52155 DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS. 50067 INDEX NEWJOB 52155 DXCH MPAC 52155 DXCH MPAC 52157 DXCH MPAC +2 50067 INDEX NEWJOB 52157 DXCH MPAC +2 52157 DXCH MPAC +2 52161 DXCH MPAC +4 50067 INDEX NEWJOB 52161 DXCH MPAC +4 52161 DXCH MPAC +4 52163 DXCH MPAC +6 50067 INDEX NEWJOB 52163 DXCH MPAC +6 52163 DXCH MPAC +6 34714 CAF ZERO 56121 XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ. 00006 EXTEND 12767 BZF +3 40166 CS PUSHLOC 54166 TS PUSHLOC 52167 DXCH PUSHLOC 50067 INDEX NEWJOB 52167 DXCH PUSHLOC 52167 DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY. 34741 CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA. 70167 MASK PRIORITY 54120 TS FIXLOC 10166 CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO 34714 CAF ZERO 13005 TCF ENDPRCHG -1 # Page 1196 40166 CS PUSHLOC 54166 TS PUSHLOC 34712 CAF ONE 56121 XCH OVFIND 54067 TS NEWJOB 847">051235,000272: 01,3006 00003 ENDPRCHG RELINT 52165 DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO 00006 EXTEND # DISPATCH WITH A DTCB. 63013 BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC. 52006 DTCB # Page 1197 40000 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE 64712 AD ONE 54164 TS LOC # RESUME 16017 TCF INTRSM # COMPLETE JOBSLEEP PREPARATIONS. 1">051248,000285: 01,3017 00004 JOBSLP1 INHINT 40167 CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP. 54167 TS PRIORITY 36043 CAF LOW7 70006 MASK BBANK 00006 EXTEND 04007 ROR SUPERBNK # SAVE OLD SUPERBANK VALUE. 54165 TS BANKSET 44714 CS ZERO 2">051257,000294: 01,3030 54131 JOBSLP2 TS BUF +1 # HOLDS -- HIGHEST PRIORITY. 13141 TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB. 732">051260,000297: 01,3032 00004 NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0. 10067 CCS NEWJOB 13037 TCF +3 # NEWJOB STILL PNZ 00003 RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB 13233 TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.) 34711 CAF TWO 00006 EXTEND 05011 WOR DSALMOUT # TURN ON ACTIVITY LIGHT 52165 DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF 12733 TCF CHANJOB +4 # POSSIBLE SLEEPINT JOB. # Page 1198 # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE # LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND, # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE. 532">051277,000314: 01,3044 54061 JOBWAKE2 TS EXECTEM1 34714 CAF ZERO # BEGIN CORE SET SCAN 54064 TS LOCCTR 32657 CAF NO.CORES 534">051281,000318: 01,3050 54062 JOBWAKE4 TS EXECTEM2 50064 INDEX LOCCTR 10167 CCS PRIORITY 13056 TCF JOBWAKE3 # ACTIVE JOB -- CHECK NEXT CORE SET. 3">051285,000322: 01,3054 00014 COREINC DEC 12 B-14 # 12 REGISTERS PER CORE SET. 13065 TCF WAKETEST # SLEEPING JOB -- SEE IF CADR MATCHES. 533">051288,000325: 01,3056 33054 JOBWAKE3 CAF COREINC 26064 ADS LOCCTR 10062 CCS EXECTEM2 13050 TCF JOBWAKE4 44712 CS ONE # EXIT IF SLEEPIN JOB NOT FOUND. 54064 TS LOCCTR 15115 TCF ENDFIND 354">051296,000333: 01,3065 40065 WAKETEST CS NEWLOC 50064 INDEX LOCCTR 60164 AD LOC 00006 EXTEND 13073 BZF +2 # IF MATCH. 13056 TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH. 50064 INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE 40167 CS PRIORITY 54063 TS NEWPRIO 50064 INDEX LOCCTR 54167 TS PRIORITY 44364 CS FBANKMSK # MASK UP THE 2CADR OF THE WAKE ADDRESS 70065 MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK 64700 AD 2K # HALF OF BBANK SAVED IN BANKSET. 56065 XCH NEWLOC 74364 MASK FBANKMSK 50064 INDEX LOCCTR 60165 AD BANKSET 54066 TS NEWLOC +1 10064 CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS 12704 TCF SETLOC # ALREADY IN THE RUN (0) POSITION. 12674 TCF SPECTEST # Page 1199 # PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY. 2">051325,000362: 01,3113 54164 PRIOCH2 TS LOC 34714 CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS 54130 TS BUF # JOB IS STILL HIGHEST PRIORITY. 34741 CAF LOW9 70167 MASK PRIORITY 60063 AD NEWPRIO 54167 TS PRIORITY 40000 COM 13030 TCF JOBSLP2 # AND TO EJSCAN. # Page 1200 # RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY. 1">051338,000375: 01,3124 00004 ENDJOB1 INHINT 44714 CS ZERO 54131 TS BUF +1 56167 XCH PRIORITY 74741 MASK LOW9 54001 TS L 45121 CS FAKEPRET 60001 AD L 00006 EXTEND 63141 BZMF EJSCAN # NOVAC ENDOFJOB 10001 CCS L 50000 INDEX A 54000 TS 0 >051355,000392: 01,3141 10203 EJSCAN CCS PRIORITY +12D 03206 TC EJ1 05640 TC CCSHOLE 13145 TCF +1 10217 CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND 03206 TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY. 05640 TC CCSHOLE 13151 TCF +1 10233 CCS PRIORITY +36D 03206 TC EJ1 >051367,000404: 01,3153 67610 -CCSPR -CCS PRIORITY 13155 TCF +1 10247 CCS PRIORITY +48D 03206 TC EJ1 05640 TC CCSHOLE 13161 TCF +1 10263 CCS PRIORITY +60D 03206 TC EJ1 05640 TC CCSHOLE 13165 TCF +1 10277 CCS PRIORITY +72D 03206 TC EJ1 05640 TC CCSHOLE 13171 TCF +1 # Page 1201 # EVALUATE THE RESULTS OF THE SCAN. 10131 CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING 05640 TC CCSHOLE 05640 TC CCSHOLE 13176 TCF +2 13223 TCF DUMMYJOB 10130 CCS BUF # BUF IS ZERO IS THIS IS A PRIOCHNG AND 13201 TCF +2 # CHANGED PRIORITY IS STILL HIGHEST. 13005 TCF ENDPRCHG -1 50000 INDEX A # OTHERWISE, SE NEWJOB TO THE RELATIVE # Was CAF --- RSB 2004 27777 CA 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET. 63153 AD -CCSPR 54067 TS NEWJOB 12725 TCF CHANJOB -2 01,3206 54132 EJ1 TS BUF +2 60131 AD BUF +1 # - OLD HIGH PRIORITY. 10000 CCS A 40132 CS BUF +2 13216 TCF EJ2 # NEW HIGH PRIORITY. 13214 NOOP 50002 INDEX Q 00002 TC 2 # PROCEED WITH SEARCH. 01,3216 54131 EJ2 TS BUF +1 00006 EXTEND 22130 QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR. 50130 INDEX BUF 00002 TC 2 # Page 1202 # IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTIEN IS NOT A JOB IN ITSELF, # BUT RATHER A SUBROUTINE OF THE EXECUTIVE. 1361 EBANK= SELFRET # SELF-CHECK STORAE IN EBANK. F42">051426,000463: 01,3223 44714 DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING. 54067 TS NEWJOB 00003 RELINT 44711 CS TWO # TURN OFF THE ACTIVITY LIGHT. 00006 EXTEND 03011 WAND DSALMOUT /a>051432,000469: 01,3231 10067 ADVAN CCS NEWJOB # IS THE NEWJOB ACTIVE? 13032 TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB. 34711 CAF TWO # NEW JOB ALREADY IN POSITION FOR 13242 TCF NUDIRECT # EXECUTION 31361 CA SELFRET 54001 TS L # PUT RETURN ADDRESS IN L. 33241 CAF SELFBANK 15123 TCF SUPDXCHZ +1 # AND DISPATCH JOB. 1361 EBANK= SELFRET E4B">051443,000480: 01,3241 66102 SELFBANK BBCON SELFCHK 354">051445,000482: 01,3242 00006 NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON. 05011 WOR DSALMOUT 52165 DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE 15122 TCF SUPDXCHZ BLOCK 2 # IN FIXED-FIXED SO OTHERS MAY USE. COUNT 02/EXEC # SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPEBANK. # CALLING SEQUENCE: # TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + l. 85A">051458,000495: 5122 56001 SUPDXCHZ XCH L # BASIC. 00006 +1 EXTEND 01007 WRITE SUPERBNK 54006 TS BBANK 00001 TC L >051464,000501: 5127 77677 NEG100 OCT 77677 Parent file is MAIN.agc