Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Sundial E, the final release of the Block II Command Module (CM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum.

Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

004314,000002: 004315,000003: 004316,000004: 004317,000005: 004318,000006: 004319,000007: 004320,000008: 004321,000009: 004322,000010: 004323,000011: 004324,000012: 004325,000013: 004326,000014: 004327,000015: 004328,000016: 004329,000017: 4276 004330,000018: 004331,000019: 004332,000020: < 004334,000022: 4277 004335,000023: 4300 004336,000024: 4301 004337,000025: 4302 004338,000026: 4303 004339,000027: 4304 004340,000028: 4305 004341,000029: 4306 004342,000030: 004343,000031: 004344,000032: 004693,000381: 004694,000382: 01,2552 004695,000383: 01,2553 004696,000384: 01,2554 004697,000385: 01,2555 004698,000386: 01,2556 004699,000387: 01,2557 004700,000388: 01,2560 004701,000389: 004702,000390: 004703,000391: 01,2562 004704,000392: 01,2563 004705,000393: 01,2564 004706,000394: 01,2565 004707,000395: < 004734,000422: 4401 004735,000423: 4402 004736,000424: < < < < < < < ## Copyright: Public domain. ## Filename: EXECUTIVE.agc ## Purpose: A section of Sundial E. ## It is part of the reconstructed source code for the final ## release of the Block II Command Module system test software. No ## original listings of this program are available; instead, this ## file was created via disassembly of dumps of Sundial core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-22 MAS Created from Aurora 12. ## 2023-06-30 MAS Updated for Sundial E. SETLOC ENDSUBSF # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA: /a>004333,000021: 4276 54070 NOVAC TS NEWPRIO # SAVE PRIORITY OF NEW JOB. 00006 EXTEND 50002 INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT. 30001 DCA 0 # 2CADR OF JOB ENTERED. 52073 DXCH NEWLOC 34362 CAF EXECBANK 56004 XCH FBANK 54065 TS EXECTEM1 12242 TCF NOVAC2 # ENTER EXECUTIVE BANK. # TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. 3">004345,000033: 4307 54070 FINDVAC TS NEWPRIO 00006 EXTEND 50002 INDEX Q 30001 DCA 0 52073 DXCH NEWLOC 34362 CAF EXECBANK 56004 XCH FBANK 12220 TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK. # TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED: >004356,000044: 4317 34362 CHANG1 CAF EXECBANK 54001 TS L 30002 CA Q 22006 +3 LXCH BBANK 00004 INHINT 12320 TCF CHANJOB # TO SUSPEND AN INTERPRETIVE JOB: >004365,000053: 4325 34362 CHANG2 CAF EXECBANK 54001 TS L 40150 CS LOC # NEGATIVE LOC SHOWS JOB INTERPRETIVE. 14322 TCF CHANG1 +3 # TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.): 550">004373,000061: 4331 54150 JOBSLEEP TS LOC 34362 CAF EXECBANK 54004 TS FBANK 12403 TCF JOBSLP1 # TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION: 5">004380,000068: 4335 54072 JOBWAKE TS NEWLOC 47651 CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES. 26002 ADS Q 34362 CAF EXECBANK 56004 XCH FBANK 12414 TCF JOBWAKE2 # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION: E47">004389,000077: 4343 00004 PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO 54070 TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS 34362 CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC- 56006 XCH BBANK # STYLE CHANGE-JOB. 54151 TS BANKSET 30002 CA Q 12463 TCF PRIOCH2 # TO FREE THE DISPLAY BEFORE ENDOFJOB: >004399,000087: 4352 05632 EJFREE TC FREEDSP # TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS: F42">004403,000091: 4353 34362 ENDOFJOB CAF EXECBANK 54004 TS FBANK 12474 TCF ENDJOB1 4">004407,000095: 4356 30065 ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY 54004 TS FBANK # COMPLETE. 50002 INDEX Q 00002 TC 2 E4B">004412,000100: 4362 02220 EXECBANK CADR FINDVAC2 # LOCATE AN AVAILABLE VAC AREA. SETLOC ENDINTS1 332">004419,000107: 01,2220 54065 FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.) 10414 CCS VAC1USE 12235 TCF VACFOUND 10470 CCS VAC2USE 12235 TCF VACFOUND 10544 CCS VAC3USE 12235 TCF VACFOUND 10620 CCS VAC4USE 12235 TCF VACFOUND 10674 CCS VAC5USE 12235 TCF VACFOUND 05677 TC ABORT 01201 OCT 1201 # NO VAC AREAS. E44">004433,000121: 01,2235 67651 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. 26070 ADS NEWPRIO >004439,000127: 01,2242 37657 NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET. 54071 TS LOCCTR 32251 CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH. >004442,000130: 01,2245 54066 NOVAC3 TS EXECTEM2 50071 INDEX LOCCTR 10153 CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF 12311 TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE. 553">004446,000134: 01,2251 00006 NO.CORES DEC 6 B-14 12311 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE E44">004451,000139: 01,2253 30070 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE 50071 INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE 54153 TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING 77664 MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR 50071 INDEX LOCCTR 54152 TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS 10071 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP 12276 TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY. 54105 TS OVFIND 30152 CA PUSHLOC 54104 TS FIXLOC 354">004464,000152: 01,2266 10067 SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE). 12276 TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB. 05715 TC CCSHOLE 05715 TC CCSHOLE 54067 TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET. 52073 DXCH NEWLOC 52151 DXCH LOC 14356 TCF ENDFIND >004473,000161: 01,2276 52073 SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS 50071 INDEX LOCCTR 52151 DXCH LOC 50067 INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE 40153 CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED 60070 AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB 00006 EXTEND # SHOULD BE SET TO SIGNAL A SWITCH. 64356 BZMF ENDFIND 30071 CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF 54067 TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC 14356 TCF ENDFIND # REGISTERS, ETC. 245">004485,000173: 01,2311 32424 NEXTCORE CAF COREINC 26071 ADS LOCCTR 10066 CCS EXECTEM2 12245 TCF NOVAC3 05677 TC ABORT # NO CORE SETS. 01202 OCT 1202 # THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB. 52151 -1 DXCH LOC 2">004496,000184: 01,2320 50067 CHANJOB INDEX NEWJOB # LOC ARRIVES IN A AND BBANK IN L. 52151 DXCH LOC 52151 DXCH LOC 52141 DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS. 50067 INDEX NEWJOB 52141 DXCH MPAC 52141 DXCH MPAC 52143 DXCH MPAC +2 50067 INDEX NEWJOB 52143 DXCH MPAC +2 52143 DXCH MPAC +2 52145 DXCH MPAC +4 50067 INDEX NEWJOB 52145 DXCH MPAC +4 52145 DXCH MPAC +4 52147 DXCH MPAC +6 50067 INDEX NEWJOB 52147 DXCH MPAC +6 52147 DXCH MPAC +6 37657 CAF ZERO 56105 XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ. 00006 EXTEND 12351 BZF +3 40152 CS PUSHLOC 54152 TS PUSHLOC 52153 DXCH PUSHLOC 50067 INDEX NEWJOB 52153 DXCH PUSHLOC 52153 DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY. 37664 CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA. 70153 MASK PRIORITY 54104 TS FIXLOC 10152 CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO 37657 CAF ZERO 12367 TCF ENDPRCHG -1 40152 CS PUSHLOC 54152 TS PUSHLOC 37652 CAF ONE 56105 XCH OVFIND 54067 TS NEWJOB 847">004541,000229: 01,2370 00003 ENDPRCHG RELINT 52151 DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO 00006 EXTEND # DISPATCH WITH A DTCB. 62375 BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC. 52006 DTCB 40000 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE 67652 AD ONE 54150 TS LOC # RESUME. 36232 CAF FBANKMSK 70001 MASK L 16011 TCF INTRSM # COMPLETE JOBSLEEP PREPARATIONS. 1">004559,000247: 01,2403 00004 JOBSLP1 INHINT 40153 CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP. 54153 TS PRIORITY 36027 CAF LOW7 70006 MASK BBANK 54151 TS BANKSET 47657 CS ZERO 2">004566,000254: 01,2412 54115 JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY. 12504 TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB. # 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">004574,000262: 01,2414 54065 JOBWAKE2 TS EXECTEM1 37657 CAF ZERO # BEGIN CORE SET SCAN. 54071 TS LOCCTR 32251 CAF NO.CORES 534">004578,000266: 01,2420 54066 JOBWAKE4 TS EXECTEM2 50071 INDEX LOCCTR 10153 CCS PRIORITY 12426 TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET. 3">004582,000270: 01,2424 00014 COREINC DEC 12 B-14 # 12 REGISTERS PER CORE SET. 12435 TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES. 533">004585,000273: 01,2426 32424 JOBWAKE3 CAF COREINC 26071 ADS LOCCTR 10066 CCS EXECTEM2 12420 TCF JOBWAKE4 47652 CS ONE # EXIT IF SLEEPING JOB NOT FOUND. 54071 TS LOCCTR 14356 TCF ENDFIND 354">004593,000281: 01,2435 40072 WAKETEST CS NEWLOC 50071 INDEX LOCCTR 60150 AD LOC 00006 EXTEND 12443 BZF +2 # IF MATCH. 12426 TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH. 50071 INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE 40153 CS PRIORITY 54070 TS NEWPRIO 50071 INDEX LOCCTR 54153 TS PRIORITY 46232 CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS 70072 MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK 67640 AD 2K # HALF OF BBANK SAVED IN BANKSET. 56072 XCH NEWLOC 76232 MASK FBANKMSK 50071 INDEX LOCCTR 60151 AD BANKSET 54073 TS NEWLOC +1 10071 CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS 12276 TCF SETLOC # ALREADY IN THE RUN (0) POSITION. 12266 TCF SPECTEST # PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY. 2">004622,000310: 01,2463 54150 PRIOCH2 TS LOC 37657 CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS 54114 TS BUF # JOB IS STILL HIGHEST PRIORITY. 37664 CAF LOW9 70153 MASK PRIORITY 60070 AD NEWPRIO 54153 TS PRIORITY 40000 COM 12412 TCF JOBSLP2 # AND TO EJSCAN. # RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY. 1">004635,000323: 01,2474 00004 ENDJOB1 INHINT 47657 CS ZERO 54115 TS BUF +1 56153 XCH PRIORITY 77664 MASK LOW9 10000 CCS A 50000 INDEX A 54000 TS 0 >004644,000332: 01,2504 10167 EJSCAN CCS PRIORITY +12D 02551 TC EJ1 05715 TC CCSHOLE 12510 TCF +1 10203 CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND 02551 TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY. 05715 TC CCSHOLE 12514 TCF +1 10217 CCS PRIORITY +36D 02551 TC EJ1 >004656,000344: 01,2516 67624 -CCSPR -CCS PRIORITY 12520 TCF +1 10233 CCS PRIORITY +48D 02551 TC EJ1 05715 TC CCSHOLE 12524 TCF +1 10247 CCS PRIORITY +60D 02551 TC EJ1 05715 TC CCSHOLE 12530 TCF +1 10263 CCS PRIORITY +72D 02551 TC EJ1 05715 TC CCSHOLE 12534 TCF +1 # EVALUATE THE RESULTS OF THE SCAN. 10115 CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING 05715 TC CCSHOLE 05715 TC CCSHOLE 12541 TCF +2 14363 TCF DUMMYJOB 10114 CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND 12544 TCF +2 # CHANGED PRIORITY IS STILL HIGHEST. 12370 TCF ENDPRCHG 50000 INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE 27777 CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET. 62516 AD -CCSPR 54067 TS NEWJOB 12317 TCF CHANJOB -1 01,2551 54116 EJ1 TS BUF +2 60115 AD BUF +1 # - OLD HIGH PRIORITY. 10000 CCS A 40116 CS BUF +2 12561 TCF EJ2 # NEW HIGH PRIORITY. 12557 NOOP 50002 INDEX Q 00002 TC 2 # PROCEED WITH SEARCH. 01,2561 54115 EJ2 TS BUF +1 00006 EXTEND 22114 QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR. 50114 INDEX BUF 00002 TC 2 353">004708,000396: 01,2566 ENDEXECS EQUALS # IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF, # BUT RATHER A SUBROUTINE OF THE EXECUTIVE. SETLOC EXECBANK +1 1360 EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK. F42">004718,000406: 4363 47657 DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING. 54067 TS NEWJOB 00003 RELINT 47651 CS TWO # TURN OFF THE ACTIVITY LIGHT. 00006 EXTEND 03011 WAND DSALMOUT 14374 TCF CHECKNJ +2 A">004726,000414: 4372 00006 CHECKNJ EXTEND # SPECIAL NEWJOB TEST FOR SELF-CHECK, 23360 QXCH SELFRET # WHICH RUNS UNDER EXECUTIVE CONTROL, 10067 +2 CCS NEWJOB # BUT DOES NOT HAVE A JOBS CORE REGISTERS. 14407 TCF NUCHANGE # NEW JOB REQUIRING A CHANGE JOB. 37651 CAF TWO # NEW JOB ALREADY IN POSITION FOR 14403 TCF NUDIRECT # EXECUTION. /a>004733,000421: 4400 34416 ADVAN CAF SELFBANK # (SIMULATOR ADVAN IF NEWJOB = 77777). 54006 TS BBANK 01360 TC SELFRET 354">004737,000425: 4403 00006 NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON. 05011 WOR DSALMOUT 52151 DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE 52006 DTCB # BASIC. 745">004742,000430: 4407 37651 NUCHANGE CAF TWO 00006 EXTEND 05011 WOR DSALMOUT 34362 CAF EXECBANK # SWAP CORE SETS. 54004 TS FBANK 00004 INHINT # CHANGE JOBS 12317 TCF CHANJOB -1 E4B">004750,000438: 4416 20002 SELFBANK BBCON SELFCHK # PRIORITY CONSTANTS (NOTE IN FIXED-FIXED). /a>004755,000443: 4417 7641 PRIO1 EQUALS BIT10 /a>004756,000444: 4417 7640 PRIO2 EQUALS BIT11 /a>004757,000445: 4417 03000 PRIO3 OCT 03000 /a>004758,000446: 4420 7637 PRIO4 EQUALS BIT12 /a>004759,000447: 4420 05000 PRIO5 OCT 05000 /a>004760,000448: 4421 06000 PRIO6 OCT 06000 /a>004761,000449: 4422 07000 PRIO7 OCT 07000 >004762,000450: 4423 7636 PRIO10 EQUALS BIT13 >004763,000451: 4423 11000 PRIO11 OCT 11000 >004764,000452: 4424 12000 PRIO12 OCT 12000 >004765,000453: 4425 13000 PRIO13 OCT 13000 >004766,000454: 4426 14000 PRIO14 OCT 14000 >004767,000455: 4427 15000 PRIO15 OCT 15000 >004768,000456: 4430 16000 PRIO16 OCT 16000 >004769,000457: 4431 17000 PRIO17 OCT 17000 >004770,000458: 4432 7635 PRIO20 EQUALS BIT14 >004771,000459: 4432 21000 PRIO21 OCT 21000 >004772,000460: 4433 22000 PRIO22 OCT 22000 >004773,000461: 4434 23000 PRIO23 OCT 23000 >004774,000462: 4435 24000 PRIO24 OCT 24000 >004775,000463: 4436 25000 PRIO25 OCT 25000 >004776,000464: 4437 26000 PRIO26 OCT 26000 >004777,000465: 4440 27000 PRIO27 OCT 27000 >004778,000466: 4441 30000 PRIO30 OCT 30000 >004779,000467: 4442 31000 PRIO31 OCT 31000 >004780,000468: 4443 32000 PRIO32 OCT 32000 >004781,000469: 4444 33000 PRIO33 OCT 33000 >004782,000470: 4445 34000 PRIO34 OCT 34000 >004783,000471: 4446 35000 PRIO35 OCT 35000 >004784,000472: 4447 36000 PRIO36 OCT 36000 >004785,000473: 4450 37000 PRIO37 OCT 37000 346">004786,000474: 4451 ENDEXECF EQUALS Parent file is MAIN.agc