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. Names of variables and program constants of the form "UNKnnnn" appear in areas not yet correlated with other pre-existing source code, and which are therefore unknown. |
000540,000002: ## Copyright: Public domain.
000541,000003: ## Filename: INTERRUPT_LEAD_INS.agc
000542,000004: ## Purpose: Part of the source code for AGC program Retread 50.
000543,000005: ## Assembler: yaYUL
000544,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000545,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
000546,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
000547,000009: ## physical core-rope modules.
000548,000010:
|
|
Page 15 |
000550,000012:
000551,000013: 4000 SETLOC 4000
000552,000014:
000553,000015: 4000 00004 INHINT # GO
000554,000016: 4001 34054 CAF GOBB
000555,000017: 4002 56006 XCH BBANK
000556,000018: 4003 12721 TCF GOPROG
000557,000019:
000558,000020: 4004 52011 DXCH ARUPT # T6RUPT
000559,000021: 4005 34055 CAF T6RPTBB
000560,000022: 4006 56006 XCH BBANK
000561,000023: 4007 14330 TCF RESUME +3 # ***FIX LATER***
000562,000024:
000563,000025: 4010 52011 DXCH ARUPT # T5RUPT
000564,000026: 4011 34056 CAF T5RPTBB
000565,000027: 4012 56006 XCH BBANK
000566,000028: 4013 14330 TCF RESUME +3 # ***FIX LATER***
000567,000029:
000568,000030: 4014 52011 DXCH ARUPT # T3RUPT
000569,000031: 4015 34057 CAF T3RPTBB
000570,000032: 4016 56006 XCH BBANK
000571,000033: 4017 14272 TCF T3RUPT
000572,000034:
000573,000035: 4020 52011 DXCH ARUPT # T4RUPT
000574,000036: 4021 34060 CAF T4RPTBB
000575,000037: 4022 56006 XCH BBANK
000576,000038: 4023 13052 TCF T4RUPT
000577,000039:
000578,000040: 4024 52011 DXCH ARUPT # KEYRUPT1
000579,000041: 4025 34061 CAF KEYRPTBB
000580,000042: 4026 56006 XCH BBANK
000581,000043: 4027 13153 TCF KEYRUPT1
000582,000044:
000583,000045: 4030 52011 DXCH ARUPT # KEYRUPT2
000584,000046: 4031 34061 CAF KEYRPTBB
000585,000047: 4032 56006 XCH BBANK
000586,000048: 4033 13175 TCF KEYRUPT2
000587,000049:
000588,000050: 4034 52011 DXCH ARUPT # UPRUPT
000589,000051: 4035 34061 CAF UPRPTBB
000590,000052: 4036 56006 XCH BBANK
000591,000053: 4037 13205 TCF UPRUPT
000592,000054:
000593,000055: 4040 52011 DXCH ARUPT # DOWNRUPT
000594,000056: 4041 34062 CAF DWNRPTBB
000595,000057: 4042 56006 XCH BBANK
000596,000058: 4043 14330 TCF RESUME +3 # ***FIX LATER***
000597,000059:
000598,000060: 4044 50017 RESUME # RADAR RUPT ****FIX LATER******
000599,000061:
000600,000062: 4050 SETLOC 4050
|
|
Page 16 |
000602,000064: 4050 50017 RESUME # HAND CONTROL RUPT ***FIX LATER****
000603,000065:
000604,000066:
000605,000067:
000606,000068: 4054 SETLOC 4054
000607,000069:
000608,000070:
000609,000071: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
000610,000072: 4054 02003 GOBB BBCON GOPROG
000611,000073:
000612,000074: 4055 0025 EBANK= TIME1
000613,000075: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
000614,000076:
000615,000077: 4056 0025 EBANK= TIME1
000616,000078: 4056 04000 T5RPTBB BBCON RESUME # ***FIX LATER***
000617,000079:
000618,000080: 4057 E3,1400 EBANK= LST1
000619,000081: 4057 04003 T3RPTBB BBCON T3RUPT
000620,000082:
000621,000083: 4060 1020 EBANK= DSRUPTSW
000622,000084: 4060 02002 T4RPTBB BBCON T4RUPT
000623,000085:
000624,000086: 4061 0624 EBANK= KEYTEMP1
000625,000087: 4061 02001 KEYRPTBB BBCON KEYRUPT1
000626,000088:
000627,000089: 4062 4061 UPRPTBB = KEYRPTBB
000628,000090:
000629,000091: 4062 0025 EBANK= TIME1
000630,000092: 4062 04000 DWNRPTBB BBCON RESUME # ***FIX LATER ***
000631,000093:
000632,000094: 4063 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc