Source Code
|
|
These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. New sections of the software (appearing in EXTENDED_VERBS_FOR_MODING.agc) have been disassembled; labels and comments have been either taken from similar code in later programs or, in cases where this was not possible, added by VirtualAGC for clarity. |
000557,000002: ## Copyright: Public domain.
000558,000003: ## Filename: INTERRUPT_LEAD_INS.agc
000559,000004: ## Purpose: Part of the source code for AGC program Retread 50.
000560,000005: ## Assembler: yaYUL
000561,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000562,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
000563,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
000564,000009: ## physical core-rope modules.
000565,000010:
|
|
Page 15 |
000567,000012:
000568,000013: 4000 SETLOC 4000
000569,000014:
000570,000015: 4000 00004 INHINT # GO
000571,000016: 4001 34054 CAF GOBB
000572,000017: 4002 56006 XCH BBANK
000573,000018: 4003 12721 TCF GOPROG
000574,000019:
000575,000020: 4004 52011 DXCH ARUPT # T6RUPT
000576,000021: 4005 34055 CAF T6RPTBB
000577,000022: 4006 56006 XCH BBANK
000578,000023: 4007 14330 TCF RESUME +3 # ***FIX LATER***
000579,000024:
000580,000025: 4010 52011 DXCH ARUPT # T5RUPT
000581,000026: 4011 34056 CAF T5RPTBB
000582,000027: 4012 56006 XCH BBANK
000583,000028: 4013 14330 TCF RESUME +3 # ***FIX LATER***
000584,000029:
000585,000030: 4014 52011 DXCH ARUPT # T3RUPT
000586,000031: 4015 34057 CAF T3RPTBB
000587,000032: 4016 56006 XCH BBANK
000588,000033: 4017 14272 TCF T3RUPT
000589,000034:
000590,000035: 4020 52011 DXCH ARUPT # T4RUPT
000591,000036: 4021 34060 CAF T4RPTBB
000592,000037: 4022 56006 XCH BBANK
000593,000038: 4023 13052 TCF T4RUPT
000594,000039:
000595,000040: 4024 52011 DXCH ARUPT # KEYRUPT1
000596,000041: 4025 34061 CAF KEYRPTBB
000597,000042: 4026 56006 XCH BBANK
000598,000043: 4027 13153 TCF KEYRUPT1
000599,000044:
000600,000045: 4030 52011 DXCH ARUPT # KEYRUPT2
000601,000046: 4031 34061 CAF KEYRPTBB
000602,000047: 4032 56006 XCH BBANK
000603,000048: 4033 13175 TCF KEYRUPT2
000604,000049:
000605,000050: 4034 52011 DXCH ARUPT # UPRUPT
000606,000051: 4035 34061 CAF UPRPTBB
000607,000052: 4036 56006 XCH BBANK
000608,000053: 4037 13205 TCF UPRUPT
000609,000054:
000610,000055: 4040 52011 DXCH ARUPT # DOWNRUPT
000611,000056: 4041 34062 CAF DWNRPTBB
000612,000057: 4042 56006 XCH BBANK
000613,000058: 4043 14330 TCF RESUME +3 # ***FIX LATER***
000614,000059:
000615,000060: 4044 50017 RESUME # RADAR RUPT ****FIX LATER******
000616,000061:
000617,000062: 4050 SETLOC 4050
|
|
Page 16 |
000619,000064: 4050 50017 RESUME # HAND CONTROL RUPT ***FIX LATER****
000620,000065:
000621,000066:
000622,000067:
000623,000068: 4054 SETLOC 4054
000624,000069:
000625,000070:
000626,000071: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
000627,000072: 4054 02003 GOBB BBCON GOPROG
000628,000073:
000629,000074: 4055 0025 EBANK= TIME1
000630,000075: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
000631,000076:
000632,000077: 4056 0025 EBANK= TIME1
000633,000078: 4056 04000 T5RPTBB BBCON RESUME # ***FIX LATER***
000634,000079:
000635,000080: 4057 E3,1400 EBANK= LST1
000636,000081: 4057 04003 T3RPTBB BBCON T3RUPT
000637,000082:
000638,000083: 4060 1020 EBANK= DSRUPTSW
000639,000084: 4060 02002 T4RPTBB BBCON T4RUPT
000640,000085:
000641,000086: 4061 0624 EBANK= KEYTEMP1
000642,000087: 4061 02001 KEYRPTBB BBCON KEYRUPT1
000643,000088:
000644,000089: 4062 4061 UPRPTBB = KEYRPTBB
000645,000090:
000646,000091: 4062 0025 EBANK= TIME1
000647,000092: 4062 04000 DWNRPTBB BBCON RESUME # ***FIX LATER ***
000648,000093:
000649,000094: 4063 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc