Notations on the program listing read, in part:
YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Mike Higgins.
A team of volunteers performed the transcription and proof-reading. Note
that the scanned page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's section on archive.org. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision. |
000563,000002: ## Copyright: Public domain. 000564,000003: ## Filename: INTERRUPT_LEAD_INS.agc 000565,000004: ## Purpose: Part of the source code for Retread 44 (revision 0). It was 000566,000005: ## the very first program for the Block II AGC, created as an 000567,000006: ## extensive rewrite of the Block I program Sunrise. 000568,000007: ## This file is intended to be a faithful transcription, except 000569,000008: ## that the code format has been changed to conform to the 000570,000009: ## requirements of the yaYUL assembler rather than the 000571,000010: ## original YUL assembler. 000572,000011: ## Reference: pp. 15-16 000573,000012: ## Assembler: yaYUL 000574,000013: ## Contact: Ron Burkey <info@sandroid.org>. 000575,000014: ## Website: www.ibiblio.org/apollo/index.html 000576,000015: ## Mod history: 2016-12-13 MAS Created from Aurora 12 version. 000577,000016: ## 2016-12-16 MAS Transcribed. 000578,000017: ## 2016-12-26 RSB Proofed comment text using octopus/ProoferComments, 000579,000018: ## but no errors found. 000580,000019:
|
|
Page 15 The log section name, INTERRUPT LEAD INS, is circled in red. |
000583,000022: 000584,000023: 4000 SETLOC 4000 000585,000024: 000586,000025: 4000 00004 INHINT # GO 000587,000026: 4001 34054 CAF GOBB 000588,000027: 4002 56006 XCH BBANK 000589,000028: 4003 12721 TCF GOPROG 000590,000029: 000591,000030: 4004 52011 DXCH ARUPT # T6RUPT 000592,000031: 4005 34055 CAF T6RPTBB 000593,000032: 4006 56006 XCH BBANK 000594,000033: 4007 14330 TCF RESUME +3 # ***FIX LATER*** 000595,000034: 000596,000035: 4010 52011 DXCH ARUPT # T5RUPT 000597,000036: 4011 34056 CAF T5RPTBB 000598,000037: 4012 56006 XCH BBANK 000599,000038: 4013 14330 TCF RESUME +3 # ***FIX LATER*** 000600,000039: 000601,000040: 4014 52011 DXCH ARUPT # T3RUPT 000602,000041: 4015 34057 CAF T3RPTBB 000603,000042: 4016 56006 XCH BBANK 000604,000043: 4017 14272 TCF T3RUPT 000605,000044: 000606,000045: 4020 52011 DXCH ARUPT # T4RUPT 000607,000046: 4021 34060 CAF T4RPTBB 000608,000047: 4022 56006 XCH BBANK 000609,000048: 4023 13052 TCF T4RUPT 000610,000049: 000611,000050: 4024 52011 DXCH ARUPT # KEYRUPT1 000612,000051: 4025 34061 CAF KEYRPTBB 000613,000052: 4026 56006 XCH BBANK 000614,000053: 4027 13153 TCF KEYRUPT1 000615,000054: 000616,000055: 4030 52011 DXCH ARUPT # KEYRUPT2 000617,000056: 4031 34061 CAF KEYRPTBB 000618,000057: 4032 56006 XCH BBANK 000619,000058: 4033 13175 TCF KEYRUPT2 000620,000059: 000621,000060: 4034 52011 DXCH ARUPT # UPRUPT 000622,000061: 4035 34061 CAF UPRPTBB 000623,000062: 4036 56006 XCH BBANK 000624,000063: 4037 13205 TCF UPRUPT 000625,000064: 000626,000065: 4040 52011 DXCH ARUPT # DOWNRUPT 000627,000066: 4041 34062 CAF DWNRPTBB 000628,000067: 4042 56006 XCH BBANK 000629,000068: 4043 14330 TCF RESUME +3 # ***FIX LATER*** 000630,000069: 000631,000070: 4044 50017 RESUME # RADAR RUPT ****FIX LATER****** 000632,000071: 000633,000072: 4050 SETLOC 4050
|
|
Page 16 |
000635,000074: 4050 50017 RESUME # HAND CONTROL RUPT ***FIX LATER**** 000636,000075: 000637,000076: 000638,000077: 000639,000078: 4054 SETLOC 4054 000640,000079: 000641,000080: 000642,000081: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3 000643,000082: 4054 02003 GOBB BBCON GOPROG 000644,000083: 000645,000084: 4055 0025 EBANK= TIME1 000646,000085: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER*** 000647,000086: 000648,000087: 4056 0025 EBANK= TIME1 000649,000088: 4056 04000 T5RPTBB BBCON RESUME # ***FIX LATER*** 000650,000089: 000651,000090: 4057 E3,1400 EBANK= LST1 000652,000091: 4057 04003 T3RPTBB BBCON T3RUPT 000653,000092: 000654,000093: 4060 1020 EBANK= DSRUPTSW 000655,000094: 4060 02002 T4RPTBB BBCON T4RUPT 000656,000095: 000657,000096: 4061 0624 EBANK= KEYTEMP1 000658,000097: 4061 02001 KEYRPTBB BBCON KEYRUPT1 000659,000098: 000660,000099: 4062 4061 UPRPTBB = KEYRPTBB 000661,000100: 000662,000101: 4062 0025 EBANK= TIME1 000663,000102: 4062 04000 DWNRPTBB BBCON RESUME # ***FIX LATER *** 000664,000103: 000665,000104: 4063 ENDINTFF EQUALS End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc