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.

003911,000002: 003912,000003: 003913,000004: 003914,000005: 003915,000006: 003916,000007: 003917,000008: 003918,000009: 003919,000010: 003920,000011: 003921,000012: 003922,000013: 003923,000014: 003924,000015: 003925,000016: 003926,000017: 003927,000018: 003928,000019: 04,6744 003929,000020: 003930,000021: < 003932,000023: 04,6745 003933,000024: 04,6746 003934,000025: 003935,000026: 04,6747 003936,000027: ## Copyright: Public domain. ## Filename: FRESH_START_AND_RESTART.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. ## Names in this section are largely taken from AGC Information Series Issue 16, ## Progress Control and Fresh Start and Restart. BANK 4 # FRESH START - A KEYBOARD REQUEST TO INITIALIZE THE SYSTEM. /a>003931,000022: 04,6744 20017 SLAP1 INHINT # COMES HERE FROM THE PINBALL VERB FAN. 35500 CAF ZERO # (ZERO FAILREG IN FRESH START ONLY). 50756 TS FAILREG 07077 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK. >003937,000028: 04,6750 45500 NOGO CS ZERO 50655 TS PHASETAB 50656 TS PHASETAB +1 50657 TS PHASETAB +2 50660 TS PHASETAB +3 50661 TS BACKPHAS 50662 TS BACKPHAS +1 50663 TS BACKPHAS +2 50664 TS BACKPHAS +3 35500 CAF ZERO 50665 TS PHASEBAR 50666 TS PHASEBAR +1 50667 TS PHASEBAR +2 50670 TS PHASEBAR +3 51567 TS SMODE 34500 CAF BIT15 # TELL T4RUPT TO TURN OFF ALL C RELAYS. 50743 TS DSPTAB +11D 50744 TS DSPTAB +12D 50745 TS DSPTAB +13D 07057 TC ENDFRESH 7">003961,000052: 04,6774 4516 MAXPROG EQUALS ONE # WHENEVER A GO SEQUENCE (GOJAM) IS FIRED, GOPROG IS CALLED TO RESTART ANY COMPUTER ACTIVITY THAT # MAY HAVE BEEN GOING ON AT THE TIME. (A NUMBER OF ALARMS SUCH AS PARITY FAILURE OR POWER FAILURE CAUSE GOJAM). # THE FUNCTION OF GOPROG IS TO INITIALIZE THE COMPUTER SUB-SYSTEM (I.E., NO C RELAYS ARE CHANGED, ETC.) AND # RESTART ALL MAJOR ROUTINES WHOSE PHASE BITS INDICATE ACTIVITY. >003968,000059: 04,6774 07077 GOPROG TC STARTSUB 34473 CAF THREE # PHASE BITS ARE KEPT IN THREE COPIES, 84B">003971,000062: 04,6776 50114 PHASECHK TS MPAC # TWO DIRECT AND ONE COMPLEMENTED. THIS 20000 INDEX A # SECTION MAKES SURE ALL ENTRIES IN EACH 40655 CS PHASETAB # SATISFIES THIS RULE AS AN INDICATION OF 50076 TS BUF # THE GOODNESS OF ERASABLE MEMORY. IF THE 20114 INDEX MPAC # TEST FAILS, DO A FRESH START WITH THE 40661 CS BACKPHAS # MODE LIGHTS SET TO 00 TO TELL THE STORY. 50077 TS BUF +1 40000 COM 70076 MASK BUF 07072 TC ZEROTEST # P.(-P) AND (-P).(--P) SHOULD BOTH BE 20114 INDEX MPAC # +0 FOR A LOGICAL MATCH. 60665 AD PHASEBAR 50100 TS BUF +2 40000 COM 70077 MASK BUF +1 07072 TC ZEROTEST 40100 CS BUF +2 70076 MASK BUF 07072 TC ZEROTEST 40076 CS BUF 70077 MASK BUF +1 07072 TC ZEROTEST 40076 CS BUF 70100 MASK BUF +2 07072 TC ZEROTEST 40077 CS BUF +1 70100 MASK BUF +2 07072 TC ZEROTEST 5">004000,000091: 04,7032 10114 ENDVOTE CCS MPAC 06776 TC PHASECHK >004003,000094: 04,7034 34516 GOJUMP CAF MAXPROG 50115 TS MPAC +1 20016 RELINT # OPEN THE INTERRUPT GATE SO THAT EACH 20017 INHINT # GO DISPATCH HAS 10 MS. 50574 TS PHASDATA 06502 TC REPHASE2 06701 TC ONSKIP 07052 TC GORETURN 07064 TC DEMANDON 30565 XCH PHASE 50114 TS MPAC 20566 INDEX PROG 37257 CAF GOCADR 02524 TC SWCALL 24E">004021,000112: 04,7052 10115 GORETURN CCS MPAC +1 07035 TC GOJUMP +1 32650 CAF ALARMPR # FIRE UP JOB TO DISPLAY FAILREG 02043 TC NOVAC 02634 CADR DOALARM 348">004028,000119: 04,7057 20016 ENDFRESH RELINT 02516 TC BANKCALL # DISPLAY MAJOR MODES. 42001 CADR DSPMM 02563 TC POSTJUMP 13337 CADR DUMMYJOB # THIS REVERTS TO THE IDLING JOB. F4E">004035,000126: 04,7064 40566 DEMANDON CS PROG 20000 INDEX A 34516 CAF BIT1 60622 AD MODREG 50622 TS MODREG 00001 TC Q 354">004042,000133: 04,7072 10000 ZEROTEST CCS A 06750 TC NOGO # RESTART FROM GO IMPOSSIBLE. 00001 TC Q # OK SO FAR 06750 TC NOGO 06750 TC NOGO # INITIALIZATION SUBROUTINE, CONTAINING INITIALIZATION COMMON TO BOTH FRESH START (KEYBOARD REQUEST) AND # RESTART (IN RESPONSE TO A GO SEQUENCE). 542">004051,000142: 04,7077 30001 STARTSUB XCH Q 50076 TS BUF # EXEC TEMPS ARE AVAILABLE TO US. 34476 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE. 50037 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN 50040 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3), 34517 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 50555 TS LST1 +4 50554 TS LST1 +3 50553 TS LST1 +2 50552 TS LST1 +1 50551 TS LST1 42202 CS ENDTASK # SET ALL TASKS TO DUMMY TASK. 50563 TS LST2 +5 50562 TS LST2 +4 50561 TS LST2 +3 50560 TS LST2 +2 50557 TS LST2 +1 50556 TS LST2 45500 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 50133 TS PRIORITY +8D # AVAILABLE (EXCEPT THIS ONE). 50143 TS PRIORITY +16D 50153 TS PRIORITY +24D 50163 TS PRIORITY +32D 50173 TS PRIORITY +40D 50203 TS PRIORITY +48D 50213 TS PRIORITY +56D 50703 TS DSRUPTSW # -0 GIVES US 40 MS TO GET READY FOR T4. 50704 TS CDUIND # MAKE IMU AND OPTICS AVAILABLE. 50723 TS OPTIND 37263 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 50214 TS VAC1USE 67264 AD LTHVACA 50270 TS VAC2USE 67264 AD LTHVACA 50344 TS VAC3USE 67264 AD LTHVACA 50420 TS VAC4USE 67264 AD LTHVACA 50474 TS VAC5USE 34505 CAF BIT10 # THIS REGISTER SET BECOMES DUMMY JOB. 50123 TS PRIORITY 34510 CAF BIT7 50011 TS OUT1 33000 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS. >004105,000196: 04,7153 50114 DSPOFF TS MPAC 44503 CS BIT12 20114 INDEX MPAC 50730 TS DSPTAB 10114 CCS MPAC 07153 TC DSPOFF 50726 TS DSPCNT # SKIPS TO HERE WHEN FINISHED WITH C(A)=0. 50550 TS NEWJOB 50622 TS MODREG 50640 TS CADRSTOR 50624 TS REQRET 50646 TS CLPASS 50623 TS DSPLOCK 50636 TS MONSAVE # KILL MONITOR 50637 TS MONSAVE1 50641 TS GRABLOCK 50612 TS VERBREG 50613 TS NOUNREG 50647 TS DSPLIST 50650 TS DSPLIST +1 50651 TS DSPLIST +2 50652 TS STATE 50653 TS STATE +1 50654 TS STATE +2 50673 TS PWTCADR 50674 TS PWTCADR +1 50751 TS DESKSET # NO COMPUTER COMMAND. 50752 TS DESOPSET # (SAME AS IMU). 50753 TS IMUCADR # INITIALIZE MODE-SWITCHING. 50754 TS OPTCADR 50746 TS OLDERR 50676 TS DISPBUF 50700 TS IDPLACER 50701 TS TMINDEX 50702 TS TMKEYBUF 50755 TS MARKSTAT # MAKE MARK SYSTEM AVAILABLE. 50643 TS IN0WORD 50011 TS OUT1 32765 CAF LOW5 50671 TS PWTPROG 50672 TS PWTPROG +1 30007 XCH IN3 30007 XCH IN3 50747 TS WASKSET 74717 MASK LOW7 30747 XCH WASKSET 77254 MASK OPTMODES 50750 TS WASOPSET 02507 TC READIN0 10000 CCS A 07243 TC NOACPT 07243 TC NOACPT 07240 TC +1 44503 CS BIT12 70750 MASK WASOPSET 50750 TS WASOPSET >004166,000257: 04,7243 34475 NOACPT CAF SIX # (MAY NOT GET ANY ENDPULSES BEFORE T4). 50675 TS TELCOUNT 37255 CAF NOMADR 50677 TS DNLSTADR 37256 CAF NOUTCON 50727 TS NOUT 42775 CS VD1 50625 TS DSPCOUNT 00076 TC BUF # DONE. 553">004180,000271: 04,7254 35000 OPTMODES OCT 35000 >004181,000272: 04,7255 02367 NOMADR ADRES DNLST1 E">004182,000273: 04,7256 00013 NOUTCON DEC 11 B-14 >004184,000275: 04,7257 46726 GOCADR CADR PRELGO 44255 CADR FFGO 11261 CADR 11261 11262 CADR 11262 243">004189,000280: 04,7263 00214 VAC1ADRC ADRES VAC1USE 1">004190,000281: 04,7264 00054 LTHVACA DEC 44 B-14 FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc