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.

 002949,000002: 002950,000003: 002951,000004: 002952,000005: 002953,000006: 002954,000007: 002955,000008: 002956,000009: 002957,000010: 002958,000011: 002959,000012: 002960,000013: 002961,000014: 002962,000015: 002963,000016: 002964,000017: 002965,000018: 002966,000019: 002967,000020: 002968,000021: 002969,000022:    2037 < 002976,000029:    2044 002977,000030:    2045 002978,000031:    2046 002979,000032:    2047 002980,000033:    2050 002981,000034: < 003010,000063: 003029,000082: 003030,000083: 04,6020 003031,000084: 04,6021 003032,000085: 04,6022 003033,000086: 003034,000087: 04,6023 003035,000088: 04,6024 003036,000089: 04,6025 003037,000090: < 003059,000112: 04,6044 003060,000113: 003061,000114: 04,6045 < 003243,000296: 04,6245 003244,000297: 04,6246 003245,000298: 04,6247 003246,000299: 04,6250 003247,000300: 04,6251 003248,000301: 04,6252 003249,000302: 04,6253 003332,000385: 003333,000386: 04,6336 003334,000387: 04,6337 003335,000388: 04,6340 003336,000389: 04,6341 003337,000390: 04,6342 003338,000391: 04,6343 003339,000392: 04,6344 003340,000393: 003341,000394: 003342,000395: 04,6346 003343,000396: 04,6347 003344,000397: 04,6350 003345,000398: 04,6351

End of include-file EXECUTIVE.agc.

