Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Corona 261, the final, flown release of the Block I Command Module (CM) Apollo Guidance Computer (AGC) software for the AS-202 mission.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241, 1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo 4 and 6 software, Solarium 55, was used as a starting point, since it was directly derived from Corona and (at least in theory) only minimally modified.

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

004521,000002: 004522,000003: 004523,000004: 004524,000005: 004525,000006: 004526,000007: 004527,000008: 004528,000009: 004529,000010: 004530,000011: 004531,000012: 004532,000013: 004533,000014: 004534,000015: 004535,000016: 2276 004536,000017: 004537,000018: 004538,000019: 004539,000020: 004540,000021: 004541,000022: 004542,000023: 004543,000024: 004544,000025: 004545,000026: 004546,000027: 004547,000028: 004548,000029: < 004562,000043: 004592,000073: 004593,000074: 2342 004594,000075: 2343 004595,000076: 004596,000077: 2344 004597,000078: 2345 004598,000079: 004599,000080: 004600,000081: 004601,000082: 004602,000083: 004603,000084: 004604,000085: ## Copyright: Public domain. ## Filename: RESTART_CONTROL.agc ## Purpose: A section of Corona revision 261. ## It is part of the source code for the Apollo Guidance Computer ## (AGC) for AS-202. No original listings of this software are ## available; instead, this file was created via disassembly of ## the core rope modules actually flown on the mission. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-05-27 MAS Created from Solarium 55. ## 2023-06-17 MAS Changed a comment from 501 to 202. BANK 1 # OF THE PHASE TABLE IN ALMOST CONTSTANT AGREEMENT. CALLING SEQUENCES ARE AS FOLLOWS: # TC PHASCHNG CHANGE GROUP G TO PHASE PPP (127 MAX). # OCT PPP0G (CALL UNDER EXECUTIVE ONLY) # CAF -- CHANGE GROUP G TO THE PHASE ARRIVING IN # TC NEWPHASE A (MAY BE CALLED ANYTIME). # OCT 0000G # IN EACH CASE THE OLD PHASE IS RETURNED TO THE CALLER IN A. IF THE OLD PHASE WAS +0, CONTROL IS # GIVEN TO A ROUTINE SPECIFIED IN A CADR TABLE. THIS ROUTINE MAY EXIT OR RETURN TO CALLER VIA SWRETURN. E47">004549,000030: 2276 30001 PHASCHNG XCH Q 20017 INHINT 50642 TS RUPTREG4 20000 INDEX A 30000 CAF 0 50601 TS PHASDATA 73226 MASK LOW5 # (MAY WANT MORE GROUPS SOME DAY) 30601 XCH PHASDATA 25777 EXTEND 42311 MP -BIT9 # NOTE LP NOT SAVED. 02321 TC PHASCH2 /a>004561,000042: 2311 77377 -BIT9 OCT -400 345">004563,000044: 2312 20017 NEWPHASE INHINT 30001 XCH Q 50642 TS RUPTREG4 20000 INDEX A 30000 CAF 0 50601 TS PHASDATA 40001 CS Q 2">004571,000052: 2321 20601 PHASCH2 INDEX PHASDATA 50655 TS -PHASE1 -1 # PHASE1 IS FOR PROG NUM 1. 40000 COM 20601 INDEX PHASDATA 30647 XCH PHASE1 -1 # INTO PHASE1 FOR PROG 1. 10000 CCS A 02332 TC +3 02341 TC UPT # ON +0. 45503 CS TWO # -1 IS INACTIVE STATE 64516 +3 AD ONE 954">004585,000066: 2333 30642 PHASEXIT XCH RUPTREG4 64516 AD ONE 50001 TS Q # WE MUST RELINT BEFORE RETURN. 30642 XCH RUPTREG4 # OLD PHASE BITS. 20016 RELINT 00001 TC Q 2341 20601 UPT INDEX PHASDATA 36651 CAF UPTCADR -1 05662 TC SWCALL 35501 CAF ZERO # IF RETURN 02333 TC PHASEXIT # MAJOR MODE LIGHT MAINTENANCE ROUTINES. # ROUTINE TO CHECK EQUALITY BETWEEN THE MAJOR MODE DISPLAY AND THE ARGUMENT AT CALLER +1. RETURNS TO # CALLER +2 IF NOT AND CALLER +3 IF SO. D">004605,000086: 2346 34516 CHECKMM CAF ONE 60001 AD Q 30001 XCH Q 20000 INDEX A 40000 CS 0 60612 AD MODREG 10000 CCS A 00001 TC Q 34B">004613,000094: 2356 00017 FINEMASK OCT 17 00001 TC Q 20001 INDEX Q 00001 TC Q # TO UPDATE THE MAJOR MODE LIGHTS: 5">004620,000101: 2362 20001 NEWMODE INDEX Q 30000 CAF 0 50612 TS MODREG 33322 CAF GRABUSY +1 # CADR OF BANK CONTAINING DSPMM. 30015 XCH BANKREG 50116 TS MPAC +1 # MPACS NOT USED BY DSPMM. 30001 XCH Q 50115 TS MPAC 06003 TC DSPMM 30116 XCH MPAC +1 50015 TS BANKREG 20115 INDEX MPAC 00001 TC 1 # PROGRAM PRGSTALL IS AN EXECUTIVE INTERLOCK ROUTINE. REQUESTING PROGS DO # TC BANKCALL # CADR PRGSTALL # RETURN IS TO L+2 AFTER TWO PROGS HAVE CALLED. BANK 4 C4C">004644,000125: 04,6624 20017 PRGSTALL INHINT 40645 CS STATE 74516 MASK PRGBIT 50001 TS Q 44516 CS PRGBIT 70645 MASK STATE 60001 AD Q 50645 TS STATE 10001 CCS Q 06642 TC PRGSLEEP 36651 CAF LPRGRET 02060 TC JOBWAKE 20016 RELINT 05702 TC SWRETURN 550">004659,000140: 04,6642 05706 PRGSLEEP TC MAKECADR 30062 XCH ADDRWD 50117 TS MPAC +2 36651 CAF LPRGRET 02127 TC JOBSLEEP >004665,000146: 04,6647 30117 PRGRET XCH MPAC +2 05723 TC BANKJUMP 4">004668,000149: 04,6651 10647 LPRGRET CADR PRGRET >004669,000150: 04,6652 4516 PRGBIT EQUALS BIT1 2">004671,000152: 04,6652 10652 UPTCADR CADR 10652 # PINBALL COMES TO MODROUT ON RECEIVING THE NEW MODE REQUESTED BY VERB 37. THE DESIRED MODE IN IS A # ON ARRIVAL. 4">004677,000158: 04,6653 20017 MODROUT INHINT 64341 AD NEG3 # FOR FLIGHT 202, ONLY MODES 01 AND 03 MAY 10000 CCS A # BE INITIATED BY VERB 37. 06703 TC V37BAD 03070 TC CCSHOLE 06670 TC 1CHECK # SEE IF 01 CALLED FOR. 02346 TC CHECKMM # MODE 03 REQUESTED - DEMANDS MODE 02 00002 OCT 02 # PRESENTLY. 06703 TC V37BAD 32150 CAF PRIO14 # START OPTICAL CHECK. 02046 TC FINDVAC 43273 CADR CHKOPT 02124 TC ENDOFJOB >004693,000174: 04,6670 64335 1CHECK AD MINUS1 # SEE IF 01 REQUESTED. 10000 CCS A 06703 TC V37BAD 03070 TC CCSHOLE 06703 TC V37BAD 10612 CCS MODREG # DEMAND IDLE MODE. 06703 TC V37BAD 34501 CAF PRIO20 02046 TC FINDVAC 42000 CADR TOP1 02124 TC ENDOFJOB >004707,000188: 04,6703 03241 V37BAD TC FALTON # ILLEGAL REQUEST. 02124 TC ENDOFJOB RESTART_CONTROL.agc. Parent file is MAIN.agc