Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Sunrise 69, the final release of the Block I 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 1003133-18, 1003133-19, 1003133-20, and 1003733-071. Corresponding portions of code have been copied from Solarium 55 where applicable. Extensive use was also made of the AGC Information Series documents, which were specifically written about the Sunrise software.

Since only binary dumps (rather than listings) of Sunrise 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.

 003598,000002: 003599,000003: 003600,000004: 003601,000005: 003602,000006: 003603,000007: 003604,000008: 003605,000009: 003606,000010: 003607,000011: 003608,000012: 003609,000013: 003610,000014: 003611,000015: 003612,000016: 003613,000017: 003614,000018: 003615,000019: 003616,000020: 003617,000021: 003618,000022: 003619,000023:    2217 003620,000024: 003908,000312:

End of include-file

## Copyright: Public domain. ## Filename: MASTER_CONTROL.agc ## Purpose: A section of Sunrise 69. ## It is part of the reconstructed source code for the final ## release of the Block I Command Module system test software. No ## original listings of this program are available; instead, this ## file was created via disassembly of dumps of Sunrise core rope ## memory modules and comparison with the later Block I program ## Solarium 55. ## Assembler: yaYUL --block1 ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-19 MAS Created from Sunrise 45. ## This log section is not present in any currently-known surviving program listings, so ## it has been written from scratch to match the module disassembly. Label names were ## taken from AGC Information Series Issue 16: Progress Control and Fresh Start, and ## should be mostly correct. The name of the section itself could have originally been ## PROGRESS CONTROL; the original sources are evenly split between calling it PROGRESS ## CONTROL and MASTER CONTROL, and it is unclear which was actually in the listing. BANK 1 345">003621,000025: 2217 30001 GETPHASE XCH Q 50034 TS OVCTR 02256 TC PHASCOM2 50571 TS EXECTEM5 06502 TC REPHASE2 06701 TC ONSKIP 02230 TC +3 10565 CCS PHASE 34516 CAF ONE 60571 AD EXECTEM5 50015 TS BANKREG 74605 MASK LOW10 50001 TS Q 30565 XCH PHASE 20016 RELINT 20001 INDEX Q 06000 TC 6000 BANK 4 532">003645,000049: 04,6502 30001 REPHASE2 XCH Q 50573 TS ITEMP2 542">003648,000052: 04,6504 32765 PHASESUB CAF LOW5 70574 MASK PHASDATA 50566 TS PROG 25777 EXTEND 46625 MP OCT12540 50572 TS PHASEWD 60000 DOUBLE 60572 AD PHASEWD 40000 COM 60566 AD PROG 50567 TS PHASEDIG 20000 INDEX A 36540 CAF PHASMASK 20572 INDEX PHASEWD 70655 MASK PHASETAB 50565 TS PHASE 20567 INDEX PHASEDIG 06526 TC +1 00573 TC ITEMP2 06532 TC +3 34512 CAF BIT5 06533 TC +2 34505 CAF BIT10 25777 EXTEND 40565 MP PHASE 72765 MASK LOW5 50565 TS PHASE 00573 TC ITEMP2 34B">003681,000085: 04,6540 00037 PHASMASK OCT 00037 01740 OCT 01740 76000 OCT 76000 BANK 1 E47">003687,000091: 2240 30001 PHASCHNG XCH Q 02251 TC PHASECOM 06543 TC PHASCH3 BANK 4 3">003693,000097: 04,6543 10565 PHASCH3 CCS PHASE 06713 TC INCET4 4">003696,000100: 04,6545 34506 PHASCH4 CAF BIT9 25777 EXTEND 40574 MP PHASDATA 06651 TC SETPHASE 40565 CS PHASE 40000 COM 50114 TS MPAC 06701 TC ONSKIP 06557 TC +2 02275 TC PHASREL 07064 TC DEMANDON 20566 INDEX PROG 36717 CAF PROGCADR 02524 TC SWCALL 554">003715,000119: 04,6563 20016 STARTRET RELINT 02516 TC BANKCALL 42001 CADR DSPMM 02276 TC PHASEOUT BANK 1 954">003722,000126: 2243 30001 PHASWAIT XCH Q 02251 TC PHASECOM 06567 TC PHASWT3 BANK 4 3">003728,000132: 04,6567 06701 PHASWT3 TC ONSKIP 02272 TC PHASOUT2 35500 CAF ZERO 06651 TC SETPHASE 34516 CAF ONE 5">003735,000139: 04,6574 50034 PHASWT5 TS OVCTR 20000 INDEX A 10673 CCS PWTCADR 06601 TC +2 06605 TC PHASWT4 10034 CCS OVCTR 06574 TC PHASWT5 02652 TC ABORT 01205 OCT 01205 4">003747,000151: 04,6605 30566 PHASWT4 XCH PROG 20034 INDEX OVCTR 50671 TS PWTPROG 30115 XCH MPAC +1 20034 INDEX OVCTR 50673 TS PWTCADR 02120 TC JOBSLEEP BANK 1 4">003758,000162: 2246 30001 MAJEXIT XCH Q 02251 TC PHASECOM 06614 TC MAJEX3 BANK 4 >003764,000168: 04,6614 32765 MAJEX3 CAF LOW5 06651 TC SETPHASE 34516 CAF ONE >003768,000172: 04,6617 50034 MAJEX4 TS OVCTR 40566 CS PROG 20034 INDEX OVCTR 60671 AD PWTPROG 10000 CCS A 06636 TC MAJEX5 430">003775,000179: 04,6625 12540 OCT12540 OCT 12540 06636 TC MAJEX5 20034 INDEX OVCTR 30673 XCH PWTCADR 02051 TC JOBWAKE 32765 CAF LOW5 20034 INDEX OVCTR 50671 TS PWTPROG 06640 TC DEMOFF >003788,000192: 04,6636 10034 MAJEX5 CCS OVCTR 06617 TC MAJEX4 >003791,000195: 04,6640 40566 DEMOFF CS PROG 20000 INDEX A 44516 CS BIT1 70622 MASK MODREG 50622 TS MODREG 20016 RELINT 02516 TC BANKCALL 42001 CADR DSPMM >003801,000205: 04,6650 02115 DOEJ TC ENDOFJOB 345">003803,000207: 04,6651 50034 SETPHASE TS OVCTR 20567 INDEX PHASEDIG 36710 CAF PHASESHL 25777 EXTEND 40034 MP OVCTR 50034 TS OVCTR 20567 INDEX PHASEDIG 46540 CS PHASMASK 20572 INDEX PHASEWD 70655 MASK PHASETAB 60003 AD LP 20034 INDEX OVCTR 66704 AD B15FIX 20572 INDEX PHASEWD 50655 TS PHASETAB 20572 INDEX PHASEWD 50661 TS BACKPHAS 40000 COM 20572 INDEX PHASEWD 50665 TS PHASEBAR 34516 CAF ONE 25777 EXTEND 40570 MP PHASELP 00001 TC Q >003832,000236: 04,6701 42765 ONSKIP CS LOW5 60565 AD PHASE 10000 CCS A >003835,000239: 04,6704 00000 B15FIX OCT 00000 40000 OCT 40000 20001 INDEX Q 00001 TC Q 84C">003840,000244: 04,6710 00001 PHASESHL OCT 00001 00040 OCT 00040 02000 OCT 02000 >003844,000248: 04,6713 34516 INCET4 CAF ONE 60115 AD MPAC +1 50115 TS MPAC +1 00001 TC Q 452">003849,000253: 04,6717 46656 PROGCADR CADR STARTPL 44241 CADR STARTFF 10721 CADR 10721 10722 CADR 10722 10723 CADR 10723 4">003855,000259: 04,6724 50021 MODROUT TS SR 25777 EXTEND 44510 MP BIT7 40021 CS SR 40021 CS SR 36742 CAF OCT700 70003 MASK LP 60021 AD SR 20017 INHINT 50574 TS PHASDATA 36743 CAF TCEND-1 50115 TS MPAC +1 06502 TC REPHASE2 06545 TC PHASCH4 >003871,000275: 04,6742 00700 OCT700 OCT 700 1">003872,000276: 04,6743 10650 TCEND-1 CADR DOEJ BANK 1 F4D">003876,000280: 2251 50034 PHASECOM TS OVCTR 30001 XCH Q 02256 TC PHASCOM2 50115 TS MPAC +1 06504 TC PHASESUB D32">003882,000286: 2256 20017 PHASCOM2 INHINT 50573 TS ITEMP2 20034 INDEX OVCTR 30000 CAF 00000 50574 TS PHASDATA 30003 XCH LP 50570 TS PHASELP 32066 CAF PHASBANK 30015 XCH BANKREG 60034 AD OVCTR 62300 AD 72K 00001 TC Q E4B">003899,000303: 2272 2066 PHASBANK EQUALS EXECBANK 432">003901,000305: 2272 34516 PHASOUT2 CAF ONE 25777 EXTEND 40570 MP PHASELP C">003904,000308: 2275 20016 PHASREL RELINT 554">003905,000309: 2276 30115 PHASEOUT XCH MPAC +1 02566 TC BANKJUMP 2300 72000 72K OCT 72000 MASTER_CONTROL.agc. Parent file is MAIN.agc