## Copyright: Public domain. ## Filename: EXECUTIVE.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. # EXECUTIVE PROGRAMS # --------- -------- BANK 1 3">002970,000023: 2037 50572 FINDVAC TS NEWPRIO # PROGRAM TO FIND AN AVAILABLE VAC 30001 XCH Q 02056 TC EXECCOM # COMMON FF EXECUTIVE SUBROUTINE. 06003 TC FINDVAC2 # OFF TO EXECUTIVE BANK. /a>002975,000028: 2043 50572 NOVAC TS NEWPRIO # ENTRY EXCLUSIVELY FOR BASIC JOBS NOT 30001 XCH Q # REQUIRING A VAC AREA. 02056 TC EXECCOM # COMMON FF EXECUTIVE SUBROUTINE. 35500 CAF ZERO # ZERO PD FIELD IN PUSHLOC. 50567 TS EXECTEM3 06026 TC NOVAC2 5">002982,000035: 2051 50566 JOBWAKE TS EXECTEM2 # ENTRY HERE TO RE-ACTIVATE A SLEEPING JOB 10001 CCS Q # RETURN ADDRESS - 1 TO WTEXIT. 50573 TS WTEXIT # SHARES FINAL PORTION OF FINDVAC, NOVAC. 02062 TC EXECSW # COMMON EXEC BANK-SWITCH SUBROUTINE. 06107 TC JOBWAKE2 D">002988,000041: 2056 50573 EXECCOM TS WTEXIT # EXIT ADDRESS 20000 INDEX A # PICK UP JOB OR TASK ADDRESS. 30000 CAF 0 # (USED BY FINDVAC, NOVAC, AND WAITLIST) 50566 TS EXECTEM2 >002993,000046: 2062 32066 EXECSW CAF EXECBANK 30015 XCH BANKREG # CALL IN EXEC BANK, SAVING RETURN. 50565 TS EXECTEM1 00001 TC Q E4B">002998,000051: 2066 10003 EXECBANK CADR FINDVAC2 143">003000,000053: 2067 50015 FOUNDVAC TS BANKREG # COMES HERE TO RETURN FROM FINDVAC, 20573 INDEX WTEXIT # NOVAC, OR JOBWAKE. 00001 TC 1 # CALLS TO FINDVAC BEGIN HERE, SNATCHING AN AVAILABLE VAC AREA. SETLOC 10000 # EXEC/WAITLIST BANK. /a>003009,000062: 04,6000 06744 SLAPB TC SLAP1 443">003011,000064: 04,6001 07265 KEYRUPTC TC KEYRUPT1 # STANDARD LOC, DONT MOVE 442">003013,000066: 04,6002 06724 MODROUTB TC MODROUT # STANDARD LOC, DONT MOVE 332">003015,000068: 04,6003 10214 FINDVAC2 CCS VAC1USE # C(VAC1USE) = TC VAC1USE IF VAC1 IS 06017 TC FV1 # AVAILABLE, OR +0 IF IT IS IN USE. 10270 CCS VAC2USE 06017 TC FV1 # THE FIRST CCS WITH +0 JUMPS TO THE 10344 CCS VAC3USE # CORRESPONDING TC ORDER. 06017 TC FV1 10420 CCS VAC4USE 06017 TC FV1 10474 CCS VAC5USE 06017 TC FV1 02652 TC ABORT # NO VAC AREAS AVAILABLE. 01201 OCT 01201 04,6017 65502 FV1 AD TWO # TO FORM ADDRESS OF ASSIGNED VAC AREA. 50567 TS EXECTEM3 60572 AD NEWPRIO # ) STORE ADDRESS OF VAC1 IN LOW-ORDER 50572 TS NEWPRIO # ) 9 BITS OF NEWPRIO. 35500 CAF ZERO # ) 20567 INDEX EXECTEM3 # ) STORE +0 IN VAC1USE, INDICATING USE. 47777 TS 0 -1 # ) >003038,000091: 04,6026 36041 NOVAC2 CAF LASTADR # RELATIVE ADDRESS OF LAST REGISTER SET. 50574 TS LOCCTR 10000 CCS A 06036 TC +5 # PNZ AND -0 ONLY. F4B">003043,000096: 04,6032 40566 12BITSOK CS EXECTEM2 # COMES HERE IF JOB ADDRESS LESS THAN 6K. 06066 TC LOCSET 02652 TC ABORT # NO REGISTER SETS AVAILABLE. 01202 OCT 01202 20574 +5 INDEX LOCCTR # THIS LOOP FINDS THE FIRST AVAILABLE 10123 CCS PRIORITY # STORAGE AREA FOR CORE REGISTERS FOR 06104 TC NOVAC3 # THE NEW JOB. 2">003052,000105: 04,6041 00070 LASTADR DEC 56 B-14 # EIGHT SETS OF EIGHT REGISTERS. 06104 TC NOVAC3 # NNZ MEANS JOB ASLEEP HERE. # NOW THAT REGISTER SETS HAVE BEEN FOUND FOR THE NEW JOB, INITIALIZE THEM AND SET NEWJOB IF CALLED FOR. /a>003058,000111: 04,6043 20574 CORSW INDEX LOCCTR # (COMES HERE WITH C(A) = 0). TURN OFF OVF 50121 TS OVFIND 60572 AD NEWPRIO # SET UP PRIORITY FOR NEW JOB. 534">003062,000115: 04,6046 20574 JOBWAKE4 INDEX LOCCTR # JOB WAKING ENTERS HERE TO FINISH UP. 50123 TS PRIORITY # STORE NEW PRIORITY 32206 CAF BANKMASK 70566 MASK EXECTEM2 60567 AD EXECTEM3 # PUSHLOC 20574 INDEX LOCCTR 50122 TS PUSHLOC 36315 CAF EXEC70K # CREATE PROPER 12 BIT ADDRESS. 70566 MASK EXECTEM2 # SEE IF HIGH THREE BITS ZERO. 10000 CCS A 06062 TC +2 # NEEDS SPECIAL TREATMENT IF C(A) NOT ZERO 06032 TC 12BITSOK 30566 XCH EXECTEM2 74605 MASK LOW10 64373 AD 6K 40000 COM >003080,000133: 04,6066 20574 LOCSET INDEX LOCCTR 50117 TS LOC 20550 INDEX NEWJOB 40123 CS PRIORITY # TEST WHETHER NEW JOB HAS HIGHER 60572 AD NEWPRIO # PRIORITY THAN PREVIOUS HIGHEST 10000 CCS A 40574 CS LOCCTR # NEW JOB HAS HIGHER PRIORITY. 06101 TC NEWHIGH # SET NEWJOB, LEAVING LOCCTR UNCHANGED. 06077 TC +1 # -0 IF PRIORITIES = AND BOTH ARE NOVACS. 2">003091,000144: 04,6077 30565 NOWAKE2 XCH EXECTEM1 4">003092,000145: 04,6100 02067 ENDFIND TC FOUNDVAC 8">003094,000147: 04,6101 40000 NEWHIGH COM # SET NEWJOB AND RETURN TO CALLER. 50550 TS NEWJOB 06077 TC ENDFIND -1 >003098,000151: 04,6104 44513 NOVAC3 CS EIGHT # COMES HERE TO EXAMINE NEXT REGISTER SET. 60574 AD LOCCTR 06027 TC NOVAC2 +1 # THE JOBWAKE ROUTINE REACTIVES A SLEEPING JOB, SETTING IT TO BEGIN AT THE GIVEN WAKE ADDRESS. 532">003105,000158: 04,6107 36041 JOBWAKE2 CAF LASTADR # BEGIN SEARCH FOR REGISTER SET CONTAINING 50574 TS LOCCTR # SLEEPING JOB. WAKE ADDRESS IS IN LOC IN 10000 CCS A # CADR FORM, AS PLACED THERE BY JOBSLEEP. 20574 INDEX LOCCTR # PNZ AND -0 ONLY. SEE IF THIS JOB ASLEEP. 10123 CCS PRIORITY # THIS CCS CANT GO TO TC NOWAKE . 06137 TC JOBWAKE3 # PNZ - ACTIVE JOB PRESENT. +0 IMPOSSIBLE. 06142 TC NOWAKE # ALARM - SLEEPING JOB NOT FOUND. 06120 TC +2 # INACTIVE JOB FOUND. 06137 TC JOBWAKE3 # -0 - NOT IN USE. 40566 +2 CS EXECTEM2 # SEE IF THIS IS THE DESIRED SLEEPING JOB. 20574 INDEX LOCCTR 60117 AD LOC 10000 CCS A 06137 TC JOBWAKE3 # SEARCH NEXT SET IF NOT AT END. SETLOC +1 06137 TC JOBWAKE3 34605 CAF LOW10 # SET UP EXECTEM3 AND PRIORITY SO WE CAN 20574 INDEX LOCCTR # FINISH AT STANDARD CORSW . 70122 MASK PUSHLOC # PROTECT PD SETTING. 50567 TS EXECTEM3 20574 INDEX LOCCTR # RE-COMPLEMENT PRIORITY AND FINISH UP. 40123 CS PRIORITY 50572 TS NEWPRIO 06046 TC JOBWAKE4 533">003135,000188: 04,6137 44513 JOBWAKE3 CS EIGHT # ADVANCE TO NEXT REGISTER SET. 60574 AD LOCCTR 06110 TC JOBWAKE2 +1 >003139,000192: 04,6142 50574 NOWAKE TS LOCCTR # SET LOCCTR = +0 TO SHOW NO JOB WAS 06077 TC NOWAKE2 # AWAKENED. # A NEW JOB, OF HIGHER PRIORITY THAN THE PRESENT ONE, CAUSES THE RELA- # TIVE ADDRESS (9, 18, ..., 63) OF THE NEW JOB CORE REGISTERS TO BE # PLACED IN REGISTER NEWJOB , WHERE IT IS TESTED BY THE INTERPRETER. # THE RESULTING BRANCH TO CHANJOB, BELOW, CAUSES A TRADE BETWEEN THE # CORE REGISTERS OF THE PRESENT AND NEW JOBS. SETLOC FOUNDVAC +3 >003151,000204: 2072 20017 CHANG1 INHINT # BASIC JOBS COME HERE WHEN C(NEWJOB) 32066 CAF EXECBANK # NON-ZERO. START BY CALLING IN EXECUTIVE 30015 XCH BANKREG # BANK AND SAVING RETURN BANK CODE. 40000 COM 50060 TS BANKSET 30122 XCH PUSHLOC # BLANK OUT THE HIGH-ORDER 4 BITS IN 74605 MASK LOW10 # PUSHLOC SO THE BANK BITS CAN BE PACKED 50122 TS PUSHLOC # WITH IT 40001 CS Q # FOR RETURN, SHOWING THIS WAS A BASIC JOB 06144 TC CHANJOB # OFF TO BANK 0 >003162,000215: 2104 10065 CHANG2 CCS NEWEQIND # INTERPRETIVE INTERRUPTS START HERE, 00001 TC Q # PROVIDED THE LOAD INDICATOR ISNT ON 20017 INHINT 32066 CAF EXECBANK # CALL IN EXECUTIVE BANK. 50015 TS BANKREG 30117 XCH LOC 06144 TC CHANJOB # WITH C(A) PNZ, SHOWING WE WERE IN INTERP # RETER SETLOC NOWAKE +2 2">003172,000225: 04,6144 20550 CHANJOB INDEX NEWJOB # TO BEGIN SWAP OF CORE REGISTERS 30117 XCH LOC 50117 TS LOC # SAVE PROPER 12 BIT ADDRESS 30123 XCH PRIORITY 20550 INDEX NEWJOB 30123 XCH PRIORITY 50123 TS PRIORITY 74606 MASK LOW9 # TO GET FIXLOC 50066 TS FIXLOC 64511 AD BIT6 # SET UP VACLOC ( = FIXLOC + 32D ) 50067 TS VACLOC 40060 CS BANKSET # SAVE BANK 60122 AD PUSHLOC # AND PUSHLOC IN SAME WORD 20550 INDEX NEWJOB 30122 XCH PUSHLOC 50122 TS PUSHLOC 74605 MASK LOW10 30122 XCH PUSHLOC 40000 COM 60122 AD PUSHLOC # WE NOW HAVE COMPLEMNT OF BANK BITS 50060 TS BANKSET 40120 CS ADRLOC # SAVE MODE AND COMPLEMENT OF ADRLOC IN 60000 DOUBLE # SAME WORD. ADRLOC MUST BE SHIFTED 2 60000 DOUBLE # PLACES TO MAKE ROOM FOR MODE 60064 AD MODE # -0, -1, OR -2 20550 INDEX NEWJOB 30120 XCH ADRLOC 50021 TS SR 74473 MASK THREE # SAVE LOW 2 BITS 64341 AD NEG3 # THIS RESULTS IN EITHER -0, -1, OR -2 50064 TS MODE 40021 CS SR 40021 CS SR 50120 TS ADRLOC 10121 CCS OVFIND # SAVE C(ORDER) POSITIVE IF C(OVFIND) = 0 06211 TC +2 # AND NEGATIVE OTHERWISE 06213 TC +3 40062 CS ORDER 06214 TC +2 30062 XCH ORDER 20550 INDEX NEWJOB 30121 XCH OVFIND 50062 TS ORDER 10000 CCS A # DETERMINE NEW SETTING OF OVFIND 35500 CAF ZERO # TO ZERO 06225 TC OVFSET 40062 CS ORDER # ORDER WAS NEGATIVE, MAKE IT POSITIVE 50062 TS ORDER 34516 CAF ONE # TO SET OVFIND >003225,000278: 04,6225 50121 OVFSET TS OVFIND 30114 XCH MPAC # TRADE C(MPAC TO MPAC+2) 20550 INDEX NEWJOB 30114 XCH MPAC 50114 TS MPAC 30115 XCH MPAC +1 20550 INDEX NEWJOB 30115 XCH MPAC +1 50115 TS MPAC +1 30116 XCH MPAC +2 20550 INDEX NEWJOB 30116 XCH MPAC +2 50116 TS MPAC +2 35500 CAF ZERO 50065 TS NEWEQIND # MAKE SURE LOAD INDICATOR OFF. /a>003242,000295: 04,6244 50550 SETNJ TS NEWJOB 20016 RELINT # ENABLE INTERRUPT 10117 CCS LOC # C(LOC) PNZ FOR INTERPRETIVE JOBS. 35500 CAF ZERO 04026 TC DANZIG +2 # RETURN TO INTERPRETER 64516 AD ONE # GET ABS(LOC) AND RETURN TO BASIC 50061 TS ADDRWD 40060 CS BANKSET # GET DESIRED BANKBITS E47">003250,000303: 04,6254 02113 ENDCHANG TC BASICALL SETLOC CHANG2 +7D # TAKE UP WHERE WE LEFT OFF IN FIXED-FIXED C4C">003254,000307: 2113 50015 BASICALL TS BANKREG 00061 TC ADDRWD F42">003257,000310: 2115 32066 ENDOFJOB CAF EXECBANK # NORMAL ENDJOB ENTRY. 50015 TS BANKREG 06255 TC ENDJOB1 550">003261,000314: 2120 50117 JOBSLEEP TS LOC # ENTRY HERE TO DE-ACTIVE THIS JOB. 32066 CAF EXECBANK # LOC IS SET TO THE AWAKENING ADDRESS 50015 TS BANKREG # SO THE SUBSEQUENT JOBWAKE CAN FIND 06266 TC JOBSLP1 # THE PROPER REGISTER SET. SETLOC ENDCHANG +1 1">003268,000321: 04,6255 20017 ENDJOB1 INHINT # INTERPRETIVE JOBS FINISH WITH RTB 45500 CS ZERO # TO ENDJOB1 50077 TS BUF +1 # ENDJOB USES BUF, BUF +1, AND BUF +2. 30123 XCH PRIORITY 74606 MASK LOW9 # RESTORE AVAILABILITY OF VAC1 BY SETTING 10000 CCS A # C(VAC1USE) NON-ZERO 20000 INDEX A 50000 TS 0 06273 TC EJSCAN # ENDJOB NEED NOT EXAMINE FIRST REG. SET. 1">003279,000332: 04,6266 20017 JOBSLP1 INHINT # FINISH JOB SLEEP AND START ENDJOB-TYPE 40123 CS PRIORITY # SCAN. COMPLEMENTED PRIORITY REGISTER 50123 TS PRIORITY # SHOWS JOB IS ASLEEP. 45500 CS ZERO # INITIALIZE SEARCH FOR HIGHEST PRIORITY. 50077 TS BUF +1 # SCAN FOR THE ACTIVE JOB OF HIGHEST PRIORITY. >003288,000341: 04,6273 10133 EJSCAN CCS PRIORITY +8D # EACH PRIORITY REGISTER (PRIORITY +8N) 06335 TC EJ1 # IS SCANNED. ITS CONTENTS ARE EITHER SETLOC +1 06277 TC +1 # 2. NNZ - AN INACTIVE PRIORITY NUMBER. 10143 CCS PRIORITY +16D # OR 3. -0 - NOT IN USE. 06335 TC EJ1 # IF PNZ, CONTROL IS TRANSFERRED TO EJ1 SETLOC +1 06303 TC +1 # PARED WITH THE PREVIOUS HIGHEST 10153 CCS PRIORITY +24D # PRIORITY FOUND. THE CONTENTS OF Q 06335 TC EJ1 # SERVE TO LOCATE THE CCS WHICH WAS SETLOC +1 06307 TC +1 # NEWJOB IS SET TO THE RELATIVE ADDRESS 10163 CCS PRIORITY +32D # OF THE REGISTER SET WITH THE HIGHTEST 06335 TC EJ1 # ACTIVE PRIORITY AT THE END OF THE SCAN. SETLOC +1 06313 TC +1 10173 CCS PRIORITY +40D 06335 TC EJ1 B">003310,000363: 04,6315 70000 EXEC70K OCT 70000 06317 TC +1 10203 CCS PRIORITY +48D 06335 TC EJ1 >003315,000368: 04,6321 67654 -CCSPR -CCS PRIORITY 06323 TC +1 10213 CCS PRIORITY +56D 06335 TC EJ1 SETLOC +1 06327 TC +1 20076 INDEX BUF # PICK UP CCS INSTRUCTION TO GET NEWJOB 27776 CAF 0 -2 # SELECT CCS INSTRUCTION. 66321 AD -CCSPR 50550 TS NEWJOB # RELATIVE ADDRESS ONLY. 30117 XCH LOC # (NO MEANING FOR ENDOFJOB). 06144 TC CHANJOB 04,6335 50100 EJ1 TS BUF +2 # STORE NEW PRIORITY 60077 AD BUF +1 # - OLD PRIORITY 10000 CCS A 30001 XCH Q # IF NEW PRIORITY IS LARGER 06345 TC EJ2 30000 NOOP # IF OLD PRIORITY IS LARGER 20001 INDEX Q # OR EQUAL 00002 TC 2 04,6345 50076 EJ2 TS BUF # SAVE C(Q) TO LOCATE HIGHEST PRIORITY 40100 CS BUF +2 # JOB AT END OF SCAN. 50077 TS BUF +1 20076 INDEX BUF 00002 TC 2 Parent file is MAIN.agc